## Documentation

Table of Contents
Class Inheritance Tree
Widget Screenshots
Package groups

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

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

3.     --                                                                   --

4.     --      Copyright (C) 2000 E. Briot, J. Brobecker and A. Charlet     --

5.     --                 Copyright (C) 2000-2008, AdaCore                  --

6.     --                                                                   --

7.     -- This library is free software; you can redistribute it and/or     --

8.     -- modify it under the terms of the GNU General Public               --

9.     -- License as published by the Free Software Foundation; either      --

10.     -- version 2 of the License, or (at your option) any later version.  --

11.     --                                                                   --

12.     -- This library is distributed in the hope that it will be useful,   --

13.     -- but WITHOUT ANY WARRANTY; without even the implied warranty of    --

14.     -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --

15.     -- General Public License for more details.                          --

16.     --                                                                   --

17.     -- You should have received a copy of the GNU General Public         --

18.     -- License along with this library; if not, write to the             --

19.     -- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --

20.     -- Boston, MA 02111-1307, USA.                                       --

21.     --                                                                   --

22.     -- As a special exception, if other files instantiate generics from  --

23.     -- this unit, or you link this unit with other files to produce an   --

24.     -- executable, this  unit  does not  by itself cause  the resulting  --

25.     -- executable to be covered by the GNU General Public License. This  --

26.     -- exception does not however invalidate any other reasons why the   --

27.     -- executable file  might be covered by the  GNU Public License.     --

28.     -----------------------------------------------------------------------

30.     --  <description>

31.     --  A Gtk_Font_Combo is a small toolbar used to select fonts.

32.     --  This widget takes less real-estate on the screen than a

33.     --  Gtk_Font_Selection widget, and thus can be kept permanently on the

34.     --  screen.

35.     --  This widget only works with postscript fonts (see Gtk.Extra.PsFont).

36.     --  </description>

37.     --  <c_version>gtkextra 2.1.1</c_version>

38.     --  <group>GtkExtra, additional widgets</group>

40.     with GlibTo API docTo specTo body;

41.     with Gtk.ToolbarTo API docTo specTo body;

42.     with Gdk.FontTo API docTo specTo body;

43.     with Pango.FontTo API docTo specTo body;

45.     package Gtk.Extra.Font_ComboTo API docTo specTo body is

47.        type Gtk_Font_Combo_RecordTo API docTo body is new Gtk.Toolbar.Gtk_Toolbar_RecordTo API docTo specTo body

48.          with private;

49.        type Gtk_Font_Combo is access all Gtk_Font_Combo_RecordTo API docTo specTo body'Class;

51.        procedure Gtk_NewTo API docTo body (Widget : out Gtk_Font_ComboTo API docTo spec);

52.        --  Create a new combo box

54.        procedure InitializeTo API docTo body (Widget : access Gtk_Font_Combo_RecordTo API docTo specTo body'Class);

55.        --  Internal initialization function.

56.        --  See the section "Creating your own widgets" in the documentation.

58.        function Get_TypeTo API docTo body return Glib.GTypeTo API docTo spec;

59.        --  Return the internal value associated with a Gtk_Font_Combo.

61.        procedure Font_Combo_SelectTo API docTo body

62.          (Font_Combo : access Gtk_Font_Combo_RecordTo API docTo specTo body;

63.           Family     : String;

64.           Bold       : Boolean;

65.           Italic     : Boolean;

66.           Height     : GintTo API docTo spec);

67.        --  Selects a new font

68.        --  Family is the name of the postscript font.

70.        procedure Font_Combo_Select_NthTo API docTo body

71.          (Font_Combo : access Gtk_Font_Combo_RecordTo API docTo specTo body;

72.           N          : GintTo API docTo spec;

73.           Bold       : Boolean;

74.           Italic     : Boolean;

75.           Height     : GintTo API docTo spec);

76.        --  Selects the nth font in the combo box.

78.        function Get_Font_HeightTo API docTo body

79.          (Font_Combo : access Gtk_Font_Combo_RecordTo API docTo specTo body) return Glib.GintTo API docTo spec;

80.        --  Return the height of the selected font

82.        function Get_GdkFontTo API docTo body

83.          (Font_Combo : access Gtk_Font_Combo_RecordTo API docTo specTo body) return Gdk.Font.Gdk_FontTo API docTo spec;

84.        --  Return the selected font.

86.        function Get_Font_DescriptionTo API docTo body

87.          (Font_Combo : access Gtk_Font_Combo_RecordTo API docTo specTo body)

88.          return Pango.Font.Pango_Font_DescriptionTo API docTo spec;

89.        --  Return the selected font.

91.        -------------

92.        -- Signals --

93.        -------------

95.        --  <signals>

96.        --  The following new signals are defined for this widget:

97.        --

98.        --  - "changed"

99.        --  procedure Handler (Combo : access Gtk_Font_Combo_Record'Class);

100.        --

101.        --  Emitted when a new font was selected by the user.

102.        --  </signals>

104.     private

105.        type Gtk_Font_Combo_RecordTo API docTo spec is new Gtk.Toolbar.Gtk_Toolbar_RecordTo API docTo specTo body

106.          with null record;

107.        pragma Import (C, Get_TypeTo API docTo spec, "gtk_font_combo_get_type");

109.        --  Unbound:

110.        --     gtk_font_combo_get_psfont

111.     end Gtk.Extra.Font_ComboTo API docTo specTo body;