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