1. -- 
  2. -- Copyright (c) 2013 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. -- Allegro 5.0.9 - Display routines - Monitors 
  10. package Allegro.Displays.Monitors is 
  11.  
  12.     type Allegro_Monitor_Info is 
  13.         record 
  14.             x1 : Integer; 
  15.             y1 : Integer; 
  16.             x2 : Integer; 
  17.             y2 : Integer; 
  18.         end record; 
  19.     pragma Convention( C, Allegro_Monitor_Info ); 
  20.  
  21.     ALLEGRO_DEFAULT_DISPLAY_ADAPTER : constant Integer; 
  22.  
  23.     function Al_Get_Num_Video_Adapters return Integer; 
  24.     pragma Import( C, Al_Get_Num_Video_Adapters, "al_get_num_video_adapters" ); 
  25.  
  26.     function Al_Get_Monitor_Info( adapter : Integer; info : access Allegro_Monitor_Info ) return Boolean; 
  27.  
  28.     procedure Al_Get_Monitor_Info( adapter : Integer; 
  29.                                    info    : out Allegro_Monitor_Info; 
  30.                                    success : out Boolean ); 
  31.  
  32.     procedure Al_Get_Monitor_Info( adapter : Integer; 
  33.                                    info    : out Allegro_Monitor_Info ); 
  34.  
  35. private 
  36.  
  37.     ALLEGRO_DEFAULT_DISPLAY_ADAPTER : constant Integer := -1; 
  38.  
  39. end Allegro.Displays.Monitors;