-----------------------------------------------------------------------
-- GtkAda - Ada95 binding for Gtk+/Gnome --
-- --
-- Copyright (C) 2006-2007 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. --
-- --
-- --
-- --
-- --
-- --
-- --
-- --
-----------------------------------------------------------------------
--
-- The Gtk_Font_Button is a button which displays the currently selected font
-- an allows to open a font selection dialog to change the font. It is
-- suitable widget for selecting a font in a preference dialog.
--
-- 2.8.17
-- Selectors
-- font-button.png
with Glib.Properties;
with Gtk.Button;
package Gtk.Font_Button is
type Gtk_Font_Button_Record is new Gtk.Button.Gtk_Button_Record with
null record;
type Gtk_Font_Button is access all Gtk_Font_Button_Record'Class;
procedure Gtk_New (Font_Button : out Gtk_Font_Button);
procedure Initialize (Font_Button : access Gtk_Font_Button_Record'Class);
-- Creates a new font picker widget.
procedure Gtk_New_With_Font
(Font_Button : out Gtk_Font_Button; Fontname : String);
procedure Initialize_With_Font
(Font_Button : access Gtk_Font_Button_Record'Class; Fontname : String);
-- Creates a new font picker widget.
function Get_Type return Gtk.Gtk_Type;
-- Return the internal value associated with a Gtk_Font_Button
function Set_Font_Name
(Font_Button : access Gtk_Font_Button_Record;
Fontname : String) return Boolean;
function Get_Font_Name
(Font_Button : access Gtk_Font_Button_Record) return String;
-- Sets or updates the currently-displayed font in font picker dialog.
-- Returns the value of Gtk.Font_Selection.Set_Font_Name if the font
-- selection dialog exists, False otherwise.
procedure Set_Show_Size
(Font_Button : access Gtk_Font_Button_Record; Show_Size : Boolean);
function Get_Show_Size
(Font_Button : access Gtk_Font_Button_Record) return Boolean;
-- If Show_Size is True, the font size will be displayed along with the
-- name of the selected font.
procedure Set_Show_Style
(Font_Button : access Gtk_Font_Button_Record; Show_Style : Boolean);
function Get_Show_Style
(Font_Button : access Gtk_Font_Button_Record) return Boolean;
-- Returns whether the name of the font style will be shown in the label.
procedure Set_Title
(Font_Button : access Gtk_Font_Button_Record; Title : String);
function Get_Title
(Font_Button : access Gtk_Font_Button_Record) return String;
-- Retrieves the title of the font selection dialog.
procedure Set_Use_Font
(Font_Button : access Gtk_Font_Button_Record; Use_Font : Boolean);
function Get_Use_Font
(Font_Button : access Gtk_Font_Button_Record) return Boolean;
-- If Use_Font is True, the font name will be written using the selected
-- font.
procedure Set_Use_Size
(Font_Button : access Gtk_Font_Button_Record; Use_Size : Boolean);
function Get_Use_Size
(Font_Button : access Gtk_Font_Button_Record) return Boolean;
-- If Use_Size is True, the font name will be written using the selected
-- size.
----------------
-- Properties --
----------------
--
-- The following properties are defined for this widget. See
-- Glib.Properties for more information on properties.
--
-- Name: Font_Name_Property
-- Type: String
-- Descr: The name of the selected font
--
-- Name: Show_Size_Property
-- Type: Boolean
-- Descr: Whether selected font size is shown in the label
--
-- Name: Show_Style_Property
-- Type: Boolean
-- Descr: Whether the selected font style is shown in the label
--
-- Name: Title_Property
-- Type: String
-- Descr: The title of the font selection dialog
--
-- Name: Use_Font_Property
-- Type: Boolean
-- Descr: Whether the label is drawn in the selected font
--
-- Name: Use_Size_Property
-- Type: Boolean
-- Descr: Whether the label is drawn with the selected font size
--
--
Font_Name_Property : constant Glib.Properties.Property_String;
Show_Size_Property : constant Glib.Properties.Property_Boolean;
Show_Style_Property : constant Glib.Properties.Property_Boolean;
Title_Property : constant Glib.Properties.Property_String;
Use_Font_Property : constant Glib.Properties.Property_Boolean;
Use_Size_Property : constant Glib.Properties.Property_Boolean;
-------------
-- Signals --
-------------
--
-- The following new signals are defined for this widget:
--
-- - "font-set"
-- procedure Handler (Button : access Gtk_Font_Button_Record'Class);
-- The font-set signal is emitted when the user selects a font. When
-- handling this signal, use Get_Font_Name to find out which font was
-- just selected.
-- Note that this signal is only emitted when the user changes the font.
-- If you need to react to programmatic font changes as well, use the
-- notify::font-name signal.
--
Signal_Font_Set : constant Glib.Signal_Name := "font-set";
private
Font_Name_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("font-name");
Show_Size_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("show-size");
Show_Style_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("show-style");
Title_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("title");
Use_Font_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("use-font");
Use_Size_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("use-size");
pragma Import (C, Get_Type, "gtk_font_button_get_type");
end Gtk.Font_Button;