Object-oriented Software in Ada 95

TUI the implementation 341
New_Line
Position
Put
Move to the next line in the window. This may
involve a rack up of the text in the window.
Move to a new position for subsequent output to
the window.
Write information into a window.
23.6.2 Window system API
The system API should not normally be required by an application program. This API is used internally by the
TUI system to manage the windows on the screen.
Method
About
Call_Call_Back
Create
De_Register
Finalize
Initialize
Mark_Border
Refresh
Register
Send_To
Set_Call_Back
Switch_Away
Switch_To
Responsibility
Return information about the window.
Call the call-back function for this window.
Create a raw window.
De-register the window with the Input_manager.
Destruction of a window.
Controlled initialization of a window.
Set border to indicate state of window active, or
inactive.
Re-display the window.
Register window on screen.
Send a character to the window for processing.
Set a call-back function for this window.
Make window non active.
Make window active.
23.6.3 The specification for the class Window
The specification is as follows:
with Pack_Constants, Class_Root_Window, Class_Window_Control;
use Pack_Constants, Class_Root_Window, Class_Window_Control;
package Class_Window is
type Window is new Root_Window with private;
type P_Window is access all Window;
type Mode is ( Visible, Invisible );
type P_Cbf is access function(Str:in String) return String;
Construction of a window is performed by:
procedure Initialize( The:in out Window );
procedure Finalize( The:in out Window );
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 );
procedure Create ( The:in out Window;
Abs_X_Crd, Abs_Y_Crd: Positive;
Max_X_Crd, Max_Y_Crd: Positive );
A call-back function is set and executed with:
© M A Smith - May not be reproduced without permission