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. private 
  16.  
  17.     procedure Action_Show_Items( action : A_Button_Action ); 
  18.  
  19.     procedure Action_Show_Enemies( action : A_Button_Action ); 
  20.  
  21.     procedure Action_Show_Matrices( action : A_Button_Action ); 
  22.  
  23.     procedure Action_Show_Tiles( action : A_Button_Action ); 
  24.  
  25.     procedure Action_Use_Pointer( action : A_Button_Action ); 
  26.  
  27.     procedure Action_Use_Switch_Tool( action : A_Button_Action ); 
  28.  
  29.     procedure Action_Use_Trigger_Tool( action : A_Button_Action ); 
  30.  
  31. end Game_Views.Ked.Toolbar;