#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.MarkAttributes
(
MarkAttributes(..) ,
IsMarkAttributes ,
toMarkAttributes ,
noMarkAttributes ,
#if ENABLE_OVERLOADING
MarkAttributesGetBackgroundMethodInfo ,
#endif
markAttributesGetBackground ,
#if ENABLE_OVERLOADING
MarkAttributesGetGiconMethodInfo ,
#endif
markAttributesGetGicon ,
#if ENABLE_OVERLOADING
MarkAttributesGetIconNameMethodInfo ,
#endif
markAttributesGetIconName ,
#if ENABLE_OVERLOADING
MarkAttributesGetPixbufMethodInfo ,
#endif
markAttributesGetPixbuf ,
#if ENABLE_OVERLOADING
MarkAttributesGetStockIdMethodInfo ,
#endif
markAttributesGetStockId ,
#if ENABLE_OVERLOADING
MarkAttributesGetTooltipMarkupMethodInfo,
#endif
markAttributesGetTooltipMarkup ,
#if ENABLE_OVERLOADING
MarkAttributesGetTooltipTextMethodInfo ,
#endif
markAttributesGetTooltipText ,
markAttributesNew ,
#if ENABLE_OVERLOADING
MarkAttributesRenderIconMethodInfo ,
#endif
markAttributesRenderIcon ,
#if ENABLE_OVERLOADING
MarkAttributesSetBackgroundMethodInfo ,
#endif
markAttributesSetBackground ,
#if ENABLE_OVERLOADING
MarkAttributesSetGiconMethodInfo ,
#endif
markAttributesSetGicon ,
#if ENABLE_OVERLOADING
MarkAttributesSetIconNameMethodInfo ,
#endif
markAttributesSetIconName ,
#if ENABLE_OVERLOADING
MarkAttributesSetPixbufMethodInfo ,
#endif
markAttributesSetPixbuf ,
#if ENABLE_OVERLOADING
MarkAttributesSetStockIdMethodInfo ,
#endif
markAttributesSetStockId ,
#if ENABLE_OVERLOADING
MarkAttributesBackgroundPropertyInfo ,
#endif
constructMarkAttributesBackground ,
getMarkAttributesBackground ,
#if ENABLE_OVERLOADING
markAttributesBackground ,
#endif
setMarkAttributesBackground ,
#if ENABLE_OVERLOADING
MarkAttributesGiconPropertyInfo ,
#endif
constructMarkAttributesGicon ,
getMarkAttributesGicon ,
#if ENABLE_OVERLOADING
markAttributesGicon ,
#endif
setMarkAttributesGicon ,
#if ENABLE_OVERLOADING
MarkAttributesIconNamePropertyInfo ,
#endif
constructMarkAttributesIconName ,
getMarkAttributesIconName ,
#if ENABLE_OVERLOADING
markAttributesIconName ,
#endif
setMarkAttributesIconName ,
#if ENABLE_OVERLOADING
MarkAttributesPixbufPropertyInfo ,
#endif
constructMarkAttributesPixbuf ,
getMarkAttributesPixbuf ,
#if ENABLE_OVERLOADING
markAttributesPixbuf ,
#endif
setMarkAttributesPixbuf ,
#if ENABLE_OVERLOADING
MarkAttributesStockIdPropertyInfo ,
#endif
constructMarkAttributesStockId ,
getMarkAttributesStockId ,
#if ENABLE_OVERLOADING
markAttributesStockId ,
#endif
setMarkAttributesStockId ,
C_MarkAttributesQueryTooltipMarkupCallback,
MarkAttributesQueryTooltipMarkupCallback,
#if ENABLE_OVERLOADING
MarkAttributesQueryTooltipMarkupSignalInfo,
#endif
afterMarkAttributesQueryTooltipMarkup ,
genClosure_MarkAttributesQueryTooltipMarkup,
mk_MarkAttributesQueryTooltipMarkupCallback,
noMarkAttributesQueryTooltipMarkupCallback,
onMarkAttributesQueryTooltipMarkup ,
wrap_MarkAttributesQueryTooltipMarkupCallback,
C_MarkAttributesQueryTooltipTextCallback,
MarkAttributesQueryTooltipTextCallback ,
#if ENABLE_OVERLOADING
MarkAttributesQueryTooltipTextSignalInfo,
#endif
afterMarkAttributesQueryTooltipText ,
genClosure_MarkAttributesQueryTooltipText,
mk_MarkAttributesQueryTooltipTextCallback,
noMarkAttributesQueryTooltipTextCallback,
onMarkAttributesQueryTooltipText ,
wrap_MarkAttributesQueryTooltipTextCallback,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Mark as GtkSource.Mark
newtype MarkAttributes = MarkAttributes (ManagedPtr MarkAttributes)
foreign import ccall "gtk_source_mark_attributes_get_type"
c_gtk_source_mark_attributes_get_type :: IO GType
instance GObject MarkAttributes where
gobjectType = c_gtk_source_mark_attributes_get_type
class (GObject o, O.IsDescendantOf MarkAttributes o) => IsMarkAttributes o
instance (GObject o, O.IsDescendantOf MarkAttributes o) => IsMarkAttributes o
instance O.HasParentTypes MarkAttributes
type instance O.ParentTypes MarkAttributes = '[GObject.Object.Object]
toMarkAttributes :: (MonadIO m, IsMarkAttributes o) => o -> m MarkAttributes
toMarkAttributes = liftIO . unsafeCastTo MarkAttributes
noMarkAttributes :: Maybe MarkAttributes
noMarkAttributes = Nothing
#if ENABLE_OVERLOADING
type family ResolveMarkAttributesMethod (t :: Symbol) (o :: *) :: * where
ResolveMarkAttributesMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMarkAttributesMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMarkAttributesMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMarkAttributesMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMarkAttributesMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMarkAttributesMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMarkAttributesMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMarkAttributesMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMarkAttributesMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMarkAttributesMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMarkAttributesMethod "renderIcon" o = MarkAttributesRenderIconMethodInfo
ResolveMarkAttributesMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMarkAttributesMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMarkAttributesMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMarkAttributesMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMarkAttributesMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMarkAttributesMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMarkAttributesMethod "getBackground" o = MarkAttributesGetBackgroundMethodInfo
ResolveMarkAttributesMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMarkAttributesMethod "getGicon" o = MarkAttributesGetGiconMethodInfo
ResolveMarkAttributesMethod "getIconName" o = MarkAttributesGetIconNameMethodInfo
ResolveMarkAttributesMethod "getPixbuf" o = MarkAttributesGetPixbufMethodInfo
ResolveMarkAttributesMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMarkAttributesMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMarkAttributesMethod "getStockId" o = MarkAttributesGetStockIdMethodInfo
ResolveMarkAttributesMethod "getTooltipMarkup" o = MarkAttributesGetTooltipMarkupMethodInfo
ResolveMarkAttributesMethod "getTooltipText" o = MarkAttributesGetTooltipTextMethodInfo
ResolveMarkAttributesMethod "setBackground" o = MarkAttributesSetBackgroundMethodInfo
ResolveMarkAttributesMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMarkAttributesMethod "setGicon" o = MarkAttributesSetGiconMethodInfo
ResolveMarkAttributesMethod "setIconName" o = MarkAttributesSetIconNameMethodInfo
ResolveMarkAttributesMethod "setPixbuf" o = MarkAttributesSetPixbufMethodInfo
ResolveMarkAttributesMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMarkAttributesMethod "setStockId" o = MarkAttributesSetStockIdMethodInfo
ResolveMarkAttributesMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMarkAttributesMethod t MarkAttributes, O.MethodInfo info MarkAttributes p) => OL.IsLabel t (MarkAttributes -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type MarkAttributesQueryTooltipMarkupCallback =
GtkSource.Mark.Mark
-> IO T.Text
noMarkAttributesQueryTooltipMarkupCallback :: Maybe MarkAttributesQueryTooltipMarkupCallback
noMarkAttributesQueryTooltipMarkupCallback = Nothing
type C_MarkAttributesQueryTooltipMarkupCallback =
Ptr () ->
Ptr GtkSource.Mark.Mark ->
Ptr () ->
IO CString
foreign import ccall "wrapper"
mk_MarkAttributesQueryTooltipMarkupCallback :: C_MarkAttributesQueryTooltipMarkupCallback -> IO (FunPtr C_MarkAttributesQueryTooltipMarkupCallback)
genClosure_MarkAttributesQueryTooltipMarkup :: MonadIO m => MarkAttributesQueryTooltipMarkupCallback -> m (GClosure C_MarkAttributesQueryTooltipMarkupCallback)
genClosure_MarkAttributesQueryTooltipMarkup cb = liftIO $ do
let cb' = wrap_MarkAttributesQueryTooltipMarkupCallback cb
mk_MarkAttributesQueryTooltipMarkupCallback cb' >>= B.GClosure.newGClosure
wrap_MarkAttributesQueryTooltipMarkupCallback ::
MarkAttributesQueryTooltipMarkupCallback ->
C_MarkAttributesQueryTooltipMarkupCallback
wrap_MarkAttributesQueryTooltipMarkupCallback _cb _ mark _ = do
mark' <- (newObject GtkSource.Mark.Mark) mark
result <- _cb mark'
result' <- textToCString result
return result'
onMarkAttributesQueryTooltipMarkup :: (IsMarkAttributes a, MonadIO m) => a -> MarkAttributesQueryTooltipMarkupCallback -> m SignalHandlerId
onMarkAttributesQueryTooltipMarkup obj cb = liftIO $ do
let cb' = wrap_MarkAttributesQueryTooltipMarkupCallback cb
cb'' <- mk_MarkAttributesQueryTooltipMarkupCallback cb'
connectSignalFunPtr obj "query-tooltip-markup" cb'' SignalConnectBefore
afterMarkAttributesQueryTooltipMarkup :: (IsMarkAttributes a, MonadIO m) => a -> MarkAttributesQueryTooltipMarkupCallback -> m SignalHandlerId
afterMarkAttributesQueryTooltipMarkup obj cb = liftIO $ do
let cb' = wrap_MarkAttributesQueryTooltipMarkupCallback cb
cb'' <- mk_MarkAttributesQueryTooltipMarkupCallback cb'
connectSignalFunPtr obj "query-tooltip-markup" cb'' SignalConnectAfter
type MarkAttributesQueryTooltipTextCallback =
GtkSource.Mark.Mark
-> IO T.Text
noMarkAttributesQueryTooltipTextCallback :: Maybe MarkAttributesQueryTooltipTextCallback
noMarkAttributesQueryTooltipTextCallback = Nothing
type C_MarkAttributesQueryTooltipTextCallback =
Ptr () ->
Ptr GtkSource.Mark.Mark ->
Ptr () ->
IO CString
foreign import ccall "wrapper"
mk_MarkAttributesQueryTooltipTextCallback :: C_MarkAttributesQueryTooltipTextCallback -> IO (FunPtr C_MarkAttributesQueryTooltipTextCallback)
genClosure_MarkAttributesQueryTooltipText :: MonadIO m => MarkAttributesQueryTooltipTextCallback -> m (GClosure C_MarkAttributesQueryTooltipTextCallback)
genClosure_MarkAttributesQueryTooltipText cb = liftIO $ do
let cb' = wrap_MarkAttributesQueryTooltipTextCallback cb
mk_MarkAttributesQueryTooltipTextCallback cb' >>= B.GClosure.newGClosure
wrap_MarkAttributesQueryTooltipTextCallback ::
MarkAttributesQueryTooltipTextCallback ->
C_MarkAttributesQueryTooltipTextCallback
wrap_MarkAttributesQueryTooltipTextCallback _cb _ mark _ = do
mark' <- (newObject GtkSource.Mark.Mark) mark
result <- _cb mark'
result' <- textToCString result
return result'
onMarkAttributesQueryTooltipText :: (IsMarkAttributes a, MonadIO m) => a -> MarkAttributesQueryTooltipTextCallback -> m SignalHandlerId
onMarkAttributesQueryTooltipText obj cb = liftIO $ do
let cb' = wrap_MarkAttributesQueryTooltipTextCallback cb
cb'' <- mk_MarkAttributesQueryTooltipTextCallback cb'
connectSignalFunPtr obj "query-tooltip-text" cb'' SignalConnectBefore
afterMarkAttributesQueryTooltipText :: (IsMarkAttributes a, MonadIO m) => a -> MarkAttributesQueryTooltipTextCallback -> m SignalHandlerId
afterMarkAttributesQueryTooltipText obj cb = liftIO $ do
let cb' = wrap_MarkAttributesQueryTooltipTextCallback cb
cb'' <- mk_MarkAttributesQueryTooltipTextCallback cb'
connectSignalFunPtr obj "query-tooltip-text" cb'' SignalConnectAfter
getMarkAttributesBackground :: (MonadIO m, IsMarkAttributes o) => o -> m (Maybe Gdk.RGBA.RGBA)
getMarkAttributesBackground obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "background" Gdk.RGBA.RGBA
setMarkAttributesBackground :: (MonadIO m, IsMarkAttributes o) => o -> Gdk.RGBA.RGBA -> m ()
setMarkAttributesBackground obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "background" (Just val)
constructMarkAttributesBackground :: (IsMarkAttributes o) => Gdk.RGBA.RGBA -> IO (GValueConstruct o)
constructMarkAttributesBackground val = B.Properties.constructObjectPropertyBoxed "background" (Just val)
#if ENABLE_OVERLOADING
data MarkAttributesBackgroundPropertyInfo
instance AttrInfo MarkAttributesBackgroundPropertyInfo where
type AttrAllowedOps MarkAttributesBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MarkAttributesBackgroundPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrBaseTypeConstraint MarkAttributesBackgroundPropertyInfo = IsMarkAttributes
type AttrGetType MarkAttributesBackgroundPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel MarkAttributesBackgroundPropertyInfo = "background"
type AttrOrigin MarkAttributesBackgroundPropertyInfo = MarkAttributes
attrGet _ = getMarkAttributesBackground
attrSet _ = setMarkAttributesBackground
attrConstruct _ = constructMarkAttributesBackground
attrClear _ = undefined
#endif
getMarkAttributesGicon :: (MonadIO m, IsMarkAttributes o) => o -> m Gio.Icon.Icon
getMarkAttributesGicon obj = liftIO $ checkUnexpectedNothing "getMarkAttributesGicon" $ B.Properties.getObjectPropertyObject obj "gicon" Gio.Icon.Icon
setMarkAttributesGicon :: (MonadIO m, IsMarkAttributes o, Gio.Icon.IsIcon a) => o -> a -> m ()
setMarkAttributesGicon obj val = liftIO $ B.Properties.setObjectPropertyObject obj "gicon" (Just val)
constructMarkAttributesGicon :: (IsMarkAttributes o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o)
constructMarkAttributesGicon val = B.Properties.constructObjectPropertyObject "gicon" (Just val)
#if ENABLE_OVERLOADING
data MarkAttributesGiconPropertyInfo
instance AttrInfo MarkAttributesGiconPropertyInfo where
type AttrAllowedOps MarkAttributesGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MarkAttributesGiconPropertyInfo = Gio.Icon.IsIcon
type AttrBaseTypeConstraint MarkAttributesGiconPropertyInfo = IsMarkAttributes
type AttrGetType MarkAttributesGiconPropertyInfo = Gio.Icon.Icon
type AttrLabel MarkAttributesGiconPropertyInfo = "gicon"
type AttrOrigin MarkAttributesGiconPropertyInfo = MarkAttributes
attrGet _ = getMarkAttributesGicon
attrSet _ = setMarkAttributesGicon
attrConstruct _ = constructMarkAttributesGicon
attrClear _ = undefined
#endif
getMarkAttributesIconName :: (MonadIO m, IsMarkAttributes o) => o -> m T.Text
getMarkAttributesIconName obj = liftIO $ checkUnexpectedNothing "getMarkAttributesIconName" $ B.Properties.getObjectPropertyString obj "icon-name"
setMarkAttributesIconName :: (MonadIO m, IsMarkAttributes o) => o -> T.Text -> m ()
setMarkAttributesIconName obj val = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Just val)
constructMarkAttributesIconName :: (IsMarkAttributes o) => T.Text -> IO (GValueConstruct o)
constructMarkAttributesIconName val = B.Properties.constructObjectPropertyString "icon-name" (Just val)
#if ENABLE_OVERLOADING
data MarkAttributesIconNamePropertyInfo
instance AttrInfo MarkAttributesIconNamePropertyInfo where
type AttrAllowedOps MarkAttributesIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MarkAttributesIconNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MarkAttributesIconNamePropertyInfo = IsMarkAttributes
type AttrGetType MarkAttributesIconNamePropertyInfo = T.Text
type AttrLabel MarkAttributesIconNamePropertyInfo = "icon-name"
type AttrOrigin MarkAttributesIconNamePropertyInfo = MarkAttributes
attrGet _ = getMarkAttributesIconName
attrSet _ = setMarkAttributesIconName
attrConstruct _ = constructMarkAttributesIconName
attrClear _ = undefined
#endif
getMarkAttributesPixbuf :: (MonadIO m, IsMarkAttributes o) => o -> m GdkPixbuf.Pixbuf.Pixbuf
getMarkAttributesPixbuf obj = liftIO $ checkUnexpectedNothing "getMarkAttributesPixbuf" $ B.Properties.getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf.Pixbuf
setMarkAttributesPixbuf :: (MonadIO m, IsMarkAttributes o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m ()
setMarkAttributesPixbuf obj val = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf" (Just val)
constructMarkAttributesPixbuf :: (IsMarkAttributes o, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> IO (GValueConstruct o)
constructMarkAttributesPixbuf val = B.Properties.constructObjectPropertyObject "pixbuf" (Just val)
#if ENABLE_OVERLOADING
data MarkAttributesPixbufPropertyInfo
instance AttrInfo MarkAttributesPixbufPropertyInfo where
type AttrAllowedOps MarkAttributesPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MarkAttributesPixbufPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrBaseTypeConstraint MarkAttributesPixbufPropertyInfo = IsMarkAttributes
type AttrGetType MarkAttributesPixbufPropertyInfo = GdkPixbuf.Pixbuf.Pixbuf
type AttrLabel MarkAttributesPixbufPropertyInfo = "pixbuf"
type AttrOrigin MarkAttributesPixbufPropertyInfo = MarkAttributes
attrGet _ = getMarkAttributesPixbuf
attrSet _ = setMarkAttributesPixbuf
attrConstruct _ = constructMarkAttributesPixbuf
attrClear _ = undefined
#endif
getMarkAttributesStockId :: (MonadIO m, IsMarkAttributes o) => o -> m T.Text
getMarkAttributesStockId obj = liftIO $ checkUnexpectedNothing "getMarkAttributesStockId" $ B.Properties.getObjectPropertyString obj "stock-id"
setMarkAttributesStockId :: (MonadIO m, IsMarkAttributes o) => o -> T.Text -> m ()
setMarkAttributesStockId obj val = liftIO $ B.Properties.setObjectPropertyString obj "stock-id" (Just val)
constructMarkAttributesStockId :: (IsMarkAttributes o) => T.Text -> IO (GValueConstruct o)
constructMarkAttributesStockId val = B.Properties.constructObjectPropertyString "stock-id" (Just val)
#if ENABLE_OVERLOADING
data MarkAttributesStockIdPropertyInfo
instance AttrInfo MarkAttributesStockIdPropertyInfo where
type AttrAllowedOps MarkAttributesStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MarkAttributesStockIdPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MarkAttributesStockIdPropertyInfo = IsMarkAttributes
type AttrGetType MarkAttributesStockIdPropertyInfo = T.Text
type AttrLabel MarkAttributesStockIdPropertyInfo = "stock-id"
type AttrOrigin MarkAttributesStockIdPropertyInfo = MarkAttributes
attrGet _ = getMarkAttributesStockId
attrSet _ = setMarkAttributesStockId
attrConstruct _ = constructMarkAttributesStockId
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList MarkAttributes
type instance O.AttributeList MarkAttributes = MarkAttributesAttributeList
type MarkAttributesAttributeList = ('[ '("background", MarkAttributesBackgroundPropertyInfo), '("gicon", MarkAttributesGiconPropertyInfo), '("iconName", MarkAttributesIconNamePropertyInfo), '("pixbuf", MarkAttributesPixbufPropertyInfo), '("stockId", MarkAttributesStockIdPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
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
#endif
#if ENABLE_OVERLOADING
data MarkAttributesQueryTooltipMarkupSignalInfo
instance SignalInfo MarkAttributesQueryTooltipMarkupSignalInfo where
type HaskellCallbackType MarkAttributesQueryTooltipMarkupSignalInfo = MarkAttributesQueryTooltipMarkupCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MarkAttributesQueryTooltipMarkupCallback cb
cb'' <- mk_MarkAttributesQueryTooltipMarkupCallback cb'
connectSignalFunPtr obj "query-tooltip-markup" cb'' connectMode
data MarkAttributesQueryTooltipTextSignalInfo
instance SignalInfo MarkAttributesQueryTooltipTextSignalInfo where
type HaskellCallbackType MarkAttributesQueryTooltipTextSignalInfo = MarkAttributesQueryTooltipTextCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MarkAttributesQueryTooltipTextCallback cb
cb'' <- mk_MarkAttributesQueryTooltipTextCallback cb'
connectSignalFunPtr obj "query-tooltip-text" cb'' connectMode
type instance O.SignalList MarkAttributes = MarkAttributesSignalList
type MarkAttributesSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltipMarkup", MarkAttributesQueryTooltipMarkupSignalInfo), '("queryTooltipText", MarkAttributesQueryTooltipTextSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_mark_attributes_new" gtk_source_mark_attributes_new ::
IO (Ptr MarkAttributes)
markAttributesNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m MarkAttributes
markAttributesNew = liftIO $ do
result <- gtk_source_mark_attributes_new
checkUnexpectedReturnNULL "markAttributesNew" result
result' <- (wrapObject MarkAttributes) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_source_mark_attributes_get_background" gtk_source_mark_attributes_get_background ::
Ptr MarkAttributes ->
Ptr Gdk.RGBA.RGBA ->
IO CInt
markAttributesGetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a) =>
a
-> m ((Bool, Gdk.RGBA.RGBA))
markAttributesGetBackground attributes = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
background <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA)
result <- gtk_source_mark_attributes_get_background attributes' background
let result' = (/= 0) result
background' <- (wrapBoxed Gdk.RGBA.RGBA) background
touchManagedPtr attributes
return (result', background')
#if ENABLE_OVERLOADING
data MarkAttributesGetBackgroundMethodInfo
instance (signature ~ (m ((Bool, Gdk.RGBA.RGBA))), MonadIO m, IsMarkAttributes a) => O.MethodInfo MarkAttributesGetBackgroundMethodInfo a signature where
overloadedMethod _ = markAttributesGetBackground
#endif
foreign import ccall "gtk_source_mark_attributes_get_gicon" gtk_source_mark_attributes_get_gicon ::
Ptr MarkAttributes ->
IO (Ptr Gio.Icon.Icon)
markAttributesGetGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a) =>
a
-> m Gio.Icon.Icon
markAttributesGetGicon attributes = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
result <- gtk_source_mark_attributes_get_gicon attributes'
checkUnexpectedReturnNULL "markAttributesGetGicon" result
result' <- (newObject Gio.Icon.Icon) result
touchManagedPtr attributes
return result'
#if ENABLE_OVERLOADING
data MarkAttributesGetGiconMethodInfo
instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsMarkAttributes a) => O.MethodInfo MarkAttributesGetGiconMethodInfo a signature where
overloadedMethod _ = markAttributesGetGicon
#endif
foreign import ccall "gtk_source_mark_attributes_get_icon_name" gtk_source_mark_attributes_get_icon_name ::
Ptr MarkAttributes ->
IO CString
markAttributesGetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a) =>
a
-> m T.Text
markAttributesGetIconName attributes = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
result <- gtk_source_mark_attributes_get_icon_name attributes'
checkUnexpectedReturnNULL "markAttributesGetIconName" result
result' <- cstringToText result
touchManagedPtr attributes
return result'
#if ENABLE_OVERLOADING
data MarkAttributesGetIconNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMarkAttributes a) => O.MethodInfo MarkAttributesGetIconNameMethodInfo a signature where
overloadedMethod _ = markAttributesGetIconName
#endif
foreign import ccall "gtk_source_mark_attributes_get_pixbuf" gtk_source_mark_attributes_get_pixbuf ::
Ptr MarkAttributes ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
markAttributesGetPixbuf ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a) =>
a
-> m GdkPixbuf.Pixbuf.Pixbuf
markAttributesGetPixbuf attributes = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
result <- gtk_source_mark_attributes_get_pixbuf attributes'
checkUnexpectedReturnNULL "markAttributesGetPixbuf" result
result' <- (newObject GdkPixbuf.Pixbuf.Pixbuf) result
touchManagedPtr attributes
return result'
#if ENABLE_OVERLOADING
data MarkAttributesGetPixbufMethodInfo
instance (signature ~ (m GdkPixbuf.Pixbuf.Pixbuf), MonadIO m, IsMarkAttributes a) => O.MethodInfo MarkAttributesGetPixbufMethodInfo a signature where
overloadedMethod _ = markAttributesGetPixbuf
#endif
foreign import ccall "gtk_source_mark_attributes_get_stock_id" gtk_source_mark_attributes_get_stock_id ::
Ptr MarkAttributes ->
IO CString
{-# DEPRECATED markAttributesGetStockId ["(Since version 3.10)","Don\\'t use this function."] #-}
markAttributesGetStockId ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a) =>
a
-> m T.Text
markAttributesGetStockId attributes = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
result <- gtk_source_mark_attributes_get_stock_id attributes'
checkUnexpectedReturnNULL "markAttributesGetStockId" result
result' <- cstringToText result
touchManagedPtr attributes
return result'
#if ENABLE_OVERLOADING
data MarkAttributesGetStockIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMarkAttributes a) => O.MethodInfo MarkAttributesGetStockIdMethodInfo a signature where
overloadedMethod _ = markAttributesGetStockId
#endif
foreign import ccall "gtk_source_mark_attributes_get_tooltip_markup" gtk_source_mark_attributes_get_tooltip_markup ::
Ptr MarkAttributes ->
Ptr GtkSource.Mark.Mark ->
IO CString
markAttributesGetTooltipMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a, GtkSource.Mark.IsMark b) =>
a
-> b
-> m T.Text
markAttributesGetTooltipMarkup attributes mark = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
mark' <- unsafeManagedPtrCastPtr mark
result <- gtk_source_mark_attributes_get_tooltip_markup attributes' mark'
checkUnexpectedReturnNULL "markAttributesGetTooltipMarkup" result
result' <- cstringToText result
freeMem result
touchManagedPtr attributes
touchManagedPtr mark
return result'
#if ENABLE_OVERLOADING
data MarkAttributesGetTooltipMarkupMethodInfo
instance (signature ~ (b -> m T.Text), MonadIO m, IsMarkAttributes a, GtkSource.Mark.IsMark b) => O.MethodInfo MarkAttributesGetTooltipMarkupMethodInfo a signature where
overloadedMethod _ = markAttributesGetTooltipMarkup
#endif
foreign import ccall "gtk_source_mark_attributes_get_tooltip_text" gtk_source_mark_attributes_get_tooltip_text ::
Ptr MarkAttributes ->
Ptr GtkSource.Mark.Mark ->
IO CString
markAttributesGetTooltipText ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a, GtkSource.Mark.IsMark b) =>
a
-> b
-> m T.Text
markAttributesGetTooltipText attributes mark = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
mark' <- unsafeManagedPtrCastPtr mark
result <- gtk_source_mark_attributes_get_tooltip_text attributes' mark'
checkUnexpectedReturnNULL "markAttributesGetTooltipText" result
result' <- cstringToText result
freeMem result
touchManagedPtr attributes
touchManagedPtr mark
return result'
#if ENABLE_OVERLOADING
data MarkAttributesGetTooltipTextMethodInfo
instance (signature ~ (b -> m T.Text), MonadIO m, IsMarkAttributes a, GtkSource.Mark.IsMark b) => O.MethodInfo MarkAttributesGetTooltipTextMethodInfo a signature where
overloadedMethod _ = markAttributesGetTooltipText
#endif
foreign import ccall "gtk_source_mark_attributes_render_icon" gtk_source_mark_attributes_render_icon ::
Ptr MarkAttributes ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
markAttributesRenderIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m GdkPixbuf.Pixbuf.Pixbuf
markAttributesRenderIcon attributes widget size = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
widget' <- unsafeManagedPtrCastPtr widget
result <- gtk_source_mark_attributes_render_icon attributes' widget' size
checkUnexpectedReturnNULL "markAttributesRenderIcon" result
result' <- (newObject GdkPixbuf.Pixbuf.Pixbuf) result
touchManagedPtr attributes
touchManagedPtr widget
return result'
#if ENABLE_OVERLOADING
data MarkAttributesRenderIconMethodInfo
instance (signature ~ (b -> Int32 -> m GdkPixbuf.Pixbuf.Pixbuf), MonadIO m, IsMarkAttributes a, Gtk.Widget.IsWidget b) => O.MethodInfo MarkAttributesRenderIconMethodInfo a signature where
overloadedMethod _ = markAttributesRenderIcon
#endif
foreign import ccall "gtk_source_mark_attributes_set_background" gtk_source_mark_attributes_set_background ::
Ptr MarkAttributes ->
Ptr Gdk.RGBA.RGBA ->
IO ()
markAttributesSetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a) =>
a
-> Gdk.RGBA.RGBA
-> m ()
markAttributesSetBackground attributes background = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
background' <- unsafeManagedPtrGetPtr background
gtk_source_mark_attributes_set_background attributes' background'
touchManagedPtr attributes
touchManagedPtr background
return ()
#if ENABLE_OVERLOADING
data MarkAttributesSetBackgroundMethodInfo
instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsMarkAttributes a) => O.MethodInfo MarkAttributesSetBackgroundMethodInfo a signature where
overloadedMethod _ = markAttributesSetBackground
#endif
foreign import ccall "gtk_source_mark_attributes_set_gicon" gtk_source_mark_attributes_set_gicon ::
Ptr MarkAttributes ->
Ptr Gio.Icon.Icon ->
IO ()
markAttributesSetGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a, Gio.Icon.IsIcon b) =>
a
-> b
-> m ()
markAttributesSetGicon attributes gicon = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
gicon' <- unsafeManagedPtrCastPtr gicon
gtk_source_mark_attributes_set_gicon attributes' gicon'
touchManagedPtr attributes
touchManagedPtr gicon
return ()
#if ENABLE_OVERLOADING
data MarkAttributesSetGiconMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsMarkAttributes a, Gio.Icon.IsIcon b) => O.MethodInfo MarkAttributesSetGiconMethodInfo a signature where
overloadedMethod _ = markAttributesSetGicon
#endif
foreign import ccall "gtk_source_mark_attributes_set_icon_name" gtk_source_mark_attributes_set_icon_name ::
Ptr MarkAttributes ->
CString ->
IO ()
markAttributesSetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a) =>
a
-> T.Text
-> m ()
markAttributesSetIconName attributes iconName = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
iconName' <- textToCString iconName
gtk_source_mark_attributes_set_icon_name attributes' iconName'
touchManagedPtr attributes
freeMem iconName'
return ()
#if ENABLE_OVERLOADING
data MarkAttributesSetIconNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMarkAttributes a) => O.MethodInfo MarkAttributesSetIconNameMethodInfo a signature where
overloadedMethod _ = markAttributesSetIconName
#endif
foreign import ccall "gtk_source_mark_attributes_set_pixbuf" gtk_source_mark_attributes_set_pixbuf ::
Ptr MarkAttributes ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO ()
markAttributesSetPixbuf ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a, GdkPixbuf.Pixbuf.IsPixbuf b) =>
a
-> b
-> m ()
markAttributesSetPixbuf attributes pixbuf = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
pixbuf' <- unsafeManagedPtrCastPtr pixbuf
gtk_source_mark_attributes_set_pixbuf attributes' pixbuf'
touchManagedPtr attributes
touchManagedPtr pixbuf
return ()
#if ENABLE_OVERLOADING
data MarkAttributesSetPixbufMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsMarkAttributes a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.MethodInfo MarkAttributesSetPixbufMethodInfo a signature where
overloadedMethod _ = markAttributesSetPixbuf
#endif
foreign import ccall "gtk_source_mark_attributes_set_stock_id" gtk_source_mark_attributes_set_stock_id ::
Ptr MarkAttributes ->
CString ->
IO ()
{-# DEPRECATED markAttributesSetStockId ["(Since version 3.10)","Don\\'t use this function."] #-}
markAttributesSetStockId ::
(B.CallStack.HasCallStack, MonadIO m, IsMarkAttributes a) =>
a
-> T.Text
-> m ()
markAttributesSetStockId attributes stockId = liftIO $ do
attributes' <- unsafeManagedPtrCastPtr attributes
stockId' <- textToCString stockId
gtk_source_mark_attributes_set_stock_id attributes' stockId'
touchManagedPtr attributes
freeMem stockId'
return ()
#if ENABLE_OVERLOADING
data MarkAttributesSetStockIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMarkAttributes a) => O.MethodInfo MarkAttributesSetStockIdMethodInfo a signature where
overloadedMethod _ = markAttributesSetStockId
#endif