1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
/*
*
* This file is part of XForms.
*
* XForms is free software; you can redistribute it and/or modify it
* under the terms of the GNU Lesser General Public License as
* published by the Free Software Foundation; either version 2.1, or
* (at your option) any later version.
*
* XForms is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with XForms; see the file COPYING. If not, write to
* the Free Software Foundation, 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA.
*
*/
/* This demo is meant to demonstrate the use of a free
object in a form.
*/
#include "forms.h"
#include <stdlib.h>
int on = 1, dcol = 1;
FL_COLOR cole;
/* The call back routine */
int handle_it(FL_OBJECT *obj, int event, FL_Coord mx, FL_Coord my,
int key, void *ev)
{
static int dcol = 1;
switch (event)
{
case FL_DRAW:
fl_rectf(obj->x,obj->y,obj->w,obj->h, obj->u_ldata);
break;
case FL_RELEASE:
on = !on;
break;
case FL_STEP:
if (on)
{
if (obj->u_ldata == cole)
dcol = -1;
if (obj->u_ldata == FL_FREE_COL1)
dcol = 1;
obj->u_ldata += dcol;
fl_redraw_object(obj);
}
break;
}
return 0;
}
void done(FL_OBJECT *ob, long data) { exit(0);}
int
main(int argc, char *argv[])
{
FL_FORM *form;
FL_OBJECT *obj;
int i, j, depth, col;
fl_initialize(&argc, argv, "FormDemo", 0, 0);
form = fl_bgn_form(FL_UP_BOX,400,400);
obj = fl_add_button(FL_NORMAL_BUTTON,320,20,40,30,"Exit");
fl_set_object_callback(obj, done, 0);
obj = fl_add_free(FL_CONTINUOUS_FREE,40,80,320,280,"",handle_it);
fl_end_form();
depth = fl_get_visual_depth();
/* can't do it if less than 4 bit deep */
if(depth < 4)
{
fprintf(stderr,"This Demo requires a depth of at least 4 bits\n");
fl_finish();
exit(1);
}
cole = ((1 << depth)-1);
if(cole > 64)
cole = 64;
obj->u_ldata = col = FL_FREE_COL1;
cole += col;
for ( i = col; i <= cole; i++)
{
j = (int)(255 * (i - col) /(float)(cole - col));
fl_mapcolor(i, j, j, j);
}
fl_show_form(form,FL_PLACE_CENTER,FL_NOBORDER,"Free Object");
fl_do_forms();
return 0;
}
|
