{-# LINE 2 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
module Graphics.UI.Gtk.Selectors.FontButton (
FontButton,
FontButtonClass,
castToFontButton, gTypeFontButton,
toFontButton,
fontButtonNew,
fontButtonNewWithFont,
fontButtonSetFontName,
fontButtonGetFontName,
fontButtonSetShowStyle,
fontButtonGetShowStyle,
fontButtonSetShowSize,
fontButtonGetShowSize,
fontButtonSetUseFont,
fontButtonGetUseFont,
fontButtonSetUseSize,
fontButtonGetUseSize,
fontButtonSetTitle,
fontButtonGetTitle,
fontButtonTitle,
fontButtonFontName,
fontButtonUseFont,
fontButtonUseSize,
fontButtonShowStyle,
fontButtonShowSize,
onFontSet,
afterFontSet,
) 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 96 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 97 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
{-# LINE 99 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
fontButtonNew :: IO FontButton
fontButtonNew :: IO FontButton
fontButtonNew =
(ForeignPtr FontButton -> FontButton, FinalizerPtr FontButton)
-> IO (Ptr FontButton) -> IO FontButton
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr FontButton -> FontButton, FinalizerPtr FontButton)
forall {a}. (ForeignPtr FontButton -> FontButton, FinalizerPtr a)
mkFontButton (IO (Ptr FontButton) -> IO FontButton)
-> IO (Ptr FontButton) -> IO FontButton
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr FontButton)
-> IO (Ptr Widget) -> IO (Ptr FontButton)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr FontButton
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr FontButton) (IO (Ptr Widget) -> IO (Ptr FontButton))
-> IO (Ptr Widget) -> IO (Ptr FontButton)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_font_button_new
{-# LINE 111 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
fontButtonNewWithFont :: GlibString string
=> string
-> IO FontButton
fontButtonNewWithFont :: forall string. GlibString string => string -> IO FontButton
fontButtonNewWithFont string
fontname =
(ForeignPtr FontButton -> FontButton, FinalizerPtr FontButton)
-> IO (Ptr FontButton) -> IO FontButton
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr FontButton -> FontButton, FinalizerPtr FontButton)
forall {a}. (ForeignPtr FontButton -> FontButton, FinalizerPtr a)
mkFontButton (IO (Ptr FontButton) -> IO FontButton)
-> IO (Ptr FontButton) -> IO FontButton
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr FontButton)
-> IO (Ptr Widget) -> IO (Ptr FontButton)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr FontButton
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr FontButton) (IO (Ptr Widget) -> IO (Ptr FontButton))
-> IO (Ptr Widget) -> IO (Ptr FontButton)
forall a b. (a -> b) -> a -> b
$
string -> (CString -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
fontname ((CString -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (CString -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \CString
fontnamePtr ->
CString -> IO (Ptr Widget)
gtk_font_button_new_with_font
{-# LINE 123 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
fontnamePtr
fontButtonSetFontName :: (FontButtonClass self, GlibString string) => self
-> string
-> IO Bool
fontButtonSetFontName :: forall self string.
(FontButtonClass self, GlibString string) =>
self -> string -> IO Bool
fontButtonSetFontName self
self string
fontname =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
string -> (CString -> IO CInt) -> IO CInt
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
fontname ((CString -> IO CInt) -> IO CInt)
-> (CString -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \CString
fontnamePtr ->
(\(FontButton ForeignPtr FontButton
arg1) CString
arg2 -> ForeignPtr FontButton -> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO CInt) -> IO CInt)
-> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> CString -> IO CInt
gtk_font_button_set_font_name Ptr FontButton
argPtr1 CString
arg2)
{-# LINE 138 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
CString
fontnamePtr
fontButtonGetFontName :: (FontButtonClass self, GlibString string) => self
-> IO string
fontButtonGetFontName :: forall self string.
(FontButtonClass self, GlibString string) =>
self -> IO string
fontButtonGetFontName self
self =
(\(FontButton ForeignPtr FontButton
arg1) -> ForeignPtr FontButton
-> (Ptr FontButton -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO CString) -> IO CString)
-> (Ptr FontButton -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> IO CString
gtk_font_button_get_font_name Ptr FontButton
argPtr1)
{-# LINE 148 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
peekUTFString
fontButtonSetShowStyle :: FontButtonClass self => self
-> Bool
-> IO ()
fontButtonSetShowStyle :: forall self. FontButtonClass self => self -> Bool -> IO ()
fontButtonSetShowStyle self
self Bool
showStyle =
(\(FontButton ForeignPtr FontButton
arg1) CInt
arg2 -> ForeignPtr FontButton -> (Ptr FontButton -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO ()) -> IO ())
-> (Ptr FontButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> CInt -> IO ()
gtk_font_button_set_show_style Ptr FontButton
argPtr1 CInt
arg2)
{-# LINE 160 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
showStyle)
fontButtonGetShowStyle :: FontButtonClass self => self
-> IO Bool
fontButtonGetShowStyle :: forall self. FontButtonClass self => self -> IO Bool
fontButtonGetShowStyle self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(FontButton ForeignPtr FontButton
arg1) -> ForeignPtr FontButton -> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO CInt) -> IO CInt)
-> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> IO CInt
gtk_font_button_get_show_style Ptr FontButton
argPtr1)
{-# LINE 170 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
fontButtonSetShowSize :: FontButtonClass self => self
-> Bool
-> IO ()
fontButtonSetShowSize :: forall self. FontButtonClass self => self -> Bool -> IO ()
fontButtonSetShowSize self
self Bool
showSize =
(\(FontButton ForeignPtr FontButton
arg1) CInt
arg2 -> ForeignPtr FontButton -> (Ptr FontButton -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO ()) -> IO ())
-> (Ptr FontButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> CInt -> IO ()
gtk_font_button_set_show_size Ptr FontButton
argPtr1 CInt
arg2)
{-# LINE 180 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
showSize)
fontButtonGetShowSize :: FontButtonClass self => self
-> IO Bool
fontButtonGetShowSize :: forall self. FontButtonClass self => self -> IO Bool
fontButtonGetShowSize self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(FontButton ForeignPtr FontButton
arg1) -> ForeignPtr FontButton -> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO CInt) -> IO CInt)
-> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> IO CInt
gtk_font_button_get_show_size Ptr FontButton
argPtr1)
{-# LINE 190 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
fontButtonSetUseFont :: FontButtonClass self => self
-> Bool
-> IO ()
fontButtonSetUseFont :: forall self. FontButtonClass self => self -> Bool -> IO ()
fontButtonSetUseFont self
self Bool
useFont =
(\(FontButton ForeignPtr FontButton
arg1) CInt
arg2 -> ForeignPtr FontButton -> (Ptr FontButton -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO ()) -> IO ())
-> (Ptr FontButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> CInt -> IO ()
gtk_font_button_set_use_font Ptr FontButton
argPtr1 CInt
arg2)
{-# LINE 201 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
useFont)
fontButtonGetUseFont :: FontButtonClass self => self
-> IO Bool
fontButtonGetUseFont :: forall self. FontButtonClass self => self -> IO Bool
fontButtonGetUseFont self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(FontButton ForeignPtr FontButton
arg1) -> ForeignPtr FontButton -> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO CInt) -> IO CInt)
-> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> IO CInt
gtk_font_button_get_use_font Ptr FontButton
argPtr1)
{-# LINE 211 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
fontButtonSetUseSize :: FontButtonClass self => self
-> Bool
-> IO ()
fontButtonSetUseSize :: forall self. FontButtonClass self => self -> Bool -> IO ()
fontButtonSetUseSize self
self Bool
useSize =
(\(FontButton ForeignPtr FontButton
arg1) CInt
arg2 -> ForeignPtr FontButton -> (Ptr FontButton -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO ()) -> IO ())
-> (Ptr FontButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> CInt -> IO ()
gtk_font_button_set_use_size Ptr FontButton
argPtr1 CInt
arg2)
{-# LINE 222 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
useSize)
fontButtonGetUseSize :: FontButtonClass self => self
-> IO Bool
fontButtonGetUseSize :: forall self. FontButtonClass self => self -> IO Bool
fontButtonGetUseSize self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(FontButton ForeignPtr FontButton
arg1) -> ForeignPtr FontButton -> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO CInt) -> IO CInt)
-> (Ptr FontButton -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> IO CInt
gtk_font_button_get_use_size Ptr FontButton
argPtr1)
{-# LINE 232 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
fontButtonSetTitle :: (FontButtonClass self, GlibString string) => self
-> string
-> IO ()
fontButtonSetTitle :: forall self string.
(FontButtonClass self, GlibString string) =>
self -> string -> IO ()
fontButtonSetTitle self
self string
title =
string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
title ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
titlePtr ->
(\(FontButton ForeignPtr FontButton
arg1) CString
arg2 -> ForeignPtr FontButton -> (Ptr FontButton -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO ()) -> IO ())
-> (Ptr FontButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> CString -> IO ()
gtk_font_button_set_title Ptr FontButton
argPtr1 CString
arg2)
{-# LINE 242 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
CString
titlePtr
fontButtonGetTitle :: (FontButtonClass self, GlibString string) => self
-> IO string
fontButtonGetTitle :: forall self string.
(FontButtonClass self, GlibString string) =>
self -> IO string
fontButtonGetTitle self
self =
(\(FontButton ForeignPtr FontButton
arg1) -> ForeignPtr FontButton
-> (Ptr FontButton -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontButton
arg1 ((Ptr FontButton -> IO CString) -> IO CString)
-> (Ptr FontButton -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr FontButton
argPtr1 ->Ptr FontButton -> IO CString
gtk_font_button_get_title Ptr FontButton
argPtr1)
{-# LINE 252 "./Graphics/UI/Gtk/Selectors/FontButton.chs" #-}
(toFontButton self)
IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
peekUTFString
fontButtonTitle :: (FontButtonClass self, GlibString string) => Attr self string
fontButtonTitle :: forall self string.
(FontButtonClass self, GlibString string) =>
Attr self string
fontButtonTitle = (self -> IO string)
-> (self -> string -> IO ()) -> ReadWriteAttr self string string
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO string
forall self string.
(FontButtonClass self, GlibString string) =>
self -> IO string
fontButtonGetTitle
self -> string -> IO ()
forall self string.
(FontButtonClass self, GlibString string) =>
self -> string -> IO ()
fontButtonSetTitle
fontButtonFontName :: (FontButtonClass self, GlibString string) => Attr self string
fontButtonFontName :: forall self string.
(FontButtonClass self, GlibString string) =>
Attr self string
fontButtonFontName = String -> Attr self string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj string
newAttrFromStringProperty String
"font-name"
fontButtonUseFont :: FontButtonClass self => Attr self Bool
fontButtonUseFont :: forall self. FontButtonClass self => Attr self Bool
fontButtonUseFont = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. FontButtonClass self => self -> IO Bool
fontButtonGetUseFont
self -> Bool -> IO ()
forall self. FontButtonClass self => self -> Bool -> IO ()
fontButtonSetUseFont
fontButtonUseSize :: FontButtonClass self => Attr self Bool
fontButtonUseSize :: forall self. FontButtonClass self => Attr self Bool
fontButtonUseSize = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. FontButtonClass self => self -> IO Bool
fontButtonGetUseSize
self -> Bool -> IO ()
forall self. FontButtonClass self => self -> Bool -> IO ()
fontButtonSetUseSize
fontButtonShowStyle :: FontButtonClass self => Attr self Bool
fontButtonShowStyle :: forall self. FontButtonClass self => Attr self Bool
fontButtonShowStyle = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. FontButtonClass self => self -> IO Bool
fontButtonGetShowStyle
self -> Bool -> IO ()
forall self. FontButtonClass self => self -> Bool -> IO ()
fontButtonSetShowStyle
fontButtonShowSize :: FontButtonClass self => Attr self Bool
fontButtonShowSize :: forall self. FontButtonClass self => Attr self Bool
fontButtonShowSize = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. FontButtonClass self => self -> IO Bool
fontButtonGetShowSize
self -> Bool -> IO ()
forall self. FontButtonClass self => self -> Bool -> IO ()
fontButtonSetShowSize
onFontSet, afterFontSet :: FontButtonClass self => self
-> IO ()
-> IO (ConnectId self)
onFontSet :: forall self.
FontButtonClass self =>
self -> IO () -> IO (ConnectId self)
onFontSet = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"font-set" Bool
False
afterFontSet :: forall self.
FontButtonClass self =>
self -> IO () -> IO (ConnectId self)
afterFontSet = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"font-set" Bool
True
foreign import ccall safe "gtk_font_button_new"
gtk_font_button_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_font_button_new_with_font"
gtk_font_button_new_with_font :: ((Ptr CChar) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_font_button_set_font_name"
gtk_font_button_set_font_name :: ((Ptr FontButton) -> ((Ptr CChar) -> (IO CInt)))
foreign import ccall safe "gtk_font_button_get_font_name"
gtk_font_button_get_font_name :: ((Ptr FontButton) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_font_button_set_show_style"
gtk_font_button_set_show_style :: ((Ptr FontButton) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_font_button_get_show_style"
gtk_font_button_get_show_style :: ((Ptr FontButton) -> (IO CInt))
foreign import ccall safe "gtk_font_button_set_show_size"
gtk_font_button_set_show_size :: ((Ptr FontButton) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_font_button_get_show_size"
gtk_font_button_get_show_size :: ((Ptr FontButton) -> (IO CInt))
foreign import ccall safe "gtk_font_button_set_use_font"
gtk_font_button_set_use_font :: ((Ptr FontButton) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_font_button_get_use_font"
gtk_font_button_get_use_font :: ((Ptr FontButton) -> (IO CInt))
foreign import ccall safe "gtk_font_button_set_use_size"
gtk_font_button_set_use_size :: ((Ptr FontButton) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_font_button_get_use_size"
gtk_font_button_get_use_size :: ((Ptr FontButton) -> (IO CInt))
foreign import ccall safe "gtk_font_button_set_title"
gtk_font_button_set_title :: ((Ptr FontButton) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_font_button_get_title"
gtk_font_button_get_title :: ((Ptr FontButton) -> (IO (Ptr CChar)))