3.3 Text Area

We give here the routines that allow the user to interact wi the test area.

All the routines below:

• are thread-safe, in the sence that the call to a routine is “atomic” to avoid interference between different tasks calling different routines.
• verify the existence of the graphical window and the text area and raise an error if on of themhas not been created.

procedure Clear_Text_Area;

This procedure erases all the text of the text area.

procedure Put (Item : String);

This procedure inserts the given text on the current cursor position of the text area.

procedure Put (Item : Character);

Same as above but with a character

procedure New_Line (Spacing : Positive := 1);

This procedure jumps to the beginning of the last line of the next Spacing lines.

procedure Put_Line (Item : String);

This procedure is equivalent to Put (Item); New_Line;.

procedure Put_Line (Item : Character);

This procedure is equivalent to Put (Item); New_Line;.

function Get_Line return String;

This function blocks until the user types a string followed by pressing ENTER

function Get_Immediate return Character;

This function blocks until the user press a key corresponding to a graphical character. The value of the key is stored in Item. The user does not need to press ENTER.