1. ------------------------------------------------------------------------------ 
  2. --                                                                          -- 
  3. --      Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet       -- 
  4. --                     Copyright (C) 2000-2014, AdaCore                     -- 
  5. --                                                                          -- 
  6. -- This library is free software;  you can redistribute it and/or modify it -- 
  7. -- under terms of the  GNU General Public License  as published by the Free -- 
  8. -- Software  Foundation;  either version 3,  or (at your  option) any later -- 
  9. -- version. This library is distributed in the hope that it will be useful, -- 
  10. -- but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN- -- 
  11. -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.                            -- 
  12. --                                                                          -- 
  13. -- As a special exception under Section 7 of GPL version 3, you are granted -- 
  14. -- additional permissions described in the GCC Runtime Library Exception,   -- 
  15. -- version 3.1, as published by the Free Software Foundation.               -- 
  16. --                                                                          -- 
  17. -- You should have received a copy of the GNU General Public License and    -- 
  18. -- a copy of the GCC Runtime Library Exception along with this program;     -- 
  19. -- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    -- 
  20. -- <http://www.gnu.org/licenses/>.                                          -- 
  21. --                                                                          -- 
  22. ------------------------------------------------------------------------------ 
  23.  
  24. --  <description> 
  25. --  The Gtk.Tool_Shell.Gtk_Tool_Shell interface allows container widgets to 
  26. --  provide additional information when embedding Gtk.Tool_Item.Gtk_Tool_Item 
  27. --  widgets. 
  28. -- 
  29. --  </description> 
  30. pragma Ada_2005; 
  31.  
  32. pragma Warnings (Off, "*is already use-visible*"); 
  33. with Glib;           use Glib; 
  34. with Glib.Types;     use Glib.Types; 
  35. with Gtk.Enums;      use Gtk.Enums; 
  36. with Gtk.Size_Group; use Gtk.Size_Group; 
  37. with Pango.Layout;   use Pango.Layout; 
  38.  
  39. package Gtk.Tool_Shell is 
  40.  
  41.    type Gtk_Tool_Shell is new Glib.Types.GType_Interface; 
  42.    Null_Gtk_Tool_Shell : constant Gtk_Tool_Shell; 
  43.  
  44.    ------------------ 
  45.    -- Constructors -- 
  46.    ------------------ 
  47.  
  48.    function Get_Type return Glib.GType; 
  49.    pragma Import (C, Get_Type, "gtk_tool_shell_get_type"); 
  50.  
  51.    ------------- 
  52.    -- Methods -- 
  53.    ------------- 
  54.  
  55.    function Get_Ellipsize_Mode 
  56.       (Self : Gtk_Tool_Shell) return Pango.Layout.Pango_Ellipsize_Mode; 
  57.    pragma Import (C, Get_Ellipsize_Mode, "gtk_tool_shell_get_ellipsize_mode"); 
  58.    --  Retrieves the current ellipsize mode for the tool shell. Tool items 
  59.    --  must not call this function directly, but rely on 
  60.    --  Gtk.Tool_Item.Get_Ellipsize_Mode instead. 
  61.    --  Since: gtk+ 2.20 
  62.  
  63.    function Get_Icon_Size 
  64.       (Self : Gtk_Tool_Shell) return Gtk.Enums.Gtk_Icon_Size; 
  65.    pragma Import (C, Get_Icon_Size, "gtk_tool_shell_get_icon_size"); 
  66.    --  Retrieves the icon size for the tool shell. Tool items must not call 
  67.    --  this function directly, but rely on Gtk.Tool_Item.Get_Icon_Size instead. 
  68.    --  Since: gtk+ 2.14 
  69.  
  70.    function Get_Orientation 
  71.       (Self : Gtk_Tool_Shell) return Gtk.Enums.Gtk_Orientation; 
  72.    pragma Import (C, Get_Orientation, "gtk_tool_shell_get_orientation"); 
  73.    --  Retrieves the current orientation for the tool shell. Tool items must 
  74.    --  not call this function directly, but rely on 
  75.    --  Gtk.Tool_Item.Get_Orientation instead. 
  76.    --  Since: gtk+ 2.14 
  77.  
  78.    function Get_Relief_Style 
  79.       (Self : Gtk_Tool_Shell) return Gtk.Enums.Gtk_Relief_Style; 
  80.    pragma Import (C, Get_Relief_Style, "gtk_tool_shell_get_relief_style"); 
  81.    --  Returns the relief style of buttons on Shell. Tool items must not call 
  82.    --  this function directly, but rely on Gtk.Tool_Item.Get_Relief_Style 
  83.    --  instead. 
  84.    --  Since: gtk+ 2.14 
  85.  
  86.    function Get_Style 
  87.       (Self : Gtk_Tool_Shell) return Gtk.Enums.Gtk_Toolbar_Style; 
  88.    pragma Import (C, Get_Style, "gtk_tool_shell_get_style"); 
  89.    --  Retrieves whether the tool shell has text, icons, or both. Tool items 
  90.    --  must not call this function directly, but rely on 
  91.    --  Gtk.Tool_Item.Get_Toolbar_Style instead. 
  92.    --  Since: gtk+ 2.14 
  93.  
  94.    function Get_Text_Alignment (Self : Gtk_Tool_Shell) return Gfloat; 
  95.    pragma Import (C, Get_Text_Alignment, "gtk_tool_shell_get_text_alignment"); 
  96.    --  Retrieves the current text alignment for the tool shell. Tool items 
  97.    --  must not call this function directly, but rely on 
  98.    --  Gtk.Tool_Item.Get_Text_Alignment instead. 
  99.    --  Since: gtk+ 2.20 
  100.  
  101.    function Get_Text_Orientation 
  102.       (Self : Gtk_Tool_Shell) return Gtk.Enums.Gtk_Orientation; 
  103.    pragma Import (C, Get_Text_Orientation, "gtk_tool_shell_get_text_orientation"); 
  104.    --  Retrieves the current text orientation for the tool shell. Tool items 
  105.    --  must not call this function directly, but rely on 
  106.    --  Gtk.Tool_Item.Get_Text_Orientation instead. 
  107.    --  Since: gtk+ 2.20 
  108.  
  109.    function Get_Text_Size_Group 
  110.       (Self : Gtk_Tool_Shell) return Gtk.Size_Group.Gtk_Size_Group; 
  111.    --  Retrieves the current text size group for the tool shell. Tool items 
  112.    --  must not call this function directly, but rely on 
  113.    --  Gtk.Tool_Item.Get_Text_Size_Group instead. 
  114.    --  Since: gtk+ 2.20 
  115.  
  116.    procedure Rebuild_Menu (Self : Gtk_Tool_Shell); 
  117.    pragma Import (C, Rebuild_Menu, "gtk_tool_shell_rebuild_menu"); 
  118.    --  Calling this function signals the tool shell that the overflow menu 
  119.    --  item for tool items have changed. If there is an overflow menu and if it 
  120.    --  is visible when this function it called, the menu will be rebuilt. 
  121.    --  Tool items must not call this function directly, but rely on 
  122.    --  Gtk.Tool_Item.Rebuild_Menu instead. 
  123.    --  Since: gtk+ 2.14 
  124.  
  125.    ---------------- 
  126.    -- Interfaces -- 
  127.    ---------------- 
  128.    --  This class implements several interfaces. See Glib.Types 
  129.    -- 
  130.    --  - "Gtk_Tool_Shell" 
  131.  
  132.    function "+" (W : Gtk_Tool_Shell) return Gtk_Tool_Shell; 
  133.    pragma Inline ("+"); 
  134.  
  135. private 
  136.  
  137. Null_Gtk_Tool_Shell : constant Gtk_Tool_Shell := 
  138.    Gtk_Tool_Shell (Glib.Types.Null_Interface); 
  139. end Gtk.Tool_Shell;