package Allegro.Displays.Monitors is
type Allegro_Monitor_Info is
record
x1 : Integer;
y1 : Integer;
x2 : Integer;
y2 : Integer;
end record;
pragma Convention( C, Allegro_Monitor_Info );
ALLEGRO_DEFAULT_DISPLAY_ADAPTER : constant Integer;
function Al_Get_Num_Video_Adapters return Integer;
pragma Import( C, Al_Get_Num_Video_Adapters, "al_get_num_video_adapters" );
function Al_Get_Monitor_Info( adapter : Integer; info : access Allegro_Monitor_Info ) return Boolean;
procedure Al_Get_Monitor_Info( adapter : Integer;
info : out Allegro_Monitor_Info;
success : out Boolean );
procedure Al_Get_Monitor_Info( adapter : Integer;
info : out Allegro_Monitor_Info );
private
ALLEGRO_DEFAULT_DISPLAY_ADAPTER : constant Integer := -1;
end Allegro.Displays.Monitors;