--  File:EVENT.adb
-- 
--  Description:  This file contains the main Ada-95 program 
--                Generated date: 09/05/97 time is 11:40:09
-- 
with System ; 
with Ada.Exceptions ; 
with os2.jba; use os2.jba;  
with EVENTDP ; use EVENTDP ;
with text_io; use text_io;
procedure EVENT is
print : text_io.file_type;
begin 
      
 create(file=>print,name=>"event.prn",mode=>out_file);
 set_output(print);
 --   Initialize the application 
 
pApp :=  GuiInvokeApplication(    
          ApplicationName => "Event",
          Title           =>  "Mouse and Keyboard Events",
          WindowClass     =>  WT_DIALOG,
          IDD_MAINFRAME   =>  IDD_DIALOG,
          pwMainFrame     => wDialog'unchecked_access,
          DialogWndProc   =>  DialogWndProc'address);
   
GuiExitWindows ;
  exception 
    when The_Error: others => new_line; put_Line (" There are some problems");
         put_Line(Ada.Exceptions.Exception_Name(The_Error));
         put_Line(Ada.Exceptions.Exception_Information(The_Error)); 
         put_Line(Ada.Exceptions.Exception_Message(The_Error));
 
end EVENT ;
