Lisaac prototype interface

Section Header
+ name := G_OUT;
- author := "Sonntag Benoit (bsonntag@loria.fr)";
- comment := "Output text for GUI.";
Section Inherit
+ parent_area:Expanded AREA;
+ parent_g_expr:Expanded G_EXPR;
Section Public
+ text:STRING;
+ justify:UINTEGER_8;
- left :UINTEGER_8 :=
- right :UINTEGER_8 :=
- center:UINTEGER_8 :=
Width / Height
- width_min:INTEGER <-
- height_min:INTEGER <-
Creation.
- create txt:ABSTRACT_STRING :SELF <-
- create txt:ABSTRACT_STRING justify j:UINTEGER_8 :SELF <-
- make txt:ABSTRACT_STRING justify j:UINTEGER_8 <-
Update position.
- set_position rac:AREA at (x,y:INTEGER) size (w,h:INTEGER) <-
Display.
- draw (x0,y0:INTEGER) to (x1,y1:INTEGER) <-