module GI.Gtk.Objects.TextTagTable
(
TextTagTable(..) ,
IsTextTagTable ,
toTextTagTable ,
noTextTagTable ,
TextTagTableAddMethodInfo ,
textTagTableAdd ,
TextTagTableForeachMethodInfo ,
textTagTableForeach ,
TextTagTableGetSizeMethodInfo ,
textTagTableGetSize ,
TextTagTableLookupMethodInfo ,
textTagTableLookup ,
textTagTableNew ,
TextTagTableRemoveMethodInfo ,
textTagTableRemove ,
C_TextTagTableTagAddedCallback ,
TextTagTableTagAddedCallback ,
TextTagTableTagAddedSignalInfo ,
afterTextTagTableTagAdded ,
genClosure_TextTagTableTagAdded ,
mk_TextTagTableTagAddedCallback ,
noTextTagTableTagAddedCallback ,
onTextTagTableTagAdded ,
wrap_TextTagTableTagAddedCallback ,
C_TextTagTableTagChangedCallback ,
TextTagTableTagChangedCallback ,
TextTagTableTagChangedSignalInfo ,
afterTextTagTableTagChanged ,
genClosure_TextTagTableTagChanged ,
mk_TextTagTableTagChangedCallback ,
noTextTagTableTagChangedCallback ,
onTextTagTableTagChanged ,
wrap_TextTagTableTagChangedCallback ,
C_TextTagTableTagRemovedCallback ,
TextTagTableTagRemovedCallback ,
TextTagTableTagRemovedSignalInfo ,
afterTextTagTableTagRemoved ,
genClosure_TextTagTableTagRemoved ,
mk_TextTagTableTagRemovedCallback ,
noTextTagTableTagRemovedCallback ,
onTextTagTableTagRemoved ,
wrap_TextTagTableTagRemovedCallback ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
newtype TextTagTable = TextTagTable (ManagedPtr TextTagTable)
foreign import ccall "gtk_text_tag_table_get_type"
c_gtk_text_tag_table_get_type :: IO GType
instance GObject TextTagTable where
gobjectType _ = c_gtk_text_tag_table_get_type
class GObject o => IsTextTagTable o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError TextTagTable a) =>
IsTextTagTable a
#endif
instance IsTextTagTable TextTagTable
instance GObject.Object.IsObject TextTagTable
instance Gtk.Buildable.IsBuildable TextTagTable
toTextTagTable :: IsTextTagTable o => o -> IO TextTagTable
toTextTagTable = unsafeCastTo TextTagTable
noTextTagTable :: Maybe TextTagTable
noTextTagTable = Nothing
type family ResolveTextTagTableMethod (t :: Symbol) (o :: *) :: * where
ResolveTextTagTableMethod "add" o = TextTagTableAddMethodInfo
ResolveTextTagTableMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveTextTagTableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTextTagTableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTextTagTableMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveTextTagTableMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveTextTagTableMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveTextTagTableMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveTextTagTableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTextTagTableMethod "foreach" o = TextTagTableForeachMethodInfo
ResolveTextTagTableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTextTagTableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTextTagTableMethod "lookup" o = TextTagTableLookupMethodInfo
ResolveTextTagTableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTextTagTableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTextTagTableMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveTextTagTableMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTextTagTableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTextTagTableMethod "remove" o = TextTagTableRemoveMethodInfo
ResolveTextTagTableMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveTextTagTableMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveTextTagTableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTextTagTableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTextTagTableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTextTagTableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTextTagTableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTextTagTableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTextTagTableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTextTagTableMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveTextTagTableMethod "getName" o = Gtk.Buildable.BuildableGetNameMethodInfo
ResolveTextTagTableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTextTagTableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTextTagTableMethod "getSize" o = TextTagTableGetSizeMethodInfo
ResolveTextTagTableMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveTextTagTableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTextTagTableMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
ResolveTextTagTableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTextTagTableMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTextTagTableMethod t TextTagTable, O.MethodInfo info TextTagTable p) => O.IsLabelProxy t (TextTagTable -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTextTagTableMethod t TextTagTable, O.MethodInfo info TextTagTable p) => O.IsLabel t (TextTagTable -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type TextTagTableTagAddedCallback =
Gtk.TextTag.TextTag ->
IO ()
noTextTagTableTagAddedCallback :: Maybe TextTagTableTagAddedCallback
noTextTagTableTagAddedCallback = Nothing
type C_TextTagTableTagAddedCallback =
Ptr () ->
Ptr Gtk.TextTag.TextTag ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextTagTableTagAddedCallback :: C_TextTagTableTagAddedCallback -> IO (FunPtr C_TextTagTableTagAddedCallback)
genClosure_TextTagTableTagAdded :: TextTagTableTagAddedCallback -> IO Closure
genClosure_TextTagTableTagAdded cb = do
let cb' = wrap_TextTagTableTagAddedCallback cb
mk_TextTagTableTagAddedCallback cb' >>= newCClosure
wrap_TextTagTableTagAddedCallback ::
TextTagTableTagAddedCallback ->
Ptr () ->
Ptr Gtk.TextTag.TextTag ->
Ptr () ->
IO ()
wrap_TextTagTableTagAddedCallback _cb _ tag _ = do
tag' <- (newObject Gtk.TextTag.TextTag) tag
_cb tag'
onTextTagTableTagAdded :: (GObject a, MonadIO m) => a -> TextTagTableTagAddedCallback -> m SignalHandlerId
onTextTagTableTagAdded obj cb = liftIO $ connectTextTagTableTagAdded obj cb SignalConnectBefore
afterTextTagTableTagAdded :: (GObject a, MonadIO m) => a -> TextTagTableTagAddedCallback -> m SignalHandlerId
afterTextTagTableTagAdded obj cb = connectTextTagTableTagAdded obj cb SignalConnectAfter
connectTextTagTableTagAdded :: (GObject a, MonadIO m) =>
a -> TextTagTableTagAddedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextTagTableTagAdded obj cb after = liftIO $ do
let cb' = wrap_TextTagTableTagAddedCallback cb
cb'' <- mk_TextTagTableTagAddedCallback cb'
connectSignalFunPtr obj "tag-added" cb'' after
type TextTagTableTagChangedCallback =
Gtk.TextTag.TextTag ->
Bool ->
IO ()
noTextTagTableTagChangedCallback :: Maybe TextTagTableTagChangedCallback
noTextTagTableTagChangedCallback = Nothing
type C_TextTagTableTagChangedCallback =
Ptr () ->
Ptr Gtk.TextTag.TextTag ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextTagTableTagChangedCallback :: C_TextTagTableTagChangedCallback -> IO (FunPtr C_TextTagTableTagChangedCallback)
genClosure_TextTagTableTagChanged :: TextTagTableTagChangedCallback -> IO Closure
genClosure_TextTagTableTagChanged cb = do
let cb' = wrap_TextTagTableTagChangedCallback cb
mk_TextTagTableTagChangedCallback cb' >>= newCClosure
wrap_TextTagTableTagChangedCallback ::
TextTagTableTagChangedCallback ->
Ptr () ->
Ptr Gtk.TextTag.TextTag ->
CInt ->
Ptr () ->
IO ()
wrap_TextTagTableTagChangedCallback _cb _ tag sizeChanged _ = do
tag' <- (newObject Gtk.TextTag.TextTag) tag
let sizeChanged' = (/= 0) sizeChanged
_cb tag' sizeChanged'
onTextTagTableTagChanged :: (GObject a, MonadIO m) => a -> TextTagTableTagChangedCallback -> m SignalHandlerId
onTextTagTableTagChanged obj cb = liftIO $ connectTextTagTableTagChanged obj cb SignalConnectBefore
afterTextTagTableTagChanged :: (GObject a, MonadIO m) => a -> TextTagTableTagChangedCallback -> m SignalHandlerId
afterTextTagTableTagChanged obj cb = connectTextTagTableTagChanged obj cb SignalConnectAfter
connectTextTagTableTagChanged :: (GObject a, MonadIO m) =>
a -> TextTagTableTagChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextTagTableTagChanged obj cb after = liftIO $ do
let cb' = wrap_TextTagTableTagChangedCallback cb
cb'' <- mk_TextTagTableTagChangedCallback cb'
connectSignalFunPtr obj "tag-changed" cb'' after
type TextTagTableTagRemovedCallback =
Gtk.TextTag.TextTag ->
IO ()
noTextTagTableTagRemovedCallback :: Maybe TextTagTableTagRemovedCallback
noTextTagTableTagRemovedCallback = Nothing
type C_TextTagTableTagRemovedCallback =
Ptr () ->
Ptr Gtk.TextTag.TextTag ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextTagTableTagRemovedCallback :: C_TextTagTableTagRemovedCallback -> IO (FunPtr C_TextTagTableTagRemovedCallback)
genClosure_TextTagTableTagRemoved :: TextTagTableTagRemovedCallback -> IO Closure
genClosure_TextTagTableTagRemoved cb = do
let cb' = wrap_TextTagTableTagRemovedCallback cb
mk_TextTagTableTagRemovedCallback cb' >>= newCClosure
wrap_TextTagTableTagRemovedCallback ::
TextTagTableTagRemovedCallback ->
Ptr () ->
Ptr Gtk.TextTag.TextTag ->
Ptr () ->
IO ()
wrap_TextTagTableTagRemovedCallback _cb _ tag _ = do
tag' <- (newObject Gtk.TextTag.TextTag) tag
_cb tag'
onTextTagTableTagRemoved :: (GObject a, MonadIO m) => a -> TextTagTableTagRemovedCallback -> m SignalHandlerId
onTextTagTableTagRemoved obj cb = liftIO $ connectTextTagTableTagRemoved obj cb SignalConnectBefore
afterTextTagTableTagRemoved :: (GObject a, MonadIO m) => a -> TextTagTableTagRemovedCallback -> m SignalHandlerId
afterTextTagTableTagRemoved obj cb = connectTextTagTableTagRemoved obj cb SignalConnectAfter
connectTextTagTableTagRemoved :: (GObject a, MonadIO m) =>
a -> TextTagTableTagRemovedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextTagTableTagRemoved obj cb after = liftIO $ do
let cb' = wrap_TextTagTableTagRemovedCallback cb
cb'' <- mk_TextTagTableTagRemovedCallback cb'
connectSignalFunPtr obj "tag-removed" cb'' after
instance O.HasAttributeList TextTagTable
type instance O.AttributeList TextTagTable = TextTagTableAttributeList
type TextTagTableAttributeList = ('[ ] :: [(Symbol, *)])
data TextTagTableTagAddedSignalInfo
instance SignalInfo TextTagTableTagAddedSignalInfo where
type HaskellCallbackType TextTagTableTagAddedSignalInfo = TextTagTableTagAddedCallback
connectSignal _ = connectTextTagTableTagAdded
data TextTagTableTagChangedSignalInfo
instance SignalInfo TextTagTableTagChangedSignalInfo where
type HaskellCallbackType TextTagTableTagChangedSignalInfo = TextTagTableTagChangedCallback
connectSignal _ = connectTextTagTableTagChanged
data TextTagTableTagRemovedSignalInfo
instance SignalInfo TextTagTableTagRemovedSignalInfo where
type HaskellCallbackType TextTagTableTagRemovedSignalInfo = TextTagTableTagRemovedCallback
connectSignal _ = connectTextTagTableTagRemoved
type instance O.SignalList TextTagTable = TextTagTableSignalList
type TextTagTableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("tagAdded", TextTagTableTagAddedSignalInfo), '("tagChanged", TextTagTableTagChangedSignalInfo), '("tagRemoved", TextTagTableTagRemovedSignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_text_tag_table_new" gtk_text_tag_table_new ::
IO (Ptr TextTagTable)
textTagTableNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TextTagTable
textTagTableNew = liftIO $ do
result <- gtk_text_tag_table_new
checkUnexpectedReturnNULL "textTagTableNew" result
result' <- (wrapObject TextTagTable) result
return result'
foreign import ccall "gtk_text_tag_table_add" gtk_text_tag_table_add ::
Ptr TextTagTable ->
Ptr Gtk.TextTag.TextTag ->
IO CInt
textTagTableAdd ::
(B.CallStack.HasCallStack, MonadIO m, IsTextTagTable a, Gtk.TextTag.IsTextTag b) =>
a
-> b
-> m Bool
textTagTableAdd table tag = liftIO $ do
table' <- unsafeManagedPtrCastPtr table
tag' <- unsafeManagedPtrCastPtr tag
result <- gtk_text_tag_table_add table' tag'
let result' = (/= 0) result
touchManagedPtr table
touchManagedPtr tag
return result'
data TextTagTableAddMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsTextTagTable a, Gtk.TextTag.IsTextTag b) => O.MethodInfo TextTagTableAddMethodInfo a signature where
overloadedMethod _ = textTagTableAdd
foreign import ccall "gtk_text_tag_table_foreach" gtk_text_tag_table_foreach ::
Ptr TextTagTable ->
FunPtr Gtk.Callbacks.C_TextTagTableForeach ->
Ptr () ->
IO ()
textTagTableForeach ::
(B.CallStack.HasCallStack, MonadIO m, IsTextTagTable a) =>
a
-> Gtk.Callbacks.TextTagTableForeach
-> m ()
textTagTableForeach table func = liftIO $ do
table' <- unsafeManagedPtrCastPtr table
func' <- Gtk.Callbacks.mk_TextTagTableForeach (Gtk.Callbacks.wrap_TextTagTableForeach Nothing (Gtk.Callbacks.drop_closures_TextTagTableForeach func))
let data_ = nullPtr
gtk_text_tag_table_foreach table' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr table
return ()
data TextTagTableForeachMethodInfo
instance (signature ~ (Gtk.Callbacks.TextTagTableForeach -> m ()), MonadIO m, IsTextTagTable a) => O.MethodInfo TextTagTableForeachMethodInfo a signature where
overloadedMethod _ = textTagTableForeach
foreign import ccall "gtk_text_tag_table_get_size" gtk_text_tag_table_get_size ::
Ptr TextTagTable ->
IO Int32
textTagTableGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTextTagTable a) =>
a
-> m Int32
textTagTableGetSize table = liftIO $ do
table' <- unsafeManagedPtrCastPtr table
result <- gtk_text_tag_table_get_size table'
touchManagedPtr table
return result
data TextTagTableGetSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTextTagTable a) => O.MethodInfo TextTagTableGetSizeMethodInfo a signature where
overloadedMethod _ = textTagTableGetSize
foreign import ccall "gtk_text_tag_table_lookup" gtk_text_tag_table_lookup ::
Ptr TextTagTable ->
CString ->
IO (Ptr Gtk.TextTag.TextTag)
textTagTableLookup ::
(B.CallStack.HasCallStack, MonadIO m, IsTextTagTable a) =>
a
-> T.Text
-> m (Maybe Gtk.TextTag.TextTag)
textTagTableLookup table name = liftIO $ do
table' <- unsafeManagedPtrCastPtr table
name' <- textToCString name
result <- gtk_text_tag_table_lookup table' name'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.TextTag.TextTag) result'
return result''
touchManagedPtr table
freeMem name'
return maybeResult
data TextTagTableLookupMethodInfo
instance (signature ~ (T.Text -> m (Maybe Gtk.TextTag.TextTag)), MonadIO m, IsTextTagTable a) => O.MethodInfo TextTagTableLookupMethodInfo a signature where
overloadedMethod _ = textTagTableLookup
foreign import ccall "gtk_text_tag_table_remove" gtk_text_tag_table_remove ::
Ptr TextTagTable ->
Ptr Gtk.TextTag.TextTag ->
IO ()
textTagTableRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsTextTagTable a, Gtk.TextTag.IsTextTag b) =>
a
-> b
-> m ()
textTagTableRemove table tag = liftIO $ do
table' <- unsafeManagedPtrCastPtr table
tag' <- unsafeManagedPtrCastPtr tag
gtk_text_tag_table_remove table' tag'
touchManagedPtr table
touchManagedPtr tag
return ()
data TextTagTableRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTextTagTable a, Gtk.TextTag.IsTextTag b) => O.MethodInfo TextTagTableRemoveMethodInfo a signature where
overloadedMethod _ = textTagTableRemove