Hello!
At some point in the past, I was able to make a borderless window with
xforms. At some point I was no longer able to. Furthermore, xforms
0.84 seems to have a wider minimum window width than 0.75.
I would really like to be able to make a borderless, narrow form. Any
ideas? I'll include my Makefile and source code. Neither variation
does quite what I'd like....
xvol: xvol.c
${CC} -g xvol.c -o xvol -I/usr/local/xforms_0.81 \
-L/usr/local/xforms_0.81 -s -B static -lforms -B dynamic -laudio \
-lc_s -lfm_s -lgl_s -lm -laudio
oxvol: xvol.c
${CC} -DOLDXFORMS -g xvol.c -o oxvol -I/usr/local/xforms \
-L/usr/local/xforms -s -B static -lforms -B dynamic -laudio -lc_s \
-lfm_s -lgl_s -lm -laudio
#include <audio.h>
#include <math.h>
#include "forms.h"
main(int argc,char *argv[])
{
FL_FORM *form;
FL_OBJECT *slider,*button,*retobj, *tpoll;
long buf[4],v;
int flag;
float val,oval;
buf[0]=AL_LEFT_SPEAKER_GAIN;
buf[2]=AL_RIGHT_SPEAKER_GAIN;
if (argc>1)
if (strncmp(argv[1],"-f",2)==0)
flag=1;
ALgetparams(AL_DEFAULT_DEVICE,buf,4);
if (buf[1]!=0)
val=1.0-(3.321928*flog10(buf[1]))/7.9943534;
else
val=0;
#ifdef OLDXFORMS
fl_initialize("xvol","CP",0,0,&argc,argv);
form = fl_bgn_form(FL_UP_BOX,40.0,100.0);
slider = fl_add_slider(FL_VERT_SLIDER,5.0,5.0,30.0,80.0,"");
fl_set_slider_value(slider,val);
button = fl_add_button(FL_NORMAL_BUTTON,5.0,85.0,30.0,10.0,"");
tpoll = fl_add_timer(FL_HIDDEN_TIMER,0.0,0.0,0.0,0.0,"");
fl_set_timer(tpoll,0.1);
fl_end_form();
#else
fl_initialize(&argc,argv,"xvol",0,0);
form = fl_bgn_form(FL_UP_BOX,40.0,100.0);
slider = fl_add_slider(FL_VERT_SLIDER,5.0,17.0,30.0,80.0,"");
fl_set_slider_value(slider,val);
button = fl_add_button(FL_NORMAL_BUTTON,5.0,5.0,30.0,10.0,"");
tpoll = fl_add_timer(FL_HIDDEN_TIMER,0.0,0.0,0.0,0.0,"");
fl_set_timer(tpoll,0.1);
fl_end_form();
#endif
if (flag==1)
{
fl_set_form_position(form,225.0,50.0);
#ifdef OLDXFORMS
fl_show_form(form,FL_PLACE_POSITION,FALSE,"Xvol");
#else
fl_show_form(form,FL_PLACE_POSITION,FL_NOBORDER,"Xvol");
#endif
}
else
#ifdef OLDXFORMS
fl_show_form(form,FL_PLACE_SIZE,FALSE,"Xvol");
#else
fl_show_form(form,FL_PLACE_SIZE,FL_NOBORDER,"Xvol");
#endif
do
{
if (retobj == tpoll)
{
if (slider->pushed==0)
{
ALgetparams(AL_DEFAULT_DEVICE,buf,4);
if (buf[1]!=0)
val=1.0-(3.321928*flog10(buf[1]))/7.9943534;
else
val=0;
if (val!=oval)
fl_set_slider_value(slider,val);
oval=val;
}
fl_set_timer(tpoll,0.1);
}
else
{
val=1.0-fl_get_slider_value(slider);
v=pow(2,val*7.9943534);
buf[1]=buf[3]=v;
ALsetparams(AL_DEFAULT_DEVICE,buf,4);
}
retobj=fl_do_forms();
}
while(retobj != button);
fl_hide_form(form);
}
-- Brett Borowski bjb@scitec.com SciTec, Inc