{- | 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.GtkSource.Objects.MarkAttributes ( -- * Exported types MarkAttributes(..) , MarkAttributesK , toMarkAttributes , noMarkAttributes , -- * Methods -- ** markAttributesGetBackground MarkAttributesGetBackgroundMethodInfo , markAttributesGetBackground , -- ** markAttributesGetGicon MarkAttributesGetGiconMethodInfo , markAttributesGetGicon , -- ** markAttributesGetIconName MarkAttributesGetIconNameMethodInfo , markAttributesGetIconName , -- ** markAttributesGetPixbuf MarkAttributesGetPixbufMethodInfo , markAttributesGetPixbuf , -- ** markAttributesGetStockId MarkAttributesGetStockIdMethodInfo , markAttributesGetStockId , -- ** markAttributesGetTooltipMarkup MarkAttributesGetTooltipMarkupMethodInfo, markAttributesGetTooltipMarkup , -- ** markAttributesGetTooltipText MarkAttributesGetTooltipTextMethodInfo , markAttributesGetTooltipText , -- ** markAttributesNew markAttributesNew , -- ** markAttributesRenderIcon MarkAttributesRenderIconMethodInfo , markAttributesRenderIcon , -- ** markAttributesSetBackground MarkAttributesSetBackgroundMethodInfo , markAttributesSetBackground , -- ** markAttributesSetGicon MarkAttributesSetGiconMethodInfo , markAttributesSetGicon , -- ** markAttributesSetIconName MarkAttributesSetIconNameMethodInfo , markAttributesSetIconName , -- ** markAttributesSetPixbuf MarkAttributesSetPixbufMethodInfo , markAttributesSetPixbuf , -- ** markAttributesSetStockId MarkAttributesSetStockIdMethodInfo , markAttributesSetStockId , -- * Properties -- ** Background MarkAttributesBackgroundPropertyInfo , constructMarkAttributesBackground , getMarkAttributesBackground , markAttributesBackground , setMarkAttributesBackground , -- ** Gicon MarkAttributesGiconPropertyInfo , constructMarkAttributesGicon , getMarkAttributesGicon , markAttributesGicon , setMarkAttributesGicon , -- ** IconName MarkAttributesIconNamePropertyInfo , constructMarkAttributesIconName , getMarkAttributesIconName , markAttributesIconName , setMarkAttributesIconName , -- ** Pixbuf MarkAttributesPixbufPropertyInfo , constructMarkAttributesPixbuf , getMarkAttributesPixbuf , markAttributesPixbuf , setMarkAttributesPixbuf , -- ** StockId MarkAttributesStockIdPropertyInfo , constructMarkAttributesStockId , getMarkAttributesStockId , markAttributesStockId , setMarkAttributesStockId , -- * Signals -- ** QueryTooltipMarkup MarkAttributesQueryTooltipMarkupCallback, MarkAttributesQueryTooltipMarkupCallbackC, MarkAttributesQueryTooltipMarkupSignalInfo, afterMarkAttributesQueryTooltipMarkup , markAttributesQueryTooltipMarkupCallbackWrapper, markAttributesQueryTooltipMarkupClosure , mkMarkAttributesQueryTooltipMarkupCallback, noMarkAttributesQueryTooltipMarkupCallback, onMarkAttributesQueryTooltipMarkup , -- ** QueryTooltipText MarkAttributesQueryTooltipTextCallback , MarkAttributesQueryTooltipTextCallbackC , MarkAttributesQueryTooltipTextSignalInfo, afterMarkAttributesQueryTooltipText , markAttributesQueryTooltipTextCallbackWrapper, markAttributesQueryTooltipTextClosure , mkMarkAttributesQueryTooltipTextCallback, noMarkAttributesQueryTooltipTextCallback, onMarkAttributesQueryTooltipText , ) 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.GtkSource.Types import GI.GtkSource.Callbacks import qualified GI.GObject as GObject import qualified GI.Gdk as Gdk import qualified GI.GdkPixbuf as GdkPixbuf import qualified GI.Gio as Gio import qualified GI.Gtk as Gtk newtype MarkAttributes = MarkAttributes (ForeignPtr MarkAttributes) foreign import ccall "gtk_source_mark_attributes_get_type" c_gtk_source_mark_attributes_get_type :: IO GType type instance ParentTypes MarkAttributes = MarkAttributesParentTypes type MarkAttributesParentTypes = '[GObject.Object] instance GObject MarkAttributes where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gtk_source_mark_attributes_get_type class GObject o => MarkAttributesK o instance (GObject o, IsDescendantOf MarkAttributes o) => MarkAttributesK o toMarkAttributes :: MarkAttributesK o => o -> IO MarkAttributes toMarkAttributes = unsafeCastTo MarkAttributes noMarkAttributes :: Maybe MarkAttributes noMarkAttributes = Nothing type family ResolveMarkAttributesMethod (t :: Symbol) (o :: *) :: * where ResolveMarkAttributesMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo ResolveMarkAttributesMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo ResolveMarkAttributesMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo ResolveMarkAttributesMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo ResolveMarkAttributesMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo ResolveMarkAttributesMethod "notify" o = GObject.ObjectNotifyMethodInfo ResolveMarkAttributesMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo ResolveMarkAttributesMethod "ref" o = GObject.ObjectRefMethodInfo ResolveMarkAttributesMethod "refSink" o = GObject.ObjectRefSinkMethodInfo ResolveMarkAttributesMethod "renderIcon" o = MarkAttributesRenderIconMethodInfo ResolveMarkAttributesMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo ResolveMarkAttributesMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo ResolveMarkAttributesMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo ResolveMarkAttributesMethod "stealData" o = GObject.ObjectStealDataMethodInfo ResolveMarkAttributesMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo ResolveMarkAttributesMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo ResolveMarkAttributesMethod "unref" o = GObject.ObjectUnrefMethodInfo ResolveMarkAttributesMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo ResolveMarkAttributesMethod "getBackground" o = MarkAttributesGetBackgroundMethodInfo ResolveMarkAttributesMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveMarkAttributesMethod "getGicon" o = MarkAttributesGetGiconMethodInfo ResolveMarkAttributesMethod "getIconName" o = MarkAttributesGetIconNameMethodInfo ResolveMarkAttributesMethod "getPixbuf" o = MarkAttributesGetPixbufMethodInfo ResolveMarkAttributesMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo ResolveMarkAttributesMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo ResolveMarkAttributesMethod "getStockId" o = MarkAttributesGetStockIdMethodInfo ResolveMarkAttributesMethod "getTooltipMarkup" o = MarkAttributesGetTooltipMarkupMethodInfo ResolveMarkAttributesMethod "getTooltipText" o = MarkAttributesGetTooltipTextMethodInfo ResolveMarkAttributesMethod "setBackground" o = MarkAttributesSetBackgroundMethodInfo ResolveMarkAttributesMethod "setData" o = GObject.ObjectSetDataMethodInfo ResolveMarkAttributesMethod "setGicon" o = MarkAttributesSetGiconMethodInfo ResolveMarkAttributesMethod "setIconName" o = MarkAttributesSetIconNameMethodInfo ResolveMarkAttributesMethod "setPixbuf" o = MarkAttributesSetPixbufMethodInfo ResolveMarkAttributesMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo ResolveMarkAttributesMethod "setStockId" o = MarkAttributesSetStockIdMethodInfo ResolveMarkAttributesMethod l o = MethodResolutionFailed l o instance (info ~ ResolveMarkAttributesMethod t MarkAttributes, MethodInfo info MarkAttributes p) => IsLabelProxy t (MarkAttributes -> p) where fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveMarkAttributesMethod t MarkAttributes, MethodInfo info MarkAttributes p) => IsLabel t (MarkAttributes -> p) where fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif -- signal MarkAttributes::query-tooltip-markup type MarkAttributesQueryTooltipMarkupCallback = Mark -> IO T.Text noMarkAttributesQueryTooltipMarkupCallback :: Maybe MarkAttributesQueryTooltipMarkupCallback noMarkAttributesQueryTooltipMarkupCallback = Nothing type MarkAttributesQueryTooltipMarkupCallbackC = Ptr () -> -- object Ptr Mark -> Ptr () -> -- user_data IO CString foreign import ccall "wrapper" mkMarkAttributesQueryTooltipMarkupCallback :: MarkAttributesQueryTooltipMarkupCallbackC -> IO (FunPtr MarkAttributesQueryTooltipMarkupCallbackC) markAttributesQueryTooltipMarkupClosure :: MarkAttributesQueryTooltipMarkupCallback -> IO Closure markAttributesQueryTooltipMarkupClosure cb = newCClosure =<< mkMarkAttributesQueryTooltipMarkupCallback wrapped where wrapped = markAttributesQueryTooltipMarkupCallbackWrapper cb markAttributesQueryTooltipMarkupCallbackWrapper :: MarkAttributesQueryTooltipMarkupCallback -> Ptr () -> Ptr Mark -> Ptr () -> IO CString markAttributesQueryTooltipMarkupCallbackWrapper _cb _ mark _ = do mark' <- (newObject Mark) mark result <- _cb mark' result' <- textToCString result return result' onMarkAttributesQueryTooltipMarkup :: (GObject a, MonadIO m) => a -> MarkAttributesQueryTooltipMarkupCallback -> m SignalHandlerId onMarkAttributesQueryTooltipMarkup obj cb = liftIO $ connectMarkAttributesQueryTooltipMarkup obj cb SignalConnectBefore afterMarkAttributesQueryTooltipMarkup :: (GObject a, MonadIO m) => a -> MarkAttributesQueryTooltipMarkupCallback -> m SignalHandlerId afterMarkAttributesQueryTooltipMarkup obj cb = connectMarkAttributesQueryTooltipMarkup obj cb SignalConnectAfter connectMarkAttributesQueryTooltipMarkup :: (GObject a, MonadIO m) => a -> MarkAttributesQueryTooltipMarkupCallback -> SignalConnectMode -> m SignalHandlerId connectMarkAttributesQueryTooltipMarkup obj cb after = liftIO $ do cb' <- mkMarkAttributesQueryTooltipMarkupCallback (markAttributesQueryTooltipMarkupCallbackWrapper cb) connectSignalFunPtr obj "query-tooltip-markup" cb' after -- signal MarkAttributes::query-tooltip-text type MarkAttributesQueryTooltipTextCallback = Mark -> IO T.Text noMarkAttributesQueryTooltipTextCallback :: Maybe MarkAttributesQueryTooltipTextCallback noMarkAttributesQueryTooltipTextCallback = Nothing type MarkAttributesQueryTooltipTextCallbackC = Ptr () -> -- object Ptr Mark -> Ptr () -> -- user_data IO CString foreign import ccall "wrapper" mkMarkAttributesQueryTooltipTextCallback :: MarkAttributesQueryTooltipTextCallbackC -> IO (FunPtr MarkAttributesQueryTooltipTextCallbackC) markAttributesQueryTooltipTextClosure :: MarkAttributesQueryTooltipTextCallback -> IO Closure markAttributesQueryTooltipTextClosure cb = newCClosure =<< mkMarkAttributesQueryTooltipTextCallback wrapped where wrapped = markAttributesQueryTooltipTextCallbackWrapper cb markAttributesQueryTooltipTextCallbackWrapper :: MarkAttributesQueryTooltipTextCallback -> Ptr () -> Ptr Mark -> Ptr () -> IO CString markAttributesQueryTooltipTextCallbackWrapper _cb _ mark _ = do mark' <- (newObject Mark) mark result <- _cb mark' result' <- textToCString result return result' onMarkAttributesQueryTooltipText :: (GObject a, MonadIO m) => a -> MarkAttributesQueryTooltipTextCallback -> m SignalHandlerId onMarkAttributesQueryTooltipText obj cb = liftIO $ connectMarkAttributesQueryTooltipText obj cb SignalConnectBefore afterMarkAttributesQueryTooltipText :: (GObject a, MonadIO m) => a -> MarkAttributesQueryTooltipTextCallback -> m SignalHandlerId afterMarkAttributesQueryTooltipText obj cb = connectMarkAttributesQueryTooltipText obj cb SignalConnectAfter connectMarkAttributesQueryTooltipText :: (GObject a, MonadIO m) => a -> MarkAttributesQueryTooltipTextCallback -> SignalConnectMode -> m SignalHandlerId connectMarkAttributesQueryTooltipText obj cb after = liftIO $ do cb' <- mkMarkAttributesQueryTooltipTextCallback (markAttributesQueryTooltipTextCallbackWrapper cb) connectSignalFunPtr obj "query-tooltip-text" cb' after -- VVV Prop "background" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Just False) getMarkAttributesBackground :: (MonadIO m, MarkAttributesK o) => o -> m (Maybe Gdk.RGBA) getMarkAttributesBackground obj = liftIO $ getObjectPropertyBoxed obj "background" Gdk.RGBA setMarkAttributesBackground :: (MonadIO m, MarkAttributesK o) => o -> Gdk.RGBA -> m () setMarkAttributesBackground obj val = liftIO $ setObjectPropertyBoxed obj "background" (Just val) constructMarkAttributesBackground :: Gdk.RGBA -> IO ([Char], GValue) constructMarkAttributesBackground val = constructObjectPropertyBoxed "background" (Just val) data MarkAttributesBackgroundPropertyInfo instance AttrInfo MarkAttributesBackgroundPropertyInfo where type AttrAllowedOps MarkAttributesBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MarkAttributesBackgroundPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint MarkAttributesBackgroundPropertyInfo = MarkAttributesK type AttrGetType MarkAttributesBackgroundPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel MarkAttributesBackgroundPropertyInfo = "background" attrGet _ = getMarkAttributesBackground attrSet _ = setMarkAttributesBackground attrConstruct _ = constructMarkAttributesBackground attrClear _ = undefined -- VVV Prop "gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getMarkAttributesGicon :: (MonadIO m, MarkAttributesK o) => o -> m Gio.Icon getMarkAttributesGicon obj = liftIO $ checkUnexpectedNothing "getMarkAttributesGicon" $ getObjectPropertyObject obj "gicon" Gio.Icon setMarkAttributesGicon :: (MonadIO m, MarkAttributesK o, Gio.IconK a) => o -> a -> m () setMarkAttributesGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) constructMarkAttributesGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) constructMarkAttributesGicon val = constructObjectPropertyObject "gicon" (Just val) data MarkAttributesGiconPropertyInfo instance AttrInfo MarkAttributesGiconPropertyInfo where type AttrAllowedOps MarkAttributesGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MarkAttributesGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint MarkAttributesGiconPropertyInfo = MarkAttributesK type AttrGetType MarkAttributesGiconPropertyInfo = Gio.Icon type AttrLabel MarkAttributesGiconPropertyInfo = "gicon" attrGet _ = getMarkAttributesGicon attrSet _ = setMarkAttributesGicon attrConstruct _ = constructMarkAttributesGicon attrClear _ = undefined -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getMarkAttributesIconName :: (MonadIO m, MarkAttributesK o) => o -> m T.Text getMarkAttributesIconName obj = liftIO $ checkUnexpectedNothing "getMarkAttributesIconName" $ getObjectPropertyString obj "icon-name" setMarkAttributesIconName :: (MonadIO m, MarkAttributesK o) => o -> T.Text -> m () setMarkAttributesIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructMarkAttributesIconName :: T.Text -> IO ([Char], GValue) constructMarkAttributesIconName val = constructObjectPropertyString "icon-name" (Just val) data MarkAttributesIconNamePropertyInfo instance AttrInfo MarkAttributesIconNamePropertyInfo where type AttrAllowedOps MarkAttributesIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MarkAttributesIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint MarkAttributesIconNamePropertyInfo = MarkAttributesK type AttrGetType MarkAttributesIconNamePropertyInfo = T.Text type AttrLabel MarkAttributesIconNamePropertyInfo = "icon-name" attrGet _ = getMarkAttributesIconName attrSet _ = setMarkAttributesIconName attrConstruct _ = constructMarkAttributesIconName attrClear _ = undefined -- VVV Prop "pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getMarkAttributesPixbuf :: (MonadIO m, MarkAttributesK o) => o -> m GdkPixbuf.Pixbuf getMarkAttributesPixbuf obj = liftIO $ checkUnexpectedNothing "getMarkAttributesPixbuf" $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf setMarkAttributesPixbuf :: (MonadIO m, MarkAttributesK o, GdkPixbuf.PixbufK a) => o -> a -> m () setMarkAttributesPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) constructMarkAttributesPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) constructMarkAttributesPixbuf val = constructObjectPropertyObject "pixbuf" (Just val) data MarkAttributesPixbufPropertyInfo instance AttrInfo MarkAttributesPixbufPropertyInfo where type AttrAllowedOps MarkAttributesPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MarkAttributesPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint MarkAttributesPixbufPropertyInfo = MarkAttributesK type AttrGetType MarkAttributesPixbufPropertyInfo = GdkPixbuf.Pixbuf type AttrLabel MarkAttributesPixbufPropertyInfo = "pixbuf" attrGet _ = getMarkAttributesPixbuf attrSet _ = setMarkAttributesPixbuf attrConstruct _ = constructMarkAttributesPixbuf attrClear _ = undefined -- VVV Prop "stock-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getMarkAttributesStockId :: (MonadIO m, MarkAttributesK o) => o -> m T.Text getMarkAttributesStockId obj = liftIO $ checkUnexpectedNothing "getMarkAttributesStockId" $ getObjectPropertyString obj "stock-id" setMarkAttributesStockId :: (MonadIO m, MarkAttributesK o) => o -> T.Text -> m () setMarkAttributesStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) constructMarkAttributesStockId :: T.Text -> IO ([Char], GValue) constructMarkAttributesStockId val = constructObjectPropertyString "stock-id" (Just val) data MarkAttributesStockIdPropertyInfo instance AttrInfo MarkAttributesStockIdPropertyInfo where type AttrAllowedOps MarkAttributesStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MarkAttributesStockIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MarkAttributesStockIdPropertyInfo = MarkAttributesK type AttrGetType MarkAttributesStockIdPropertyInfo = T.Text type AttrLabel MarkAttributesStockIdPropertyInfo = "stock-id" attrGet _ = getMarkAttributesStockId attrSet _ = setMarkAttributesStockId attrConstruct _ = constructMarkAttributesStockId attrClear _ = undefined type instance AttributeList MarkAttributes = MarkAttributesAttributeList type MarkAttributesAttributeList = ('[ '("background", MarkAttributesBackgroundPropertyInfo), '("gicon", MarkAttributesGiconPropertyInfo), '("iconName", MarkAttributesIconNamePropertyInfo), '("pixbuf", MarkAttributesPixbufPropertyInfo), '("stockId", MarkAttributesStockIdPropertyInfo)] :: [(Symbol, *)]) markAttributesBackground :: AttrLabelProxy "background" markAttributesBackground = AttrLabelProxy markAttributesGicon :: AttrLabelProxy "gicon" markAttributesGicon = AttrLabelProxy markAttributesIconName :: AttrLabelProxy "iconName" markAttributesIconName = AttrLabelProxy markAttributesPixbuf :: AttrLabelProxy "pixbuf" markAttributesPixbuf = AttrLabelProxy markAttributesStockId :: AttrLabelProxy "stockId" markAttributesStockId = AttrLabelProxy data MarkAttributesQueryTooltipMarkupSignalInfo instance SignalInfo MarkAttributesQueryTooltipMarkupSignalInfo where type HaskellCallbackType MarkAttributesQueryTooltipMarkupSignalInfo = MarkAttributesQueryTooltipMarkupCallback connectSignal _ = connectMarkAttributesQueryTooltipMarkup data MarkAttributesQueryTooltipTextSignalInfo instance SignalInfo MarkAttributesQueryTooltipTextSignalInfo where type HaskellCallbackType MarkAttributesQueryTooltipTextSignalInfo = MarkAttributesQueryTooltipTextCallback connectSignal _ = connectMarkAttributesQueryTooltipText type instance SignalList MarkAttributes = MarkAttributesSignalList type MarkAttributesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("queryTooltipMarkup", MarkAttributesQueryTooltipMarkupSignalInfo), '("queryTooltipText", MarkAttributesQueryTooltipTextSignalInfo)] :: [(Symbol, *)]) -- method MarkAttributes::new -- method type : Constructor -- Args : [] -- Lengths : [] -- returnType : Just (TInterface "GtkSource" "MarkAttributes") -- throws : False -- Skip return : False foreign import ccall "gtk_source_mark_attributes_new" gtk_source_mark_attributes_new :: IO (Ptr MarkAttributes) markAttributesNew :: (MonadIO m) => m MarkAttributes -- result markAttributesNew = liftIO $ do result <- gtk_source_mark_attributes_new checkUnexpectedReturnNULL "gtk_source_mark_attributes_new" result result' <- (wrapObject MarkAttributes) result return result' -- method MarkAttributes::get_background -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_mark_attributes_get_background" gtk_source_mark_attributes_get_background :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" Ptr Gdk.RGBA -> -- background : TInterface "Gdk" "RGBA" IO CInt markAttributesGetBackground :: (MonadIO m, MarkAttributesK a) => a -- _obj -> m (Bool,Gdk.RGBA) -- result markAttributesGetBackground _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj background <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) result <- gtk_source_mark_attributes_get_background _obj' background let result' = (/= 0) result background' <- (wrapBoxed Gdk.RGBA) background touchManagedPtr _obj return (result', background') data MarkAttributesGetBackgroundMethodInfo instance (signature ~ (m (Bool,Gdk.RGBA)), MonadIO m, MarkAttributesK a) => MethodInfo MarkAttributesGetBackgroundMethodInfo a signature where overloadedMethod _ = markAttributesGetBackground -- method MarkAttributes::get_gicon -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False foreign import ccall "gtk_source_mark_attributes_get_gicon" gtk_source_mark_attributes_get_gicon :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" IO (Ptr Gio.Icon) markAttributesGetGicon :: (MonadIO m, MarkAttributesK a) => a -- _obj -> m Gio.Icon -- result markAttributesGetGicon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_mark_attributes_get_gicon _obj' checkUnexpectedReturnNULL "gtk_source_mark_attributes_get_gicon" result result' <- (newObject Gio.Icon) result touchManagedPtr _obj return result' data MarkAttributesGetGiconMethodInfo instance (signature ~ (m Gio.Icon), MonadIO m, MarkAttributesK a) => MethodInfo MarkAttributesGetGiconMethodInfo a signature where overloadedMethod _ = markAttributesGetGicon -- method MarkAttributes::get_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", 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_source_mark_attributes_get_icon_name" gtk_source_mark_attributes_get_icon_name :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" IO CString markAttributesGetIconName :: (MonadIO m, MarkAttributesK a) => a -- _obj -> m T.Text -- result markAttributesGetIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_mark_attributes_get_icon_name _obj' checkUnexpectedReturnNULL "gtk_source_mark_attributes_get_icon_name" result result' <- cstringToText result touchManagedPtr _obj return result' data MarkAttributesGetIconNameMethodInfo instance (signature ~ (m T.Text), MonadIO m, MarkAttributesK a) => MethodInfo MarkAttributesGetIconNameMethodInfo a signature where overloadedMethod _ = markAttributesGetIconName -- method MarkAttributes::get_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False foreign import ccall "gtk_source_mark_attributes_get_pixbuf" gtk_source_mark_attributes_get_pixbuf :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" IO (Ptr GdkPixbuf.Pixbuf) markAttributesGetPixbuf :: (MonadIO m, MarkAttributesK a) => a -- _obj -> m GdkPixbuf.Pixbuf -- result markAttributesGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_mark_attributes_get_pixbuf _obj' checkUnexpectedReturnNULL "gtk_source_mark_attributes_get_pixbuf" result result' <- (newObject GdkPixbuf.Pixbuf) result touchManagedPtr _obj return result' data MarkAttributesGetPixbufMethodInfo instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, MarkAttributesK a) => MethodInfo MarkAttributesGetPixbufMethodInfo a signature where overloadedMethod _ = markAttributesGetPixbuf -- method MarkAttributes::get_stock_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", 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_source_mark_attributes_get_stock_id" gtk_source_mark_attributes_get_stock_id :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" IO CString {-# DEPRECATED markAttributesGetStockId ["(Since version 3.10)","Don't use this function."]#-} markAttributesGetStockId :: (MonadIO m, MarkAttributesK a) => a -- _obj -> m T.Text -- result markAttributesGetStockId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_mark_attributes_get_stock_id _obj' checkUnexpectedReturnNULL "gtk_source_mark_attributes_get_stock_id" result result' <- cstringToText result touchManagedPtr _obj return result' data MarkAttributesGetStockIdMethodInfo instance (signature ~ (m T.Text), MonadIO m, MarkAttributesK a) => MethodInfo MarkAttributesGetStockIdMethodInfo a signature where overloadedMethod _ = markAttributesGetStockId -- method MarkAttributes::get_tooltip_markup -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "GtkSource" "Mark", 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_source_mark_attributes_get_tooltip_markup" gtk_source_mark_attributes_get_tooltip_markup :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" Ptr Mark -> -- mark : TInterface "GtkSource" "Mark" IO CString markAttributesGetTooltipMarkup :: (MonadIO m, MarkAttributesK a, MarkK b) => a -- _obj -> b -- mark -> m T.Text -- result markAttributesGetTooltipMarkup _obj mark = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mark' = unsafeManagedPtrCastPtr mark result <- gtk_source_mark_attributes_get_tooltip_markup _obj' mark' checkUnexpectedReturnNULL "gtk_source_mark_attributes_get_tooltip_markup" result result' <- cstringToText result freeMem result touchManagedPtr _obj touchManagedPtr mark return result' data MarkAttributesGetTooltipMarkupMethodInfo instance (signature ~ (b -> m T.Text), MonadIO m, MarkAttributesK a, MarkK b) => MethodInfo MarkAttributesGetTooltipMarkupMethodInfo a signature where overloadedMethod _ = markAttributesGetTooltipMarkup -- method MarkAttributes::get_tooltip_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "GtkSource" "Mark", 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_source_mark_attributes_get_tooltip_text" gtk_source_mark_attributes_get_tooltip_text :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" Ptr Mark -> -- mark : TInterface "GtkSource" "Mark" IO CString markAttributesGetTooltipText :: (MonadIO m, MarkAttributesK a, MarkK b) => a -- _obj -> b -- mark -> m T.Text -- result markAttributesGetTooltipText _obj mark = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mark' = unsafeManagedPtrCastPtr mark result <- gtk_source_mark_attributes_get_tooltip_text _obj' mark' checkUnexpectedReturnNULL "gtk_source_mark_attributes_get_tooltip_text" result result' <- cstringToText result freeMem result touchManagedPtr _obj touchManagedPtr mark return result' data MarkAttributesGetTooltipTextMethodInfo instance (signature ~ (b -> m T.Text), MonadIO m, MarkAttributesK a, MarkK b) => MethodInfo MarkAttributesGetTooltipTextMethodInfo a signature where overloadedMethod _ = markAttributesGetTooltipText -- method MarkAttributes::render_icon -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False foreign import ccall "gtk_source_mark_attributes_render_icon" gtk_source_mark_attributes_render_icon :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" Ptr Gtk.Widget -> -- widget : TInterface "Gtk" "Widget" Int32 -> -- size : TBasicType TInt IO (Ptr GdkPixbuf.Pixbuf) markAttributesRenderIcon :: (MonadIO m, MarkAttributesK a, Gtk.WidgetK b) => a -- _obj -> b -- widget -> Int32 -- size -> m GdkPixbuf.Pixbuf -- result markAttributesRenderIcon _obj widget size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget result <- gtk_source_mark_attributes_render_icon _obj' widget' size checkUnexpectedReturnNULL "gtk_source_mark_attributes_render_icon" result result' <- (newObject GdkPixbuf.Pixbuf) result touchManagedPtr _obj touchManagedPtr widget return result' data MarkAttributesRenderIconMethodInfo instance (signature ~ (b -> Int32 -> m GdkPixbuf.Pixbuf), MonadIO m, MarkAttributesK a, Gtk.WidgetK b) => MethodInfo MarkAttributesRenderIconMethodInfo a signature where overloadedMethod _ = markAttributesRenderIcon -- method MarkAttributes::set_background -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background", argType = TInterface "Gdk" "RGBA", 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_source_mark_attributes_set_background" gtk_source_mark_attributes_set_background :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" Ptr Gdk.RGBA -> -- background : TInterface "Gdk" "RGBA" IO () markAttributesSetBackground :: (MonadIO m, MarkAttributesK a) => a -- _obj -> Gdk.RGBA -- background -> m () -- result markAttributesSetBackground _obj background = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let background' = unsafeManagedPtrGetPtr background gtk_source_mark_attributes_set_background _obj' background' touchManagedPtr _obj touchManagedPtr background return () data MarkAttributesSetBackgroundMethodInfo instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, MarkAttributesK a) => MethodInfo MarkAttributesSetBackgroundMethodInfo a signature where overloadedMethod _ = markAttributesSetBackground -- method MarkAttributes::set_gicon -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", 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_source_mark_attributes_set_gicon" gtk_source_mark_attributes_set_gicon :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" Ptr Gio.Icon -> -- gicon : TInterface "Gio" "Icon" IO () markAttributesSetGicon :: (MonadIO m, MarkAttributesK a, Gio.IconK b) => a -- _obj -> b -- gicon -> m () -- result markAttributesSetGicon _obj gicon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let gicon' = unsafeManagedPtrCastPtr gicon gtk_source_mark_attributes_set_gicon _obj' gicon' touchManagedPtr _obj touchManagedPtr gicon return () data MarkAttributesSetGiconMethodInfo instance (signature ~ (b -> m ()), MonadIO m, MarkAttributesK a, Gio.IconK b) => MethodInfo MarkAttributesSetGiconMethodInfo a signature where overloadedMethod _ = markAttributesSetGicon -- method MarkAttributes::set_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", 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_source_mark_attributes_set_icon_name" gtk_source_mark_attributes_set_icon_name :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" CString -> -- icon_name : TBasicType TUTF8 IO () markAttributesSetIconName :: (MonadIO m, MarkAttributesK a) => a -- _obj -> T.Text -- iconName -> m () -- result markAttributesSetIconName _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName gtk_source_mark_attributes_set_icon_name _obj' iconName' touchManagedPtr _obj freeMem iconName' return () data MarkAttributesSetIconNameMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, MarkAttributesK a) => MethodInfo MarkAttributesSetIconNameMethodInfo a signature where overloadedMethod _ = markAttributesSetIconName -- method MarkAttributes::set_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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_source_mark_attributes_set_pixbuf" gtk_source_mark_attributes_set_pixbuf :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" IO () markAttributesSetPixbuf :: (MonadIO m, MarkAttributesK a, GdkPixbuf.PixbufK b) => a -- _obj -> b -- pixbuf -> m () -- result markAttributesSetPixbuf _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pixbuf' = unsafeManagedPtrCastPtr pixbuf gtk_source_mark_attributes_set_pixbuf _obj' pixbuf' touchManagedPtr _obj touchManagedPtr pixbuf return () data MarkAttributesSetPixbufMethodInfo instance (signature ~ (b -> m ()), MonadIO m, MarkAttributesK a, GdkPixbuf.PixbufK b) => MethodInfo MarkAttributesSetPixbufMethodInfo a signature where overloadedMethod _ = markAttributesSetPixbuf -- method MarkAttributes::set_stock_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "MarkAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", 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_source_mark_attributes_set_stock_id" gtk_source_mark_attributes_set_stock_id :: Ptr MarkAttributes -> -- _obj : TInterface "GtkSource" "MarkAttributes" CString -> -- stock_id : TBasicType TUTF8 IO () {-# DEPRECATED markAttributesSetStockId ["(Since version 3.10)","Don't use this function."]#-} markAttributesSetStockId :: (MonadIO m, MarkAttributesK a) => a -- _obj -> T.Text -- stockId -> m () -- result markAttributesSetStockId _obj stockId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj stockId' <- textToCString stockId gtk_source_mark_attributes_set_stock_id _obj' stockId' touchManagedPtr _obj freeMem stockId' return () data MarkAttributesSetStockIdMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, MarkAttributesK a) => MethodInfo MarkAttributesSetStockIdMethodInfo a signature where overloadedMethod _ = markAttributesSetStockId