package Applications.Gui is
type Gui_Application is abstract new Application with private;
type A_Gui_Application is access all Gui_Application'Class;
function Get_Display
( | this | : not null access Gui_Application'Class ) return A_Allegro_Display; |
function Is_Mouse_Enabled
( | this | : not null access Gui_Application'Class ) return Boolean; |