Lisaac prototype interface

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