Section Header
  
    + name    := G_WIN_OUT_TRANS_TEST;
  
  
  
 ****** WARNING : JUST TEST ***********
  
  
  
    - author  := "Sonntag Benoit (bsonntag@loria.fr)";
  
    - comment := "Group elements for GUI.";
Section Inherit  
  
  
    + parent_window:Expanded AREA_MASK;
  
  
    + parent_g_expr:Expanded G_EXPR;
  
Section Public  
  
  
    + title_len:INTEGER;
  
  
    + title:ABSTRACT_STRING;
  
  
    + stat:INTEGER_8;
    
  
    - is_open:BOOLEAN <- 
  
  
    - open_by src:G_GROUP <-
      
  
    - close <-
    
  
  
 Creation.
  
  
  
    - create t:ABSTRACT_STRING with elt:G_EXPR :SELF <-
    
  
    - make t:ABSTRACT_STRING with elt:G_EXPR <-
    
  
  
 Size.
  
   
  
  
 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) <-
    
  
  
 ********** UPDATE ********
  
  
  
    - draw (x0,y0:INTEGER) to (x1,y1:INTEGER) <-
  
  
    - slave_pixel_hard (x,y:INTEGER) color col:UINTEGER_32 <- 
    
  
    - slave_line_h_hard (x1,y:INTEGER) until x2:INTEGER color col:UINTEGER_32 <- 
  
  
    - slave_line_h_hard (x1,y:INTEGER) until x2:INTEGER 
  image line:ABSTRACT_BMP_LINE offset ofs:INTEGER <-
  
  
  
 Event.
  
    
  
    - receive msg:EVENT <-  
      
  
    - get_object (x,y:INTEGER) :AREA <-