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 Widgets.Buttons; 
  10.  
  11. package Widgets.Containers.Panels.Dialogs.Import_World is 
  12.  
  13.     function Create_Import_Dialog( view : not null access Game_Views.Game_View'Class; 
  14.                                    id   : String ) return A_Dialog; 
  15.     pragma Precondition( id'Length > 0 ); 
  16.     pragma Postcondition( Create_Import_Dialog'Result /= null ); 
  17.  
  18. private 
  19.  
  20.     use Widgets.Buttons; 
  21.  
  22.     type Import_Dialog is new Dialog and Button_Listener with null record; 
  23.  
  24.     procedure Construct( this : access Import_Dialog; 
  25.                          view : not null access Game_Views.Game_View'Class; 
  26.                          id   : String ); 
  27.     pragma Precondition( id'Length > 0 ); 
  28.  
  29.     procedure Handle_Action( this   : access Import_Dialog; 
  30.                              action : A_Button_Action ); 
  31.  
  32.     procedure Handle_Action( this    : access Import_Dialog; 
  33.                              action  : A_Key_Action; 
  34.                              handled : out Boolean ); 
  35.  
  36.     procedure On_Dialog_Show( this : access Import_Dialog ); 
  37.  
  38.     procedure Show( this : access Import_Dialog ); 
  39.  
  40. end Widgets.Containers.Panels.Dialogs.Import_World;