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. --  You may wish to begin by reading the <link linkend="TextWidget">text 
  26. --  widget conceptual overview</link> which gives an overview of all the 
  27. --  objects and data types related to the text widget and how they work 
  28. --  together. 
  29. -- 
  30. --  Tags should be in the Gtk.Text_Tag_Table.Gtk_Text_Tag_Table for a given 
  31. --  Gtk.Text_Buffer.Gtk_Text_Buffer before using them with that buffer. 
  32. -- 
  33. --  gtk_text_buffer_create_tag is the best way to create tags. See 
  34. --  <application>gtk3-demo</application> for numerous examples. 
  35. -- 
  36. --  For each property of Gtk.Text_Tag.Gtk_Text_Tag, there is a "set" property, 
  37. --  e.g. "font-set" corresponds to "font". These "set" properties reflect 
  38. --  whether a property has been set or not. They are maintained by GTK+ and you 
  39. --  should not set them independently. 
  40. -- 
  41. --  </description> 
  42. pragma Ada_2005; 
  43.  
  44. pragma Warnings (Off, "*is already use-visible*"); 
  45. with Gdk.Color;       use Gdk.Color; 
  46. with Gdk.RGBA;        use Gdk.RGBA; 
  47. with Glib;            use Glib; 
  48. with Glib.GSlist;     use Glib.GSlist; 
  49. with Glib.Object;     use Glib.Object; 
  50. with Glib.Properties; use Glib.Properties; 
  51. with Gtk.Enums;       use Gtk.Enums; 
  52. with Pango.Enums;     use Pango.Enums; 
  53. with Pango.Font;      use Pango.Font; 
  54.  
  55. package Gtk.Text_Tag is 
  56.  
  57.    type Gtk_Text_Tag_Record is new GObject_Record with null record; 
  58.    type Gtk_Text_Tag is access all Gtk_Text_Tag_Record'Class; 
  59.  
  60.    function Convert (R : Gtk.Text_Tag.Gtk_Text_Tag) return System.Address; 
  61.    function Convert (R : System.Address) return Gtk.Text_Tag.Gtk_Text_Tag; 
  62.    package Text_Tag_List is new Generic_SList (Gtk.Text_Tag.Gtk_Text_Tag); 
  63.  
  64.    ------------------ 
  65.    -- Constructors -- 
  66.    ------------------ 
  67.  
  68.    procedure Gtk_New (Tag : out Gtk_Text_Tag; Name : UTF8_String := ""); 
  69.    procedure Initialize 
  70.       (Tag  : not null access Gtk_Text_Tag_Record'Class; 
  71.        Name : UTF8_String := ""); 
  72.    --  Creates a Gtk.Text_Tag.Gtk_Text_Tag. Configure the tag using object 
  73.    --  arguments, i.e. using g_object_set. 
  74.    --  Newly created tags must be added to the tags table for the buffer you 
  75.    --  intend to use them in, as in: "Gtk.Text_Tag_Table.Add (Get_Tag_Table 
  76.    --  (Buffer), Tag)". See also Gtk.Text_Buffer.Create_Tag which is a more 
  77.    --  convenient way of creating a tag. 
  78.    --  "name": tag name, or null 
  79.  
  80.    function Gtk_Text_Tag_New (Name : UTF8_String := "") return Gtk_Text_Tag; 
  81.    --  Creates a Gtk.Text_Tag.Gtk_Text_Tag. Configure the tag using object 
  82.    --  arguments, i.e. using g_object_set. 
  83.    --  Newly created tags must be added to the tags table for the buffer you 
  84.    --  intend to use them in, as in: "Gtk.Text_Tag_Table.Add (Get_Tag_Table 
  85.    --  (Buffer), Tag)". See also Gtk.Text_Buffer.Create_Tag which is a more 
  86.    --  convenient way of creating a tag. 
  87.    --  "name": tag name, or null 
  88.  
  89.    function Get_Type return Glib.GType; 
  90.    pragma Import (C, Get_Type, "gtk_text_tag_get_type"); 
  91.  
  92.    ------------- 
  93.    -- Methods -- 
  94.    ------------- 
  95.  
  96.    function Get_Priority 
  97.       (Tag : not null access Gtk_Text_Tag_Record) return Gint; 
  98.    --  Get the tag priority. 
  99.  
  100.    procedure Set_Priority 
  101.       (Tag      : not null access Gtk_Text_Tag_Record; 
  102.        Priority : Gint); 
  103.    --  Sets the priority of a Gtk.Text_Tag.Gtk_Text_Tag. Valid priorities are 
  104.    --  start at 0 and go to one less than Gtk.Text_Tag_Table.Get_Size. Each tag 
  105.    --  in a table has a unique priority; setting the priority of one tag shifts 
  106.    --  the priorities of all the other tags in the table to maintain a unique 
  107.    --  priority for each tag. Higher priority tags "win" if two tags both set 
  108.    --  the same text attribute. When adding a tag to a tag table, it will be 
  109.    --  assigned the highest priority in the table by default; so normally the 
  110.    --  precedence of a set of tags is the order in which they were added to the 
  111.    --  table, or created with gtk_text_buffer_create_tag, which adds the tag to 
  112.    --  the buffer's table automatically. 
  113.    --  "priority": the new priority 
  114.  
  115.    ---------------- 
  116.    -- Properties -- 
  117.    ---------------- 
  118.    --  The following properties are defined for this widget. See 
  119.    --  Glib.Properties for more information on properties) 
  120.  
  121.    Accumulative_Margin_Property : constant Glib.Properties.Property_Boolean; 
  122.    --  Whether the margins accumulate or override each other. 
  123.    -- 
  124.    --  When set to True the margins of this tag are added to the margins of 
  125.    --  any other non-accumulative margins present. When set to False the 
  126.    --  margins override one another (the default). 
  127.  
  128.    Background_Property : constant Glib.Properties.Property_String; 
  129.    --  Flags: write 
  130.  
  131.    Background_Full_Height_Property : constant Glib.Properties.Property_Boolean; 
  132.  
  133.    Background_Full_Height_Set_Property : constant Glib.Properties.Property_Boolean; 
  134.  
  135.    Background_Gdk_Property : constant Gdk.Color.Property_Gdk_Color; 
  136.    --  Type: Gdk.Color.Gdk_Color 
  137.    --  Background color as a Gdk.Color.Gdk_Color. 
  138.  
  139.    Background_Rgba_Property : constant Gdk.RGBA.Property_RGBA; 
  140.    --  Type: Gdk.RGBA.Gdk_RGBA 
  141.    --  Background color as a Gdk.RGBA.Gdk_RGBA. 
  142.  
  143.    Background_Set_Property : constant Glib.Properties.Property_Boolean; 
  144.  
  145.    Direction_Property : constant Gtk.Enums.Property_Gtk_Text_Direction; 
  146.  
  147.    Editable_Property : constant Glib.Properties.Property_Boolean; 
  148.  
  149.    Editable_Set_Property : constant Glib.Properties.Property_Boolean; 
  150.  
  151.    Family_Property : constant Glib.Properties.Property_String; 
  152.  
  153.    Family_Set_Property : constant Glib.Properties.Property_Boolean; 
  154.  
  155.    Font_Property : constant Glib.Properties.Property_String; 
  156.    --  Font description as string, e.g. \"Sans Italic 12\". 
  157.    -- 
  158.    --  Note that the initial value of this property depends on the internals 
  159.    --  of Pango.Font.Pango_Font_Description. 
  160.  
  161.    Font_Desc_Property : constant Pango.Font.Property_Font_Description; 
  162.    --  Type: Pango.Font.Pango_Font_Description 
  163.  
  164.    Foreground_Property : constant Glib.Properties.Property_String; 
  165.    --  Flags: write 
  166.  
  167.    Foreground_Gdk_Property : constant Gdk.Color.Property_Gdk_Color; 
  168.    --  Type: Gdk.Color.Gdk_Color 
  169.    --  Foreground color as a Gdk.Color.Gdk_Color. 
  170.  
  171.    Foreground_Rgba_Property : constant Gdk.RGBA.Property_RGBA; 
  172.    --  Type: Gdk.RGBA.Gdk_RGBA 
  173.    --  Foreground color as a Gdk.RGBA.Gdk_RGBA. 
  174.  
  175.    Foreground_Set_Property : constant Glib.Properties.Property_Boolean; 
  176.  
  177.    Indent_Property : constant Glib.Properties.Property_Int; 
  178.  
  179.    Indent_Set_Property : constant Glib.Properties.Property_Boolean; 
  180.  
  181.    Invisible_Property : constant Glib.Properties.Property_Boolean; 
  182.    --  Whether this text is hidden. 
  183.    -- 
  184.    --  Note that there may still be problems with the support for invisible 
  185.    --  text, in particular when navigating programmatically inside a buffer 
  186.    --  containing invisible segments. 
  187.  
  188.    Invisible_Set_Property : constant Glib.Properties.Property_Boolean; 
  189.  
  190.    Justification_Property : constant Gtk.Enums.Property_Gtk_Justification; 
  191.  
  192.    Justification_Set_Property : constant Glib.Properties.Property_Boolean; 
  193.  
  194.    Language_Property : constant Glib.Properties.Property_String; 
  195.    --  The language this text is in, as an ISO code. Pango can use this as a 
  196.    --  hint when rendering the text. If not set, an appropriate default will be 
  197.    --  used. 
  198.    -- 
  199.    --  Note that the initial value of this property depends on the current 
  200.    --  locale, see also Gtk.Main.Get_Default_Language. 
  201.  
  202.    Language_Set_Property : constant Glib.Properties.Property_Boolean; 
  203.  
  204.    Left_Margin_Property : constant Glib.Properties.Property_Int; 
  205.  
  206.    Left_Margin_Set_Property : constant Glib.Properties.Property_Boolean; 
  207.  
  208.    Name_Property : constant Glib.Properties.Property_String; 
  209.  
  210.    Paragraph_Background_Property : constant Glib.Properties.Property_String; 
  211.    --  Flags: write 
  212.    --  The paragraph background color as a string. 
  213.  
  214.    Paragraph_Background_Gdk_Property : constant Gdk.Color.Property_Gdk_Color; 
  215.    --  Type: Gdk.Color.Gdk_Color 
  216.    --  The paragraph background color as a as a Gdk.Color.Gdk_Color. 
  217.  
  218.    Paragraph_Background_Rgba_Property : constant Gdk.RGBA.Property_RGBA; 
  219.    --  Type: Gdk.RGBA.Gdk_RGBA 
  220.    --  The paragraph background color as a as a Gdk.RGBA.Gdk_RGBA. 
  221.  
  222.    Paragraph_Background_Set_Property : constant Glib.Properties.Property_Boolean; 
  223.  
  224.    Pixels_Above_Lines_Property : constant Glib.Properties.Property_Int; 
  225.  
  226.    Pixels_Above_Lines_Set_Property : constant Glib.Properties.Property_Boolean; 
  227.  
  228.    Pixels_Below_Lines_Property : constant Glib.Properties.Property_Int; 
  229.  
  230.    Pixels_Below_Lines_Set_Property : constant Glib.Properties.Property_Boolean; 
  231.  
  232.    Pixels_Inside_Wrap_Property : constant Glib.Properties.Property_Int; 
  233.  
  234.    Pixels_Inside_Wrap_Set_Property : constant Glib.Properties.Property_Boolean; 
  235.  
  236.    Right_Margin_Property : constant Glib.Properties.Property_Int; 
  237.  
  238.    Right_Margin_Set_Property : constant Glib.Properties.Property_Boolean; 
  239.  
  240.    Rise_Property : constant Glib.Properties.Property_Int; 
  241.  
  242.    Rise_Set_Property : constant Glib.Properties.Property_Boolean; 
  243.  
  244.    Scale_Property : constant Glib.Properties.Property_Double; 
  245.    --  Type: Gdouble 
  246.  
  247.    Scale_Set_Property : constant Glib.Properties.Property_Boolean; 
  248.  
  249.    Size_Property : constant Glib.Properties.Property_Int; 
  250.  
  251.    Size_Points_Property : constant Glib.Properties.Property_Double; 
  252.    --  Type: Gdouble 
  253.  
  254.    Size_Set_Property : constant Glib.Properties.Property_Boolean; 
  255.  
  256.    Stretch_Property : constant Pango.Enums.Property_Stretch; 
  257.    --  Type: Pango.Enums.Stretch 
  258.  
  259.    Stretch_Set_Property : constant Glib.Properties.Property_Boolean; 
  260.  
  261.    Strikethrough_Property : constant Glib.Properties.Property_Boolean; 
  262.  
  263.    Strikethrough_Set_Property : constant Glib.Properties.Property_Boolean; 
  264.  
  265.    Style_Property : constant Pango.Enums.Property_Style; 
  266.    --  Type: Pango.Enums.Style 
  267.  
  268.    Style_Set_Property : constant Glib.Properties.Property_Boolean; 
  269.  
  270.    Tabs_Property : constant Glib.Properties.Property_Boxed; 
  271.    --  Type: Pango.Tab_Array 
  272.  
  273.    Tabs_Set_Property : constant Glib.Properties.Property_Boolean; 
  274.  
  275.    Underline_Property : constant Pango.Enums.Property_Underline; 
  276.    --  Type: Pango.Enums.Underline 
  277.  
  278.    Underline_Set_Property : constant Glib.Properties.Property_Boolean; 
  279.  
  280.    Variant_Property : constant Pango.Enums.Property_Variant; 
  281.    --  Type: Pango.Enums.Variant 
  282.  
  283.    Variant_Set_Property : constant Glib.Properties.Property_Boolean; 
  284.  
  285.    Weight_Property : constant Pango.Enums.Property_Weight; 
  286.    --  Type: Pango.Enums.Weight 
  287.  
  288.    Weight_Set_Property : constant Glib.Properties.Property_Boolean; 
  289.  
  290.    Wrap_Mode_Property : constant Gtk.Enums.Property_Gtk_Wrap_Mode; 
  291.  
  292.    Wrap_Mode_Set_Property : constant Glib.Properties.Property_Boolean; 
  293.  
  294.    ------------- 
  295.    -- Signals -- 
  296.    ------------- 
  297.  
  298.    Signal_Event : constant Glib.Signal_Name := "event"; 
  299.    --  The ::event signal is emitted when an event occurs on a region of the 
  300.    --  buffer marked with this tag. 
  301.    --    function Handler 
  302.    --       (Self   : access Gtk_Text_Tag_Record'Class; 
  303.    --        Object : not null access Glib.Object.GObject_Record'Class; 
  304.    --        Event  : Gdk.Event.Gdk_Event; 
  305.    --        Iter   : Gtk.Text_Iter.Gtk_Text_Iter) return Boolean 
  306.    --  
  307.    --  Callback parameters: 
  308.    --    --  "object": the object the event was fired from (typically a 
  309.    --    --  Gtk.Text_View.Gtk_Text_View) 
  310.    --    --  "event": the event which triggered the signal 
  311.    --    --  "iter": a Gtk.Text_Iter.Gtk_Text_Iter pointing at the location the 
  312.    --    --  event occured 
  313.    --    --  Returns True to stop other handlers from being invoked for the event. False to propagate the event further. 
  314.  
  315. private 
  316.    Wrap_Mode_Set_Property : constant Glib.Properties.Property_Boolean := 
  317.      Glib.Properties.Build ("wrap-mode-set"); 
  318.    Wrap_Mode_Property : constant Gtk.Enums.Property_Gtk_Wrap_Mode := 
  319.      Gtk.Enums.Build ("wrap-mode"); 
  320.    Weight_Set_Property : constant Glib.Properties.Property_Boolean := 
  321.      Glib.Properties.Build ("weight-set"); 
  322.    Weight_Property : constant Pango.Enums.Property_Weight := 
  323.      Pango.Enums.Build ("weight"); 
  324.    Variant_Set_Property : constant Glib.Properties.Property_Boolean := 
  325.      Glib.Properties.Build ("variant-set"); 
  326.    Variant_Property : constant Pango.Enums.Property_Variant := 
  327.      Pango.Enums.Build ("variant"); 
  328.    Underline_Set_Property : constant Glib.Properties.Property_Boolean := 
  329.      Glib.Properties.Build ("underline-set"); 
  330.    Underline_Property : constant Pango.Enums.Property_Underline := 
  331.      Pango.Enums.Build ("underline"); 
  332.    Tabs_Set_Property : constant Glib.Properties.Property_Boolean := 
  333.      Glib.Properties.Build ("tabs-set"); 
  334.    Tabs_Property : constant Glib.Properties.Property_Boxed := 
  335.      Glib.Properties.Build ("tabs"); 
  336.    Style_Set_Property : constant Glib.Properties.Property_Boolean := 
  337.      Glib.Properties.Build ("style-set"); 
  338.    Style_Property : constant Pango.Enums.Property_Style := 
  339.      Pango.Enums.Build ("style"); 
  340.    Strikethrough_Set_Property : constant Glib.Properties.Property_Boolean := 
  341.      Glib.Properties.Build ("strikethrough-set"); 
  342.    Strikethrough_Property : constant Glib.Properties.Property_Boolean := 
  343.      Glib.Properties.Build ("strikethrough"); 
  344.    Stretch_Set_Property : constant Glib.Properties.Property_Boolean := 
  345.      Glib.Properties.Build ("stretch-set"); 
  346.    Stretch_Property : constant Pango.Enums.Property_Stretch := 
  347.      Pango.Enums.Build ("stretch"); 
  348.    Size_Set_Property : constant Glib.Properties.Property_Boolean := 
  349.      Glib.Properties.Build ("size-set"); 
  350.    Size_Points_Property : constant Glib.Properties.Property_Double := 
  351.      Glib.Properties.Build ("size-points"); 
  352.    Size_Property : constant Glib.Properties.Property_Int := 
  353.      Glib.Properties.Build ("size"); 
  354.    Scale_Set_Property : constant Glib.Properties.Property_Boolean := 
  355.      Glib.Properties.Build ("scale-set"); 
  356.    Scale_Property : constant Glib.Properties.Property_Double := 
  357.      Glib.Properties.Build ("scale"); 
  358.    Rise_Set_Property : constant Glib.Properties.Property_Boolean := 
  359.      Glib.Properties.Build ("rise-set"); 
  360.    Rise_Property : constant Glib.Properties.Property_Int := 
  361.      Glib.Properties.Build ("rise"); 
  362.    Right_Margin_Set_Property : constant Glib.Properties.Property_Boolean := 
  363.      Glib.Properties.Build ("right-margin-set"); 
  364.    Right_Margin_Property : constant Glib.Properties.Property_Int := 
  365.      Glib.Properties.Build ("right-margin"); 
  366.    Pixels_Inside_Wrap_Set_Property : constant Glib.Properties.Property_Boolean := 
  367.      Glib.Properties.Build ("pixels-inside-wrap-set"); 
  368.    Pixels_Inside_Wrap_Property : constant Glib.Properties.Property_Int := 
  369.      Glib.Properties.Build ("pixels-inside-wrap"); 
  370.    Pixels_Below_Lines_Set_Property : constant Glib.Properties.Property_Boolean := 
  371.      Glib.Properties.Build ("pixels-below-lines-set"); 
  372.    Pixels_Below_Lines_Property : constant Glib.Properties.Property_Int := 
  373.      Glib.Properties.Build ("pixels-below-lines"); 
  374.    Pixels_Above_Lines_Set_Property : constant Glib.Properties.Property_Boolean := 
  375.      Glib.Properties.Build ("pixels-above-lines-set"); 
  376.    Pixels_Above_Lines_Property : constant Glib.Properties.Property_Int := 
  377.      Glib.Properties.Build ("pixels-above-lines"); 
  378.    Paragraph_Background_Set_Property : constant Glib.Properties.Property_Boolean := 
  379.      Glib.Properties.Build ("paragraph-background-set"); 
  380.    Paragraph_Background_Rgba_Property : constant Gdk.RGBA.Property_RGBA := 
  381.      Gdk.RGBA.Build ("paragraph-background-rgba"); 
  382.    Paragraph_Background_Gdk_Property : constant Gdk.Color.Property_Gdk_Color := 
  383.      Gdk.Color.Build ("paragraph-background-gdk"); 
  384.    Paragraph_Background_Property : constant Glib.Properties.Property_String := 
  385.      Glib.Properties.Build ("paragraph-background"); 
  386.    Name_Property : constant Glib.Properties.Property_String := 
  387.      Glib.Properties.Build ("name"); 
  388.    Left_Margin_Set_Property : constant Glib.Properties.Property_Boolean := 
  389.      Glib.Properties.Build ("left-margin-set"); 
  390.    Left_Margin_Property : constant Glib.Properties.Property_Int := 
  391.      Glib.Properties.Build ("left-margin"); 
  392.    Language_Set_Property : constant Glib.Properties.Property_Boolean := 
  393.      Glib.Properties.Build ("language-set"); 
  394.    Language_Property : constant Glib.Properties.Property_String := 
  395.      Glib.Properties.Build ("language"); 
  396.    Justification_Set_Property : constant Glib.Properties.Property_Boolean := 
  397.      Glib.Properties.Build ("justification-set"); 
  398.    Justification_Property : constant Gtk.Enums.Property_Gtk_Justification := 
  399.      Gtk.Enums.Build ("justification"); 
  400.    Invisible_Set_Property : constant Glib.Properties.Property_Boolean := 
  401.      Glib.Properties.Build ("invisible-set"); 
  402.    Invisible_Property : constant Glib.Properties.Property_Boolean := 
  403.      Glib.Properties.Build ("invisible"); 
  404.    Indent_Set_Property : constant Glib.Properties.Property_Boolean := 
  405.      Glib.Properties.Build ("indent-set"); 
  406.    Indent_Property : constant Glib.Properties.Property_Int := 
  407.      Glib.Properties.Build ("indent"); 
  408.    Foreground_Set_Property : constant Glib.Properties.Property_Boolean := 
  409.      Glib.Properties.Build ("foreground-set"); 
  410.    Foreground_Rgba_Property : constant Gdk.RGBA.Property_RGBA := 
  411.      Gdk.RGBA.Build ("foreground-rgba"); 
  412.    Foreground_Gdk_Property : constant Gdk.Color.Property_Gdk_Color := 
  413.      Gdk.Color.Build ("foreground-gdk"); 
  414.    Foreground_Property : constant Glib.Properties.Property_String := 
  415.      Glib.Properties.Build ("foreground"); 
  416.    Font_Desc_Property : constant Pango.Font.Property_Font_Description := 
  417.      Pango.Font.Build ("font-desc"); 
  418.    Font_Property : constant Glib.Properties.Property_String := 
  419.      Glib.Properties.Build ("font"); 
  420.    Family_Set_Property : constant Glib.Properties.Property_Boolean := 
  421.      Glib.Properties.Build ("family-set"); 
  422.    Family_Property : constant Glib.Properties.Property_String := 
  423.      Glib.Properties.Build ("family"); 
  424.    Editable_Set_Property : constant Glib.Properties.Property_Boolean := 
  425.      Glib.Properties.Build ("editable-set"); 
  426.    Editable_Property : constant Glib.Properties.Property_Boolean := 
  427.      Glib.Properties.Build ("editable"); 
  428.    Direction_Property : constant Gtk.Enums.Property_Gtk_Text_Direction := 
  429.      Gtk.Enums.Build ("direction"); 
  430.    Background_Set_Property : constant Glib.Properties.Property_Boolean := 
  431.      Glib.Properties.Build ("background-set"); 
  432.    Background_Rgba_Property : constant Gdk.RGBA.Property_RGBA := 
  433.      Gdk.RGBA.Build ("background-rgba"); 
  434.    Background_Gdk_Property : constant Gdk.Color.Property_Gdk_Color := 
  435.      Gdk.Color.Build ("background-gdk"); 
  436.    Background_Full_Height_Set_Property : constant Glib.Properties.Property_Boolean := 
  437.      Glib.Properties.Build ("background-full-height-set"); 
  438.    Background_Full_Height_Property : constant Glib.Properties.Property_Boolean := 
  439.      Glib.Properties.Build ("background-full-height"); 
  440.    Background_Property : constant Glib.Properties.Property_String := 
  441.      Glib.Properties.Build ("background"); 
  442.    Accumulative_Margin_Property : constant Glib.Properties.Property_Boolean := 
  443.      Glib.Properties.Build ("accumulative-margin"); 
  444. end Gtk.Text_Tag;