1. ----------------------------------------------------------------------- 
  2. --                   Gate - GtkAda Components                        -- 
  3. --                                                                   -- 
  4. --                      Copyright (C) 2001                           -- 
  5. --        Emmanuel Briot, Joel Brobecker and Arnaud Charlet          -- 
  6. --                     Copyright (C) 2002-2009, AdaCore              -- 
  7. --                                                                   -- 
  8. -- GATE is free software;  you can redistribute it and/or modify  it -- 
  9. -- under the terms of the GNU General Public License as published by -- 
  10. -- the Free Software Foundation; either version 2 of the License, or -- 
  11. -- (at your option) any later version.                               -- 
  12. --                                                                   -- 
  13. -- This program is  distributed in the hope that it will be  useful, -- 
  14. -- but  WITHOUT ANY WARRANTY;  without even the  implied warranty of -- 
  15. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU -- 
  16. -- General Public License for more details. You should have received -- 
  17. -- a copy of the GNU General Public License along with this library; -- 
  18. -- if not,  write to the  Free Software Foundation, Inc.,  59 Temple -- 
  19. -- Place - Suite 330, Boston, MA 02111-1307, USA.                    -- 
  20. ----------------------------------------------------------------------- 
  21.  
  22. --  This package provides all the routines needed to output code from Glade 
  23. --  XML files for the Gtk+ hiearchy. 
  24. --  <c_version>2.8.17</c_version> 
  25.  
  26. with Ada.Text_IO; use Ada.Text_IO; 
  27. with Glib.Glade; use Glib.Glade; use Glib.Glade.Glib_XML; 
  28.  
  29. package Gtk_Generates is 
  30.  
  31.    procedure Accel_Label_Generate            (N : Node_Ptr; File : File_Type); 
  32.    procedure Alignment_Generate              (N : Node_Ptr; File : File_Type); 
  33.    procedure Arrow_Generate                  (N : Node_Ptr; File : File_Type); 
  34.    procedure Aspect_Frame_Generate           (N : Node_Ptr; File : File_Type); 
  35.    procedure Box_Generate                    (N : Node_Ptr; File : File_Type); 
  36.    procedure Button_Generate                 (N : Node_Ptr; File : File_Type); 
  37.    procedure Button_Box_Generate             (N : Node_Ptr; File : File_Type); 
  38.    procedure Calendar_Generate               (N : Node_Ptr; File : File_Type); 
  39.    procedure Check_Button_Generate           (N : Node_Ptr; File : File_Type); 
  40.    procedure Check_Menu_Item_Generate        (N : Node_Ptr; File : File_Type); 
  41.    procedure Color_Selection_Generate        (N : Node_Ptr; File : File_Type); 
  42.    procedure Color_Selection_Dialog_Generate (N : Node_Ptr; File : File_Type); 
  43.    procedure Combo_Generate                  (N : Node_Ptr; File : File_Type); 
  44.    procedure Container_Generate              (N : Node_Ptr; File : File_Type); 
  45.    procedure Curve_Generate                  (N : Node_Ptr; File : File_Type); 
  46.    procedure Dialog_Generate                 (N : Node_Ptr; File : File_Type); 
  47.    procedure Drawing_Area_Generate           (N : Node_Ptr; File : File_Type); 
  48.    procedure Event_Box_Generate              (N : Node_Ptr; File : File_Type); 
  49.    procedure File_Selection_Generate         (N : Node_Ptr; File : File_Type); 
  50.    procedure Fixed_Generate                  (N : Node_Ptr; File : File_Type); 
  51.    procedure Font_Selection_Generate         (N : Node_Ptr; File : File_Type); 
  52.    procedure Font_Selection_Dialog_Generate  (N : Node_Ptr; File : File_Type); 
  53.    procedure Frame_Generate                  (N : Node_Ptr; File : File_Type); 
  54.    procedure Gamma_Curve_Generate            (N : Node_Ptr; File : File_Type); 
  55.    procedure GEntry_Generate                 (N : Node_Ptr; File : File_Type); 
  56.    procedure GRange_Generate                 (N : Node_Ptr; File : File_Type); 
  57.    procedure Handle_Box_Generate             (N : Node_Ptr; File : File_Type); 
  58.    procedure Hbutton_Box_Generate            (N : Node_Ptr; File : File_Type); 
  59.    procedure Image_Generate                  (N : Node_Ptr; File : File_Type); 
  60.    procedure Image_Menu_Item_Generate        (N : Node_Ptr; File : File_Type); 
  61.    procedure Input_Dialog_Generate           (N : Node_Ptr; File : File_Type); 
  62.    procedure Label_Generate                  (N : Node_Ptr; File : File_Type); 
  63.    procedure Layout_Generate                 (N : Node_Ptr; File : File_Type); 
  64.    procedure List_Generate                   (N : Node_Ptr; File : File_Type); 
  65.    procedure List_Item_Generate              (N : Node_Ptr; File : File_Type); 
  66.    procedure Menu_Generate                   (N : Node_Ptr; File : File_Type); 
  67.    procedure Menu_Bar_Generate               (N : Node_Ptr; File : File_Type); 
  68.    procedure Menu_Item_Generate              (N : Node_Ptr; File : File_Type); 
  69.    procedure Misc_Generate                   (N : Node_Ptr; File : File_Type); 
  70.    procedure Notebook_Generate               (N : Node_Ptr; File : File_Type); 
  71.    procedure Option_Menu_Generate            (N : Node_Ptr; File : File_Type); 
  72.    procedure Paned_Generate                  (N : Node_Ptr; File : File_Type); 
  73.    procedure Pixmap_Generate                 (N : Node_Ptr; File : File_Type); 
  74.    procedure Progress_Generate               (N : Node_Ptr; File : File_Type); 
  75.    procedure Progress_Bar_Generate           (N : Node_Ptr; File : File_Type); 
  76.    procedure Radio_Button_Generate           (N : Node_Ptr; File : File_Type); 
  77.    procedure Radio_Menu_Item_Generate        (N : Node_Ptr; File : File_Type); 
  78.    procedure Ruler_Generate                  (N : Node_Ptr; File : File_Type); 
  79.    procedure Scale_Generate                  (N : Node_Ptr; File : File_Type); 
  80.    procedure Scrollbar_Generate              (N : Node_Ptr; File : File_Type); 
  81.    procedure Scrolled_Window_Generate        (N : Node_Ptr; File : File_Type); 
  82.    procedure Separator_Generate              (N : Node_Ptr; File : File_Type); 
  83.    procedure Separator_Menu_Item_Generate    (N : Node_Ptr; File : File_Type); 
  84.    procedure Spin_Button_Generate            (N : Node_Ptr; File : File_Type); 
  85.    procedure Status_Bar_Generate             (N : Node_Ptr; File : File_Type); 
  86.    procedure Table_Generate                  (N : Node_Ptr; File : File_Type); 
  87.    procedure Text_View_Generate              (N : Node_Ptr; File : File_Type); 
  88.    procedure Toggle_Button_Generate          (N : Node_Ptr; File : File_Type); 
  89.    procedure Toolbar_Generate                (N : Node_Ptr; File : File_Type); 
  90.    procedure Tree_View_Generate              (N : Node_Ptr; File : File_Type); 
  91.    procedure Vbutton_Box_Generate            (N : Node_Ptr; File : File_Type); 
  92.    procedure Viewport_Generate               (N : Node_Ptr; File : File_Type); 
  93.    procedure Widget_Generate                 (N : Node_Ptr; File : File_Type); 
  94.    procedure Window_Generate                 (N : Node_Ptr; File : File_Type); 
  95.  
  96.    procedure Bin_Generate                    (N : Node_Ptr; File : File_Type) 
  97.      renames Container_Generate; 
  98.    procedure Editable_Generate               (N : Node_Ptr; File : File_Type) 
  99.      renames Widget_Generate; 
  100.    procedure Item_Generate                   (N : Node_Ptr; File : File_Type) 
  101.      renames Bin_Generate; 
  102.    procedure Menu_Shell_Generate             (N : Node_Ptr; File : File_Type) 
  103.      renames Container_Generate; 
  104.  
  105.    procedure Generate_Nothing (N : Node_Ptr; File : File_Type); 
  106.    --  Generate nothing 
  107.  
  108.    procedure End_Generate (N : Node_Ptr; File : File_Type); 
  109.    --  Common part needed for any widget. 
  110.    --  This should always be called *after* calling Generate for each widget. 
  111.    --  It will in particular set up the flags and accelerator, and put the 
  112.    --  widget in the right container using the right procedure call. 
  113.  
  114.    procedure Initialize_Signals_Store; 
  115.    --  Initialize the storing of signals 
  116.  
  117.    procedure Store_Signal_Node (N : Node_Ptr); 
  118.    --  Store N 
  119.  
  120.    procedure Process_Signals (File : File_Type); 
  121.    --  Generate the signals stored in the signals store 
  122.  
  123. end Gtk_Generates;