Lisaac prototype interface

Section Header
+ name := G_CHECK;
- author := "Sonntag Benoit (bsonntag@loria.fr)";
- comment := "Group elements for GUI.";
Section Inherit
+ parent_g_group:Expanded G_GROUP;
Section Public
+ auto_action:G_WIN_OUT;
+ stat:INTEGER_8;
- set_stat s:INTEGER_8 <-
+ action:BLOCK :=
+ next_check:G_CHECK;
+ previous_check:G_CHECK;
- set_previous_check p:G_CHECK <-
Operator position.
- '^' Left 40 other:G_CHECK :G_CHECK <-
Creation
- create elt:G_EXPR connect a:G_WIN_OUT :SELF <-
- make elt:G_EXPR connect a:G_WIN_OUT <-
- create elt:G_EXPR action b:BLOCK :SELF <-
- make elt:G_EXPR action b:BLOCK <-
Size.
- width_min:INTEGER <-
- height_min:INTEGER <-
Update position.
- set_position rac:AREA at (x,y:INTEGER) size (w,h:INTEGER) <-
Display.
- draw_slave bmp:ABSTRACT_BITMAP from (x0,y0:INTEGER) to (x1,y1:INTEGER) <-
- draw (x0,y0:INTEGER) to (x1,y1:INTEGER) <-
Event manager.
- receive msg:EVENT <-
stat :
-1 = Not actif
0 = out & off
1 = in & off
2 = out & on
3 = in & on
Check draw.
- draw_check <-