1. ------------------------------------------------------------------------------ 
  2. --                  GtkAda - Ada95 binding for Gtk+/Gnome                   -- 
  3. --                                                                          -- 
  4. --                     Copyright (C) 2001-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. --  A GtkTextChildAnchor is a spot in the buffer where child widgets can be 
  26. --  "anchored" (inserted inline, as if they were characters). The anchor can 
  27. --  have multiple widgets anchored, to allow for multiple views. 
  28. --  </description> 
  29. --  <c_version>2.8.17</c_version> 
  30. --  <group>Multiline Text Editor</group> 
  31.  
  32. with Gtk; use Gtk; 
  33. with Gtk.Widget; 
  34.  
  35. package Gtk.Text_Child is 
  36.  
  37.    type Gtk_Text_Child_Anchor_Record is new GObject_Record with private; 
  38.    type Gtk_Text_Child_Anchor is access all Gtk_Text_Child_Anchor_Record'Class; 
  39.  
  40.    procedure Gtk_New (Widget : out Gtk_Text_Child_Anchor); 
  41.    procedure Initialize (Widget : access Gtk_Text_Child_Anchor_Record'Class); 
  42.    --  Creates or initializes a Gtk_Text_Child_Anchor widget. 
  43.    --  Usually you would then insert it into a Gtk_Text_Buffer with 
  44.    --  Gtk.Text_Buffer.Insert_Child_Anchor. 
  45.    --  To perform the creation and insertion in one step, use the 
  46.    --  convenience function Gtk.Text_Buffer.Create_Child_Anchor. 
  47.  
  48.    function Get_Type return Glib.GType; 
  49.    --  Return the internal value associated with a Gtk_Text_Child_Anchor. 
  50.  
  51.    function Get_Widgets 
  52.      (Anchor : access Gtk_Text_Child_Anchor_Record) 
  53.       return Gtk.Widget.Widget_List.Glist; 
  54.    --  Return the list of widgets attached at anchor. The returned list should 
  55.    --  be freed by the caller. 
  56.  
  57.    function Get_Deleted 
  58.      (Anchor : access Gtk_Text_Child_Anchor_Record) return Boolean; 
  59.    --  Determines whether a child anchor has been deleted from the buffer. Keep 
  60.    --  in mind that the child anchor will be unreferenced when removed from the 
  61.    --  buffer, so you need to hold your own reference (with Ref()) if you plan 
  62.    --  to use this function; otherwise all deleted child anchors will 
  63.    --  also be finalized. 
  64.  
  65.    ---------------- 
  66.    -- Properties -- 
  67.    ---------------- 
  68.  
  69.    --  <properties> 
  70.    --  The following properties are defined for this widget. See 
  71.    --  Glib.Properties for more information on properties. 
  72.    -- 
  73.    --  </properties> 
  74.  
  75. private 
  76.    type Gtk_Text_Child_Anchor_Record is new GObject_Record with null record; 
  77.    pragma Import (C, Get_Type, "gtk_text_child_anchor_get_type"); 
  78. end Gtk.Text_Child;