----------------------------------------------------------------------- -- GtkAda - Ada95 binding for Gtk+/Gnome -- -- -- -- Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet -- -- Copyright (C) 2000-2006 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. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ----------------------------------------------------------------------- -- -- This widget provides a nice way for the user of your application to -- select fonts. -- It first searches on your system for the list of fonts available, and -- displays a set of boxes to select them based on their name, their -- weight, their size, etc. -- This widget is provided in two forms, one widget that can be embedded -- in any container, a Gtk_Font_Selection, whereas the other one comes -- directly in its own separate window (to be popped up as a dialog). -- -- Some filters can be applied to the widget, when you want the user to -- select only a font only among a specific subset (like bitmap or -- true-type fonts for instance). -- There are two kinds of filters: a base filter, set in your application -- and that the user can not change; a user filter that can be modified -- interactively by the user. -- -- -- 2.8.17 -- Selectors -- create_font_selection.adb -- gtk-fontsel with Glib.Properties; with Gdk.Font; with Gtk.Box; with Gtk.Button; with Gtk.Dialog; package Gtk.Font_Selection is type Gtk_Font_Selection_Dialog_Record is new Gtk.Dialog.Gtk_Dialog_Record with private; type Gtk_Font_Selection_Dialog is access all Gtk_Font_Selection_Dialog_Record'Class; type Gtk_Font_Selection_Record is new Gtk.Box.Gtk_Box_Record with private; type Gtk_Font_Selection is access all Gtk_Font_Selection_Record'Class; ------------------------------ -- Font_Selection functions -- ------------------------------ procedure Gtk_New (Widget : out Gtk_Font_Selection); procedure Initialize (Widget : access Gtk_Font_Selection_Record'Class); -- Creates or initialises a new font selection widget. -- It can be added to any existing container. function Get_Type return Gtk.Gtk_Type; -- Return the internal value associated with a Gtk_Font_Selection. function Set_Font_Name (Fontsel : access Gtk_Font_Selection_Record; Fontname : String) return Boolean; function Get_Font_Name (Fontsel : access Gtk_Font_Selection_Record) return String; -- Set the name and attributes of the selected font in Fontsel. -- Fontname should have the format described in Pango.Font. -- Fontself must have been displayed on the screen already procedure Set_Preview_Text (Fontsel : access Gtk_Font_Selection_Record; Text : UTF8_String); function Get_Preview_Text (Fontsel : access Gtk_Font_Selection_Record) return UTF8_String; -- Set or Get the string used to preview the selected font in the dialog. ------------------------------------- -- Font_Selection_Dialog functions -- ------------------------------------- procedure Gtk_New (Widget : out Gtk_Font_Selection_Dialog; Title : UTF8_String); procedure Initialize (Widget : access Gtk_Font_Selection_Dialog_Record'Class; Title : UTF8_String); -- Creates or initialises a new dialog to select a font. -- The font selection widget has its own window, whose title is chosen -- by Title. function Dialog_Get_Type return Gtk.Gtk_Type; -- Return the internal value associated with a Gtk_Font_Selection_Dialog. function Set_Font_Name (Fsd : access Gtk_Font_Selection_Dialog_Record; Fontname : String) return Boolean; function Get_Font_Name (Fsd : access Gtk_Font_Selection_Dialog_Record) return String; -- Return the name of the font selected by the user. -- It returns an empty string if not font is selected. -- The string has the same format as excepted in the Gdk.Font package. -- This is also the standard format on X11 systems. procedure Set_Preview_Text (Fsd : access Gtk_Font_Selection_Dialog_Record; Text : UTF8_String); function Get_Preview_Text (Fsd : access Gtk_Font_Selection_Dialog_Record) return UTF8_String; -- Return the string used to preview the selected font in the dialog. function Get_Cancel_Button (Fsd : access Gtk_Font_Selection_Dialog_Record) return Gtk.Button.Gtk_Button; -- Return the Id of the cancel button of the dialog. -- You can use this to set up a callback on that button. -- The callback should close the dialog, and ignore any value that has been -- set in it. function Get_OK_Button (Fsd : access Gtk_Font_Selection_Dialog_Record) return Gtk.Button.Gtk_Button; -- Return the Id of the Ok button. -- The callback set on this button should close the dialog if the selected -- font is valid, and do whatever if should with it. function Get_Apply_Button (Fsd : access Gtk_Font_Selection_Dialog_Record) return Gtk.Button.Gtk_Button; -- Return the Id of the Apply button. -- The callback on this button should temporarily apply the font, but -- should be able to cancel its effect if the Cancel button is selected. ----------------- -- Obsolescent -- ----------------- -- All subprograms below are now obsolescent in gtk+. They might be removed -- from future versions of gtk+ (and therefore GtkAda). -- To find out whether your code uses any of these, we recommend compiling -- with the -gnatwj switch -- function Get_Font (Fontsel : access Gtk_Font_Selection_Record) return Gdk.Font.Gdk_Font; pragma Obsolescent; -- Get_Font -- Allocate and return the font selected by the user. -- This newly created font can be used as is by all the drawing functions -- in the Gdk.Drawable package. -- If not font has been selected, Gdk.Font.Null_Font is returned. function Get_Font (Fsd : access Gtk_Font_Selection_Dialog_Record) return Gdk.Font.Gdk_Font; pragma Obsolescent; -- Dialog_Get_Font -- Allocate and return the font selected by the user. -- This newly created font can be used as is by all the drawing functions -- in the Gdk.Drawable package. -- If not font has been selected, Gdk.Font.Null_Font is returned. -- ---------------- -- Properties -- ---------------- -- -- The following properties are defined for this widget. See -- Glib.Properties for more information on properties. -- -- Name: Font_Property -- Type: Boxed -- Descr: The GdkFont that is currently selected -- -- Name: Font_Name_Property -- Type: String -- Descr: The X string that represents this font -- -- Name: Preview_Text_Property -- Type: String -- Descr: The text to display in order to demonstrate the selected font -- -- -- Font_Property : constant Glib.Properties.Property_Boxed; Font_Name_Property : constant Glib.Properties.Property_String; Preview_Text_Property : constant Glib.Properties.Property_String; ------------- -- Signals -- ------------- -- -- The following new signals are defined for this widget: -- private type Gtk_Font_Selection_Dialog_Record is new Gtk.Dialog.Gtk_Dialog_Record with null record; type Gtk_Font_Selection_Record is new Gtk.Box.Gtk_Box_Record with null record; -- Font_Property : constant Glib.Properties.Property_Boxed := -- Glib.Properties.Build ("font"); Font_Name_Property : constant Glib.Properties.Property_String := Glib.Properties.Build ("font-name"); Preview_Text_Property : constant Glib.Properties.Property_String := Glib.Properties.Build ("preview-text"); pragma Import (C, Get_Type, "gtk_font_selection_get_type"); pragma Import (C, Dialog_Get_Type, "gtk_font_selection_dialog_get_type"); end Gtk.Font_Selection;