gi-gtk-0.3.18.14: GI/Gtk/Interfaces/FontChooser.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Interfaces.FontChooser
(
-- * Exported types
FontChooser(..) ,
noFontChooser ,
FontChooserK ,
toFontChooser ,
-- * Methods
-- ** fontChooserGetFont
FontChooserGetFontMethodInfo ,
fontChooserGetFont ,
-- ** fontChooserGetFontDesc
FontChooserGetFontDescMethodInfo ,
fontChooserGetFontDesc ,
-- ** fontChooserGetFontFace
FontChooserGetFontFaceMethodInfo ,
fontChooserGetFontFace ,
-- ** fontChooserGetFontFamily
FontChooserGetFontFamilyMethodInfo ,
fontChooserGetFontFamily ,
-- ** fontChooserGetFontMap
FontChooserGetFontMapMethodInfo ,
fontChooserGetFontMap ,
-- ** fontChooserGetFontSize
FontChooserGetFontSizeMethodInfo ,
fontChooserGetFontSize ,
-- ** fontChooserGetPreviewText
FontChooserGetPreviewTextMethodInfo ,
fontChooserGetPreviewText ,
-- ** fontChooserGetShowPreviewEntry
FontChooserGetShowPreviewEntryMethodInfo,
fontChooserGetShowPreviewEntry ,
-- ** fontChooserSetFilterFunc
FontChooserSetFilterFuncMethodInfo ,
fontChooserSetFilterFunc ,
-- ** fontChooserSetFont
FontChooserSetFontMethodInfo ,
fontChooserSetFont ,
-- ** fontChooserSetFontDesc
FontChooserSetFontDescMethodInfo ,
fontChooserSetFontDesc ,
-- ** fontChooserSetFontMap
FontChooserSetFontMapMethodInfo ,
fontChooserSetFontMap ,
-- ** fontChooserSetPreviewText
FontChooserSetPreviewTextMethodInfo ,
fontChooserSetPreviewText ,
-- ** fontChooserSetShowPreviewEntry
FontChooserSetShowPreviewEntryMethodInfo,
fontChooserSetShowPreviewEntry ,
-- * Properties
-- ** Font
FontChooserFontPropertyInfo ,
constructFontChooserFont ,
fontChooserFont ,
getFontChooserFont ,
setFontChooserFont ,
-- ** FontDesc
FontChooserFontDescPropertyInfo ,
constructFontChooserFontDesc ,
fontChooserFontDesc ,
getFontChooserFontDesc ,
setFontChooserFontDesc ,
-- ** PreviewText
FontChooserPreviewTextPropertyInfo ,
constructFontChooserPreviewText ,
fontChooserPreviewText ,
getFontChooserPreviewText ,
setFontChooserPreviewText ,
-- ** ShowPreviewEntry
FontChooserShowPreviewEntryPropertyInfo ,
constructFontChooserShowPreviewEntry ,
fontChooserShowPreviewEntry ,
getFontChooserShowPreviewEntry ,
setFontChooserShowPreviewEntry ,
-- * Signals
-- ** FontActivated
FontChooserFontActivatedCallback ,
FontChooserFontActivatedCallbackC ,
FontChooserFontActivatedSignalInfo ,
afterFontChooserFontActivated ,
fontChooserFontActivatedCallbackWrapper ,
fontChooserFontActivatedClosure ,
mkFontChooserFontActivatedCallback ,
noFontChooserFontActivatedCallback ,
onFontChooserFontActivated ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
import qualified GI.Pango as Pango
-- interface FontChooser
newtype FontChooser = FontChooser (ForeignPtr FontChooser)
noFontChooser :: Maybe FontChooser
noFontChooser = Nothing
type family ResolveFontChooserMethod (t :: Symbol) (o :: *) :: * where
ResolveFontChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveFontChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveFontChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveFontChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveFontChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveFontChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveFontChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveFontChooserMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveFontChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveFontChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveFontChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveFontChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveFontChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveFontChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveFontChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveFontChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveFontChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveFontChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveFontChooserMethod "getFont" o = FontChooserGetFontMethodInfo
ResolveFontChooserMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo
ResolveFontChooserMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo
ResolveFontChooserMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo
ResolveFontChooserMethod "getFontMap" o = FontChooserGetFontMapMethodInfo
ResolveFontChooserMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo
ResolveFontChooserMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo
ResolveFontChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveFontChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveFontChooserMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo
ResolveFontChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveFontChooserMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo
ResolveFontChooserMethod "setFont" o = FontChooserSetFontMethodInfo
ResolveFontChooserMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo
ResolveFontChooserMethod "setFontMap" o = FontChooserSetFontMapMethodInfo
ResolveFontChooserMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo
ResolveFontChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveFontChooserMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo
ResolveFontChooserMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveFontChooserMethod t FontChooser, MethodInfo info FontChooser p) => IsLabelProxy t (FontChooser -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveFontChooserMethod t FontChooser, MethodInfo info FontChooser p) => IsLabel t (FontChooser -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal FontChooser::font-activated
type FontChooserFontActivatedCallback =
T.Text ->
IO ()
noFontChooserFontActivatedCallback :: Maybe FontChooserFontActivatedCallback
noFontChooserFontActivatedCallback = Nothing
type FontChooserFontActivatedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFontChooserFontActivatedCallback :: FontChooserFontActivatedCallbackC -> IO (FunPtr FontChooserFontActivatedCallbackC)
fontChooserFontActivatedClosure :: FontChooserFontActivatedCallback -> IO Closure
fontChooserFontActivatedClosure cb = newCClosure =<< mkFontChooserFontActivatedCallback wrapped
where wrapped = fontChooserFontActivatedCallbackWrapper cb
fontChooserFontActivatedCallbackWrapper ::
FontChooserFontActivatedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
fontChooserFontActivatedCallbackWrapper _cb _ fontname _ = do
fontname' <- cstringToText fontname
_cb fontname'
onFontChooserFontActivated :: (GObject a, MonadIO m) => a -> FontChooserFontActivatedCallback -> m SignalHandlerId
onFontChooserFontActivated obj cb = liftIO $ connectFontChooserFontActivated obj cb SignalConnectBefore
afterFontChooserFontActivated :: (GObject a, MonadIO m) => a -> FontChooserFontActivatedCallback -> m SignalHandlerId
afterFontChooserFontActivated obj cb = connectFontChooserFontActivated obj cb SignalConnectAfter
connectFontChooserFontActivated :: (GObject a, MonadIO m) =>
a -> FontChooserFontActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectFontChooserFontActivated obj cb after = liftIO $ do
cb' <- mkFontChooserFontActivatedCallback (fontChooserFontActivatedCallbackWrapper cb)
connectSignalFunPtr obj "font-activated" cb' after
-- VVV Prop "font"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Just False)
getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m (Maybe T.Text)
getFontChooserFont obj = liftIO $ getObjectPropertyString obj "font"
setFontChooserFont :: (MonadIO m, FontChooserK o) => o -> T.Text -> m ()
setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val)
constructFontChooserFont :: T.Text -> IO ([Char], GValue)
constructFontChooserFont val = constructObjectPropertyString "font" (Just val)
data FontChooserFontPropertyInfo
instance AttrInfo FontChooserFontPropertyInfo where
type AttrAllowedOps FontChooserFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FontChooserFontPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint FontChooserFontPropertyInfo = FontChooserK
type AttrGetType FontChooserFontPropertyInfo = (Maybe T.Text)
type AttrLabel FontChooserFontPropertyInfo = "font"
attrGet _ = getFontChooserFont
attrSet _ = setFontChooserFont
attrConstruct _ = constructFontChooserFont
attrClear _ = undefined
-- VVV Prop "font-desc"
-- Type: TInterface "Pango" "FontDescription"
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Just False)
getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m (Maybe Pango.FontDescription)
getFontChooserFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription
setFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> Pango.FontDescription -> m ()
setFontChooserFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val)
constructFontChooserFontDesc :: Pango.FontDescription -> IO ([Char], GValue)
constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val)
data FontChooserFontDescPropertyInfo
instance AttrInfo FontChooserFontDescPropertyInfo where
type AttrAllowedOps FontChooserFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FontChooserFontDescPropertyInfo = (~) Pango.FontDescription
type AttrBaseTypeConstraint FontChooserFontDescPropertyInfo = FontChooserK
type AttrGetType FontChooserFontDescPropertyInfo = (Maybe Pango.FontDescription)
type AttrLabel FontChooserFontDescPropertyInfo = "font-desc"
attrGet _ = getFontChooserFontDesc
attrSet _ = setFontChooserFontDesc
attrConstruct _ = constructFontChooserFontDesc
attrClear _ = undefined
-- VVV Prop "preview-text"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Just False)
getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m (Maybe T.Text)
getFontChooserPreviewText obj = liftIO $ getObjectPropertyString obj "preview-text"
setFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> T.Text -> m ()
setFontChooserPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" (Just val)
constructFontChooserPreviewText :: T.Text -> IO ([Char], GValue)
constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" (Just val)
data FontChooserPreviewTextPropertyInfo
instance AttrInfo FontChooserPreviewTextPropertyInfo where
type AttrAllowedOps FontChooserPreviewTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FontChooserPreviewTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint FontChooserPreviewTextPropertyInfo = FontChooserK
type AttrGetType FontChooserPreviewTextPropertyInfo = (Maybe T.Text)
type AttrLabel FontChooserPreviewTextPropertyInfo = "preview-text"
attrGet _ = getFontChooserPreviewText
attrSet _ = setFontChooserPreviewText
attrConstruct _ = constructFontChooserPreviewText
attrClear _ = undefined
-- VVV Prop "show-preview-entry"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Just False,Just False)
getFontChooserShowPreviewEntry :: (MonadIO m, FontChooserK o) => o -> m Bool
getFontChooserShowPreviewEntry obj = liftIO $ getObjectPropertyBool obj "show-preview-entry"
setFontChooserShowPreviewEntry :: (MonadIO m, FontChooserK o) => o -> Bool -> m ()
setFontChooserShowPreviewEntry obj val = liftIO $ setObjectPropertyBool obj "show-preview-entry" val
constructFontChooserShowPreviewEntry :: Bool -> IO ([Char], GValue)
constructFontChooserShowPreviewEntry val = constructObjectPropertyBool "show-preview-entry" val
data FontChooserShowPreviewEntryPropertyInfo
instance AttrInfo FontChooserShowPreviewEntryPropertyInfo where
type AttrAllowedOps FontChooserShowPreviewEntryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FontChooserShowPreviewEntryPropertyInfo = (~) Bool
type AttrBaseTypeConstraint FontChooserShowPreviewEntryPropertyInfo = FontChooserK
type AttrGetType FontChooserShowPreviewEntryPropertyInfo = Bool
type AttrLabel FontChooserShowPreviewEntryPropertyInfo = "show-preview-entry"
attrGet _ = getFontChooserShowPreviewEntry
attrSet _ = setFontChooserShowPreviewEntry
attrConstruct _ = constructFontChooserShowPreviewEntry
attrClear _ = undefined
type instance AttributeList FontChooser = FontChooserAttributeList
type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)])
fontChooserFont :: AttrLabelProxy "font"
fontChooserFont = AttrLabelProxy
fontChooserFontDesc :: AttrLabelProxy "fontDesc"
fontChooserFontDesc = AttrLabelProxy
fontChooserPreviewText :: AttrLabelProxy "previewText"
fontChooserPreviewText = AttrLabelProxy
fontChooserShowPreviewEntry :: AttrLabelProxy "showPreviewEntry"
fontChooserShowPreviewEntry = AttrLabelProxy
data FontChooserFontActivatedSignalInfo
instance SignalInfo FontChooserFontActivatedSignalInfo where
type HaskellCallbackType FontChooserFontActivatedSignalInfo = FontChooserFontActivatedCallback
connectSignal _ = connectFontChooserFontActivated
type instance SignalList FontChooser = FontChooserSignalList
type FontChooserSignalList = ('[ '("fontActivated", FontChooserFontActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_font_chooser_get_type"
c_gtk_font_chooser_get_type :: IO GType
type instance ParentTypes FontChooser = FontChooserParentTypes
type FontChooserParentTypes = '[GObject.Object]
instance GObject FontChooser where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_font_chooser_get_type
class GObject o => FontChooserK o
instance (GObject o, IsDescendantOf FontChooser o) => FontChooserK o
toFontChooser :: FontChooserK o => o -> IO FontChooser
toFontChooser = unsafeCastTo FontChooser
-- method FontChooser::get_font
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font" gtk_font_chooser_get_font ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO CString
fontChooserGetFont ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> m T.Text -- result
fontChooserGetFont _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data FontChooserGetFontMethodInfo
instance (signature ~ (m T.Text), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontMethodInfo a signature where
overloadedMethod _ = fontChooserGetFont
-- method FontChooser::get_font_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Pango" "FontDescription")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_desc" gtk_font_chooser_get_font_desc ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO (Ptr Pango.FontDescription)
fontChooserGetFontDesc ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> m Pango.FontDescription -- result
fontChooserGetFontDesc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_desc _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font_desc" result
result' <- (wrapBoxed Pango.FontDescription) result
touchManagedPtr _obj
return result'
data FontChooserGetFontDescMethodInfo
instance (signature ~ (m Pango.FontDescription), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontDescMethodInfo a signature where
overloadedMethod _ = fontChooserGetFontDesc
-- method FontChooser::get_font_face
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Pango" "FontFace")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_face" gtk_font_chooser_get_font_face ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO (Ptr Pango.FontFace)
fontChooserGetFontFace ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> m Pango.FontFace -- result
fontChooserGetFontFace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_face _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font_face" result
result' <- (newObject Pango.FontFace) result
touchManagedPtr _obj
return result'
data FontChooserGetFontFaceMethodInfo
instance (signature ~ (m Pango.FontFace), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontFaceMethodInfo a signature where
overloadedMethod _ = fontChooserGetFontFace
-- method FontChooser::get_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Pango" "FontFamily")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_family" gtk_font_chooser_get_font_family ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO (Ptr Pango.FontFamily)
fontChooserGetFontFamily ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> m Pango.FontFamily -- result
fontChooserGetFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_family _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font_family" result
result' <- (newObject Pango.FontFamily) result
touchManagedPtr _obj
return result'
data FontChooserGetFontFamilyMethodInfo
instance (signature ~ (m Pango.FontFamily), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontFamilyMethodInfo a signature where
overloadedMethod _ = fontChooserGetFontFamily
-- method FontChooser::get_font_map
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Pango" "FontMap")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_map" gtk_font_chooser_get_font_map ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO (Ptr Pango.FontMap)
fontChooserGetFontMap ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> m Pango.FontMap -- result
fontChooserGetFontMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_map _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font_map" result
result' <- (wrapObject Pango.FontMap) result
touchManagedPtr _obj
return result'
data FontChooserGetFontMapMethodInfo
instance (signature ~ (m Pango.FontMap), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontMapMethodInfo a signature where
overloadedMethod _ = fontChooserGetFontMap
-- method FontChooser::get_font_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_size" gtk_font_chooser_get_font_size ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO Int32
fontChooserGetFontSize ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> m Int32 -- result
fontChooserGetFontSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_size _obj'
touchManagedPtr _obj
return result
data FontChooserGetFontSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontSizeMethodInfo a signature where
overloadedMethod _ = fontChooserGetFontSize
-- method FontChooser::get_preview_text
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_preview_text" gtk_font_chooser_get_preview_text ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO CString
fontChooserGetPreviewText ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> m T.Text -- result
fontChooserGetPreviewText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_preview_text _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_preview_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data FontChooserGetPreviewTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetPreviewTextMethodInfo a signature where
overloadedMethod _ = fontChooserGetPreviewText
-- method FontChooser::get_show_preview_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_show_preview_entry" gtk_font_chooser_get_show_preview_entry ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO CInt
fontChooserGetShowPreviewEntry ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> m Bool -- result
fontChooserGetShowPreviewEntry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_show_preview_entry _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data FontChooserGetShowPreviewEntryMethodInfo
instance (signature ~ (m Bool), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetShowPreviewEntryMethodInfo a signature where
overloadedMethod _ = fontChooserGetShowPreviewEntry
-- method FontChooser::set_filter_func
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_filter_func" gtk_font_chooser_set_filter_func ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
FunPtr FontFilterFuncC -> -- filter : TInterface "Gtk" "FontFilterFunc"
Ptr () -> -- user_data : TBasicType TPtr
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
fontChooserSetFilterFunc ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> Maybe (FontFilterFunc) -- filter
-> m () -- result
fontChooserSetFilterFunc _obj filter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFilter <- case filter of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFilter -> do
jFilter' <- mkFontFilterFunc (fontFilterFuncWrapper Nothing jFilter)
return jFilter'
let userData = castFunPtrToPtr maybeFilter
let destroy = safeFreeFunPtrPtr
gtk_font_chooser_set_filter_func _obj' maybeFilter userData destroy
touchManagedPtr _obj
return ()
data FontChooserSetFilterFuncMethodInfo
instance (signature ~ (Maybe (FontFilterFunc) -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFilterFuncMethodInfo a signature where
overloadedMethod _ = fontChooserSetFilterFunc
-- method FontChooser::set_font
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_font" gtk_font_chooser_set_font ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
CString -> -- fontname : TBasicType TUTF8
IO ()
fontChooserSetFont ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> T.Text -- fontname
-> m () -- result
fontChooserSetFont _obj fontname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
fontname' <- textToCString fontname
gtk_font_chooser_set_font _obj' fontname'
touchManagedPtr _obj
freeMem fontname'
return ()
data FontChooserSetFontMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFontMethodInfo a signature where
overloadedMethod _ = fontChooserSetFont
-- method FontChooser::set_font_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_font_desc" gtk_font_chooser_set_font_desc ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription"
IO ()
fontChooserSetFontDesc ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> Pango.FontDescription -- fontDesc
-> m () -- result
fontChooserSetFontDesc _obj fontDesc = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fontDesc' = unsafeManagedPtrGetPtr fontDesc
gtk_font_chooser_set_font_desc _obj' fontDesc'
touchManagedPtr _obj
touchManagedPtr fontDesc
return ()
data FontChooserSetFontDescMethodInfo
instance (signature ~ (Pango.FontDescription -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFontDescMethodInfo a signature where
overloadedMethod _ = fontChooserSetFontDesc
-- method FontChooser::set_font_map
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_font_map" gtk_font_chooser_set_font_map ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
Ptr Pango.FontMap -> -- fontmap : TInterface "Pango" "FontMap"
IO ()
fontChooserSetFontMap ::
(MonadIO m, FontChooserK a, Pango.FontMapK b) =>
a -- _obj
-> Maybe (b) -- fontmap
-> m () -- result
fontChooserSetFontMap _obj fontmap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFontmap <- case fontmap of
Nothing -> return nullPtr
Just jFontmap -> do
let jFontmap' = unsafeManagedPtrCastPtr jFontmap
return jFontmap'
gtk_font_chooser_set_font_map _obj' maybeFontmap
touchManagedPtr _obj
whenJust fontmap touchManagedPtr
return ()
data FontChooserSetFontMapMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FontChooserK a, Pango.FontMapK b) => MethodInfo FontChooserSetFontMapMethodInfo a signature where
overloadedMethod _ = fontChooserSetFontMap
-- method FontChooser::set_preview_text
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_preview_text" gtk_font_chooser_set_preview_text ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
CString -> -- text : TBasicType TUTF8
IO ()
fontChooserSetPreviewText ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> T.Text -- text
-> m () -- result
fontChooserSetPreviewText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_font_chooser_set_preview_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
data FontChooserSetPreviewTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetPreviewTextMethodInfo a signature where
overloadedMethod _ = fontChooserSetPreviewText
-- method FontChooser::set_show_preview_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_show_preview_entry" gtk_font_chooser_set_show_preview_entry ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
CInt -> -- show_preview_entry : TBasicType TBoolean
IO ()
fontChooserSetShowPreviewEntry ::
(MonadIO m, FontChooserK a) =>
a -- _obj
-> Bool -- showPreviewEntry
-> m () -- result
fontChooserSetShowPreviewEntry _obj showPreviewEntry = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let showPreviewEntry' = (fromIntegral . fromEnum) showPreviewEntry
gtk_font_chooser_set_show_preview_entry _obj' showPreviewEntry'
touchManagedPtr _obj
return ()
data FontChooserSetShowPreviewEntryMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetShowPreviewEntryMethodInfo a signature where
overloadedMethod _ = fontChooserSetShowPreviewEntry