Package Name: global_data

Return to: Package List

-- =============================================================================
-- File    : global_data.ads                                                   =
-- Project : AMAF                                                              =
-- Version : 1.1.0                                                             =
-- Author  : M. A. van der Lugt                                                =
--                                                                             =
-- Copyright 1996 Marinus A. van der Lugt                                      =
--                                                                             =
-- History :                                                                   =
-- ----------------------------------------------------------------------------=


-- =============================================================================

-- Project packages
with Application ;
with Command_Fifo ;
with Menubar ;


with Fifo ;
-- =============================================================================
package Global_Data is


-- =============================================================================
package MB  renames Menubar ;


package APP renames Application ;
-- This variable is initialized to 'false'. When it is set to 'true', the

-- Main_Event_Loop will terminate, and the application will quit.


Exit_Program : boolean ;
-- The Application. This object will receive all commands and user input.

-- The object is instantiated in the 'Initialize' operation.


This_App : APP.Application_Class_Ptr ;

-- The command queue for commands that are generated by the application itself.


Command_Queue : Command_Fifo.Fifo ;
-- This list is used to translate menu selections to commands
-- (Note : these commands are then handled by the 'This_App')

-- This object is initialized by its initializer operation.


The_Menu_List : MB.Menu_List ;

-- This variable is set to 'true' if the application runs in the background.


gInBackground : boolean ;
-- =============================================================================
-- Initialize                                                                  =
-- ----------------------------------------------------------------------------=
-- This operation initializes the values for some of the above defined         =
-- variables.                                                                  =

-- =============================================================================


procedure Initialize ;
end Global_Data ;