--  File:KINO.adb
--
--  Description:  This file contains the main Ada-95 program
--                Generated date: 05/04/97 time is 10:19:01
--
with System ;
with Ada.Exceptions ;
with os2.jba; use os2.jba;
with KINODP ; use KINODP ;
with text_io; use text_io;
procedure KINO is
print : text_io.file_type;
begin

 create(file=>print,name=>"kino.prn",mode=>out_file);
 set_output(print);

 --   Initialize the application

pApp :=  GuiInvokeApplication(
          ApplicationName => "kino",
          Title           =>  "Image load and draw demonstration",
          WindowClass     =>  WT_DIALOG,
          IDD_MAINFRAME   =>  IDD_MAINFRAME,
          pwMainFrame     => wMainFrame'unchecked_access,
          DialogWndProc   =>  MainFrameWndProc'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 KINO ;
