gi-gtk-0.3.18.13: GI/Gtk/Objects/TextBuffer.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.TextBuffer
(
-- * Exported types
TextBuffer(..) ,
TextBufferK ,
toTextBuffer ,
noTextBuffer ,
-- * Methods
-- ** textBufferAddMark
TextBufferAddMarkMethodInfo ,
textBufferAddMark ,
-- ** textBufferAddSelectionClipboard
TextBufferAddSelectionClipboardMethodInfo,
textBufferAddSelectionClipboard ,
-- ** textBufferApplyTag
TextBufferApplyTagMethodInfo ,
textBufferApplyTag ,
-- ** textBufferApplyTagByName
TextBufferApplyTagByNameMethodInfo ,
textBufferApplyTagByName ,
-- ** textBufferBackspace
TextBufferBackspaceMethodInfo ,
textBufferBackspace ,
-- ** textBufferBeginUserAction
TextBufferBeginUserActionMethodInfo ,
textBufferBeginUserAction ,
-- ** textBufferCopyClipboard
TextBufferCopyClipboardMethodInfo ,
textBufferCopyClipboard ,
-- ** textBufferCreateChildAnchor
TextBufferCreateChildAnchorMethodInfo ,
textBufferCreateChildAnchor ,
-- ** textBufferCreateMark
TextBufferCreateMarkMethodInfo ,
textBufferCreateMark ,
-- ** textBufferCutClipboard
TextBufferCutClipboardMethodInfo ,
textBufferCutClipboard ,
-- ** textBufferDelete
TextBufferDeleteMethodInfo ,
textBufferDelete ,
-- ** textBufferDeleteInteractive
TextBufferDeleteInteractiveMethodInfo ,
textBufferDeleteInteractive ,
-- ** textBufferDeleteMark
TextBufferDeleteMarkMethodInfo ,
textBufferDeleteMark ,
-- ** textBufferDeleteMarkByName
TextBufferDeleteMarkByNameMethodInfo ,
textBufferDeleteMarkByName ,
-- ** textBufferDeleteSelection
TextBufferDeleteSelectionMethodInfo ,
textBufferDeleteSelection ,
-- ** textBufferDeserialize
TextBufferDeserializeMethodInfo ,
textBufferDeserialize ,
-- ** textBufferDeserializeGetCanCreateTags
TextBufferDeserializeGetCanCreateTagsMethodInfo,
textBufferDeserializeGetCanCreateTags ,
-- ** textBufferDeserializeSetCanCreateTags
TextBufferDeserializeSetCanCreateTagsMethodInfo,
textBufferDeserializeSetCanCreateTags ,
-- ** textBufferEndUserAction
TextBufferEndUserActionMethodInfo ,
textBufferEndUserAction ,
-- ** textBufferGetBounds
TextBufferGetBoundsMethodInfo ,
textBufferGetBounds ,
-- ** textBufferGetCharCount
TextBufferGetCharCountMethodInfo ,
textBufferGetCharCount ,
-- ** textBufferGetCopyTargetList
TextBufferGetCopyTargetListMethodInfo ,
textBufferGetCopyTargetList ,
-- ** textBufferGetDeserializeFormats
TextBufferGetDeserializeFormatsMethodInfo,
textBufferGetDeserializeFormats ,
-- ** textBufferGetEndIter
TextBufferGetEndIterMethodInfo ,
textBufferGetEndIter ,
-- ** textBufferGetHasSelection
TextBufferGetHasSelectionMethodInfo ,
textBufferGetHasSelection ,
-- ** textBufferGetInsert
TextBufferGetInsertMethodInfo ,
textBufferGetInsert ,
-- ** textBufferGetIterAtChildAnchor
TextBufferGetIterAtChildAnchorMethodInfo,
textBufferGetIterAtChildAnchor ,
-- ** textBufferGetIterAtLine
TextBufferGetIterAtLineMethodInfo ,
textBufferGetIterAtLine ,
-- ** textBufferGetIterAtLineIndex
TextBufferGetIterAtLineIndexMethodInfo ,
textBufferGetIterAtLineIndex ,
-- ** textBufferGetIterAtLineOffset
TextBufferGetIterAtLineOffsetMethodInfo ,
textBufferGetIterAtLineOffset ,
-- ** textBufferGetIterAtMark
TextBufferGetIterAtMarkMethodInfo ,
textBufferGetIterAtMark ,
-- ** textBufferGetIterAtOffset
TextBufferGetIterAtOffsetMethodInfo ,
textBufferGetIterAtOffset ,
-- ** textBufferGetLineCount
TextBufferGetLineCountMethodInfo ,
textBufferGetLineCount ,
-- ** textBufferGetMark
TextBufferGetMarkMethodInfo ,
textBufferGetMark ,
-- ** textBufferGetModified
TextBufferGetModifiedMethodInfo ,
textBufferGetModified ,
-- ** textBufferGetPasteTargetList
TextBufferGetPasteTargetListMethodInfo ,
textBufferGetPasteTargetList ,
-- ** textBufferGetSelectionBound
TextBufferGetSelectionBoundMethodInfo ,
textBufferGetSelectionBound ,
-- ** textBufferGetSelectionBounds
TextBufferGetSelectionBoundsMethodInfo ,
textBufferGetSelectionBounds ,
-- ** textBufferGetSerializeFormats
TextBufferGetSerializeFormatsMethodInfo ,
textBufferGetSerializeFormats ,
-- ** textBufferGetSlice
TextBufferGetSliceMethodInfo ,
textBufferGetSlice ,
-- ** textBufferGetStartIter
TextBufferGetStartIterMethodInfo ,
textBufferGetStartIter ,
-- ** textBufferGetTagTable
TextBufferGetTagTableMethodInfo ,
textBufferGetTagTable ,
-- ** textBufferGetText
TextBufferGetTextMethodInfo ,
textBufferGetText ,
-- ** textBufferInsert
TextBufferInsertMethodInfo ,
textBufferInsert ,
-- ** textBufferInsertAtCursor
TextBufferInsertAtCursorMethodInfo ,
textBufferInsertAtCursor ,
-- ** textBufferInsertChildAnchor
TextBufferInsertChildAnchorMethodInfo ,
textBufferInsertChildAnchor ,
-- ** textBufferInsertInteractive
TextBufferInsertInteractiveMethodInfo ,
textBufferInsertInteractive ,
-- ** textBufferInsertInteractiveAtCursor
TextBufferInsertInteractiveAtCursorMethodInfo,
textBufferInsertInteractiveAtCursor ,
-- ** textBufferInsertMarkup
TextBufferInsertMarkupMethodInfo ,
textBufferInsertMarkup ,
-- ** textBufferInsertPixbuf
TextBufferInsertPixbufMethodInfo ,
textBufferInsertPixbuf ,
-- ** textBufferInsertRange
TextBufferInsertRangeMethodInfo ,
textBufferInsertRange ,
-- ** textBufferInsertRangeInteractive
TextBufferInsertRangeInteractiveMethodInfo,
textBufferInsertRangeInteractive ,
-- ** textBufferMoveMark
TextBufferMoveMarkMethodInfo ,
textBufferMoveMark ,
-- ** textBufferMoveMarkByName
TextBufferMoveMarkByNameMethodInfo ,
textBufferMoveMarkByName ,
-- ** textBufferNew
textBufferNew ,
-- ** textBufferPasteClipboard
TextBufferPasteClipboardMethodInfo ,
textBufferPasteClipboard ,
-- ** textBufferPlaceCursor
TextBufferPlaceCursorMethodInfo ,
textBufferPlaceCursor ,
-- ** textBufferRegisterDeserializeFormat
TextBufferRegisterDeserializeFormatMethodInfo,
textBufferRegisterDeserializeFormat ,
-- ** textBufferRegisterDeserializeTagset
TextBufferRegisterDeserializeTagsetMethodInfo,
textBufferRegisterDeserializeTagset ,
-- ** textBufferRegisterSerializeFormat
TextBufferRegisterSerializeFormatMethodInfo,
textBufferRegisterSerializeFormat ,
-- ** textBufferRegisterSerializeTagset
TextBufferRegisterSerializeTagsetMethodInfo,
textBufferRegisterSerializeTagset ,
-- ** textBufferRemoveAllTags
TextBufferRemoveAllTagsMethodInfo ,
textBufferRemoveAllTags ,
-- ** textBufferRemoveSelectionClipboard
TextBufferRemoveSelectionClipboardMethodInfo,
textBufferRemoveSelectionClipboard ,
-- ** textBufferRemoveTag
TextBufferRemoveTagMethodInfo ,
textBufferRemoveTag ,
-- ** textBufferRemoveTagByName
TextBufferRemoveTagByNameMethodInfo ,
textBufferRemoveTagByName ,
-- ** textBufferSelectRange
TextBufferSelectRangeMethodInfo ,
textBufferSelectRange ,
-- ** textBufferSerialize
TextBufferSerializeMethodInfo ,
textBufferSerialize ,
-- ** textBufferSetModified
TextBufferSetModifiedMethodInfo ,
textBufferSetModified ,
-- ** textBufferSetText
TextBufferSetTextMethodInfo ,
textBufferSetText ,
-- ** textBufferUnregisterDeserializeFormat
TextBufferUnregisterDeserializeFormatMethodInfo,
textBufferUnregisterDeserializeFormat ,
-- ** textBufferUnregisterSerializeFormat
TextBufferUnregisterSerializeFormatMethodInfo,
textBufferUnregisterSerializeFormat ,
-- * Properties
-- ** CopyTargetList
TextBufferCopyTargetListPropertyInfo ,
getTextBufferCopyTargetList ,
-- ** CursorPosition
TextBufferCursorPositionPropertyInfo ,
getTextBufferCursorPosition ,
-- ** HasSelection
TextBufferHasSelectionPropertyInfo ,
getTextBufferHasSelection ,
-- ** PasteTargetList
TextBufferPasteTargetListPropertyInfo ,
getTextBufferPasteTargetList ,
-- ** TagTable
TextBufferTagTablePropertyInfo ,
constructTextBufferTagTable ,
getTextBufferTagTable ,
-- ** Text
TextBufferTextPropertyInfo ,
constructTextBufferText ,
getTextBufferText ,
setTextBufferText ,
-- * Signals
-- ** ApplyTag
TextBufferApplyTagCallback ,
TextBufferApplyTagCallbackC ,
TextBufferApplyTagSignalInfo ,
afterTextBufferApplyTag ,
mkTextBufferApplyTagCallback ,
noTextBufferApplyTagCallback ,
onTextBufferApplyTag ,
textBufferApplyTagCallbackWrapper ,
textBufferApplyTagClosure ,
-- ** BeginUserAction
TextBufferBeginUserActionCallback ,
TextBufferBeginUserActionCallbackC ,
TextBufferBeginUserActionSignalInfo ,
afterTextBufferBeginUserAction ,
mkTextBufferBeginUserActionCallback ,
noTextBufferBeginUserActionCallback ,
onTextBufferBeginUserAction ,
textBufferBeginUserActionCallbackWrapper,
textBufferBeginUserActionClosure ,
-- ** Changed
TextBufferChangedCallback ,
TextBufferChangedCallbackC ,
TextBufferChangedSignalInfo ,
afterTextBufferChanged ,
mkTextBufferChangedCallback ,
noTextBufferChangedCallback ,
onTextBufferChanged ,
textBufferChangedCallbackWrapper ,
textBufferChangedClosure ,
-- ** DeleteRange
TextBufferDeleteRangeCallback ,
TextBufferDeleteRangeCallbackC ,
TextBufferDeleteRangeSignalInfo ,
afterTextBufferDeleteRange ,
mkTextBufferDeleteRangeCallback ,
noTextBufferDeleteRangeCallback ,
onTextBufferDeleteRange ,
textBufferDeleteRangeCallbackWrapper ,
textBufferDeleteRangeClosure ,
-- ** EndUserAction
TextBufferEndUserActionCallback ,
TextBufferEndUserActionCallbackC ,
TextBufferEndUserActionSignalInfo ,
afterTextBufferEndUserAction ,
mkTextBufferEndUserActionCallback ,
noTextBufferEndUserActionCallback ,
onTextBufferEndUserAction ,
textBufferEndUserActionCallbackWrapper ,
textBufferEndUserActionClosure ,
-- ** InsertChildAnchor
TextBufferInsertChildAnchorCallback ,
TextBufferInsertChildAnchorCallbackC ,
TextBufferInsertChildAnchorSignalInfo ,
afterTextBufferInsertChildAnchor ,
mkTextBufferInsertChildAnchorCallback ,
noTextBufferInsertChildAnchorCallback ,
onTextBufferInsertChildAnchor ,
textBufferInsertChildAnchorCallbackWrapper,
textBufferInsertChildAnchorClosure ,
-- ** InsertPixbuf
TextBufferInsertPixbufCallback ,
TextBufferInsertPixbufCallbackC ,
TextBufferInsertPixbufSignalInfo ,
afterTextBufferInsertPixbuf ,
mkTextBufferInsertPixbufCallback ,
noTextBufferInsertPixbufCallback ,
onTextBufferInsertPixbuf ,
textBufferInsertPixbufCallbackWrapper ,
textBufferInsertPixbufClosure ,
-- ** InsertText
TextBufferInsertTextCallback ,
TextBufferInsertTextCallbackC ,
TextBufferInsertTextSignalInfo ,
afterTextBufferInsertText ,
mkTextBufferInsertTextCallback ,
noTextBufferInsertTextCallback ,
onTextBufferInsertText ,
textBufferInsertTextCallbackWrapper ,
textBufferInsertTextClosure ,
-- ** MarkDeleted
TextBufferMarkDeletedCallback ,
TextBufferMarkDeletedCallbackC ,
TextBufferMarkDeletedSignalInfo ,
afterTextBufferMarkDeleted ,
mkTextBufferMarkDeletedCallback ,
noTextBufferMarkDeletedCallback ,
onTextBufferMarkDeleted ,
textBufferMarkDeletedCallbackWrapper ,
textBufferMarkDeletedClosure ,
-- ** MarkSet
TextBufferMarkSetCallback ,
TextBufferMarkSetCallbackC ,
TextBufferMarkSetSignalInfo ,
afterTextBufferMarkSet ,
mkTextBufferMarkSetCallback ,
noTextBufferMarkSetCallback ,
onTextBufferMarkSet ,
textBufferMarkSetCallbackWrapper ,
textBufferMarkSetClosure ,
-- ** ModifiedChanged
TextBufferModifiedChangedCallback ,
TextBufferModifiedChangedCallbackC ,
TextBufferModifiedChangedSignalInfo ,
afterTextBufferModifiedChanged ,
mkTextBufferModifiedChangedCallback ,
noTextBufferModifiedChangedCallback ,
onTextBufferModifiedChanged ,
textBufferModifiedChangedCallbackWrapper,
textBufferModifiedChangedClosure ,
-- ** PasteDone
TextBufferPasteDoneCallback ,
TextBufferPasteDoneCallbackC ,
TextBufferPasteDoneSignalInfo ,
afterTextBufferPasteDone ,
mkTextBufferPasteDoneCallback ,
noTextBufferPasteDoneCallback ,
onTextBufferPasteDone ,
textBufferPasteDoneCallbackWrapper ,
textBufferPasteDoneClosure ,
-- ** RemoveTag
TextBufferRemoveTagCallback ,
TextBufferRemoveTagCallbackC ,
TextBufferRemoveTagSignalInfo ,
afterTextBufferRemoveTag ,
mkTextBufferRemoveTagCallback ,
noTextBufferRemoveTagCallback ,
onTextBufferRemoveTag ,
textBufferRemoveTagCallbackWrapper ,
textBufferRemoveTagClosure ,
) 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.Gdk as Gdk
import qualified GI.GdkPixbuf as GdkPixbuf
newtype TextBuffer = TextBuffer (ForeignPtr TextBuffer)
foreign import ccall "gtk_text_buffer_get_type"
c_gtk_text_buffer_get_type :: IO GType
type instance ParentTypes TextBuffer = TextBufferParentTypes
type TextBufferParentTypes = '[GObject.Object]
instance GObject TextBuffer where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_buffer_get_type
class GObject o => TextBufferK o
instance (GObject o, IsDescendantOf TextBuffer o) => TextBufferK o
toTextBuffer :: TextBufferK o => o -> IO TextBuffer
toTextBuffer = unsafeCastTo TextBuffer
noTextBuffer :: Maybe TextBuffer
noTextBuffer = Nothing
type family ResolveTextBufferMethod (t :: Symbol) (o :: *) :: * where
ResolveTextBufferMethod "addMark" o = TextBufferAddMarkMethodInfo
ResolveTextBufferMethod "addSelectionClipboard" o = TextBufferAddSelectionClipboardMethodInfo
ResolveTextBufferMethod "applyTag" o = TextBufferApplyTagMethodInfo
ResolveTextBufferMethod "applyTagByName" o = TextBufferApplyTagByNameMethodInfo
ResolveTextBufferMethod "backspace" o = TextBufferBackspaceMethodInfo
ResolveTextBufferMethod "beginUserAction" o = TextBufferBeginUserActionMethodInfo
ResolveTextBufferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveTextBufferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveTextBufferMethod "copyClipboard" o = TextBufferCopyClipboardMethodInfo
ResolveTextBufferMethod "createChildAnchor" o = TextBufferCreateChildAnchorMethodInfo
ResolveTextBufferMethod "createMark" o = TextBufferCreateMarkMethodInfo
ResolveTextBufferMethod "cutClipboard" o = TextBufferCutClipboardMethodInfo
ResolveTextBufferMethod "delete" o = TextBufferDeleteMethodInfo
ResolveTextBufferMethod "deleteInteractive" o = TextBufferDeleteInteractiveMethodInfo
ResolveTextBufferMethod "deleteMark" o = TextBufferDeleteMarkMethodInfo
ResolveTextBufferMethod "deleteMarkByName" o = TextBufferDeleteMarkByNameMethodInfo
ResolveTextBufferMethod "deleteSelection" o = TextBufferDeleteSelectionMethodInfo
ResolveTextBufferMethod "deserialize" o = TextBufferDeserializeMethodInfo
ResolveTextBufferMethod "deserializeGetCanCreateTags" o = TextBufferDeserializeGetCanCreateTagsMethodInfo
ResolveTextBufferMethod "deserializeSetCanCreateTags" o = TextBufferDeserializeSetCanCreateTagsMethodInfo
ResolveTextBufferMethod "endUserAction" o = TextBufferEndUserActionMethodInfo
ResolveTextBufferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveTextBufferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveTextBufferMethod "insert" o = TextBufferInsertMethodInfo
ResolveTextBufferMethod "insertAtCursor" o = TextBufferInsertAtCursorMethodInfo
ResolveTextBufferMethod "insertChildAnchor" o = TextBufferInsertChildAnchorMethodInfo
ResolveTextBufferMethod "insertInteractive" o = TextBufferInsertInteractiveMethodInfo
ResolveTextBufferMethod "insertInteractiveAtCursor" o = TextBufferInsertInteractiveAtCursorMethodInfo
ResolveTextBufferMethod "insertMarkup" o = TextBufferInsertMarkupMethodInfo
ResolveTextBufferMethod "insertPixbuf" o = TextBufferInsertPixbufMethodInfo
ResolveTextBufferMethod "insertRange" o = TextBufferInsertRangeMethodInfo
ResolveTextBufferMethod "insertRangeInteractive" o = TextBufferInsertRangeInteractiveMethodInfo
ResolveTextBufferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveTextBufferMethod "moveMark" o = TextBufferMoveMarkMethodInfo
ResolveTextBufferMethod "moveMarkByName" o = TextBufferMoveMarkByNameMethodInfo
ResolveTextBufferMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveTextBufferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveTextBufferMethod "pasteClipboard" o = TextBufferPasteClipboardMethodInfo
ResolveTextBufferMethod "placeCursor" o = TextBufferPlaceCursorMethodInfo
ResolveTextBufferMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveTextBufferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveTextBufferMethod "registerDeserializeFormat" o = TextBufferRegisterDeserializeFormatMethodInfo
ResolveTextBufferMethod "registerDeserializeTagset" o = TextBufferRegisterDeserializeTagsetMethodInfo
ResolveTextBufferMethod "registerSerializeFormat" o = TextBufferRegisterSerializeFormatMethodInfo
ResolveTextBufferMethod "registerSerializeTagset" o = TextBufferRegisterSerializeTagsetMethodInfo
ResolveTextBufferMethod "removeAllTags" o = TextBufferRemoveAllTagsMethodInfo
ResolveTextBufferMethod "removeSelectionClipboard" o = TextBufferRemoveSelectionClipboardMethodInfo
ResolveTextBufferMethod "removeTag" o = TextBufferRemoveTagMethodInfo
ResolveTextBufferMethod "removeTagByName" o = TextBufferRemoveTagByNameMethodInfo
ResolveTextBufferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveTextBufferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveTextBufferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveTextBufferMethod "selectRange" o = TextBufferSelectRangeMethodInfo
ResolveTextBufferMethod "serialize" o = TextBufferSerializeMethodInfo
ResolveTextBufferMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveTextBufferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveTextBufferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveTextBufferMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveTextBufferMethod "unregisterDeserializeFormat" o = TextBufferUnregisterDeserializeFormatMethodInfo
ResolveTextBufferMethod "unregisterSerializeFormat" o = TextBufferUnregisterSerializeFormatMethodInfo
ResolveTextBufferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveTextBufferMethod "getBounds" o = TextBufferGetBoundsMethodInfo
ResolveTextBufferMethod "getCharCount" o = TextBufferGetCharCountMethodInfo
ResolveTextBufferMethod "getCopyTargetList" o = TextBufferGetCopyTargetListMethodInfo
ResolveTextBufferMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveTextBufferMethod "getDeserializeFormats" o = TextBufferGetDeserializeFormatsMethodInfo
ResolveTextBufferMethod "getEndIter" o = TextBufferGetEndIterMethodInfo
ResolveTextBufferMethod "getHasSelection" o = TextBufferGetHasSelectionMethodInfo
ResolveTextBufferMethod "getInsert" o = TextBufferGetInsertMethodInfo
ResolveTextBufferMethod "getIterAtChildAnchor" o = TextBufferGetIterAtChildAnchorMethodInfo
ResolveTextBufferMethod "getIterAtLine" o = TextBufferGetIterAtLineMethodInfo
ResolveTextBufferMethod "getIterAtLineIndex" o = TextBufferGetIterAtLineIndexMethodInfo
ResolveTextBufferMethod "getIterAtLineOffset" o = TextBufferGetIterAtLineOffsetMethodInfo
ResolveTextBufferMethod "getIterAtMark" o = TextBufferGetIterAtMarkMethodInfo
ResolveTextBufferMethod "getIterAtOffset" o = TextBufferGetIterAtOffsetMethodInfo
ResolveTextBufferMethod "getLineCount" o = TextBufferGetLineCountMethodInfo
ResolveTextBufferMethod "getMark" o = TextBufferGetMarkMethodInfo
ResolveTextBufferMethod "getModified" o = TextBufferGetModifiedMethodInfo
ResolveTextBufferMethod "getPasteTargetList" o = TextBufferGetPasteTargetListMethodInfo
ResolveTextBufferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveTextBufferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveTextBufferMethod "getSelectionBound" o = TextBufferGetSelectionBoundMethodInfo
ResolveTextBufferMethod "getSelectionBounds" o = TextBufferGetSelectionBoundsMethodInfo
ResolveTextBufferMethod "getSerializeFormats" o = TextBufferGetSerializeFormatsMethodInfo
ResolveTextBufferMethod "getSlice" o = TextBufferGetSliceMethodInfo
ResolveTextBufferMethod "getStartIter" o = TextBufferGetStartIterMethodInfo
ResolveTextBufferMethod "getTagTable" o = TextBufferGetTagTableMethodInfo
ResolveTextBufferMethod "getText" o = TextBufferGetTextMethodInfo
ResolveTextBufferMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveTextBufferMethod "setModified" o = TextBufferSetModifiedMethodInfo
ResolveTextBufferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveTextBufferMethod "setText" o = TextBufferSetTextMethodInfo
ResolveTextBufferMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveTextBufferMethod t TextBuffer, MethodInfo info TextBuffer p) => IsLabelProxy t (TextBuffer -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTextBufferMethod t TextBuffer, MethodInfo info TextBuffer p) => IsLabel t (TextBuffer -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal TextBuffer::apply-tag
type TextBufferApplyTagCallback =
TextTag ->
TextIter ->
TextIter ->
IO ()
noTextBufferApplyTagCallback :: Maybe TextBufferApplyTagCallback
noTextBufferApplyTagCallback = Nothing
type TextBufferApplyTagCallbackC =
Ptr () -> -- object
Ptr TextTag ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferApplyTagCallback :: TextBufferApplyTagCallbackC -> IO (FunPtr TextBufferApplyTagCallbackC)
textBufferApplyTagClosure :: TextBufferApplyTagCallback -> IO Closure
textBufferApplyTagClosure cb = newCClosure =<< mkTextBufferApplyTagCallback wrapped
where wrapped = textBufferApplyTagCallbackWrapper cb
textBufferApplyTagCallbackWrapper ::
TextBufferApplyTagCallback ->
Ptr () ->
Ptr TextTag ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () ->
IO ()
textBufferApplyTagCallbackWrapper _cb _ tag start end _ = do
tag' <- (newObject TextTag) tag
start' <- (newBoxed TextIter) start
end' <- (newBoxed TextIter) end
_cb tag' start' end'
onTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId
onTextBufferApplyTag obj cb = liftIO $ connectTextBufferApplyTag obj cb SignalConnectBefore
afterTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId
afterTextBufferApplyTag obj cb = connectTextBufferApplyTag obj cb SignalConnectAfter
connectTextBufferApplyTag :: (GObject a, MonadIO m) =>
a -> TextBufferApplyTagCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferApplyTag obj cb after = liftIO $ do
cb' <- mkTextBufferApplyTagCallback (textBufferApplyTagCallbackWrapper cb)
connectSignalFunPtr obj "apply-tag" cb' after
-- signal TextBuffer::begin-user-action
type TextBufferBeginUserActionCallback =
IO ()
noTextBufferBeginUserActionCallback :: Maybe TextBufferBeginUserActionCallback
noTextBufferBeginUserActionCallback = Nothing
type TextBufferBeginUserActionCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferBeginUserActionCallback :: TextBufferBeginUserActionCallbackC -> IO (FunPtr TextBufferBeginUserActionCallbackC)
textBufferBeginUserActionClosure :: TextBufferBeginUserActionCallback -> IO Closure
textBufferBeginUserActionClosure cb = newCClosure =<< mkTextBufferBeginUserActionCallback wrapped
where wrapped = textBufferBeginUserActionCallbackWrapper cb
textBufferBeginUserActionCallbackWrapper ::
TextBufferBeginUserActionCallback ->
Ptr () ->
Ptr () ->
IO ()
textBufferBeginUserActionCallbackWrapper _cb _ _ = do
_cb
onTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId
onTextBufferBeginUserAction obj cb = liftIO $ connectTextBufferBeginUserAction obj cb SignalConnectBefore
afterTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId
afterTextBufferBeginUserAction obj cb = connectTextBufferBeginUserAction obj cb SignalConnectAfter
connectTextBufferBeginUserAction :: (GObject a, MonadIO m) =>
a -> TextBufferBeginUserActionCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferBeginUserAction obj cb after = liftIO $ do
cb' <- mkTextBufferBeginUserActionCallback (textBufferBeginUserActionCallbackWrapper cb)
connectSignalFunPtr obj "begin-user-action" cb' after
-- signal TextBuffer::changed
type TextBufferChangedCallback =
IO ()
noTextBufferChangedCallback :: Maybe TextBufferChangedCallback
noTextBufferChangedCallback = Nothing
type TextBufferChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferChangedCallback :: TextBufferChangedCallbackC -> IO (FunPtr TextBufferChangedCallbackC)
textBufferChangedClosure :: TextBufferChangedCallback -> IO Closure
textBufferChangedClosure cb = newCClosure =<< mkTextBufferChangedCallback wrapped
where wrapped = textBufferChangedCallbackWrapper cb
textBufferChangedCallbackWrapper ::
TextBufferChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
textBufferChangedCallbackWrapper _cb _ _ = do
_cb
onTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId
onTextBufferChanged obj cb = liftIO $ connectTextBufferChanged obj cb SignalConnectBefore
afterTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId
afterTextBufferChanged obj cb = connectTextBufferChanged obj cb SignalConnectAfter
connectTextBufferChanged :: (GObject a, MonadIO m) =>
a -> TextBufferChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferChanged obj cb after = liftIO $ do
cb' <- mkTextBufferChangedCallback (textBufferChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- signal TextBuffer::delete-range
type TextBufferDeleteRangeCallback =
TextIter ->
TextIter ->
IO ()
noTextBufferDeleteRangeCallback :: Maybe TextBufferDeleteRangeCallback
noTextBufferDeleteRangeCallback = Nothing
type TextBufferDeleteRangeCallbackC =
Ptr () -> -- object
Ptr TextIter ->
Ptr TextIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferDeleteRangeCallback :: TextBufferDeleteRangeCallbackC -> IO (FunPtr TextBufferDeleteRangeCallbackC)
textBufferDeleteRangeClosure :: TextBufferDeleteRangeCallback -> IO Closure
textBufferDeleteRangeClosure cb = newCClosure =<< mkTextBufferDeleteRangeCallback wrapped
where wrapped = textBufferDeleteRangeCallbackWrapper cb
textBufferDeleteRangeCallbackWrapper ::
TextBufferDeleteRangeCallback ->
Ptr () ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () ->
IO ()
textBufferDeleteRangeCallbackWrapper _cb _ start end _ = do
start' <- (newBoxed TextIter) start
end' <- (newBoxed TextIter) end
_cb start' end'
onTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId
onTextBufferDeleteRange obj cb = liftIO $ connectTextBufferDeleteRange obj cb SignalConnectBefore
afterTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId
afterTextBufferDeleteRange obj cb = connectTextBufferDeleteRange obj cb SignalConnectAfter
connectTextBufferDeleteRange :: (GObject a, MonadIO m) =>
a -> TextBufferDeleteRangeCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferDeleteRange obj cb after = liftIO $ do
cb' <- mkTextBufferDeleteRangeCallback (textBufferDeleteRangeCallbackWrapper cb)
connectSignalFunPtr obj "delete-range" cb' after
-- signal TextBuffer::end-user-action
type TextBufferEndUserActionCallback =
IO ()
noTextBufferEndUserActionCallback :: Maybe TextBufferEndUserActionCallback
noTextBufferEndUserActionCallback = Nothing
type TextBufferEndUserActionCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferEndUserActionCallback :: TextBufferEndUserActionCallbackC -> IO (FunPtr TextBufferEndUserActionCallbackC)
textBufferEndUserActionClosure :: TextBufferEndUserActionCallback -> IO Closure
textBufferEndUserActionClosure cb = newCClosure =<< mkTextBufferEndUserActionCallback wrapped
where wrapped = textBufferEndUserActionCallbackWrapper cb
textBufferEndUserActionCallbackWrapper ::
TextBufferEndUserActionCallback ->
Ptr () ->
Ptr () ->
IO ()
textBufferEndUserActionCallbackWrapper _cb _ _ = do
_cb
onTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId
onTextBufferEndUserAction obj cb = liftIO $ connectTextBufferEndUserAction obj cb SignalConnectBefore
afterTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId
afterTextBufferEndUserAction obj cb = connectTextBufferEndUserAction obj cb SignalConnectAfter
connectTextBufferEndUserAction :: (GObject a, MonadIO m) =>
a -> TextBufferEndUserActionCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferEndUserAction obj cb after = liftIO $ do
cb' <- mkTextBufferEndUserActionCallback (textBufferEndUserActionCallbackWrapper cb)
connectSignalFunPtr obj "end-user-action" cb' after
-- signal TextBuffer::insert-child-anchor
type TextBufferInsertChildAnchorCallback =
TextIter ->
TextChildAnchor ->
IO ()
noTextBufferInsertChildAnchorCallback :: Maybe TextBufferInsertChildAnchorCallback
noTextBufferInsertChildAnchorCallback = Nothing
type TextBufferInsertChildAnchorCallbackC =
Ptr () -> -- object
Ptr TextIter ->
Ptr TextChildAnchor ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferInsertChildAnchorCallback :: TextBufferInsertChildAnchorCallbackC -> IO (FunPtr TextBufferInsertChildAnchorCallbackC)
textBufferInsertChildAnchorClosure :: TextBufferInsertChildAnchorCallback -> IO Closure
textBufferInsertChildAnchorClosure cb = newCClosure =<< mkTextBufferInsertChildAnchorCallback wrapped
where wrapped = textBufferInsertChildAnchorCallbackWrapper cb
textBufferInsertChildAnchorCallbackWrapper ::
TextBufferInsertChildAnchorCallback ->
Ptr () ->
Ptr TextIter ->
Ptr TextChildAnchor ->
Ptr () ->
IO ()
textBufferInsertChildAnchorCallbackWrapper _cb _ location anchor _ = do
location' <- (newBoxed TextIter) location
anchor' <- (newObject TextChildAnchor) anchor
_cb location' anchor'
onTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId
onTextBufferInsertChildAnchor obj cb = liftIO $ connectTextBufferInsertChildAnchor obj cb SignalConnectBefore
afterTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId
afterTextBufferInsertChildAnchor obj cb = connectTextBufferInsertChildAnchor obj cb SignalConnectAfter
connectTextBufferInsertChildAnchor :: (GObject a, MonadIO m) =>
a -> TextBufferInsertChildAnchorCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferInsertChildAnchor obj cb after = liftIO $ do
cb' <- mkTextBufferInsertChildAnchorCallback (textBufferInsertChildAnchorCallbackWrapper cb)
connectSignalFunPtr obj "insert-child-anchor" cb' after
-- signal TextBuffer::insert-pixbuf
type TextBufferInsertPixbufCallback =
TextIter ->
GdkPixbuf.Pixbuf ->
IO ()
noTextBufferInsertPixbufCallback :: Maybe TextBufferInsertPixbufCallback
noTextBufferInsertPixbufCallback = Nothing
type TextBufferInsertPixbufCallbackC =
Ptr () -> -- object
Ptr TextIter ->
Ptr GdkPixbuf.Pixbuf ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferInsertPixbufCallback :: TextBufferInsertPixbufCallbackC -> IO (FunPtr TextBufferInsertPixbufCallbackC)
textBufferInsertPixbufClosure :: TextBufferInsertPixbufCallback -> IO Closure
textBufferInsertPixbufClosure cb = newCClosure =<< mkTextBufferInsertPixbufCallback wrapped
where wrapped = textBufferInsertPixbufCallbackWrapper cb
textBufferInsertPixbufCallbackWrapper ::
TextBufferInsertPixbufCallback ->
Ptr () ->
Ptr TextIter ->
Ptr GdkPixbuf.Pixbuf ->
Ptr () ->
IO ()
textBufferInsertPixbufCallbackWrapper _cb _ location pixbuf _ = do
location' <- (newBoxed TextIter) location
pixbuf' <- (newObject GdkPixbuf.Pixbuf) pixbuf
_cb location' pixbuf'
onTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId
onTextBufferInsertPixbuf obj cb = liftIO $ connectTextBufferInsertPixbuf obj cb SignalConnectBefore
afterTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId
afterTextBufferInsertPixbuf obj cb = connectTextBufferInsertPixbuf obj cb SignalConnectAfter
connectTextBufferInsertPixbuf :: (GObject a, MonadIO m) =>
a -> TextBufferInsertPixbufCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferInsertPixbuf obj cb after = liftIO $ do
cb' <- mkTextBufferInsertPixbufCallback (textBufferInsertPixbufCallbackWrapper cb)
connectSignalFunPtr obj "insert-pixbuf" cb' after
-- signal TextBuffer::insert-text
type TextBufferInsertTextCallback =
TextIter ->
T.Text ->
Int32 ->
IO ()
noTextBufferInsertTextCallback :: Maybe TextBufferInsertTextCallback
noTextBufferInsertTextCallback = Nothing
type TextBufferInsertTextCallbackC =
Ptr () -> -- object
Ptr TextIter ->
CString ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferInsertTextCallback :: TextBufferInsertTextCallbackC -> IO (FunPtr TextBufferInsertTextCallbackC)
textBufferInsertTextClosure :: TextBufferInsertTextCallback -> IO Closure
textBufferInsertTextClosure cb = newCClosure =<< mkTextBufferInsertTextCallback wrapped
where wrapped = textBufferInsertTextCallbackWrapper cb
textBufferInsertTextCallbackWrapper ::
TextBufferInsertTextCallback ->
Ptr () ->
Ptr TextIter ->
CString ->
Int32 ->
Ptr () ->
IO ()
textBufferInsertTextCallbackWrapper _cb _ location text len _ = do
location' <- (newBoxed TextIter) location
text' <- cstringToText text
_cb location' text' len
onTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId
onTextBufferInsertText obj cb = liftIO $ connectTextBufferInsertText obj cb SignalConnectBefore
afterTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId
afterTextBufferInsertText obj cb = connectTextBufferInsertText obj cb SignalConnectAfter
connectTextBufferInsertText :: (GObject a, MonadIO m) =>
a -> TextBufferInsertTextCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferInsertText obj cb after = liftIO $ do
cb' <- mkTextBufferInsertTextCallback (textBufferInsertTextCallbackWrapper cb)
connectSignalFunPtr obj "insert-text" cb' after
-- signal TextBuffer::mark-deleted
type TextBufferMarkDeletedCallback =
TextMark ->
IO ()
noTextBufferMarkDeletedCallback :: Maybe TextBufferMarkDeletedCallback
noTextBufferMarkDeletedCallback = Nothing
type TextBufferMarkDeletedCallbackC =
Ptr () -> -- object
Ptr TextMark ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferMarkDeletedCallback :: TextBufferMarkDeletedCallbackC -> IO (FunPtr TextBufferMarkDeletedCallbackC)
textBufferMarkDeletedClosure :: TextBufferMarkDeletedCallback -> IO Closure
textBufferMarkDeletedClosure cb = newCClosure =<< mkTextBufferMarkDeletedCallback wrapped
where wrapped = textBufferMarkDeletedCallbackWrapper cb
textBufferMarkDeletedCallbackWrapper ::
TextBufferMarkDeletedCallback ->
Ptr () ->
Ptr TextMark ->
Ptr () ->
IO ()
textBufferMarkDeletedCallbackWrapper _cb _ mark _ = do
mark' <- (newObject TextMark) mark
_cb mark'
onTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId
onTextBufferMarkDeleted obj cb = liftIO $ connectTextBufferMarkDeleted obj cb SignalConnectBefore
afterTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId
afterTextBufferMarkDeleted obj cb = connectTextBufferMarkDeleted obj cb SignalConnectAfter
connectTextBufferMarkDeleted :: (GObject a, MonadIO m) =>
a -> TextBufferMarkDeletedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferMarkDeleted obj cb after = liftIO $ do
cb' <- mkTextBufferMarkDeletedCallback (textBufferMarkDeletedCallbackWrapper cb)
connectSignalFunPtr obj "mark-deleted" cb' after
-- signal TextBuffer::mark-set
type TextBufferMarkSetCallback =
TextIter ->
TextMark ->
IO ()
noTextBufferMarkSetCallback :: Maybe TextBufferMarkSetCallback
noTextBufferMarkSetCallback = Nothing
type TextBufferMarkSetCallbackC =
Ptr () -> -- object
Ptr TextIter ->
Ptr TextMark ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferMarkSetCallback :: TextBufferMarkSetCallbackC -> IO (FunPtr TextBufferMarkSetCallbackC)
textBufferMarkSetClosure :: TextBufferMarkSetCallback -> IO Closure
textBufferMarkSetClosure cb = newCClosure =<< mkTextBufferMarkSetCallback wrapped
where wrapped = textBufferMarkSetCallbackWrapper cb
textBufferMarkSetCallbackWrapper ::
TextBufferMarkSetCallback ->
Ptr () ->
Ptr TextIter ->
Ptr TextMark ->
Ptr () ->
IO ()
textBufferMarkSetCallbackWrapper _cb _ location mark _ = do
location' <- (newBoxed TextIter) location
mark' <- (newObject TextMark) mark
_cb location' mark'
onTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId
onTextBufferMarkSet obj cb = liftIO $ connectTextBufferMarkSet obj cb SignalConnectBefore
afterTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId
afterTextBufferMarkSet obj cb = connectTextBufferMarkSet obj cb SignalConnectAfter
connectTextBufferMarkSet :: (GObject a, MonadIO m) =>
a -> TextBufferMarkSetCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferMarkSet obj cb after = liftIO $ do
cb' <- mkTextBufferMarkSetCallback (textBufferMarkSetCallbackWrapper cb)
connectSignalFunPtr obj "mark-set" cb' after
-- signal TextBuffer::modified-changed
type TextBufferModifiedChangedCallback =
IO ()
noTextBufferModifiedChangedCallback :: Maybe TextBufferModifiedChangedCallback
noTextBufferModifiedChangedCallback = Nothing
type TextBufferModifiedChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferModifiedChangedCallback :: TextBufferModifiedChangedCallbackC -> IO (FunPtr TextBufferModifiedChangedCallbackC)
textBufferModifiedChangedClosure :: TextBufferModifiedChangedCallback -> IO Closure
textBufferModifiedChangedClosure cb = newCClosure =<< mkTextBufferModifiedChangedCallback wrapped
where wrapped = textBufferModifiedChangedCallbackWrapper cb
textBufferModifiedChangedCallbackWrapper ::
TextBufferModifiedChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
textBufferModifiedChangedCallbackWrapper _cb _ _ = do
_cb
onTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId
onTextBufferModifiedChanged obj cb = liftIO $ connectTextBufferModifiedChanged obj cb SignalConnectBefore
afterTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId
afterTextBufferModifiedChanged obj cb = connectTextBufferModifiedChanged obj cb SignalConnectAfter
connectTextBufferModifiedChanged :: (GObject a, MonadIO m) =>
a -> TextBufferModifiedChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferModifiedChanged obj cb after = liftIO $ do
cb' <- mkTextBufferModifiedChangedCallback (textBufferModifiedChangedCallbackWrapper cb)
connectSignalFunPtr obj "modified-changed" cb' after
-- signal TextBuffer::paste-done
type TextBufferPasteDoneCallback =
Clipboard ->
IO ()
noTextBufferPasteDoneCallback :: Maybe TextBufferPasteDoneCallback
noTextBufferPasteDoneCallback = Nothing
type TextBufferPasteDoneCallbackC =
Ptr () -> -- object
Ptr Clipboard ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferPasteDoneCallback :: TextBufferPasteDoneCallbackC -> IO (FunPtr TextBufferPasteDoneCallbackC)
textBufferPasteDoneClosure :: TextBufferPasteDoneCallback -> IO Closure
textBufferPasteDoneClosure cb = newCClosure =<< mkTextBufferPasteDoneCallback wrapped
where wrapped = textBufferPasteDoneCallbackWrapper cb
textBufferPasteDoneCallbackWrapper ::
TextBufferPasteDoneCallback ->
Ptr () ->
Ptr Clipboard ->
Ptr () ->
IO ()
textBufferPasteDoneCallbackWrapper _cb _ clipboard _ = do
clipboard' <- (newObject Clipboard) clipboard
_cb clipboard'
onTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId
onTextBufferPasteDone obj cb = liftIO $ connectTextBufferPasteDone obj cb SignalConnectBefore
afterTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId
afterTextBufferPasteDone obj cb = connectTextBufferPasteDone obj cb SignalConnectAfter
connectTextBufferPasteDone :: (GObject a, MonadIO m) =>
a -> TextBufferPasteDoneCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferPasteDone obj cb after = liftIO $ do
cb' <- mkTextBufferPasteDoneCallback (textBufferPasteDoneCallbackWrapper cb)
connectSignalFunPtr obj "paste-done" cb' after
-- signal TextBuffer::remove-tag
type TextBufferRemoveTagCallback =
TextTag ->
TextIter ->
TextIter ->
IO ()
noTextBufferRemoveTagCallback :: Maybe TextBufferRemoveTagCallback
noTextBufferRemoveTagCallback = Nothing
type TextBufferRemoveTagCallbackC =
Ptr () -> -- object
Ptr TextTag ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferRemoveTagCallback :: TextBufferRemoveTagCallbackC -> IO (FunPtr TextBufferRemoveTagCallbackC)
textBufferRemoveTagClosure :: TextBufferRemoveTagCallback -> IO Closure
textBufferRemoveTagClosure cb = newCClosure =<< mkTextBufferRemoveTagCallback wrapped
where wrapped = textBufferRemoveTagCallbackWrapper cb
textBufferRemoveTagCallbackWrapper ::
TextBufferRemoveTagCallback ->
Ptr () ->
Ptr TextTag ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () ->
IO ()
textBufferRemoveTagCallbackWrapper _cb _ tag start end _ = do
tag' <- (newObject TextTag) tag
start' <- (newBoxed TextIter) start
end' <- (newBoxed TextIter) end
_cb tag' start' end'
onTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId
onTextBufferRemoveTag obj cb = liftIO $ connectTextBufferRemoveTag obj cb SignalConnectBefore
afterTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId
afterTextBufferRemoveTag obj cb = connectTextBufferRemoveTag obj cb SignalConnectAfter
connectTextBufferRemoveTag :: (GObject a, MonadIO m) =>
a -> TextBufferRemoveTagCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferRemoveTag obj cb after = liftIO $ do
cb' <- mkTextBufferRemoveTagCallback (textBufferRemoveTagCallbackWrapper cb)
connectSignalFunPtr obj "remove-tag" cb' after
-- VVV Prop "copy-target-list"
-- Type: TInterface "Gtk" "TargetList"
-- Flags: [PropertyReadable]
getTextBufferCopyTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList
getTextBufferCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" TargetList
data TextBufferCopyTargetListPropertyInfo
instance AttrInfo TextBufferCopyTargetListPropertyInfo where
type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) ()
type AttrBaseTypeConstraint TextBufferCopyTargetListPropertyInfo = TextBufferK
type AttrGetType TextBufferCopyTargetListPropertyInfo = TargetList
type AttrLabel TextBufferCopyTargetListPropertyInfo = "copy-target-list"
attrGet _ = getTextBufferCopyTargetList
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "cursor-position"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable]
getTextBufferCursorPosition :: (MonadIO m, TextBufferK o) => o -> m Int32
getTextBufferCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position"
data TextBufferCursorPositionPropertyInfo
instance AttrInfo TextBufferCursorPositionPropertyInfo where
type AttrAllowedOps TextBufferCursorPositionPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint TextBufferCursorPositionPropertyInfo = (~) ()
type AttrBaseTypeConstraint TextBufferCursorPositionPropertyInfo = TextBufferK
type AttrGetType TextBufferCursorPositionPropertyInfo = Int32
type AttrLabel TextBufferCursorPositionPropertyInfo = "cursor-position"
attrGet _ = getTextBufferCursorPosition
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "has-selection"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable]
getTextBufferHasSelection :: (MonadIO m, TextBufferK o) => o -> m Bool
getTextBufferHasSelection obj = liftIO $ getObjectPropertyBool obj "has-selection"
data TextBufferHasSelectionPropertyInfo
instance AttrInfo TextBufferHasSelectionPropertyInfo where
type AttrAllowedOps TextBufferHasSelectionPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint TextBufferHasSelectionPropertyInfo = (~) ()
type AttrBaseTypeConstraint TextBufferHasSelectionPropertyInfo = TextBufferK
type AttrGetType TextBufferHasSelectionPropertyInfo = Bool
type AttrLabel TextBufferHasSelectionPropertyInfo = "has-selection"
attrGet _ = getTextBufferHasSelection
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "paste-target-list"
-- Type: TInterface "Gtk" "TargetList"
-- Flags: [PropertyReadable]
getTextBufferPasteTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList
getTextBufferPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" TargetList
data TextBufferPasteTargetListPropertyInfo
instance AttrInfo TextBufferPasteTargetListPropertyInfo where
type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) ()
type AttrBaseTypeConstraint TextBufferPasteTargetListPropertyInfo = TextBufferK
type AttrGetType TextBufferPasteTargetListPropertyInfo = TargetList
type AttrLabel TextBufferPasteTargetListPropertyInfo = "paste-target-list"
attrGet _ = getTextBufferPasteTargetList
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "tag-table"
-- Type: TInterface "Gtk" "TextTagTable"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getTextBufferTagTable :: (MonadIO m, TextBufferK o) => o -> m TextTagTable
getTextBufferTagTable obj = liftIO $ getObjectPropertyObject obj "tag-table" TextTagTable
constructTextBufferTagTable :: (TextTagTableK a) => a -> IO ([Char], GValue)
constructTextBufferTagTable val = constructObjectPropertyObject "tag-table" val
data TextBufferTagTablePropertyInfo
instance AttrInfo TextBufferTagTablePropertyInfo where
type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextBufferTagTablePropertyInfo = TextTagTableK
type AttrBaseTypeConstraint TextBufferTagTablePropertyInfo = TextBufferK
type AttrGetType TextBufferTagTablePropertyInfo = TextTagTable
type AttrLabel TextBufferTagTablePropertyInfo = "tag-table"
attrGet _ = getTextBufferTagTable
attrSet _ = undefined
attrConstruct _ = constructTextBufferTagTable
-- VVV Prop "text"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getTextBufferText :: (MonadIO m, TextBufferK o) => o -> m T.Text
getTextBufferText obj = liftIO $ getObjectPropertyString obj "text"
setTextBufferText :: (MonadIO m, TextBufferK o) => o -> T.Text -> m ()
setTextBufferText obj val = liftIO $ setObjectPropertyString obj "text" val
constructTextBufferText :: T.Text -> IO ([Char], GValue)
constructTextBufferText val = constructObjectPropertyString "text" val
data TextBufferTextPropertyInfo
instance AttrInfo TextBufferTextPropertyInfo where
type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TextBufferTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TextBufferTextPropertyInfo = TextBufferK
type AttrGetType TextBufferTextPropertyInfo = T.Text
type AttrLabel TextBufferTextPropertyInfo = "text"
attrGet _ = getTextBufferText
attrSet _ = setTextBufferText
attrConstruct _ = constructTextBufferText
type instance AttributeList TextBuffer = TextBufferAttributeList
type TextBufferAttributeList = ('[ '("copyTargetList", TextBufferCopyTargetListPropertyInfo), '("cursorPosition", TextBufferCursorPositionPropertyInfo), '("hasSelection", TextBufferHasSelectionPropertyInfo), '("pasteTargetList", TextBufferPasteTargetListPropertyInfo), '("tagTable", TextBufferTagTablePropertyInfo), '("text", TextBufferTextPropertyInfo)] :: [(Symbol, *)])
data TextBufferApplyTagSignalInfo
instance SignalInfo TextBufferApplyTagSignalInfo where
type HaskellCallbackType TextBufferApplyTagSignalInfo = TextBufferApplyTagCallback
connectSignal _ = connectTextBufferApplyTag
data TextBufferBeginUserActionSignalInfo
instance SignalInfo TextBufferBeginUserActionSignalInfo where
type HaskellCallbackType TextBufferBeginUserActionSignalInfo = TextBufferBeginUserActionCallback
connectSignal _ = connectTextBufferBeginUserAction
data TextBufferChangedSignalInfo
instance SignalInfo TextBufferChangedSignalInfo where
type HaskellCallbackType TextBufferChangedSignalInfo = TextBufferChangedCallback
connectSignal _ = connectTextBufferChanged
data TextBufferDeleteRangeSignalInfo
instance SignalInfo TextBufferDeleteRangeSignalInfo where
type HaskellCallbackType TextBufferDeleteRangeSignalInfo = TextBufferDeleteRangeCallback
connectSignal _ = connectTextBufferDeleteRange
data TextBufferEndUserActionSignalInfo
instance SignalInfo TextBufferEndUserActionSignalInfo where
type HaskellCallbackType TextBufferEndUserActionSignalInfo = TextBufferEndUserActionCallback
connectSignal _ = connectTextBufferEndUserAction
data TextBufferInsertChildAnchorSignalInfo
instance SignalInfo TextBufferInsertChildAnchorSignalInfo where
type HaskellCallbackType TextBufferInsertChildAnchorSignalInfo = TextBufferInsertChildAnchorCallback
connectSignal _ = connectTextBufferInsertChildAnchor
data TextBufferInsertPixbufSignalInfo
instance SignalInfo TextBufferInsertPixbufSignalInfo where
type HaskellCallbackType TextBufferInsertPixbufSignalInfo = TextBufferInsertPixbufCallback
connectSignal _ = connectTextBufferInsertPixbuf
data TextBufferInsertTextSignalInfo
instance SignalInfo TextBufferInsertTextSignalInfo where
type HaskellCallbackType TextBufferInsertTextSignalInfo = TextBufferInsertTextCallback
connectSignal _ = connectTextBufferInsertText
data TextBufferMarkDeletedSignalInfo
instance SignalInfo TextBufferMarkDeletedSignalInfo where
type HaskellCallbackType TextBufferMarkDeletedSignalInfo = TextBufferMarkDeletedCallback
connectSignal _ = connectTextBufferMarkDeleted
data TextBufferMarkSetSignalInfo
instance SignalInfo TextBufferMarkSetSignalInfo where
type HaskellCallbackType TextBufferMarkSetSignalInfo = TextBufferMarkSetCallback
connectSignal _ = connectTextBufferMarkSet
data TextBufferModifiedChangedSignalInfo
instance SignalInfo TextBufferModifiedChangedSignalInfo where
type HaskellCallbackType TextBufferModifiedChangedSignalInfo = TextBufferModifiedChangedCallback
connectSignal _ = connectTextBufferModifiedChanged
data TextBufferPasteDoneSignalInfo
instance SignalInfo TextBufferPasteDoneSignalInfo where
type HaskellCallbackType TextBufferPasteDoneSignalInfo = TextBufferPasteDoneCallback
connectSignal _ = connectTextBufferPasteDone
data TextBufferRemoveTagSignalInfo
instance SignalInfo TextBufferRemoveTagSignalInfo where
type HaskellCallbackType TextBufferRemoveTagSignalInfo = TextBufferRemoveTagCallback
connectSignal _ = connectTextBufferRemoveTag
type instance SignalList TextBuffer = TextBufferSignalList
type TextBufferSignalList = ('[ '("applyTag", TextBufferApplyTagSignalInfo), '("beginUserAction", TextBufferBeginUserActionSignalInfo), '("changed", TextBufferChangedSignalInfo), '("deleteRange", TextBufferDeleteRangeSignalInfo), '("endUserAction", TextBufferEndUserActionSignalInfo), '("insertChildAnchor", TextBufferInsertChildAnchorSignalInfo), '("insertPixbuf", TextBufferInsertPixbufSignalInfo), '("insertText", TextBufferInsertTextSignalInfo), '("markDeleted", TextBufferMarkDeletedSignalInfo), '("markSet", TextBufferMarkSetSignalInfo), '("modifiedChanged", TextBufferModifiedChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pasteDone", TextBufferPasteDoneSignalInfo), '("removeTag", TextBufferRemoveTagSignalInfo)] :: [(Symbol, *)])
-- method TextBuffer::new
-- method type : Constructor
-- Args : [Arg {argCName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TextBuffer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_new" gtk_text_buffer_new ::
Ptr TextTagTable -> -- table : TInterface "Gtk" "TextTagTable"
IO (Ptr TextBuffer)
textBufferNew ::
(MonadIO m, TextTagTableK a) =>
Maybe (a) -- table
-> m TextBuffer -- result
textBufferNew table = liftIO $ do
maybeTable <- case table of
Nothing -> return nullPtr
Just jTable -> do
let jTable' = unsafeManagedPtrCastPtr jTable
return jTable'
result <- gtk_text_buffer_new maybeTable
checkUnexpectedReturnNULL "gtk_text_buffer_new" result
result' <- (wrapObject TextBuffer) result
whenJust table touchManagedPtr
return result'
-- method TextBuffer::add_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_add_mark" gtk_text_buffer_add_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
IO ()
textBufferAddMark ::
(MonadIO m, TextBufferK a, TextMarkK b) =>
a -- _obj
-> b -- mark
-> TextIter -- where_
-> m () -- result
textBufferAddMark _obj mark where_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
let where_' = unsafeManagedPtrGetPtr where_
gtk_text_buffer_add_mark _obj' mark' where_'
touchManagedPtr _obj
touchManagedPtr mark
touchManagedPtr where_
return ()
data TextBufferAddMarkMethodInfo
instance (signature ~ (b -> TextIter -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferAddMarkMethodInfo a signature where
overloadedMethod _ = textBufferAddMark
-- method TextBuffer::add_selection_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_add_selection_clipboard" gtk_text_buffer_add_selection_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
IO ()
textBufferAddSelectionClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -- _obj
-> b -- clipboard
-> m () -- result
textBufferAddSelectionClipboard _obj clipboard = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
gtk_text_buffer_add_selection_clipboard _obj' clipboard'
touchManagedPtr _obj
touchManagedPtr clipboard
return ()
data TextBufferAddSelectionClipboardMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferAddSelectionClipboardMethodInfo a signature where
overloadedMethod _ = textBufferAddSelectionClipboard
-- method TextBuffer::apply_tag
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_apply_tag" gtk_text_buffer_apply_tag ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferApplyTag ::
(MonadIO m, TextBufferK a, TextTagK b) =>
a -- _obj
-> b -- tag
-> TextIter -- start
-> TextIter -- end
-> m () -- result
textBufferApplyTag _obj tag start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tag' = unsafeManagedPtrCastPtr tag
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_apply_tag _obj' tag' start' end'
touchManagedPtr _obj
touchManagedPtr tag
touchManagedPtr start
touchManagedPtr end
return ()
data TextBufferApplyTagMethodInfo
instance (signature ~ (b -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a, TextTagK b) => MethodInfo TextBufferApplyTagMethodInfo a signature where
overloadedMethod _ = textBufferApplyTag
-- method TextBuffer::apply_tag_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_apply_tag_by_name" gtk_text_buffer_apply_tag_by_name ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferApplyTagByName ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- name
-> TextIter -- start
-> TextIter -- end
-> m () -- result
textBufferApplyTagByName _obj name start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_apply_tag_by_name _obj' name' start' end'
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
freeMem name'
return ()
data TextBufferApplyTagByNameMethodInfo
instance (signature ~ (T.Text -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferApplyTagByNameMethodInfo a signature where
overloadedMethod _ = textBufferApplyTagByName
-- method TextBuffer::backspace
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_backspace" gtk_text_buffer_backspace ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CInt -> -- interactive : TBasicType TBoolean
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferBackspace ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- iter
-> Bool -- interactive
-> Bool -- defaultEditable
-> m Bool -- result
textBufferBackspace _obj iter interactive defaultEditable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let interactive' = (fromIntegral . fromEnum) interactive
let defaultEditable' = (fromIntegral . fromEnum) defaultEditable
result <- gtk_text_buffer_backspace _obj' iter' interactive' defaultEditable'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
data TextBufferBackspaceMethodInfo
instance (signature ~ (TextIter -> Bool -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferBackspaceMethodInfo a signature where
overloadedMethod _ = textBufferBackspace
-- method TextBuffer::begin_user_action
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_begin_user_action" gtk_text_buffer_begin_user_action ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO ()
textBufferBeginUserAction ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m () -- result
textBufferBeginUserAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_buffer_begin_user_action _obj'
touchManagedPtr _obj
return ()
data TextBufferBeginUserActionMethodInfo
instance (signature ~ (m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferBeginUserActionMethodInfo a signature where
overloadedMethod _ = textBufferBeginUserAction
-- method TextBuffer::copy_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_copy_clipboard" gtk_text_buffer_copy_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
IO ()
textBufferCopyClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -- _obj
-> b -- clipboard
-> m () -- result
textBufferCopyClipboard _obj clipboard = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
gtk_text_buffer_copy_clipboard _obj' clipboard'
touchManagedPtr _obj
touchManagedPtr clipboard
return ()
data TextBufferCopyClipboardMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferCopyClipboardMethodInfo a signature where
overloadedMethod _ = textBufferCopyClipboard
-- method TextBuffer::create_child_anchor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TextChildAnchor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_create_child_anchor" gtk_text_buffer_create_child_anchor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO (Ptr TextChildAnchor)
textBufferCreateChildAnchor ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- iter
-> m TextChildAnchor -- result
textBufferCreateChildAnchor _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_buffer_create_child_anchor _obj' iter'
checkUnexpectedReturnNULL "gtk_text_buffer_create_child_anchor" result
result' <- (newObject TextChildAnchor) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
data TextBufferCreateChildAnchorMethodInfo
instance (signature ~ (TextIter -> m TextChildAnchor), MonadIO m, TextBufferK a) => MethodInfo TextBufferCreateChildAnchorMethodInfo a signature where
overloadedMethod _ = textBufferCreateChildAnchor
-- method TextBuffer::create_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_create_mark" gtk_text_buffer_create_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- mark_name : TBasicType TUTF8
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
CInt -> -- left_gravity : TBasicType TBoolean
IO (Ptr TextMark)
textBufferCreateMark ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Maybe (T.Text) -- markName
-> TextIter -- where_
-> Bool -- leftGravity
-> m TextMark -- result
textBufferCreateMark _obj markName where_ leftGravity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMarkName <- case markName of
Nothing -> return nullPtr
Just jMarkName -> do
jMarkName' <- textToCString jMarkName
return jMarkName'
let where_' = unsafeManagedPtrGetPtr where_
let leftGravity' = (fromIntegral . fromEnum) leftGravity
result <- gtk_text_buffer_create_mark _obj' maybeMarkName where_' leftGravity'
checkUnexpectedReturnNULL "gtk_text_buffer_create_mark" result
result' <- (newObject TextMark) result
touchManagedPtr _obj
touchManagedPtr where_
freeMem maybeMarkName
return result'
data TextBufferCreateMarkMethodInfo
instance (signature ~ (Maybe (T.Text) -> TextIter -> Bool -> m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferCreateMarkMethodInfo a signature where
overloadedMethod _ = textBufferCreateMark
-- method TextBuffer::cut_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_cut_clipboard" gtk_text_buffer_cut_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
CInt -> -- default_editable : TBasicType TBoolean
IO ()
textBufferCutClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -- _obj
-> b -- clipboard
-> Bool -- defaultEditable
-> m () -- result
textBufferCutClipboard _obj clipboard defaultEditable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
let defaultEditable' = (fromIntegral . fromEnum) defaultEditable
gtk_text_buffer_cut_clipboard _obj' clipboard' defaultEditable'
touchManagedPtr _obj
touchManagedPtr clipboard
return ()
data TextBufferCutClipboardMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferCutClipboardMethodInfo a signature where
overloadedMethod _ = textBufferCutClipboard
-- method TextBuffer::delete
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete" gtk_text_buffer_delete ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferDelete ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- start
-> TextIter -- end
-> m () -- result
textBufferDelete _obj start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_delete _obj' start' end'
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return ()
data TextBufferDeleteMethodInfo
instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteMethodInfo a signature where
overloadedMethod _ = textBufferDelete
-- method TextBuffer::delete_interactive
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete_interactive" gtk_text_buffer_delete_interactive ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start_iter : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end_iter : TInterface "Gtk" "TextIter"
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferDeleteInteractive ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- startIter
-> TextIter -- endIter
-> Bool -- defaultEditable
-> m Bool -- result
textBufferDeleteInteractive _obj startIter endIter defaultEditable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let startIter' = unsafeManagedPtrGetPtr startIter
let endIter' = unsafeManagedPtrGetPtr endIter
let defaultEditable' = (fromIntegral . fromEnum) defaultEditable
result <- gtk_text_buffer_delete_interactive _obj' startIter' endIter' defaultEditable'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr startIter
touchManagedPtr endIter
return result'
data TextBufferDeleteInteractiveMethodInfo
instance (signature ~ (TextIter -> TextIter -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteInteractiveMethodInfo a signature where
overloadedMethod _ = textBufferDeleteInteractive
-- method TextBuffer::delete_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete_mark" gtk_text_buffer_delete_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
IO ()
textBufferDeleteMark ::
(MonadIO m, TextBufferK a, TextMarkK b) =>
a -- _obj
-> b -- mark
-> m () -- result
textBufferDeleteMark _obj mark = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
gtk_text_buffer_delete_mark _obj' mark'
touchManagedPtr _obj
touchManagedPtr mark
return ()
data TextBufferDeleteMarkMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferDeleteMarkMethodInfo a signature where
overloadedMethod _ = textBufferDeleteMark
-- method TextBuffer::delete_mark_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete_mark_by_name" gtk_text_buffer_delete_mark_by_name ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
IO ()
textBufferDeleteMarkByName ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- name
-> m () -- result
textBufferDeleteMarkByName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_text_buffer_delete_mark_by_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
data TextBufferDeleteMarkByNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteMarkByNameMethodInfo a signature where
overloadedMethod _ = textBufferDeleteMarkByName
-- method TextBuffer::delete_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete_selection" gtk_text_buffer_delete_selection ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CInt -> -- interactive : TBasicType TBoolean
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferDeleteSelection ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Bool -- interactive
-> Bool -- defaultEditable
-> m Bool -- result
textBufferDeleteSelection _obj interactive defaultEditable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let interactive' = (fromIntegral . fromEnum) interactive
let defaultEditable' = (fromIntegral . fromEnum) defaultEditable
result <- gtk_text_buffer_delete_selection _obj' interactive' defaultEditable'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data TextBufferDeleteSelectionMethodInfo
instance (signature ~ (Bool -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteSelectionMethodInfo a signature where
overloadedMethod _ = textBufferDeleteSelection
-- method TextBuffer::deserialize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_text_buffer_deserialize" gtk_text_buffer_deserialize ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Word8 -> -- data : TCArray False (-1) 5 (TBasicType TUInt8)
Word64 -> -- length : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO CInt
textBufferDeserialize ::
(MonadIO m, TextBufferK a, TextBufferK b) =>
a -- _obj
-> b -- contentBuffer
-> Gdk.Atom -- format
-> TextIter -- iter
-> ByteString -- data_
-> m () -- result
textBufferDeserialize _obj contentBuffer format iter data_ = liftIO $ do
let length_ = fromIntegral $ B.length data_
let _obj' = unsafeManagedPtrCastPtr _obj
let contentBuffer' = unsafeManagedPtrCastPtr contentBuffer
let format' = unsafeManagedPtrGetPtr format
let iter' = unsafeManagedPtrGetPtr iter
data_' <- packByteString data_
onException (do
_ <- propagateGError $ gtk_text_buffer_deserialize _obj' contentBuffer' format' iter' data_' length_
touchManagedPtr _obj
touchManagedPtr contentBuffer
touchManagedPtr format
touchManagedPtr iter
freeMem data_'
return ()
) (do
freeMem data_'
)
data TextBufferDeserializeMethodInfo
instance (signature ~ (b -> Gdk.Atom -> TextIter -> ByteString -> m ()), MonadIO m, TextBufferK a, TextBufferK b) => MethodInfo TextBufferDeserializeMethodInfo a signature where
overloadedMethod _ = textBufferDeserialize
-- method TextBuffer::deserialize_get_can_create_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_deserialize_get_can_create_tags" gtk_text_buffer_deserialize_get_can_create_tags ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
IO CInt
textBufferDeserializeGetCanCreateTags ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Gdk.Atom -- format
-> m Bool -- result
textBufferDeserializeGetCanCreateTags _obj format = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = unsafeManagedPtrGetPtr format
result <- gtk_text_buffer_deserialize_get_can_create_tags _obj' format'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr format
return result'
data TextBufferDeserializeGetCanCreateTagsMethodInfo
instance (signature ~ (Gdk.Atom -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeserializeGetCanCreateTagsMethodInfo a signature where
overloadedMethod _ = textBufferDeserializeGetCanCreateTags
-- method TextBuffer::deserialize_set_can_create_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_deserialize_set_can_create_tags" gtk_text_buffer_deserialize_set_can_create_tags ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
CInt -> -- can_create_tags : TBasicType TBoolean
IO ()
textBufferDeserializeSetCanCreateTags ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Gdk.Atom -- format
-> Bool -- canCreateTags
-> m () -- result
textBufferDeserializeSetCanCreateTags _obj format canCreateTags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = unsafeManagedPtrGetPtr format
let canCreateTags' = (fromIntegral . fromEnum) canCreateTags
gtk_text_buffer_deserialize_set_can_create_tags _obj' format' canCreateTags'
touchManagedPtr _obj
touchManagedPtr format
return ()
data TextBufferDeserializeSetCanCreateTagsMethodInfo
instance (signature ~ (Gdk.Atom -> Bool -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeserializeSetCanCreateTagsMethodInfo a signature where
overloadedMethod _ = textBufferDeserializeSetCanCreateTags
-- method TextBuffer::end_user_action
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_end_user_action" gtk_text_buffer_end_user_action ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO ()
textBufferEndUserAction ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m () -- result
textBufferEndUserAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_buffer_end_user_action _obj'
touchManagedPtr _obj
return ()
data TextBufferEndUserActionMethodInfo
instance (signature ~ (m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferEndUserActionMethodInfo a signature where
overloadedMethod _ = textBufferEndUserAction
-- method TextBuffer::get_bounds
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_bounds" gtk_text_buffer_get_bounds ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferGetBounds ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m (TextIter,TextIter) -- result
textBufferGetBounds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start <- callocBoxedBytes 80 :: IO (Ptr TextIter)
end <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_bounds _obj' start end
start' <- (wrapBoxed TextIter) start
end' <- (wrapBoxed TextIter) end
touchManagedPtr _obj
return (start', end')
data TextBufferGetBoundsMethodInfo
instance (signature ~ (m (TextIter,TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetBoundsMethodInfo a signature where
overloadedMethod _ = textBufferGetBounds
-- method TextBuffer::get_char_count
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_char_count" gtk_text_buffer_get_char_count ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO Int32
textBufferGetCharCount ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m Int32 -- result
textBufferGetCharCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_char_count _obj'
touchManagedPtr _obj
return result
data TextBufferGetCharCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetCharCountMethodInfo a signature where
overloadedMethod _ = textBufferGetCharCount
-- method TextBuffer::get_copy_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_copy_target_list" gtk_text_buffer_get_copy_target_list ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TargetList)
textBufferGetCopyTargetList ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m TargetList -- result
textBufferGetCopyTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_copy_target_list _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_copy_target_list" result
result' <- (newBoxed TargetList) result
touchManagedPtr _obj
return result'
data TextBufferGetCopyTargetListMethodInfo
instance (signature ~ (m TargetList), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetCopyTargetListMethodInfo a signature where
overloadedMethod _ = textBufferGetCopyTargetList
-- method TextBuffer::get_deserialize_formats
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_deserialize_formats" gtk_text_buffer_get_deserialize_formats ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Int32 -> -- n_formats : TBasicType TInt32
IO (Ptr (Ptr Gdk.Atom))
textBufferGetDeserializeFormats ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m [Gdk.Atom] -- result
textBufferGetDeserializeFormats _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
nFormats <- allocMem :: IO (Ptr Int32)
result <- gtk_text_buffer_get_deserialize_formats _obj' nFormats
nFormats' <- peek nFormats
checkUnexpectedReturnNULL "gtk_text_buffer_get_deserialize_formats" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (unpackPtrArrayWithLength nFormats') result
result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result'
freeMem result
touchManagedPtr _obj
freeMem nFormats
return result''
data TextBufferGetDeserializeFormatsMethodInfo
instance (signature ~ (m [Gdk.Atom]), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetDeserializeFormatsMethodInfo a signature where
overloadedMethod _ = textBufferGetDeserializeFormats
-- method TextBuffer::get_end_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_end_iter" gtk_text_buffer_get_end_iter ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO ()
textBufferGetEndIter ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m (TextIter) -- result
textBufferGetEndIter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_end_iter _obj' iter
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
data TextBufferGetEndIterMethodInfo
instance (signature ~ (m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetEndIterMethodInfo a signature where
overloadedMethod _ = textBufferGetEndIter
-- method TextBuffer::get_has_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_has_selection" gtk_text_buffer_get_has_selection ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO CInt
textBufferGetHasSelection ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m Bool -- result
textBufferGetHasSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_has_selection _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data TextBufferGetHasSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetHasSelectionMethodInfo a signature where
overloadedMethod _ = textBufferGetHasSelection
-- method TextBuffer::get_insert
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_insert" gtk_text_buffer_get_insert ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TextMark)
textBufferGetInsert ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m TextMark -- result
textBufferGetInsert _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_insert _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_insert" result
result' <- (newObject TextMark) result
touchManagedPtr _obj
return result'
data TextBufferGetInsertMethodInfo
instance (signature ~ (m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetInsertMethodInfo a signature where
overloadedMethod _ = textBufferGetInsert
-- method TextBuffer::get_iter_at_child_anchor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_child_anchor" gtk_text_buffer_get_iter_at_child_anchor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor"
IO ()
textBufferGetIterAtChildAnchor ::
(MonadIO m, TextBufferK a, TextChildAnchorK b) =>
a -- _obj
-> b -- anchor
-> m (TextIter) -- result
textBufferGetIterAtChildAnchor _obj anchor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
let anchor' = unsafeManagedPtrCastPtr anchor
gtk_text_buffer_get_iter_at_child_anchor _obj' iter anchor'
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
touchManagedPtr anchor
return iter'
data TextBufferGetIterAtChildAnchorMethodInfo
instance (signature ~ (b -> m (TextIter)), MonadIO m, TextBufferK a, TextChildAnchorK b) => MethodInfo TextBufferGetIterAtChildAnchorMethodInfo a signature where
overloadedMethod _ = textBufferGetIterAtChildAnchor
-- method TextBuffer::get_iter_at_line
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_line" gtk_text_buffer_get_iter_at_line ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- line_number : TBasicType TInt32
IO ()
textBufferGetIterAtLine ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Int32 -- lineNumber
-> m (TextIter) -- result
textBufferGetIterAtLine _obj lineNumber = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_iter_at_line _obj' iter lineNumber
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
data TextBufferGetIterAtLineMethodInfo
instance (signature ~ (Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineMethodInfo a signature where
overloadedMethod _ = textBufferGetIterAtLine
-- method TextBuffer::get_iter_at_line_index
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_line_index" gtk_text_buffer_get_iter_at_line_index ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- line_number : TBasicType TInt32
Int32 -> -- byte_index : TBasicType TInt32
IO ()
textBufferGetIterAtLineIndex ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Int32 -- lineNumber
-> Int32 -- byteIndex
-> m (TextIter) -- result
textBufferGetIterAtLineIndex _obj lineNumber byteIndex = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_iter_at_line_index _obj' iter lineNumber byteIndex
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
data TextBufferGetIterAtLineIndexMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineIndexMethodInfo a signature where
overloadedMethod _ = textBufferGetIterAtLineIndex
-- method TextBuffer::get_iter_at_line_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_line_offset" gtk_text_buffer_get_iter_at_line_offset ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- line_number : TBasicType TInt32
Int32 -> -- char_offset : TBasicType TInt32
IO ()
textBufferGetIterAtLineOffset ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Int32 -- lineNumber
-> Int32 -- charOffset
-> m (TextIter) -- result
textBufferGetIterAtLineOffset _obj lineNumber charOffset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_iter_at_line_offset _obj' iter lineNumber charOffset
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
data TextBufferGetIterAtLineOffsetMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineOffsetMethodInfo a signature where
overloadedMethod _ = textBufferGetIterAtLineOffset
-- method TextBuffer::get_iter_at_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_mark" gtk_text_buffer_get_iter_at_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
IO ()
textBufferGetIterAtMark ::
(MonadIO m, TextBufferK a, TextMarkK b) =>
a -- _obj
-> b -- mark
-> m (TextIter) -- result
textBufferGetIterAtMark _obj mark = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
let mark' = unsafeManagedPtrCastPtr mark
gtk_text_buffer_get_iter_at_mark _obj' iter mark'
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
touchManagedPtr mark
return iter'
data TextBufferGetIterAtMarkMethodInfo
instance (signature ~ (b -> m (TextIter)), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferGetIterAtMarkMethodInfo a signature where
overloadedMethod _ = textBufferGetIterAtMark
-- method TextBuffer::get_iter_at_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_offset" gtk_text_buffer_get_iter_at_offset ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- char_offset : TBasicType TInt32
IO ()
textBufferGetIterAtOffset ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Int32 -- charOffset
-> m (TextIter) -- result
textBufferGetIterAtOffset _obj charOffset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_iter_at_offset _obj' iter charOffset
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
data TextBufferGetIterAtOffsetMethodInfo
instance (signature ~ (Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtOffsetMethodInfo a signature where
overloadedMethod _ = textBufferGetIterAtOffset
-- method TextBuffer::get_line_count
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_line_count" gtk_text_buffer_get_line_count ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO Int32
textBufferGetLineCount ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m Int32 -- result
textBufferGetLineCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_line_count _obj'
touchManagedPtr _obj
return result
data TextBufferGetLineCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetLineCountMethodInfo a signature where
overloadedMethod _ = textBufferGetLineCount
-- method TextBuffer::get_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_mark" gtk_text_buffer_get_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
IO (Ptr TextMark)
textBufferGetMark ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- name
-> m TextMark -- result
textBufferGetMark _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- gtk_text_buffer_get_mark _obj' name'
checkUnexpectedReturnNULL "gtk_text_buffer_get_mark" result
result' <- (newObject TextMark) result
touchManagedPtr _obj
freeMem name'
return result'
data TextBufferGetMarkMethodInfo
instance (signature ~ (T.Text -> m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetMarkMethodInfo a signature where
overloadedMethod _ = textBufferGetMark
-- method TextBuffer::get_modified
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_modified" gtk_text_buffer_get_modified ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO CInt
textBufferGetModified ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m Bool -- result
textBufferGetModified _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_modified _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data TextBufferGetModifiedMethodInfo
instance (signature ~ (m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetModifiedMethodInfo a signature where
overloadedMethod _ = textBufferGetModified
-- method TextBuffer::get_paste_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_paste_target_list" gtk_text_buffer_get_paste_target_list ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TargetList)
textBufferGetPasteTargetList ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m TargetList -- result
textBufferGetPasteTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_paste_target_list _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_paste_target_list" result
result' <- (newBoxed TargetList) result
touchManagedPtr _obj
return result'
data TextBufferGetPasteTargetListMethodInfo
instance (signature ~ (m TargetList), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetPasteTargetListMethodInfo a signature where
overloadedMethod _ = textBufferGetPasteTargetList
-- method TextBuffer::get_selection_bound
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_selection_bound" gtk_text_buffer_get_selection_bound ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TextMark)
textBufferGetSelectionBound ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m TextMark -- result
textBufferGetSelectionBound _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_selection_bound _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_selection_bound" result
result' <- (newObject TextMark) result
touchManagedPtr _obj
return result'
data TextBufferGetSelectionBoundMethodInfo
instance (signature ~ (m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSelectionBoundMethodInfo a signature where
overloadedMethod _ = textBufferGetSelectionBound
-- method TextBuffer::get_selection_bounds
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_selection_bounds" gtk_text_buffer_get_selection_bounds ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO CInt
textBufferGetSelectionBounds ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m (Bool,TextIter,TextIter) -- result
textBufferGetSelectionBounds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start <- callocBoxedBytes 80 :: IO (Ptr TextIter)
end <- callocBoxedBytes 80 :: IO (Ptr TextIter)
result <- gtk_text_buffer_get_selection_bounds _obj' start end
let result' = (/= 0) result
start' <- (wrapBoxed TextIter) start
end' <- (wrapBoxed TextIter) end
touchManagedPtr _obj
return (result', start', end')
data TextBufferGetSelectionBoundsMethodInfo
instance (signature ~ (m (Bool,TextIter,TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSelectionBoundsMethodInfo a signature where
overloadedMethod _ = textBufferGetSelectionBounds
-- method TextBuffer::get_serialize_formats
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_serialize_formats" gtk_text_buffer_get_serialize_formats ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Int32 -> -- n_formats : TBasicType TInt32
IO (Ptr (Ptr Gdk.Atom))
textBufferGetSerializeFormats ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m [Gdk.Atom] -- result
textBufferGetSerializeFormats _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
nFormats <- allocMem :: IO (Ptr Int32)
result <- gtk_text_buffer_get_serialize_formats _obj' nFormats
nFormats' <- peek nFormats
checkUnexpectedReturnNULL "gtk_text_buffer_get_serialize_formats" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (unpackPtrArrayWithLength nFormats') result
result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result'
freeMem result
touchManagedPtr _obj
freeMem nFormats
return result''
data TextBufferGetSerializeFormatsMethodInfo
instance (signature ~ (m [Gdk.Atom]), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSerializeFormatsMethodInfo a signature where
overloadedMethod _ = textBufferGetSerializeFormats
-- method TextBuffer::get_slice
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_slice" gtk_text_buffer_get_slice ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
CInt -> -- include_hidden_chars : TBasicType TBoolean
IO CString
textBufferGetSlice ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- start
-> TextIter -- end
-> Bool -- includeHiddenChars
-> m T.Text -- result
textBufferGetSlice _obj start end includeHiddenChars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
let includeHiddenChars' = (fromIntegral . fromEnum) includeHiddenChars
result <- gtk_text_buffer_get_slice _obj' start' end' includeHiddenChars'
checkUnexpectedReturnNULL "gtk_text_buffer_get_slice" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return result'
data TextBufferGetSliceMethodInfo
instance (signature ~ (TextIter -> TextIter -> Bool -> m T.Text), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSliceMethodInfo a signature where
overloadedMethod _ = textBufferGetSlice
-- method TextBuffer::get_start_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_start_iter" gtk_text_buffer_get_start_iter ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO ()
textBufferGetStartIter ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m (TextIter) -- result
textBufferGetStartIter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_start_iter _obj' iter
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
data TextBufferGetStartIterMethodInfo
instance (signature ~ (m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetStartIterMethodInfo a signature where
overloadedMethod _ = textBufferGetStartIter
-- method TextBuffer::get_tag_table
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "TextTagTable"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_tag_table" gtk_text_buffer_get_tag_table ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TextTagTable)
textBufferGetTagTable ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> m TextTagTable -- result
textBufferGetTagTable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_tag_table _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_tag_table" result
result' <- (newObject TextTagTable) result
touchManagedPtr _obj
return result'
data TextBufferGetTagTableMethodInfo
instance (signature ~ (m TextTagTable), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetTagTableMethodInfo a signature where
overloadedMethod _ = textBufferGetTagTable
-- method TextBuffer::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_text" gtk_text_buffer_get_text ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
CInt -> -- include_hidden_chars : TBasicType TBoolean
IO CString
textBufferGetText ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- start
-> TextIter -- end
-> Bool -- includeHiddenChars
-> m T.Text -- result
textBufferGetText _obj start end includeHiddenChars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
let includeHiddenChars' = (fromIntegral . fromEnum) includeHiddenChars
result <- gtk_text_buffer_get_text _obj' start' end' includeHiddenChars'
checkUnexpectedReturnNULL "gtk_text_buffer_get_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return result'
data TextBufferGetTextMethodInfo
instance (signature ~ (TextIter -> TextIter -> Bool -> m T.Text), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetTextMethodInfo a signature where
overloadedMethod _ = textBufferGetText
-- method TextBuffer::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert" gtk_text_buffer_insert ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
textBufferInsert ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- iter
-> T.Text -- text
-> Int32 -- len
-> m () -- result
textBufferInsert _obj iter text len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
text' <- textToCString text
gtk_text_buffer_insert _obj' iter' text' len
touchManagedPtr _obj
touchManagedPtr iter
freeMem text'
return ()
data TextBufferInsertMethodInfo
instance (signature ~ (TextIter -> T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertMethodInfo a signature where
overloadedMethod _ = textBufferInsert
-- method TextBuffer::insert_at_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_at_cursor" gtk_text_buffer_insert_at_cursor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
textBufferInsertAtCursor ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- text
-> Int32 -- len
-> m () -- result
textBufferInsertAtCursor _obj text len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_text_buffer_insert_at_cursor _obj' text' len
touchManagedPtr _obj
freeMem text'
return ()
data TextBufferInsertAtCursorMethodInfo
instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertAtCursorMethodInfo a signature where
overloadedMethod _ = textBufferInsertAtCursor
-- method TextBuffer::insert_child_anchor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_child_anchor" gtk_text_buffer_insert_child_anchor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor"
IO ()
textBufferInsertChildAnchor ::
(MonadIO m, TextBufferK a, TextChildAnchorK b) =>
a -- _obj
-> TextIter -- iter
-> b -- anchor
-> m () -- result
textBufferInsertChildAnchor _obj iter anchor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let anchor' = unsafeManagedPtrCastPtr anchor
gtk_text_buffer_insert_child_anchor _obj' iter' anchor'
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr anchor
return ()
data TextBufferInsertChildAnchorMethodInfo
instance (signature ~ (TextIter -> b -> m ()), MonadIO m, TextBufferK a, TextChildAnchorK b) => MethodInfo TextBufferInsertChildAnchorMethodInfo a signature where
overloadedMethod _ = textBufferInsertChildAnchor
-- method TextBuffer::insert_interactive
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_interactive" gtk_text_buffer_insert_interactive ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferInsertInteractive ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- iter
-> T.Text -- text
-> Int32 -- len
-> Bool -- defaultEditable
-> m Bool -- result
textBufferInsertInteractive _obj iter text len defaultEditable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
text' <- textToCString text
let defaultEditable' = (fromIntegral . fromEnum) defaultEditable
result <- gtk_text_buffer_insert_interactive _obj' iter' text' len defaultEditable'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
freeMem text'
return result'
data TextBufferInsertInteractiveMethodInfo
instance (signature ~ (TextIter -> T.Text -> Int32 -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertInteractiveMethodInfo a signature where
overloadedMethod _ = textBufferInsertInteractive
-- method TextBuffer::insert_interactive_at_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_interactive_at_cursor" gtk_text_buffer_insert_interactive_at_cursor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferInsertInteractiveAtCursor ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- text
-> Int32 -- len
-> Bool -- defaultEditable
-> m Bool -- result
textBufferInsertInteractiveAtCursor _obj text len defaultEditable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
let defaultEditable' = (fromIntegral . fromEnum) defaultEditable
result <- gtk_text_buffer_insert_interactive_at_cursor _obj' text' len defaultEditable'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem text'
return result'
data TextBufferInsertInteractiveAtCursorMethodInfo
instance (signature ~ (T.Text -> Int32 -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertInteractiveAtCursorMethodInfo a signature where
overloadedMethod _ = textBufferInsertInteractiveAtCursor
-- method TextBuffer::insert_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_markup" gtk_text_buffer_insert_markup ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CString -> -- markup : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
textBufferInsertMarkup ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- iter
-> T.Text -- markup
-> Int32 -- len
-> m () -- result
textBufferInsertMarkup _obj iter markup len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
markup' <- textToCString markup
gtk_text_buffer_insert_markup _obj' iter' markup' len
touchManagedPtr _obj
touchManagedPtr iter
freeMem markup'
return ()
data TextBufferInsertMarkupMethodInfo
instance (signature ~ (TextIter -> T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertMarkupMethodInfo a signature where
overloadedMethod _ = textBufferInsertMarkup
-- method TextBuffer::insert_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", 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 : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_pixbuf" gtk_text_buffer_insert_pixbuf ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
textBufferInsertPixbuf ::
(MonadIO m, TextBufferK a, GdkPixbuf.PixbufK b) =>
a -- _obj
-> TextIter -- iter
-> b -- pixbuf
-> m () -- result
textBufferInsertPixbuf _obj iter pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_text_buffer_insert_pixbuf _obj' iter' pixbuf'
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr pixbuf
return ()
data TextBufferInsertPixbufMethodInfo
instance (signature ~ (TextIter -> b -> m ()), MonadIO m, TextBufferK a, GdkPixbuf.PixbufK b) => MethodInfo TextBufferInsertPixbufMethodInfo a signature where
overloadedMethod _ = textBufferInsertPixbuf
-- method TextBuffer::insert_range
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_range" gtk_text_buffer_insert_range ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferInsertRange ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- iter
-> TextIter -- start
-> TextIter -- end
-> m () -- result
textBufferInsertRange _obj iter start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_insert_range _obj' iter' start' end'
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr start
touchManagedPtr end
return ()
data TextBufferInsertRangeMethodInfo
instance (signature ~ (TextIter -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertRangeMethodInfo a signature where
overloadedMethod _ = textBufferInsertRange
-- method TextBuffer::insert_range_interactive
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_range_interactive" gtk_text_buffer_insert_range_interactive ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferInsertRangeInteractive ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- iter
-> TextIter -- start
-> TextIter -- end
-> Bool -- defaultEditable
-> m Bool -- result
textBufferInsertRangeInteractive _obj iter start end defaultEditable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
let defaultEditable' = (fromIntegral . fromEnum) defaultEditable
result <- gtk_text_buffer_insert_range_interactive _obj' iter' start' end' defaultEditable'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr start
touchManagedPtr end
return result'
data TextBufferInsertRangeInteractiveMethodInfo
instance (signature ~ (TextIter -> TextIter -> TextIter -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertRangeInteractiveMethodInfo a signature where
overloadedMethod _ = textBufferInsertRangeInteractive
-- method TextBuffer::move_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_move_mark" gtk_text_buffer_move_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
IO ()
textBufferMoveMark ::
(MonadIO m, TextBufferK a, TextMarkK b) =>
a -- _obj
-> b -- mark
-> TextIter -- where_
-> m () -- result
textBufferMoveMark _obj mark where_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
let where_' = unsafeManagedPtrGetPtr where_
gtk_text_buffer_move_mark _obj' mark' where_'
touchManagedPtr _obj
touchManagedPtr mark
touchManagedPtr where_
return ()
data TextBufferMoveMarkMethodInfo
instance (signature ~ (b -> TextIter -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferMoveMarkMethodInfo a signature where
overloadedMethod _ = textBufferMoveMark
-- method TextBuffer::move_mark_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_move_mark_by_name" gtk_text_buffer_move_mark_by_name ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
IO ()
textBufferMoveMarkByName ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- name
-> TextIter -- where_
-> m () -- result
textBufferMoveMarkByName _obj name where_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let where_' = unsafeManagedPtrGetPtr where_
gtk_text_buffer_move_mark_by_name _obj' name' where_'
touchManagedPtr _obj
touchManagedPtr where_
freeMem name'
return ()
data TextBufferMoveMarkByNameMethodInfo
instance (signature ~ (T.Text -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferMoveMarkByNameMethodInfo a signature where
overloadedMethod _ = textBufferMoveMarkByName
-- method TextBuffer::paste_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_paste_clipboard" gtk_text_buffer_paste_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
Ptr TextIter -> -- override_location : TInterface "Gtk" "TextIter"
CInt -> -- default_editable : TBasicType TBoolean
IO ()
textBufferPasteClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -- _obj
-> b -- clipboard
-> Maybe (TextIter) -- overrideLocation
-> Bool -- defaultEditable
-> m () -- result
textBufferPasteClipboard _obj clipboard overrideLocation defaultEditable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
maybeOverrideLocation <- case overrideLocation of
Nothing -> return nullPtr
Just jOverrideLocation -> do
let jOverrideLocation' = unsafeManagedPtrGetPtr jOverrideLocation
return jOverrideLocation'
let defaultEditable' = (fromIntegral . fromEnum) defaultEditable
gtk_text_buffer_paste_clipboard _obj' clipboard' maybeOverrideLocation defaultEditable'
touchManagedPtr _obj
touchManagedPtr clipboard
whenJust overrideLocation touchManagedPtr
return ()
data TextBufferPasteClipboardMethodInfo
instance (signature ~ (b -> Maybe (TextIter) -> Bool -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferPasteClipboardMethodInfo a signature where
overloadedMethod _ = textBufferPasteClipboard
-- method TextBuffer::place_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_place_cursor" gtk_text_buffer_place_cursor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
IO ()
textBufferPlaceCursor ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- where_
-> m () -- result
textBufferPlaceCursor _obj where_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let where_' = unsafeManagedPtrGetPtr where_
gtk_text_buffer_place_cursor _obj' where_'
touchManagedPtr _obj
touchManagedPtr where_
return ()
data TextBufferPlaceCursorMethodInfo
instance (signature ~ (TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferPlaceCursorMethodInfo a signature where
overloadedMethod _ = textBufferPlaceCursor
-- method TextBuffer::register_deserialize_format
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_register_deserialize_format" gtk_text_buffer_register_deserialize_format ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- mime_type : TBasicType TUTF8
FunPtr TextBufferDeserializeFuncC -> -- function : TInterface "Gtk" "TextBufferDeserializeFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify"
IO (Ptr Gdk.Atom)
textBufferRegisterDeserializeFormat ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- mimeType
-> TextBufferDeserializeFunc -- function
-> m Gdk.Atom -- result
textBufferRegisterDeserializeFormat _obj mimeType function = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mimeType' <- textToCString mimeType
function' <- mkTextBufferDeserializeFunc (textBufferDeserializeFuncWrapper Nothing function)
let userData = castFunPtrToPtr function'
let userDataDestroy = safeFreeFunPtrPtr
result <- gtk_text_buffer_register_deserialize_format _obj' mimeType' function' userData userDataDestroy
checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_format" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
freeMem mimeType'
return result'
data TextBufferRegisterDeserializeFormatMethodInfo
instance (signature ~ (T.Text -> TextBufferDeserializeFunc -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterDeserializeFormatMethodInfo a signature where
overloadedMethod _ = textBufferRegisterDeserializeFormat
-- method TextBuffer::register_deserialize_tagset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_register_deserialize_tagset" gtk_text_buffer_register_deserialize_tagset ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- tagset_name : TBasicType TUTF8
IO (Ptr Gdk.Atom)
textBufferRegisterDeserializeTagset ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Maybe (T.Text) -- tagsetName
-> m Gdk.Atom -- result
textBufferRegisterDeserializeTagset _obj tagsetName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTagsetName <- case tagsetName of
Nothing -> return nullPtr
Just jTagsetName -> do
jTagsetName' <- textToCString jTagsetName
return jTagsetName'
result <- gtk_text_buffer_register_deserialize_tagset _obj' maybeTagsetName
checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_tagset" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
freeMem maybeTagsetName
return result'
data TextBufferRegisterDeserializeTagsetMethodInfo
instance (signature ~ (Maybe (T.Text) -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterDeserializeTagsetMethodInfo a signature where
overloadedMethod _ = textBufferRegisterDeserializeTagset
-- method TextBuffer::register_serialize_format
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_register_serialize_format" gtk_text_buffer_register_serialize_format ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- mime_type : TBasicType TUTF8
FunPtr TextBufferSerializeFuncC -> -- function : TInterface "Gtk" "TextBufferSerializeFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify"
IO (Ptr Gdk.Atom)
textBufferRegisterSerializeFormat ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- mimeType
-> TextBufferSerializeFunc -- function
-> m Gdk.Atom -- result
textBufferRegisterSerializeFormat _obj mimeType function = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mimeType' <- textToCString mimeType
function' <- mkTextBufferSerializeFunc (textBufferSerializeFuncWrapper Nothing function)
let userData = castFunPtrToPtr function'
let userDataDestroy = safeFreeFunPtrPtr
result <- gtk_text_buffer_register_serialize_format _obj' mimeType' function' userData userDataDestroy
checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_format" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
freeMem mimeType'
return result'
data TextBufferRegisterSerializeFormatMethodInfo
instance (signature ~ (T.Text -> TextBufferSerializeFunc -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterSerializeFormatMethodInfo a signature where
overloadedMethod _ = textBufferRegisterSerializeFormat
-- method TextBuffer::register_serialize_tagset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_register_serialize_tagset" gtk_text_buffer_register_serialize_tagset ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- tagset_name : TBasicType TUTF8
IO (Ptr Gdk.Atom)
textBufferRegisterSerializeTagset ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Maybe (T.Text) -- tagsetName
-> m Gdk.Atom -- result
textBufferRegisterSerializeTagset _obj tagsetName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTagsetName <- case tagsetName of
Nothing -> return nullPtr
Just jTagsetName -> do
jTagsetName' <- textToCString jTagsetName
return jTagsetName'
result <- gtk_text_buffer_register_serialize_tagset _obj' maybeTagsetName
checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_tagset" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
freeMem maybeTagsetName
return result'
data TextBufferRegisterSerializeTagsetMethodInfo
instance (signature ~ (Maybe (T.Text) -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterSerializeTagsetMethodInfo a signature where
overloadedMethod _ = textBufferRegisterSerializeTagset
-- method TextBuffer::remove_all_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_remove_all_tags" gtk_text_buffer_remove_all_tags ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferRemoveAllTags ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- start
-> TextIter -- end
-> m () -- result
textBufferRemoveAllTags _obj start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_remove_all_tags _obj' start' end'
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return ()
data TextBufferRemoveAllTagsMethodInfo
instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferRemoveAllTagsMethodInfo a signature where
overloadedMethod _ = textBufferRemoveAllTags
-- method TextBuffer::remove_selection_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_remove_selection_clipboard" gtk_text_buffer_remove_selection_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
IO ()
textBufferRemoveSelectionClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -- _obj
-> b -- clipboard
-> m () -- result
textBufferRemoveSelectionClipboard _obj clipboard = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
gtk_text_buffer_remove_selection_clipboard _obj' clipboard'
touchManagedPtr _obj
touchManagedPtr clipboard
return ()
data TextBufferRemoveSelectionClipboardMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferRemoveSelectionClipboardMethodInfo a signature where
overloadedMethod _ = textBufferRemoveSelectionClipboard
-- method TextBuffer::remove_tag
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_remove_tag" gtk_text_buffer_remove_tag ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferRemoveTag ::
(MonadIO m, TextBufferK a, TextTagK b) =>
a -- _obj
-> b -- tag
-> TextIter -- start
-> TextIter -- end
-> m () -- result
textBufferRemoveTag _obj tag start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tag' = unsafeManagedPtrCastPtr tag
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_remove_tag _obj' tag' start' end'
touchManagedPtr _obj
touchManagedPtr tag
touchManagedPtr start
touchManagedPtr end
return ()
data TextBufferRemoveTagMethodInfo
instance (signature ~ (b -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a, TextTagK b) => MethodInfo TextBufferRemoveTagMethodInfo a signature where
overloadedMethod _ = textBufferRemoveTag
-- method TextBuffer::remove_tag_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_remove_tag_by_name" gtk_text_buffer_remove_tag_by_name ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferRemoveTagByName ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- name
-> TextIter -- start
-> TextIter -- end
-> m () -- result
textBufferRemoveTagByName _obj name start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_remove_tag_by_name _obj' name' start' end'
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
freeMem name'
return ()
data TextBufferRemoveTagByNameMethodInfo
instance (signature ~ (T.Text -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferRemoveTagByNameMethodInfo a signature where
overloadedMethod _ = textBufferRemoveTagByName
-- method TextBuffer::select_range
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_select_range" gtk_text_buffer_select_range ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- ins : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- bound : TInterface "Gtk" "TextIter"
IO ()
textBufferSelectRange ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> TextIter -- ins
-> TextIter -- bound
-> m () -- result
textBufferSelectRange _obj ins bound = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ins' = unsafeManagedPtrGetPtr ins
let bound' = unsafeManagedPtrGetPtr bound
gtk_text_buffer_select_range _obj' ins' bound'
touchManagedPtr _obj
touchManagedPtr ins
touchManagedPtr bound
return ()
data TextBufferSelectRangeMethodInfo
instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSelectRangeMethodInfo a signature where
overloadedMethod _ = textBufferSelectRange
-- method TextBuffer::serialize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- returnType : TCArray False (-1) 5 (TBasicType TUInt8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_serialize" gtk_text_buffer_serialize ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
Ptr Word64 -> -- length : TBasicType TUInt64
IO (Ptr Word8)
textBufferSerialize ::
(MonadIO m, TextBufferK a, TextBufferK b) =>
a -- _obj
-> b -- contentBuffer
-> Gdk.Atom -- format
-> TextIter -- start
-> TextIter -- end
-> m ByteString -- result
textBufferSerialize _obj contentBuffer format start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let contentBuffer' = unsafeManagedPtrCastPtr contentBuffer
let format' = unsafeManagedPtrGetPtr format
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
length_ <- allocMem :: IO (Ptr Word64)
result <- gtk_text_buffer_serialize _obj' contentBuffer' format' start' end' length_
length_' <- peek length_
checkUnexpectedReturnNULL "gtk_text_buffer_serialize" result
result' <- (unpackByteStringWithLength length_') result
freeMem result
touchManagedPtr _obj
touchManagedPtr contentBuffer
touchManagedPtr format
touchManagedPtr start
touchManagedPtr end
freeMem length_
return result'
data TextBufferSerializeMethodInfo
instance (signature ~ (b -> Gdk.Atom -> TextIter -> TextIter -> m ByteString), MonadIO m, TextBufferK a, TextBufferK b) => MethodInfo TextBufferSerializeMethodInfo a signature where
overloadedMethod _ = textBufferSerialize
-- method TextBuffer::set_modified
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_set_modified" gtk_text_buffer_set_modified ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CInt -> -- setting : TBasicType TBoolean
IO ()
textBufferSetModified ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Bool -- setting
-> m () -- result
textBufferSetModified _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_text_buffer_set_modified _obj' setting'
touchManagedPtr _obj
return ()
data TextBufferSetModifiedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSetModifiedMethodInfo a signature where
overloadedMethod _ = textBufferSetModified
-- method TextBuffer::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_set_text" gtk_text_buffer_set_text ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
textBufferSetText ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> T.Text -- text
-> Int32 -- len
-> m () -- result
textBufferSetText _obj text len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_text_buffer_set_text _obj' text' len
touchManagedPtr _obj
freeMem text'
return ()
data TextBufferSetTextMethodInfo
instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSetTextMethodInfo a signature where
overloadedMethod _ = textBufferSetText
-- method TextBuffer::unregister_deserialize_format
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_unregister_deserialize_format" gtk_text_buffer_unregister_deserialize_format ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
IO ()
textBufferUnregisterDeserializeFormat ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Gdk.Atom -- format
-> m () -- result
textBufferUnregisterDeserializeFormat _obj format = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = unsafeManagedPtrGetPtr format
gtk_text_buffer_unregister_deserialize_format _obj' format'
touchManagedPtr _obj
touchManagedPtr format
return ()
data TextBufferUnregisterDeserializeFormatMethodInfo
instance (signature ~ (Gdk.Atom -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferUnregisterDeserializeFormatMethodInfo a signature where
overloadedMethod _ = textBufferUnregisterDeserializeFormat
-- method TextBuffer::unregister_serialize_format
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_unregister_serialize_format" gtk_text_buffer_unregister_serialize_format ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
IO ()
textBufferUnregisterSerializeFormat ::
(MonadIO m, TextBufferK a) =>
a -- _obj
-> Gdk.Atom -- format
-> m () -- result
textBufferUnregisterSerializeFormat _obj format = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = unsafeManagedPtrGetPtr format
gtk_text_buffer_unregister_serialize_format _obj' format'
touchManagedPtr _obj
touchManagedPtr format
return ()
data TextBufferUnregisterSerializeFormatMethodInfo
instance (signature ~ (Gdk.Atom -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferUnregisterSerializeFormatMethodInfo a signature where
overloadedMethod _ = textBufferUnregisterSerializeFormat