1. ----------------------------------------------------------------------- 
  2. --              GtkAda - Ada95 binding for Gtk+/Gnome                -- 
  3. --                                                                   -- 
  4. --                 Copyright (C) 2001-2007 AdaCore                   -- 
  5. --                                                                   -- 
  6. -- This library is free software; you can redistribute it and/or     -- 
  7. -- modify it under the terms of the GNU General Public               -- 
  8. -- License as published by the Free Software Foundation; either      -- 
  9. -- version 2 of the License, or (at your option) any later version.  -- 
  10. --                                                                   -- 
  11. -- This library is distributed in the hope that it will be useful,   -- 
  12. -- but WITHOUT ANY WARRANTY; without even the implied warranty of    -- 
  13. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU -- 
  14. -- General Public License for more details.                          -- 
  15. --                                                                   -- 
  16. -- You should have received a copy of the GNU General Public         -- 
  17. -- License along with this library; if not, write to the             -- 
  18. -- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      -- 
  19. -- Boston, MA 02111-1307, USA.                                       -- 
  20. --                                                                   -- 
  21. -- -- -- -- -- -- -- -- -- -- -- --
  22. ----------------------------------------------------------------------- 
  23.  
  24. --  <description> 
  25. --  A tag is a set of properties that can be associated with a range of text. 
  26. --  See also Gtk.Text_Attributes. Tags should be in a Gtk_Text_Tag_Table for 
  27. --  a given before before they are used in that buffer. 
  28. --  </description> 
  29. --  <c_version>2.8.17</c_version> 
  30. --  <group>Multiline Text Editor</group> 
  31.  
  32. with Gtk.Enums; 
  33. with Pango.Enums; 
  34. with Glib.Properties; 
  35. with Glib.GSlist; 
  36. with Pango.Font; 
  37. with Gdk.Color; 
  38. with System; 
  39. pragma Elaborate_All (Gdk.Color); 
  40. pragma Elaborate_All (Glib.GSlist); 
  41.  
  42. package Gtk.Text_Tag is 
  43.  
  44.    type Gtk_Text_Tag_Record is new GObject_Record with private; 
  45.    type Gtk_Text_Tag is access all Gtk_Text_Tag_Record'Class; 
  46.  
  47.    function Convert (W : Gtk_Text_Tag) return System.Address; 
  48.    function Convert (W : System.Address) return Gtk_Text_Tag; 
  49.    package Text_Tag_List is new Glib.GSlist.Generic_SList 
  50.      (Gpointer => Gtk_Text_Tag); 
  51.  
  52.    procedure Gtk_New (Widget : out Gtk_Text_Tag; Name : String := ""); 
  53.    --  Create a new Gtk_Text_Tag. 
  54.    --  Newly created tags must be added to the tags table for the buffer you 
  55.    --  intend to use them in. 
  56.    --     Gtk.Text_Tag_Table.Add (Get_Tag_Table (Buffer), Tag); 
  57.    --  See also Gtk.Text_Buffer.Create_Tag which is a more convenient way of 
  58.    --  creating a tag. 
  59.  
  60.    procedure Initialize 
  61.      (Widget : access Gtk_Text_Tag_Record'Class; 
  62.       Name   : String := ""); 
  63.    --  Internal initialization function. 
  64.    --  See the section "Creating your own widgets" in the documentation. 
  65.  
  66.    function Get_Type return Glib.GType; 
  67.    --  Return the internal value associated with this widget. 
  68.  
  69.    procedure Set_Priority (Tag : access Gtk_Text_Tag_Record; Priority : Gint); 
  70.    function Get_Priority (Tag : access Gtk_Text_Tag_Record) return Gint; 
  71.    --  Set the priority of a Gtk_Text_Tag. 
  72.    --  Valid priorities start at 0 and go to one less than Table_Size. 
  73.    --  Each tag in a table has a unique priority; setting the priority of one 
  74.    --  tag shifts the priorities of all the other tags in the table to maintain 
  75.    --  a unique priority for each tag. Higher priority tags "win" if two tags 
  76.    --  both set the same text attribute. When adding a tag to a tag table, it 
  77.    --  will be assigned the highest priority in the table by default; so 
  78.    --  normally the precedence of a set of tags is the order in which they were 
  79.    --  added to the table, or created with Gtk.Text_Buffer.Create_Tag, which 
  80.    --  adds the tag to the buffer's table automatically. 
  81.  
  82.    ---------------- 
  83.    -- Properties -- 
  84.    ---------------- 
  85.  
  86.    --  <properties> 
  87.    --  The following properties are defined for this widget. See 
  88.    --  Glib.Properties for more information on properties. 
  89.    -- 
  90.    --  Name:  Name_Property 
  91.    --  Type:  String 
  92.    --  Flags: read-write (construct only) 
  93.    --  Descr: Name used to refer to the text tag 
  94.    -- 
  95.    --  Name:  Background_Property 
  96.    --  Type:  String 
  97.    --  Flags: writable 
  98.    --  Descr: Background color as a string 
  99.    -- 
  100.    --  Name:  Background_Gdk_Property 
  101.    --  Type:  Gdk_Color 
  102.    --  Flags: read-write 
  103.    --  Descr: Background color 
  104.    -- 
  105.    --  Name:  Background_Full_Height_Property 
  106.    --  Type:  Boolean 
  107.    --  Flags: read-write 
  108.    --  Descr: Whether the background color fills the entire line height or 
  109.    --         only the height of the tagged characters 
  110.    -- 
  111.    --  Name:  Background_Stipple_Property 
  112.    --  Type:  Gdk_Pixmap 
  113.    --  Flags: read-write 
  114.    --  Descr: Bitmap to use as a mask when drawing the text background 
  115.    -- 
  116.    --  Name:  Foreground_Property 
  117.    --  Type:  String 
  118.    --  Flags: writable 
  119.    --  Descr: Foreground color as a string 
  120.    -- 
  121.    --  Name:  Foreground_Gdk_Property 
  122.    --  Type:  Gdk_Color 
  123.    --  Flags: read-write 
  124.    --  Descr: Foreground color 
  125.    -- 
  126.    --  Name:  Foreground_Stipple_Property 
  127.    --  Type:  Gdk_Pixmap 
  128.    --  Flags: read-write 
  129.    --  Descr: Bitmap to use as a mask when drawing the text foreground 
  130.    -- 
  131.    --  Name:  Direction_Property 
  132.    --  Type:  Gtk_Text_Direction 
  133.    --  Flags: read-write 
  134.    --  Descr: Text direction, e.g. right-to-left or left-to-right 
  135.    -- 
  136.    --  Name:  Editable_Property 
  137.    --  Type:  Boolean 
  138.    --  Flags: read-write 
  139.    --  Descr: Whether the text can be modified by the user 
  140.    -- 
  141.    --  Name:  Font_Property 
  142.    --  Type:  String 
  143.    --  Flags: read-write 
  144.    --  Descr: Font description as a string 
  145.    -- 
  146.    --  Name:  Font_Desc_Property 
  147.    --  Type:  Pango_Font_Description 
  148.    --  Flags: read-write 
  149.    --  Descr: Font description 
  150.    -- 
  151.    --  Name:  Family_Property 
  152.    --  Type:  String 
  153.    --  Flags: read-write 
  154.    --  Descr: Name of the font family, e.g. Sans, Helvetica, Times, Monospace 
  155.    -- 
  156.    --  Name:  Style_Property 
  157.    --  Type:  Pango.Enums.Style 
  158.    --  Flags: read-write 
  159.    --  Descr: Font style 
  160.    -- 
  161.    --  Name:  Variant_Property 
  162.    --  Type:  Pango_Type_Variant 
  163.    --  Flags: read-write 
  164.    --  Descr: Font variant 
  165.    -- 
  166.    --  Name:  Weight_Property 
  167.    --  Type:  Pango.Enums.Weight 
  168.    --  Flags: read-write 
  169.    --  Descr: Font weight 
  170.    -- 
  171.    --  Name:  Stretch_Property 
  172.    --  Type:  Pango_Type_Strech 
  173.    --  Flags: read-write 
  174.    --  Descr: Font strech 
  175.    -- 
  176.    --  Name:  Size_Property 
  177.    --  Type:  Gint 
  178.    --  Flags: read-write 
  179.    --  Descr: Font size 
  180.    -- 
  181.    --  Name:  Size_Points_Property 
  182.    --  Type:  Gdouble 
  183.    --  Flags: read-write 
  184.    --  Descr: Font size in points 
  185.    -- 
  186.    --  Name:  Justification_Property 
  187.    --  Type:  Gtk_Type_Justification 
  188.    --  Flags: read-write 
  189.    --  Descr: Left, right, or center justification 
  190.    -- 
  191.    --  Name:  Language_Property 
  192.    --  Type:  String 
  193.    --  Flags: read-write 
  194.    --  Descr: Language engine code to use for rendering the text 
  195.    -- 
  196.    --  Name:  Left_Margin_Property 
  197.    --  Type:  Gint 
  198.    --  Flags: read-write 
  199.    --  Descr: Width of the left margin in pixels 
  200.    -- 
  201.    --  Name:  Right_Margin_Property 
  202.    --  Type:  Gint 
  203.    --  Flags: read-write 
  204.    --  Descr: Width of the right margin in pixels 
  205.    -- 
  206.    --  Name:  Indent_Property 
  207.    --  Type:  Gint 
  208.    --  Flags: read-write 
  209.    --  Descr: Amount to indent the paragraph, in pixels 
  210.    -- 
  211.    --  Name:  Rise_Property 
  212.    --  Type:  Gint 
  213.    --  Flags: read-write 
  214.    --  Descr: Offset of text above the baseline (below the baseline if 
  215.    --         rise is negative) 
  216.    -- 
  217.    --  Name:  Pixels_Above_Lines_Property 
  218.    --  Type:  Gint 
  219.    --  Flags: read-write 
  220.    --  Descr: Pixels of blank space above paragraphs 
  221.    -- 
  222.    --  Name:  Pixels_Below_Lines_Property 
  223.    --  Type:  Gint 
  224.    --  Flags: read-write 
  225.    --  Descr: Pixels of blank space below paragraphs 
  226.    -- 
  227.    --  Name:  Strikethrough_Property 
  228.    --  Type:  Boolean 
  229.    --  Flags: read-write 
  230.    --  Descr: Whether to strike through the text 
  231.    -- 
  232.    --  Name:  Underline_Property 
  233.    --  Type:  Pango_Type_Underline 
  234.    --  Flags: read-write 
  235.    --  Descr: Style of underline for this text 
  236.    -- 
  237.    --  Name:  Wrap_Mode_Property 
  238.    --  Type:  Gtk_Wrap_Mode 
  239.    --  Flags: read-write 
  240.    --  Descr: Whether to wrap lines never, at word boundaries, or at 
  241.    --         character boundaries 
  242.    -- 
  243.    --  Name:  Tabs_Property 
  244.    --  Type:  Pango_Tab_Array 
  245.    --  Flags: read-write 
  246.    --  Descr: Custom tabs for this text 
  247.    -- 
  248.    --  Name:  Invisible_Property 
  249.    --  Type:  Boolean 
  250.    --  Flags: read-write 
  251.    --  Descr: Whether this text is hidden 
  252.    -- 
  253.    --  Name:  Scale_Property 
  254.    --  Type:  Double 
  255.    --  Descr: Font size as a scale factor relative to the default font size. 
  256.    --         This properly adapts to theme changes etc. so is recommended. 
  257.    --         Pango predefines some scales such as PANGO_SCALE_X_LARGE 
  258.    -- 
  259.    --  Name:  Paragraph_Background_Property 
  260.    --  Type:  String 
  261.    --  Descr: Paragraph background color as a string 
  262.    -- 
  263.    --  Name:  Paragraph_Background_Gdk_Property 
  264.    --  Type:  Gdk_Color 
  265.    --  Descr: Paragraph background color as a color 
  266.  
  267.    --  The following properties indicate whether a tag modifies some aspect of 
  268.    --  text or not. You do not need to modify them explicitely when modifying 
  269.    --  one of the above properties, since they will be automatically set to 
  270.    --  True when you modify the above. 
  271.    --  However, the ones below should be set back to False if you wish to 
  272.    --  cancel the effect of a previous modification of a tag. 
  273.    -- 
  274.    --  They all default to False, unless you have modified one of the 
  275.    --  properties above. They are all of type boolean, and match the properties 
  276.    --  above. 
  277.    -- 
  278.    --  Name: Background_Full_Height_Set_Property 
  279.    --  Name: Background_Set_Property 
  280.    --  Name: Background_Stipple_Set_Property 
  281.    --  Name: Editable_Set_Property 
  282.    --  Name: Family_Set_Property 
  283.    --  Name: Foreground_Set_Property 
  284.    --  Name: Foreground_Stipple_Set_Property 
  285.    --  Name: Indent_Set_Property 
  286.    --  Name: Inside_Wrap_Set_Property 
  287.    --  Name: Invisible_Set_Property 
  288.    --  Name: Justification_Set_Property 
  289.    --  Name: Language_Set_Property 
  290.    --  Name: Left_Margin_Set_Property 
  291.    --  Name: Paragraph_Background_Set_Property 
  292.    --  Name: Pixels_Above_Lines_Set_Property 
  293.    --  Name: Pixels_Below_Lines_Set_Property 
  294.    --  Name: Pixels_Inside_Wrap_Set_Property 
  295.    --  Name: Right_Margin_Set_Property 
  296.    --  Name: Rise_Set_Property 
  297.    --  Name: Scale_Set_Property 
  298.    --  Name: Size_Set_Property 
  299.    --  Name: Stretch_Set_Property 
  300.    --  Name: Strikethrough_Set_Property 
  301.    --  Name: Style_Set_Property 
  302.    --  Name: Tabs_Set_Property 
  303.    --  Name: Underline_Set_Property 
  304.    --  Name: Variant_Set_Property 
  305.    --  Name: Weight_Set_Property 
  306.    --  Name: Wrap_Mode_Set_Property 
  307.    -- 
  308.    --  </properties> 
  309.  
  310.    Background_Full_Height_Property : constant Glib.Properties.Property_Boolean; 
  311.    Background_Gdk_Property     : constant Gdk.Color.Property_Gdk_Color; 
  312.    Background_Property         : constant Glib.Properties.Property_String_WO; 
  313.    Background_Stipple_Property : constant Glib.Properties.Property_C_Proxy; 
  314.    Direction_Property         : constant Gtk.Enums.Property_Gtk_Text_Direction; 
  315.    Editable_Property           : constant Glib.Properties.Property_Boolean; 
  316.    Family_Property             : constant Glib.Properties.Property_String; 
  317.    Font_Desc_Property          : constant Pango.Font.Property_Font_Description; 
  318.    Font_Property               : constant Glib.Properties.Property_String; 
  319.    Foreground_Gdk_Property     : constant Gdk.Color.Property_Gdk_Color; 
  320.    Foreground_Property         : constant Glib.Properties.Property_String_WO; 
  321.    Foreground_Stipple_Property : constant Glib.Properties.Property_C_Proxy; 
  322.    Indent_Property             : constant Glib.Properties.Property_Int; 
  323.    Inside_Wrap_Property        : constant Glib.Properties.Property_Int; 
  324.    Invisible_Property          : constant Glib.Properties.Property_Boolean; 
  325.    Justification_Property      : constant Gtk.Enums.Property_Gtk_Justification; 
  326.    Language_Property           : constant Glib.Properties.Property_String; 
  327.    Left_Margin_Property        : constant Glib.Properties.Property_Int; 
  328.    Name_Property               : constant Glib.Properties.Property_String; 
  329.    Paragraph_Background_Property  : constant Glib.Properties.Property_String; 
  330.    Pixels_Above_Lines_Property : constant Glib.Properties.Property_Int; 
  331.    Pixels_Below_Lines_Property : constant Glib.Properties.Property_Int; 
  332.    Pixels_Inside_Wrap_Property : constant Glib.Properties.Property_Int; 
  333.    Right_Margin_Property       : constant Glib.Properties.Property_Int; 
  334.    Rise_Property               : constant Glib.Properties.Property_Int; 
  335.    Scale_Property              : constant Glib.Properties.Property_Double; 
  336.    Size_Points_Property        : constant Glib.Properties.Property_Double; 
  337.    Size_Property               : constant Glib.Properties.Property_Int; 
  338.    Stretch_Property            : constant Pango.Enums.Property_Stretch; 
  339.    Strikethrough_Property      : constant Glib.Properties.Property_Boolean; 
  340.    Style_Property              : constant Pango.Enums.Property_Style; 
  341.    Underline_Property          : constant Pango.Enums.Property_Underline; 
  342.    Variant_Property            : constant Pango.Enums.Property_Variant; 
  343.    Weight_Property             : constant Pango.Enums.Property_Weight; 
  344.    Wrap_Mode_Property          : constant Gtk.Enums.Property_Gtk_Wrap_Mode; 
  345.  
  346.    --  Tabs_Property            : constant Pango.Types.Property_Tab_Array; 
  347.    --  Paragraph_Background_Gdk_Property : 
  348.    --     constant Glib.Properties.Property_Boxed; 
  349.  
  350.    Background_Full_Height_Set_Property : constant 
  351.      Glib.Properties.Property_Boolean; 
  352.    Background_Set_Property         : constant Glib.Properties.Property_Boolean; 
  353.    Background_Stipple_Set_Property : constant Glib.Properties.Property_Boolean; 
  354.    Editable_Set_Property           : constant Glib.Properties.Property_Boolean; 
  355.    Family_Set_Property             : constant Glib.Properties.Property_Boolean; 
  356.    Foreground_Set_Property         : constant Glib.Properties.Property_Boolean; 
  357.    Foreground_Stipple_Set_Property : constant Glib.Properties.Property_Boolean; 
  358.    Indent_Set_Property             : constant Glib.Properties.Property_Boolean; 
  359.    Inside_Wrap_Set_Property        : constant Glib.Properties.Property_Boolean; 
  360.    Invisible_Set_Property          : constant Glib.Properties.Property_Boolean; 
  361.    Justification_Set_Property      : constant Glib.Properties.Property_Boolean; 
  362.    Language_Set_Property           : constant Glib.Properties.Property_Boolean; 
  363.    Left_Margin_Set_Property        : constant Glib.Properties.Property_Boolean; 
  364.    Paragraph_Background_Set_Property : constant 
  365.      Glib.Properties.Property_Boolean; 
  366.    Pixels_Above_Lines_Set_Property : constant Glib.Properties.Property_Boolean; 
  367.    Pixels_Below_Lines_Set_Property : constant Glib.Properties.Property_Boolean; 
  368.    Pixels_Inside_Wrap_Set_Property : constant Glib.Properties.Property_Boolean; 
  369.    Right_Margin_Set_Property       : constant Glib.Properties.Property_Boolean; 
  370.    Rise_Set_Property               : constant Glib.Properties.Property_Boolean; 
  371.    Scale_Set_Property              : constant Glib.Properties.Property_Boolean; 
  372.    Size_Set_Property               : constant Glib.Properties.Property_Boolean; 
  373.    Stretch_Set_Property            : constant Glib.Properties.Property_Boolean; 
  374.    Strikethrough_Set_Property      : constant Glib.Properties.Property_Boolean; 
  375.    Style_Set_Property              : constant Glib.Properties.Property_Boolean; 
  376.    Tabs_Set_Property               : constant Glib.Properties.Property_Boolean; 
  377.    Underline_Set_Property          : constant Glib.Properties.Property_Boolean; 
  378.    Variant_Set_Property            : constant Glib.Properties.Property_Boolean; 
  379.    Weight_Set_Property             : constant Glib.Properties.Property_Boolean; 
  380.    Wrap_Mode_Set_Property          : constant Glib.Properties.Property_Boolean; 
  381.  
  382.    ------------- 
  383.    -- Signals -- 
  384.    ------------- 
  385.  
  386.    --  <signals> 
  387.    --  The following new signals are defined for this widget: 
  388.    -- 
  389.    --  - "event" 
  390.    --    function Handler 
  391.    --      (Tag          : access Gtk_Text_Tag_Record'Class; 
  392.    --       Event_Object : out GObject; 
  393.    --       Event        : Gdk.Event.Gdk_Event; 
  394.    --       Iter         : access Gtk.Text_Iter.Gtk_Text_Iter_Record'Class) 
  395.    --       return Gint; 
  396.    --    ??? 
  397.    -- 
  398.    --  </signals> 
  399.  
  400.    Signal_Event : constant Glib.Signal_Name := "event"; 
  401.  
  402. private 
  403.    type Gtk_Text_Tag_Record is new GObject_Record with null record; 
  404.  
  405.    Background_Full_Height_Property : constant Glib.Properties.Property_Boolean 
  406.      := Glib.Properties.Build ("background_full_height"); 
  407.    Direction_Property         : constant Gtk.Enums.Property_Gtk_Text_Direction 
  408.      := Gtk.Enums.Build ("direction"); 
  409.    Name_Property               : constant Glib.Properties.Property_String := 
  410.      Glib.Properties.Build ("name"); 
  411.    Background_Property         : constant Glib.Properties.Property_String_WO := 
  412.      Glib.Properties.Build ("background"); 
  413.    Background_Gdk_Property     : constant Gdk.Color.Property_Gdk_Color := 
  414.      Gdk.Color.Build ("background_gdk"); 
  415.    Background_Stipple_Property : constant Glib.Properties.Property_C_Proxy := 
  416.      Glib.Properties.Build ("background_stipple"); 
  417.    Foreground_Property         : constant Glib.Properties.Property_String_WO := 
  418.      Glib.Properties.Build ("foreground"); 
  419.    Foreground_Gdk_Property     : constant Gdk.Color.Property_Gdk_Color := 
  420.      Gdk.Color.Build ("foreground_gdk"); 
  421.    Foreground_Stipple_Property : constant Glib.Properties.Property_C_Proxy := 
  422.      Glib.Properties.Build ("foreground_stipple"); 
  423.    Editable_Property           : constant Glib.Properties.Property_Boolean := 
  424.      Glib.Properties.Build ("editable"); 
  425.    Font_Property               : constant Glib.Properties.Property_String := 
  426.      Glib.Properties.Build ("font"); 
  427.    Font_Desc_Property        : constant Pango.Font.Property_Font_Description := 
  428.      Pango.Font.Build ("font_desc"); 
  429.    Family_Property             : constant Glib.Properties.Property_String := 
  430.      Glib.Properties.Build ("family"); 
  431.    Style_Property              : constant Pango.Enums.Property_Style := 
  432.      Pango.Enums.Build ("style"); 
  433.    Variant_Property            : constant Pango.Enums.Property_Variant := 
  434.      Pango.Enums.Build ("variant"); 
  435.    Weight_Property             : constant Pango.Enums.Property_Weight := 
  436.      Pango.Enums.Build ("weight"); 
  437.    Stretch_Property            : constant Pango.Enums.Property_Stretch := 
  438.      Pango.Enums.Build ("stretch"); 
  439.    Size_Property               : constant Glib.Properties.Property_Int := 
  440.      Glib.Properties.Build ("size"); 
  441.    Size_Points_Property        : constant Glib.Properties.Property_Double := 
  442.      Glib.Properties.Build ("size_points"); 
  443.    Justification_Property    : constant Gtk.Enums.Property_Gtk_Justification := 
  444.      Gtk.Enums.Build ("justification"); 
  445.    Language_Property           : constant Glib.Properties.Property_String := 
  446.      Glib.Properties.Build ("language"); 
  447.    Left_Margin_Property        : constant Glib.Properties.Property_Int := 
  448.      Glib.Properties.Build ("left_margin"); 
  449.    Right_Margin_Property       : constant Glib.Properties.Property_Int := 
  450.      Glib.Properties.Build ("right_margin"); 
  451.    Indent_Property             : constant Glib.Properties.Property_Int := 
  452.      Glib.Properties.Build ("indent"); 
  453.    Rise_Property               : constant Glib.Properties.Property_Int := 
  454.      Glib.Properties.Build ("rise"); 
  455.    Pixels_Above_Lines_Property : constant Glib.Properties.Property_Int := 
  456.      Glib.Properties.Build ("pixels_above_lines"); 
  457.    Pixels_Below_Lines_Property : constant Glib.Properties.Property_Int := 
  458.      Glib.Properties.Build ("pixels_below_lines"); 
  459.    Inside_Wrap_Property        : constant Glib.Properties.Property_Int := 
  460.      Glib.Properties.Build ("inside_wrap"); 
  461.    Strikethrough_Property     : constant Glib.Properties.Property_Boolean := 
  462.      Glib.Properties.Build ("strikethrough"); 
  463.    Underline_Property          : constant Pango.Enums.Property_Underline := 
  464.      Pango.Enums.Build ("underline"); 
  465.    Wrap_Mode_Property          : constant Gtk.Enums.Property_Gtk_Wrap_Mode := 
  466.      Gtk.Enums.Build ("wrap_mode"); 
  467.    --  Tabs_Property               : constant Pango.Types.Property_Tab_Array := 
  468.    --     Pango.Types.Build ("tabs"); 
  469.    Invisible_Property          : constant Glib.Properties.Property_Boolean := 
  470.      Glib.Properties.Build ("invisible"); 
  471.    Paragraph_Background_Property : constant Glib.Properties.Property_String := 
  472.      Glib.Properties.Build ("paragraph-background"); 
  473.    Pixels_Inside_Wrap_Property : constant Glib.Properties.Property_Int := 
  474.      Glib.Properties.Build ("pixels-inside-wrap"); 
  475.    Scale_Property : constant Glib.Properties.Property_Double := 
  476.      Glib.Properties.Build ("scale"); 
  477.  
  478.    Background_Full_Height_Set_Property : constant 
  479.      Glib.Properties.Property_Boolean := 
  480.      Glib.Properties.Build ("background_full_height_set"); 
  481.    Background_Set_Property       : constant Glib.Properties.Property_Boolean := 
  482.      Glib.Properties.Build ("background_set"); 
  483.    Background_Stipple_Set_Property : constant Glib.Properties.Property_Boolean 
  484.      := Glib.Properties.Build ("background_stipple_set"); 
  485.    Foreground_Set_Property       : constant Glib.Properties.Property_Boolean := 
  486.      Glib.Properties.Build ("foreground_set"); 
  487.    Foreground_Stipple_Set_Property : constant Glib.Properties.Property_Boolean 
  488.      := Glib.Properties.Build ("foreground_stipple_set"); 
  489.    Editable_Set_Property         : constant Glib.Properties.Property_Boolean := 
  490.      Glib.Properties.Build ("editable_set"); 
  491.    Family_Set_Property           : constant Glib.Properties.Property_Boolean := 
  492.      Glib.Properties.Build ("family_set"); 
  493.    Style_Set_Property            : constant Glib.Properties.Property_Boolean := 
  494.      Glib.Properties.Build ("style_set"); 
  495.    Variant_Set_Property          : constant Glib.Properties.Property_Boolean := 
  496.      Glib.Properties.Build ("variant_set"); 
  497.    Weight_Set_Property           : constant Glib.Properties.Property_Boolean := 
  498.      Glib.Properties.Build ("weight_set"); 
  499.    Stretch_Set_Property          : constant Glib.Properties.Property_Boolean := 
  500.      Glib.Properties.Build ("stretch_set"); 
  501.    Size_Set_Property             : constant Glib.Properties.Property_Boolean := 
  502.      Glib.Properties.Build ("size_set"); 
  503.    Justification_Set_Property    : constant Glib.Properties.Property_Boolean := 
  504.      Glib.Properties.Build ("justification_set"); 
  505.    Language_Set_Property         : constant Glib.Properties.Property_Boolean := 
  506.      Glib.Properties.Build ("language_set"); 
  507.    Left_Margin_Set_Property      : constant Glib.Properties.Property_Boolean := 
  508.      Glib.Properties.Build ("left_margin_set"); 
  509.    Indent_Set_Property           : constant Glib.Properties.Property_Boolean := 
  510.      Glib.Properties.Build ("indent_set"); 
  511.    Rise_Set_Property             : constant Glib.Properties.Property_Boolean := 
  512.      Glib.Properties.Build ("rise_set"); 
  513.    Pixels_Above_Lines_Set_Property : constant Glib.Properties.Property_Boolean 
  514.      := Glib.Properties.Build ("pixels_above_lines_set"); 
  515.    Pixels_Below_Lines_Set_Property : constant Glib.Properties.Property_Boolean 
  516.      := Glib.Properties.Build ("pixels_below_lines_set"); 
  517.    Inside_Wrap_Set_Property      : constant Glib.Properties.Property_Boolean := 
  518.      Glib.Properties.Build ("inside_wrap_set"); 
  519.    Strikethrough_Set_Property   : constant Glib.Properties.Property_Boolean := 
  520.      Glib.Properties.Build ("strike_through_set"); 
  521.    Right_Margin_Set_Property     : constant Glib.Properties.Property_Boolean := 
  522.      Glib.Properties.Build ("right_margin_set"); 
  523.    Underline_Set_Property        : constant Glib.Properties.Property_Boolean := 
  524.      Glib.Properties.Build ("underline_set"); 
  525.    Wrap_Mode_Set_Property        : constant Glib.Properties.Property_Boolean := 
  526.      Glib.Properties.Build ("wrap_mode_set"); 
  527.    Tabs_Set_Property             : constant Glib.Properties.Property_Boolean := 
  528.      Glib.Properties.Build ("tabs_set"); 
  529.    Invisible_Set_Property        : constant Glib.Properties.Property_Boolean := 
  530.      Glib.Properties.Build ("invisible_set"); 
  531.    Paragraph_Background_Set_Property : constant 
  532.      Glib.Properties.Property_Boolean := 
  533.        Glib.Properties.Build ("pagraph-background-set"); 
  534.    Pixels_Inside_Wrap_Set_Property : constant Glib.Properties.Property_Boolean 
  535.      := Glib.Properties.Build ("pixels-inside-wrap-set"); 
  536.    Scale_Set_Property            : constant Glib.Properties.Property_Boolean := 
  537.      Glib.Properties.Build ("scale-set"); 
  538.  
  539.    --  Paragraph_Background_Gdk_Property : Glib.Properties.Property_Boxed := 
  540.    --    Glib.Properties.Build ("paragraph-background-gdk"); 
  541.  
  542.  
  543.    pragma Import (C, Get_Type, "gtk_text_tag_get_type"); 
  544. end Gtk.Text_Tag; 
  545.  
  546. --  The following subprograms have a binding in gtk-text_attributes.ads: 
  547. --  No binding: gtk_text_attributes_get_type 
  548. --  No binding: gtk_text_attributes_ref 
  549. --  No binding: gtk_text_attributes_unref 
  550. --  No binding: gtk_text_attributes_copy 
  551. --  No binding: gtk_text_attributes_copy_values 
  552. --  No binding: gtk_text_attributes_new 
  553.  
  554. --  The following subprogram cannot be bound in the package, since it would 
  555. --  generate a dependency cycle: 
  556. --  No binding: gtk_text_tag_event