1. with Allegro_Ids; 
  2. pragma Warnings( Off, Allegro_Ids ); 
  3.  
  4. pragma Elaborate_All( Allegro_Ids ); 
  5.  
  6. package Allegro.Graphics.Win is 
  7.  
  8.     GFX_DIRECTX       : constant Gfx_Detect_Type; 
  9.     GFX_DIRECTX_ACCEL : constant Gfx_Detect_Type; 
  10.     GFX_DIRECTX_SAFE  : constant Gfx_Detect_Type; 
  11.     GFX_DIRECTX_SOFT  : constant Gfx_Detect_Type; 
  12.     GFX_DIRECTX_WIN   : constant Gfx_Detect_Type; 
  13.     GFX_DIRECTX_OVL   : constant Gfx_Detect_Type; 
  14.     GFX_GDI           : constant Gfx_Detect_Type; 
  15.  
  16. private 
  17.  
  18.     GFX_DIRECTX       : constant Gfx_Detect_Type := To_AL_ID('D','X','A','C'); 
  19.     GFX_DIRECTX_ACCEL : constant Gfx_Detect_Type := To_AL_ID('D','X','A','C'); 
  20.     GFX_DIRECTX_SAFE  : constant Gfx_Detect_Type := To_AL_ID('D','X','S','A'); 
  21.     GFX_DIRECTX_SOFT  : constant Gfx_Detect_Type := To_AL_ID('D','X','S','O'); 
  22.     GFX_DIRECTX_WIN   : constant Gfx_Detect_Type := To_AL_ID('D','X','W','N'); 
  23.     GFX_DIRECTX_OVL   : constant Gfx_Detect_Type := To_AL_ID('D','X','O','V'); 
  24.     GFX_GDI           : constant Gfx_Detect_Type := To_AL_ID('G','D','I','B'); 
  25.  
  26. end Allegro.Graphics.Win;