type Application is abstract new Limited_Object with private;
type A_Application is access all Application'Class;
INIT_EXCEPTION : exception;
procedure Create_Application;
function Get_Application return A_Application;
procedure Close
( | this | : access Application ); |
function Get_Company
( | this | : not null access Application'Class ) return String; |
function Get_Name
( | this | : not null access Application'Class ) return String; |
function Get_Theme
( | this | : not null access Application'Class ) return A_Theme; |
function Get_Window_Title
( | this | : not null access Application'Class ) return String; |
function Init
( | this | : access Application ) return Boolean is abstract; |
procedure Run
( | this | : access Application; |
returnCode | : in out Integer ); |
procedure Stop
( | this | : not null access Application'Class; |
errorCode | : Integer := NO_ERROR ); |