Section Header
  
  
    + name    := PLAN;
  
  
    - comment := "Sub structure for WINDOW.";
  
  
    - version := 1;
  
Section Inherit
  
    - parent_object:OBJECT := 
  
Section Public  
  
  
 +--------------------+
  
 |    (x0,y0)         |
  
 |       X------------|.........+
  
 |       | / / / / / /|         :
  
 |       |/ / / / / / |         :
  
 |       | /  PLAN / /|         :
  
 |       |/ / / / / / |         :
  
 |       | / / / / / /|         :
  
 |       +------------X.........+
  
 |                 (x1,y1)
  
 |                    |
  
 +--------------------+
  
  
    + is_x:BOOLEAN;
  
    + is_y:BOOLEAN;
  
  
    + level:INTEGER;
  
    + window:AREA;
  
  
 Limit.
  
    + x0:LIMIT_X;
  
    + x1:LIMIT_X;
  
    + y0:LIMIT_Y;
  
    + y1:LIMIT_Y;
  
  
 Link.
  
    + next:PLAN;
  
    + prev:PLAN;
  
Section Public 
  
  
    - make win:AREA <-
    
  
    - create win:AREA :PLAN <- 
    
  
    - remove old_root:PLAN :PLAN <-
  
  
    - display <-
    
  
    - dec_level <-
  
  
    - inc_level <-
    
  
    - set_x0 new:LIMIT_X <-
  
  
    - set_y0 new:LIMIT_Y <-
  
  
    - set_x1 new:LIMIT_X <-
  
  
    - set_y1 new:LIMIT_Y <-
    
  
    - set_level new:INTEGER <-
    
  
    - set_next new:PLAN <-
  
  
    - set_prev new:PLAN <-
  
  
    - active_y <-
  
  
    - desactive_y <-
  
  
    - active_x <-
  
  
    - desactive_x <-