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