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 <-