-----------------------------------------------------------------------
-- GtkAda - Ada95 binding for Gtk+/Gnome --
-- --
-- Copyright (C) 2000 E. Briot, J. Brobecker and A. Charlet --
-- Copyright (C) 2000-2008, AdaCore --
-- --
-- This library is free software; you can redistribute it and/or --
-- modify it under the terms of the GNU General Public --
-- License as published by the Free Software Foundation; either --
-- version 2 of the License, or (at your option) any later version. --
-- --
-- This library is distributed in the hope that it will be useful, --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
-- General Public License for more details. --
-- --
-- You should have received a copy of the GNU General Public --
-- License along with this library; if not, write to the --
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330, --
-- Boston, MA 02111-1307, USA. --
-- --
-- --
-- --
-- --
-- --
-- --
-- --
-----------------------------------------------------------------------
--
-- A Gtk_Font_Combo is a small toolbar used to select fonts.
-- This widget takes less real-estate on the screen than a
-- Gtk_Font_Selection widget, and thus can be kept permanently on the
-- screen.
-- This widget only works with postscript fonts (see Gtk.Extra.PsFont).
--
-- gtkextra 2.1.1
-- GtkExtra, additional widgets
with Glib;
with Gtk.Toolbar;
with Gdk.Font;
with Pango.Font;
package Gtk.Extra.Font_Combo is
type Gtk_Font_Combo_Record is new Gtk.Toolbar.Gtk_Toolbar_Record
with private;
type Gtk_Font_Combo is access all Gtk_Font_Combo_Record'Class;
procedure Gtk_New (Widget : out Gtk_Font_Combo);
-- Create a new combo box
procedure Initialize (Widget : access Gtk_Font_Combo_Record'Class);
-- Internal initialization function.
-- See the section "Creating your own widgets" in the documentation.
function Get_Type return Glib.GType;
-- Return the internal value associated with a Gtk_Font_Combo.
procedure Font_Combo_Select
(Font_Combo : access Gtk_Font_Combo_Record;
Family : String;
Bold : Boolean;
Italic : Boolean;
Height : Gint);
-- Selects a new font
-- Family is the name of the postscript font.
procedure Font_Combo_Select_Nth
(Font_Combo : access Gtk_Font_Combo_Record;
N : Gint;
Bold : Boolean;
Italic : Boolean;
Height : Gint);
-- Selects the nth font in the combo box.
function Get_Font_Height
(Font_Combo : access Gtk_Font_Combo_Record) return Glib.Gint;
-- Return the height of the selected font
function Get_GdkFont
(Font_Combo : access Gtk_Font_Combo_Record) return Gdk.Font.Gdk_Font;
-- Return the selected font.
function Get_Font_Description
(Font_Combo : access Gtk_Font_Combo_Record)
return Pango.Font.Pango_Font_Description;
-- Return the selected font.
-------------
-- Signals --
-------------
--
-- The following new signals are defined for this widget:
--
-- - "changed"
-- procedure Handler (Combo : access Gtk_Font_Combo_Record'Class);
--
-- Emitted when a new font was selected by the user.
--
private
type Gtk_Font_Combo_Record is new Gtk.Toolbar.Gtk_Toolbar_Record
with null record;
pragma Import (C, Get_Type, "gtk_font_combo_get_type");
-- Unbound:
-- gtk_font_combo_get_psfont
end Gtk.Extra.Font_Combo;