Package Name: application

Return to: Package List

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


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

-- Project packages
with Commands ;


with Windows_List ;
-- =============================================================================
package Application is

-- =============================================================================
package COM renames Commands ;


package WL  renames Windows_List ;

type Application is tagged limited private ;


type Application_Class_Ptr is access Application'class ;
procedure Handle_Command
  (This                : in out Application ;
   Command             : in     COM.Command'class ;

   Command_Was_Handled :    out boolean) ;
procedure Convert_Global_To_Local_Scrap

  (This : in out Application) ;
procedure Convert_Local_To_Global_Scrap


  (This : in out Application) ;

private
type Application is tagged limited
   record
      The_Windows : WL.Windows_List ;


   end record ;
end Application ;