1. -- 
  2. -- Copyright (c) 2012 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. private with Tools; 
  10.  
  11. package Games.Ked is 
  12.  
  13. private 
  14.  
  15.     use Tools; 
  16.  
  17.     type Ked_Game is new Game with 
  18.         record 
  19.             tool : A_Tool := null; 
  20.         end record; 
  21.  
  22.     procedure Construct( this : access Ked_Game ); 
  23.  
  24.     procedure Delete( this : in out Ked_Game ); 
  25.  
  26.     procedure Add_Event_Listeners( this : access Ked_Game ); 
  27.  
  28.     procedure Handle_Event( this : access Ked_Game; 
  29.                             evt  : in out A_Event; 
  30.                             resp : out Response_Type ); 
  31.     pragma Precondition( evt /= null ); 
  32.  
  33.     procedure New_Game( this : access Ked_Game ); 
  34.  
  35.     procedure Remove_Event_Listeners( this : access Ked_Game ); 
  36.  
  37. end Games.Ked;