Object-oriented Software in Ada 95

A Text user interface 323
with Class_Board, Class_Window;
use Class_Board, Class_Window;
package Pack_Program is
procedure Play;
private
Game : Board; --The board
P_Win_Brd : P_Window; --Window to display OXO board in
P_Win_Bnr : P_Window; --Window to display Banner in
P_Win_R : P_Window; --Window to display commentary in
Player : Character; --Either 'X' or 'O'
end Pack_Program;
The private part of the package is as follows:
with Ada.Integer_Text_Io,
Class_Dialog, Class_Menu, Class_Input_Manager, Class_Menu_Title;
use Ada.Integer_Text_Io,
Class_Dialog, Class_Menu, Class_Input_Manager, Class_Menu_Title;
package body Pack_Program is
The procedure Play sets up the various windows used to display the game.
procedure Play is
begin
Window_Prologue; --Setup window system
declare
Win_Brd : aliased Window; --Board Window
Win_R : aliased Window; --Result Window
Win_Bnr : aliased Window; --title Window
Win_Usr : aliased Dialog; --Input Window
Ttt_Reset: aliased Menu; --Reset menu
Ttt_Menu : Menu_Title; --Title menu
The various windows on the screen are then initialized to their fixed co-ordinate positions.
begin
Framework( Win_Bnr, 1, 4, 52, 3 ); --Banner
Framework( Win_Brd, 32, 8, 13, 9 ); --OXO board
Framework( Win_R, 9, 14, 22, 3 ); --Results
The menu bar sequence is then defined with the following frameworks:
Framework( Ttt_Reset,
"X start", null, Reset_X'access,
"O start", null, Reset_O'access );
Framework( Ttt_Menu,
"About", null, About'access,
"Reset", Ttt_Reset'Unchecked_Access, null );
Following the initialization of global variables the writing of various introductory messages is performed:
© M A Smith - May not be reproduced without permission