{-# LINE 2 "./Graphics/UI/Gtk/Selectors/FontSelection.chs" #-}
module Graphics.UI.Gtk.Selectors.FontSelection (
FontSelection,
FontSelectionClass,
castToFontSelection, gTypeFontSelection,
toFontSelection,
fontSelectionNew,
fontSelectionGetFontName,
fontSelectionSetFontName,
fontSelectionGetPreviewText,
fontSelectionSetPreviewText,
fontSelectionFontName,
fontSelectionPreviewText,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 83 "./Graphics/UI/Gtk/Selectors/FontSelection.chs" #-}
{-# LINE 85 "./Graphics/UI/Gtk/Selectors/FontSelection.chs" #-}
fontSelectionNew :: IO FontSelection
fontSelectionNew =
makeNewObject mkFontSelection $
liftM (castPtr :: Ptr Widget -> Ptr FontSelection) $
gtk_font_selection_new
{-# LINE 96 "./Graphics/UI/Gtk/Selectors/FontSelection.chs" #-}
fontSelectionGetFontName :: (FontSelectionClass self, GlibString string) => self
-> IO (Maybe string)
fontSelectionGetFontName self =
(\(FontSelection arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_font_selection_get_font_name argPtr1)
{-# LINE 107 "./Graphics/UI/Gtk/Selectors/FontSelection.chs" #-}
(toFontSelection self)
>>= maybePeek readUTFString
fontSelectionSetFontName :: (FontSelectionClass self, GlibString string) => self
-> string
-> IO Bool
fontSelectionSetFontName self fontname =
liftM toBool $
withUTFString fontname $ \fontnamePtr ->
(\(FontSelection arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_font_selection_set_font_name argPtr1 arg2)
{-# LINE 119 "./Graphics/UI/Gtk/Selectors/FontSelection.chs" #-}
(toFontSelection self)
fontnamePtr
fontSelectionGetPreviewText :: (FontSelectionClass self, GlibString string) => self -> IO string
fontSelectionGetPreviewText self =
(\(FontSelection arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_font_selection_get_preview_text argPtr1)
{-# LINE 127 "./Graphics/UI/Gtk/Selectors/FontSelection.chs" #-}
(toFontSelection self)
>>= peekUTFString
fontSelectionSetPreviewText :: (FontSelectionClass self, GlibString string) => self -> string -> IO ()
fontSelectionSetPreviewText self text =
withUTFString text $ \textPtr ->
(\(FontSelection arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_font_selection_set_preview_text argPtr1 arg2)
{-# LINE 136 "./Graphics/UI/Gtk/Selectors/FontSelection.chs" #-}
(toFontSelection self)
textPtr
fontSelectionFontName :: (FontSelectionClass self, GlibString string) => Attr self string
fontSelectionFontName = newAttrFromStringProperty "font_name"
fontSelectionPreviewText :: (FontSelectionClass self, GlibString string) => Attr self string
fontSelectionPreviewText = newAttr
fontSelectionGetPreviewText
fontSelectionSetPreviewText
foreign import ccall unsafe "gtk_font_selection_new"
gtk_font_selection_new :: (IO (Ptr Widget))
foreign import ccall unsafe "gtk_font_selection_get_font_name"
gtk_font_selection_get_font_name :: ((Ptr FontSelection) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_font_selection_set_font_name"
gtk_font_selection_set_font_name :: ((Ptr FontSelection) -> ((Ptr CChar) -> (IO CInt)))
foreign import ccall unsafe "gtk_font_selection_get_preview_text"
gtk_font_selection_get_preview_text :: ((Ptr FontSelection) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_font_selection_set_preview_text"
gtk_font_selection_set_preview_text :: ((Ptr FontSelection) -> ((Ptr CChar) -> (IO ())))