Noeud « Previous »: Drawing Area, Noeud « Up »: Library Description


3.3 Text Area

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

All the routines below:


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.