1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
-- -*-haskell-*-
-- GIMP Toolkit (GTK) Widget FontSelectionDialog
--
-- Author : Duncan Coutts
--
-- Created: 2 August 2004
--
-- Copyright (C) 2004-2005 Duncan Coutts
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Lesser General Public
-- License as published by the Free Software Foundation; either
-- version 2.1 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
-- Lesser General Public License for more details.
--
-- |
-- Maintainer : gtk2hs-users@lists.sourceforge.net
-- Stability : provisional
-- Portability : portable (depends on GHC)
--
-- A dialog box for selecting fonts
--
module Graphics.UI.Gtk.Selectors.FontSelectionDialog (
-- * Detail
--
-- | The 'FontSelectionDialog' widget is a dialog box for selecting a font.
--
-- To set the font which is initially selected, use
-- 'fontSelectionDialogSetFontName'.
--
-- To get the selected font use 'fontSelectionDialogGetFontName'.
--
-- To change the text which is shown in the preview area, use
-- 'fontSelectionDialogSetPreviewText'.
-- * Class Hierarchy
-- |
-- @
-- | 'GObject'
-- | +----'Object'
-- | +----'Widget'
-- | +----'Container'
-- | +----'Bin'
-- | +----'Window'
-- | +----'Dialog'
-- | +----FontSelectionDialog
-- @
-- * Types
FontSelectionDialog,
FontSelectionDialogClass,
castToFontSelectionDialog, gTypeFontSelectionDialog,
toFontSelectionDialog,
-- * Constructors
fontSelectionDialogNew,
-- * Methods
fontSelectionDialogGetFontName,
fontSelectionDialogSetFontName,
fontSelectionDialogGetPreviewText,
fontSelectionDialogSetPreviewText,
-- * Attributes
fontSelectionDialogPreviewText,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
{#import Graphics.UI.Gtk.Types#}
{# context lib="gtk" prefix="gtk" #}
--------------------
-- Constructors
-- | Creates a new 'FontSelectionDialog'.
--
fontSelectionDialogNew ::
String -- ^ @title@ - the title of the dialog box.
-> IO FontSelectionDialog
fontSelectionDialogNew title =
makeNewObject mkFontSelectionDialog $
liftM (castPtr :: Ptr Widget -> Ptr FontSelectionDialog) $
withUTFString title $ \titlePtr ->
{# call unsafe font_selection_dialog_new #}
titlePtr
--------------------
-- Methods
-- | Gets the currently-selected font name.
--
fontSelectionDialogGetFontName :: FontSelectionDialogClass self => self
-> IO (Maybe String) -- ^ returns the currently-selected font name, or
-- @Nothing@ if no font is selected.
fontSelectionDialogGetFontName self =
{# call font_selection_dialog_get_font_name #}
(toFontSelectionDialog self)
>>= maybePeek readUTFString
-- | Sets the currently-selected font.
--
fontSelectionDialogSetFontName :: FontSelectionDialogClass self => self
-> String -- ^ @fontname@ - a fontname.
-> IO Bool -- ^ returns @True@ if the font was found.
fontSelectionDialogSetFontName self fontname =
liftM toBool $
withUTFString fontname $ \fontnamePtr ->
{# call font_selection_dialog_set_font_name #}
(toFontSelectionDialog self)
fontnamePtr
-- | Gets the text displayed in the preview area.
--
fontSelectionDialogGetPreviewText :: FontSelectionDialogClass self => self -> IO String
fontSelectionDialogGetPreviewText self =
{# call unsafe font_selection_dialog_get_preview_text #}
(toFontSelectionDialog self)
>>= peekUTFString
-- | Sets the text displayed in the preview area.
--
fontSelectionDialogSetPreviewText :: FontSelectionDialogClass self => self -> String -> IO ()
fontSelectionDialogSetPreviewText self text =
withUTFString text $ \textPtr ->
{# call font_selection_dialog_set_preview_text #}
(toFontSelectionDialog self)
textPtr
--------------------
-- Attributes
-- | \'previewText\' property. See 'fontSelectionDialogGetPreviewText' and
-- 'fontSelectionDialogSetPreviewText'
--
fontSelectionDialogPreviewText :: FontSelectionDialogClass self => Attr self String
fontSelectionDialogPreviewText = newAttr
fontSelectionDialogGetPreviewText
fontSelectionDialogSetPreviewText
|
