1. package Game_Views.Window_Hooks is 
  2.  
  3.     -- Register window behavior hooks with Allegro. 
  4.     procedure Initialize; 
  5.  
  6.     -- Returns True on the first call after the close window button has been 
  7.     -- clicked. For OS X this can also mean pressing Apple + Q or selecting Quit 
  8.     -- in the application's menu. 
  9.     function Close_Window_Clicked return Boolean; 
  10.  
  11. private 
  12.  
  13.     -- Called when the close button on the application window is clicked. 
  14.     procedure Close_Window_Callback; 
  15.     pragma Convention( C, Close_Window_Callback ); 
  16.  
  17.     -- Called when the application window regains focus. 
  18.     procedure Switch_In_Callback; 
  19.     pragma Convention( C, Switch_In_Callback ); 
  20.  
  21.     -- Called when the application window loses focus. 
  22.     procedure Switch_Out_Callback; 
  23.     pragma Convention( C, Switch_Out_Callback ); 
  24.  
  25. end Game_Views.Window_Hooks;