Object-oriented Software in Ada 95

350 TUI the implementation
#--------------------+
|Dialog| Miles |
|--------------------|
|* |
+--------------------+
User input sent to the dialog window is processed by the procedure send_to. This stores characters in the
string Dialog_Mes. When the user enters C_ACTION this causes a call to an application programmer written
call-back function with the string Dialog_Mes as its parameter. The character C_ACTION is the normal Enter
character on the keyboard.
procedure Send_To( The:in out Dialog; Ch:in Character ) is
Spaces : String(1 .. About(Window(The),Top)) := (others => ' ');
Res : String(1..0);
begin
case Ch is
when C_Where =>
Put( The, "" );
when C_Action =>
Res := Call_Call_Back( The,
The.Dialog_Mes(1..The.Dialog_Pos-1) )(1..0);
The.Dialog_Pos := 1;
The.Dialog_Mes := ( others => ' ' );
Position( The, 1, 3 ); --Start
Put( The, C_Cursor & Spaces ); --Clear
Position( The, 2, 3 ); --Cursor
Put( The, "" );
--Cursor
when C_Del =>
if The.Dialog_Pos > 1 then --Can delete
The.Dialog_Pos := The.Dialog_Pos - 1; --Make avail.
The.Dialog_Mes(The.Dialog_Pos):= ' '; --Remove
Position( The, The.Dialog_Pos, 3 );
Put( The, C_Cursor & " " ); --Overwrite
Position( The, The.Dialog_Pos, 3 );
Put( The, "" );
--Cursor
end if;
when others =>
if The.Dialog_Pos