type Application is abstract new Limited_Object with private;
type A_Application is access all Application'Class;
INIT_EXCEPTION : exception;
USE_ERROR : exception;
function Get_Company
( | this | : not null access Application'Class ) return String; |
function Get_Name
( | this | : not null access Application'Class ) return String; |
procedure Run
( | this | : not null access Application'Class; |
returnCode | : in out Integer ); |
procedure Create_Application;
function Get_Application return A_Application;