Object-oriented Software in Ada 95

A Text user interface 313
Note:
The reason for this structure is to allow initialization code for any declared windows to be run after the
window system has been initiated by the procedure Window_Prolog and to allow any finalization
code for the elaborated windows to be executed before the procedure Window_Epilog is called.
To avoid simultaneous access to a window, program initialization of a window must occur before the
user is allowed to interact with the system.
22.2.2 Window API calls
A text window is created with a declaration of the form:
Win : Window;
A text window can be created and written to using the following API calls:
Notes Function / procedure
1 procedure Framework( The:in out Window;
ABS_X_CRD, ABS_Y_CRD: POSITIVE;
Max_X_Crd, Max_Y_Crd: Positive;
Cb:in P_Cbf := null );
2 procedure Put( The:in out Window; Mes:in String );
2 procedure Put( The:in out Window;Ch:in Character );
2 procedure Put( The:in out Window; N:in Integer );
3 Procedure Position( The:in out Window;X,Y:in Positive );
4 procedure Clear( The:in out Window );
5 procedure New_Line( The:in out Window );
6 procedure Make_Window( The:in out Window; Mo:in Mode );
Notes:
1 Sets the absolute position and size of the window on the screen.
The top left hand corner position is at: (abs_x_crd, abs_y_crd)
The bottom right hand corner position is at:
(abs_x_crd+max_x_crd-1, abs_y_crd+max_y_crd-1)
2 Displays information in a window. These functions are modelled after the procedures in
Ada.Text_Io.
3 Sets the current output position in the window.
4 Clears the window to all spaces.
5 Writes a newline to the window. This will cause the information in the window to scroll up if the
current position is at the last line of the window.
6 Makes the displayed window visible or invisible.
22.2.3 Dialog API calls
A dialog window is created with a declaration of the form:
Diag : Dialog;
© M A Smith - May not be reproduced without permission