Package Name: windows_list

Return to: Package List

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


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

-- Ada standard packages


with ada.finalization ;

-- Project packages
with Commands ;


with Window ;
-- =============================================================================
package Windows_List is


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


package COM renames Commands ;


type Windows_List is new ada.finalization.limited_controlled with private ;

-- Controlling operations
procedure Initialize

  (This : in out Windows_List) ;
procedure Finalize

  (This : in out Windows_List) ;
procedure Handle_Command
  (This                 : in out Windows_List ;
   Command              : in     COM.Command'class ;


   Command_Was_Handled  :    out boolean) ;

-- Command handlers
procedure Do_Window_Command
  (This                : in out Windows_List ;
   Command             : in     COM.Window_Command'class ;


   Command_Was_Handled : out boolean) ;

-- Auxillary operations
procedure Add
  (This           : in out Windows_List ;

   the_Window_Ptr : in     Window.Window_Class_Ptr) ;
  


private

type Window_Ptrs_Array is array (integer range <>) of Window.Window_Class_Ptr ;

type Window_Ptrs_Array_Ptr is access Window_Ptrs_Array ;
type Windows_List is new ada.finalization.limited_controlled with
   record
      Window_Ptrs : Window_Ptrs_Array_Ptr ;
      Count       : integer := 0 ;


   end record ;
end Windows_List ;