{- | 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 fontChooserGetFont , -- ** fontChooserGetFontDesc fontChooserGetFontDesc , -- ** fontChooserGetFontFace fontChooserGetFontFace , -- ** fontChooserGetFontFamily fontChooserGetFontFamily , -- ** fontChooserGetFontMap fontChooserGetFontMap , -- ** fontChooserGetFontSize fontChooserGetFontSize , -- ** fontChooserGetPreviewText fontChooserGetPreviewText , -- ** fontChooserGetShowPreviewEntry fontChooserGetShowPreviewEntry , -- ** fontChooserSetFilterFunc fontChooserSetFilterFunc , -- ** fontChooserSetFont fontChooserSetFont , -- ** fontChooserSetFontDesc fontChooserSetFontDesc , -- ** fontChooserSetFontMap fontChooserSetFontMap , -- ** fontChooserSetPreviewText fontChooserSetPreviewText , -- ** fontChooserSetShowPreviewEntry fontChooserSetShowPreviewEntry , -- * Properties -- ** Font FontChooserFontPropertyInfo , constructFontChooserFont , getFontChooserFont , setFontChooserFont , -- ** FontDesc FontChooserFontDescPropertyInfo , constructFontChooserFontDesc , getFontChooserFontDesc , setFontChooserFontDesc , -- ** PreviewText FontChooserPreviewTextPropertyInfo , constructFontChooserPreviewText , getFontChooserPreviewText , setFontChooserPreviewText , -- ** ShowPreviewEntry FontChooserShowPreviewEntryPropertyInfo , constructFontChooserShowPreviewEntry , getFontChooserShowPreviewEntry , setFontChooserShowPreviewEntry , -- * Signals -- ** FontActivated FontChooserFontActivatedCallback , FontChooserFontActivatedCallbackC , FontChooserFontActivatedSignalInfo , afterFontChooserFontActivated , fontChooserFontActivatedCallbackWrapper , fontChooserFontActivatedClosure , mkFontChooserFontActivatedCallback , noFontChooserFontActivatedCallback , onFontChooserFontActivated , ) where import Prelude () import Data.GI.Base.ShortPrelude 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 -- 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] getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m T.Text getFontChooserFont obj = liftIO $ getObjectPropertyString obj "font" setFontChooserFont :: (MonadIO m, FontChooserK o) => o -> T.Text -> m () setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" val constructFontChooserFont :: T.Text -> IO ([Char], GValue) constructFontChooserFont val = constructObjectPropertyString "font" 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 = T.Text type AttrLabel FontChooserFontPropertyInfo = "FontChooser::font" attrGet _ = getFontChooserFont attrSet _ = setFontChooserFont attrConstruct _ = constructFontChooserFont -- VVV Prop "font-desc" -- Type: TInterface "Pango" "FontDescription" -- Flags: [PropertyReadable,PropertyWritable] getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m 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" val constructFontChooserFontDesc :: Pango.FontDescription -> IO ([Char], GValue) constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" 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 = Pango.FontDescription type AttrLabel FontChooserFontDescPropertyInfo = "FontChooser::font-desc" attrGet _ = getFontChooserFontDesc attrSet _ = setFontChooserFontDesc attrConstruct _ = constructFontChooserFontDesc -- VVV Prop "preview-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m 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" val constructFontChooserPreviewText :: T.Text -> IO ([Char], GValue) constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" 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 = T.Text type AttrLabel FontChooserPreviewTextPropertyInfo = "FontChooser::preview-text" attrGet _ = getFontChooserPreviewText attrSet _ = setFontChooserPreviewText attrConstruct _ = constructFontChooserPreviewText -- VVV Prop "show-preview-entry" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] 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 = "FontChooser::show-preview-entry" attrGet _ = getFontChooserShowPreviewEntry attrSet _ = setFontChooserShowPreviewEntry attrConstruct _ = constructFontChooserShowPreviewEntry type instance AttributeList FontChooser = FontChooserAttributeList type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)]) data FontChooserFontActivatedSignalInfo instance SignalInfo FontChooserFontActivatedSignalInfo where type HaskellCallbackType FontChooserFontActivatedSignalInfo = FontChooserFontActivatedCallback connectSignal _ = connectFontChooserFontActivated type instance SignalList FontChooser = FontChooserSignalList type FontChooserSignalList = ('[ '("font-activated", FontChooserFontActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : 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 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' -- method FontChooser::get_font_desc -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : 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 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' -- method FontChooser::get_font_face -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : 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 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' -- method FontChooser::get_font_family -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : 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 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' -- method FontChooser::get_font_map -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : 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 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' -- method FontChooser::get_font_size -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- 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 fontChooserGetFontSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_font_size _obj' touchManagedPtr _obj return result -- method FontChooser::get_preview_text -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : 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 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' -- method FontChooser::get_show_preview_entry -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : 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 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' -- method FontChooser::set_filter_func -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- 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 TVoid FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () fontChooserSetFilterFunc :: (MonadIO m, FontChooserK a) => a -> -- _obj Maybe (FontFilterFunc) -> -- filter m () 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 user_data = castFunPtrToPtr maybeFilter let destroy = safeFreeFunPtrPtr gtk_font_chooser_set_filter_func _obj' maybeFilter user_data destroy touchManagedPtr _obj return () -- method FontChooser::set_font -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- 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 () fontChooserSetFont _obj fontname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj fontname' <- textToCString fontname gtk_font_chooser_set_font _obj' fontname' touchManagedPtr _obj freeMem fontname' return () -- method FontChooser::set_font_desc -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- 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 -> -- font_desc m () fontChooserSetFontDesc _obj font_desc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let font_desc' = unsafeManagedPtrGetPtr font_desc gtk_font_chooser_set_font_desc _obj' font_desc' touchManagedPtr _obj touchManagedPtr font_desc return () -- method FontChooser::set_font_map -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- 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 () 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 () -- method FontChooser::set_preview_text -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- 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 () 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 () -- method FontChooser::set_show_preview_entry -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- 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 -> -- show_preview_entry m () fontChooserSetShowPreviewEntry _obj show_preview_entry = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let show_preview_entry' = (fromIntegral . fromEnum) show_preview_entry gtk_font_chooser_set_show_preview_entry _obj' show_preview_entry' touchManagedPtr _obj return ()