Object-oriented Software in Ada 95

TUI the implementation 349
with Pack_Constants, Class_Root_Window, Class_Window;
use Pack_Constants, Class_Root_Window, Class_Window;
package Class_Dialog is
type Dialog is new Window with private;
procedure Framework ( The:in out Dialog;
Abs_X, Abs_Y:in Positive;
Max_X: in Positive;
Name:in String; Cb:in P_Cbf );
procedure Send_To( The:in out Dialog; Ch:in Character );
private
subtype Message is String( 1 .. Window_Max_X );
type Dialog is new Window with record
Dialog_Pos: Positive := 1; --Position in input message
Dialog_Len: Positive := 1; --Length of dialogue message
Dialog_Mes: Message := ( others => ' '); --Input message
end record;
end Class_Dialog;
23.7.1 Implementation of the class Dialog
The implementation of the class dialog is:
package body Class_Dialog is
The procedure Framework constructs the style of the dialog window and registers the window with the input
manager so that user input may be directed to the window:
procedure Framework( The:in out Dialog;
Abs_X, Abs_Y:in Positive;
Max_X:in Positive;
Name:in String; Cb:in P_Cbf ) is
Dashes : String( 1 .. Max_X ) := (others=>'-');
begin
Create( The, Abs_X, Abs_Y, Max_X, 5 );
The.Dialog_Len := Max_X-2; --User input
The.Dialog_Pos := 1;
--In Dialog
Set_Call_Back( The, Cb ); --Call back fun
Put( The, "Dialog| " ); Put( The, Name ); --Dialog title
Position( The, 1, 2 ); Put( The, Dashes ); --Line
Position( The, 1, 3 ); Put( The, C_Cursor );--Cursor
Make_Window( The, Visible );
Register( The'Unchecked_Access, C_Switch ); --Activation Chr
end Framework;
For example, the fragment of code:
declare
Input : Dialog;
--Input Window
begin
Framework( Input, 5, 10, 22, --Input Window
"Miles", User_Input'access );
end;
would produce the following dialog box whose top left-hand corner on the screen is at position (5,10):
© M A Smith - May not be reproduced without permission