Object-oriented Software in Ada 95

348 TUI the implementation
procedure Send_To( The:in out Window; Ch:in Character ) is
begin
null;
end Send_To;
The window is registered with the input manager by the procedure register and de-registered with
De_Register.
procedure Register( P_W:in P_Root_Window;
Ch:in Character ) is
begin
Switch_Away_From_Top; --Register window focus
Add_To_List( P_W, Ch ); --Register window
Switch_To_Top; --Make focus
end Register;
procedure De_Register( P_W:in P_Root_Window ) is
begin
Top( P_W );
--Make top
Switch_Away_From_Top; -- prepare for demise
Remove_From_List( P_W ); --De register window
Switch_To_Top; --Make focus
end De_Register;
The next procedure is used internally by the class to write directly to a position in a window on the screen.
This procedure uses Write_To in the class Window_Control to perform the actual write.
procedure Put( The:in out Window;
X,Y:in Positive; Mes:in String ) is
begin
Write_To( The'Unchecked_Access, X, Y, Mes );
end Put;
end Class_Window;
23.7 The class Dialog
A normal window is specialized to a dialog window by overloading the following windows methods with new
responsibilities:
Method
Framework
Send_To
Responsibility
Set up the window as a dialog box.
Process user input sent to the dialog window.
The Ada specification for the class Dialog is as follows:
© M A Smith - May not be reproduced without permission