1 /*
2  *  This file is part of XForms.
3  *
4  *  XForms is free software; you can redistribute it and/or modify it
5  *  under the terms of the GNU Lesser General Public License as
6  *  published by the Free Software Foundation; either version 2.1, or
7  *  (at your option) any later version.
8  *
9  *  XForms is distributed in the hope that it will be useful, but
10  *  WITHOUT ANY WARRANTY; without even the implied warranty of
11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  *  Lesser General Public License for more details.
13  *
14  *  You should have received a copy of the GNU Lesser General Public
15  *  License along with XForms; see the file COPYING.  If not, write to
16  *  the Free Software Foundation, 59 Temple Place - Suite 330, Boston,
17  *  MA 02111-1307, USA.
18  */
19 
20 
21 /* This demo shows the use of a slider that is not active */
22 
23 #ifdef HAVE_CONFIG_H
24 #include "config.h"
25 #endif
26 
27 #include "include/forms.h"
28 
29 
30 /***************************************
31  ***************************************/
32 
33 int
main(int argc,char * argv[])34 main( int    argc,
35       char * argv[ ] )
36 {
37     FL_FORM *form;
38     FL_OBJECT *sl1,
39               *sl2,
40               *but,
41               *obj;
42 
43     fl_initialize( &argc, argv, "FormDemo", 0, 0 );
44     form = fl_bgn_form( FL_UP_BOX, 150 ,300 );
45     sl1 = fl_add_slider( FL_VERT_SLIDER, 20, 20, 40, 180, "X" );
46     sl2 = fl_add_slider( FL_VERT_SLIDER, 90, 20, 40, 180, "1-X" );
47     fl_deactivate_object( sl2 );
48     but = fl_add_button( FL_NORMAL_BUTTON, 40, 250, 70, 30, "Exit" );
49     fl_end_form( );
50 
51     fl_show_form( form, FL_PLACE_CENTER, FL_NOBORDER, "Inactive Slider" );
52 
53     do {
54         obj = fl_do_forms( );
55         fl_set_slider_value( sl2, 1.0 - fl_get_slider_value( sl1 ) );
56     } while ( obj != but );
57 
58     fl_hide_form( form );
59     fl_finish( );
60 
61     return 0;
62 }
63 
64 
65 /*
66  * Local variables:
67  * tab-width: 4
68  * indent-tabs-mode: nil
69  * End:
70  */
71