Object-oriented Software in Ada 95

A Text user interface 317
Window_Start;
--Start the user interaction
The procedure Window_Epilog closes down the system. This must be called outside the block in which the
instances of the windows were elaborated. This is to allow the finalization code to be called on the elaborated
windows before Window_Epilog is called.
end;
Window_Epilogue;
end Main;
--Close window system
22.3.2 Putting it all together
When compiled with the TUI API library code, the screen display with added annotations to show which call of
framework was used, together with position information is shown below:
framework( title, 20, 1, 36, 5 );
(20,1)
+----------------------------------+
| |
| Miles to kilometres |
| |
+----------------------------------+
(5,10) (30,10)
#--------------------+ +----------------------------------+
|Dialog| Miles | | |
|--------------------| | |
|* | | (30+36-1,10+5-1) |
+--------------------+ +----------------------------------+
framework( result, 30, 10, 36, 5 );
framework(input, 5, 10, 22, "Miles", user_input'Access);
After a user has typed in a distance of 50 miles to be converted to kilometres the screen will display:
+----------------------------------+
| |
| Miles to kilometres |
| |
+----------------------------------+
#--------------------+ +----------------------------------+
|Dialog| Miles | |Distance in miles = 50.00 |
|--------------------| |Distance in Kms = 80.47 |
|50.0* | | |
+--------------------+ +----------------------------------+
22.4 The menu system
The menu system is based on the metaphor of a menu title bar at the top of the screen which changes as new menu
options are selected. When a user selects away from the menu bar, the menu bar is returned to the top level of the
menu hierarchy. The menu system is activated by typing the switch character ESC.
© M A Smith - May not be reproduced without permission