1. with Tools;                             use Tools; 
  2.  
  3. package Game_Views.Ked.Toolbar is 
  4.  
  5.     -- Builds the GUI for the tool bar. 
  6.     procedure Make_Toolbar( view : not null A_Ked_View; 
  7.                             win  : not null A_Window ); 
  8.  
  9.     procedure Handle_New_Map( view : not null A_Ked_View ); 
  10.  
  11.     -- Call this procedure when the active tool has changed. 
  12.     procedure Handle_Tool_Changed( view : not null A_Ked_View; 
  13.                                    tool : not null A_Tool ); 
  14.  
  15.     TOOLBAR_WIDTH : constant := 22; 
  16.  
  17. private 
  18.  
  19.     procedure Action_Pin_Palette( action : A_Button_Action ); 
  20.  
  21.     procedure Action_Show_Items( action : A_Button_Action ); 
  22.  
  23.     procedure Action_Show_Enemies( action : A_Button_Action ); 
  24.  
  25.     procedure Action_Show_Matrices( action : A_Button_Action ); 
  26.  
  27.     procedure Action_Show_Tiles( action : A_Button_Action ); 
  28.  
  29.     procedure Action_Tool_Group( action : A_Button_Group_Action ); 
  30.  
  31.     procedure Action_Use_Pointer( action : A_Button_Action ); 
  32.  
  33.     procedure Action_Use_Switch_Tool( action : A_Button_Action ); 
  34.  
  35.     procedure Action_Use_Trigger_Tool( action : A_Button_Action ); 
  36.  
  37. end Game_Views.Ked.Toolbar;