## Documentation

Table of Contents
Class Inheritance Tree
Widget Screenshots
Package groups

1.     -----------------------------------------------------------------------

2.     --              GtkAda - Ada95 binding for Gtk+/Gnome                --

3.     --                                                                   --

4.     --                Copyright (C) 2001-2002 ACT-Europe                 --

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.     -----------------------------------------------------------------------

29.     --  <description>

30.     --

31.     --  This package provides a set of types and subprograms to manipulate the

32.     --  attributes of text displayed in a pango_layout

33.     --

34.     --  </description>

35.     --  <group>Pango, font handling</group>

37.     with GlibTo API docTo specTo body;

38.     with Pango.EnumsTo API docTo specTo body;

40.     package Pango.AttributesTo API docTo specTo body is

42.        ----------------

43.        -- Attributes --

44.        ----------------

46.        type Pango_Attribute is new Glib.C_ProxyTo API docTo spec;

48.        function Attr_Underline_NewTo API docTo body

49.          (Underline : Pango.Enums.UnderlineTo API docTo spec) return Pango_AttributeTo API docTo spec;

50.        --  Create a new underline attribute

52.        ---------------------

53.        -- Attributes list --

54.        ---------------------

56.        type Pango_Attr_List is new Glib.C_ProxyTo API docTo spec;

58.        procedure Gdk_NewTo API docTo body (Attr_List : out Pango_Attr_ListTo API docTo spec);

59.        --  Create a new empty list of attributes

61.        procedure RefTo API docTo body (Attr_List : Pango_Attr_ListTo API docTo spec);

62.        --  Increment the reference count of the attribute list

64.        procedure UnrefTo API docTo body (Attr_List : Pango_Attr_ListTo API docTo spec);

65.        --  Decrement the reference count of the attribute list. When it reaches 0,

66.        --  the list is destroyed.

68.        procedure InsertTo API docTo body

69.          (Attr_List : Pango_Attr_ListTo API docTo spec;

70.           Attribute : Pango_AttributeTo API docTo spec);

71.        --  Insert a new attribute in the list

73.     private

74.        pragma Import (C, RefTo API docTo spec,   "pango_attr_list_ref");

75.        pragma Import (C, UnrefTo API docTo spec, "pango_attr_list_unref");

76.        pragma Import (C, InsertTo API docTo spec, "pango_attr_list_insert");

77.        pragma Import (C, Attr_Underline_NewTo API docTo spec, "pango_attr_underline_new");

79.     end Pango.AttributesTo API docTo specTo body;