1. with Widgets.Buttons;                   use Widgets.Buttons; 
  2.  
  3. package Game_Views.Keen.Actions is 
  4.  
  5.     -- This is called when the title screen button is clicked. 
  6.     procedure Action_Title_OK_Button( action : A_Button_Action ); 
  7.  
  8.     -- This is called when the New Game button is clicked. 
  9.     procedure Action_New_Game_Button( action : A_Button_Action ); 
  10.  
  11.     -- This is called when the Resume Game button is clicked. The button is 
  12.     -- disabled when the action is unavailable. 
  13.     procedure Action_Resume_Game_Button( action : A_Button_Action ); 
  14.  
  15.     -- This is called when the Quit Game button is clicked. 
  16.     procedure Action_Quit_Button( action : A_Button_Action ); 
  17.  
  18.     -- This is called when the retry level button is clicked. 
  19.     procedure Action_Retry_Yes_Button( action : A_Button_Action ); 
  20.  
  21.     -- This is called when the exit to map button is clicked. 
  22.     procedure Action_Retry_No_Button( action : A_Button_Action ); 
  23.  
  24. end Game_Views.Keen.Actions;