1. package Game_Views.Ked.Toolbar.Test_Panel is 
  2.  
  3.     procedure Make_Test_Panel( view : not null A_Ked_View; 
  4.                                win  : not null A_Window ); 
  5.  
  6. private 
  7.  
  8.     procedure Action_Show_Test( action : A_Button_Action ); 
  9.  
  10. end Game_Views.Ked.Toolbar.Test_Panel;