{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.TextBuffer
(
TextBuffer(..) ,
IsTextBuffer ,
toTextBuffer ,
#if defined(ENABLE_OVERLOADING)
ResolveTextBufferMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TextBufferAddMarkMethodInfo ,
#endif
textBufferAddMark ,
#if defined(ENABLE_OVERLOADING)
TextBufferAddSelectionClipboardMethodInfo,
#endif
textBufferAddSelectionClipboard ,
#if defined(ENABLE_OVERLOADING)
TextBufferApplyTagMethodInfo ,
#endif
textBufferApplyTag ,
#if defined(ENABLE_OVERLOADING)
TextBufferApplyTagByNameMethodInfo ,
#endif
textBufferApplyTagByName ,
#if defined(ENABLE_OVERLOADING)
TextBufferBackspaceMethodInfo ,
#endif
textBufferBackspace ,
#if defined(ENABLE_OVERLOADING)
TextBufferBeginUserActionMethodInfo ,
#endif
textBufferBeginUserAction ,
#if defined(ENABLE_OVERLOADING)
TextBufferCopyClipboardMethodInfo ,
#endif
textBufferCopyClipboard ,
#if defined(ENABLE_OVERLOADING)
TextBufferCreateChildAnchorMethodInfo ,
#endif
textBufferCreateChildAnchor ,
#if defined(ENABLE_OVERLOADING)
TextBufferCreateMarkMethodInfo ,
#endif
textBufferCreateMark ,
#if defined(ENABLE_OVERLOADING)
TextBufferCutClipboardMethodInfo ,
#endif
textBufferCutClipboard ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeleteMethodInfo ,
#endif
textBufferDelete ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeleteInteractiveMethodInfo ,
#endif
textBufferDeleteInteractive ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeleteMarkMethodInfo ,
#endif
textBufferDeleteMark ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeleteMarkByNameMethodInfo ,
#endif
textBufferDeleteMarkByName ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeleteSelectionMethodInfo ,
#endif
textBufferDeleteSelection ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeserializeMethodInfo ,
#endif
textBufferDeserialize ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeserializeGetCanCreateTagsMethodInfo,
#endif
textBufferDeserializeGetCanCreateTags ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeserializeSetCanCreateTagsMethodInfo,
#endif
textBufferDeserializeSetCanCreateTags ,
#if defined(ENABLE_OVERLOADING)
TextBufferEndUserActionMethodInfo ,
#endif
textBufferEndUserAction ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetBoundsMethodInfo ,
#endif
textBufferGetBounds ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetCharCountMethodInfo ,
#endif
textBufferGetCharCount ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetCopyTargetListMethodInfo ,
#endif
textBufferGetCopyTargetList ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetDeserializeFormatsMethodInfo,
#endif
textBufferGetDeserializeFormats ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetEndIterMethodInfo ,
#endif
textBufferGetEndIter ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetHasSelectionMethodInfo ,
#endif
textBufferGetHasSelection ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetInsertMethodInfo ,
#endif
textBufferGetInsert ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetIterAtChildAnchorMethodInfo,
#endif
textBufferGetIterAtChildAnchor ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetIterAtLineMethodInfo ,
#endif
textBufferGetIterAtLine ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetIterAtLineIndexMethodInfo ,
#endif
textBufferGetIterAtLineIndex ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetIterAtLineOffsetMethodInfo ,
#endif
textBufferGetIterAtLineOffset ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetIterAtMarkMethodInfo ,
#endif
textBufferGetIterAtMark ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetIterAtOffsetMethodInfo ,
#endif
textBufferGetIterAtOffset ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetLineCountMethodInfo ,
#endif
textBufferGetLineCount ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetMarkMethodInfo ,
#endif
textBufferGetMark ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetModifiedMethodInfo ,
#endif
textBufferGetModified ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetPasteTargetListMethodInfo ,
#endif
textBufferGetPasteTargetList ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetSelectionBoundMethodInfo ,
#endif
textBufferGetSelectionBound ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetSelectionBoundsMethodInfo ,
#endif
textBufferGetSelectionBounds ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetSerializeFormatsMethodInfo ,
#endif
textBufferGetSerializeFormats ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetSliceMethodInfo ,
#endif
textBufferGetSlice ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetStartIterMethodInfo ,
#endif
textBufferGetStartIter ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetTagTableMethodInfo ,
#endif
textBufferGetTagTable ,
#if defined(ENABLE_OVERLOADING)
TextBufferGetTextMethodInfo ,
#endif
textBufferGetText ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertMethodInfo ,
#endif
textBufferInsert ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertAtCursorMethodInfo ,
#endif
textBufferInsertAtCursor ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertChildAnchorMethodInfo ,
#endif
textBufferInsertChildAnchor ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertInteractiveMethodInfo ,
#endif
textBufferInsertInteractive ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertInteractiveAtCursorMethodInfo,
#endif
textBufferInsertInteractiveAtCursor ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertMarkupMethodInfo ,
#endif
textBufferInsertMarkup ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertPixbufMethodInfo ,
#endif
textBufferInsertPixbuf ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertRangeMethodInfo ,
#endif
textBufferInsertRange ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertRangeInteractiveMethodInfo,
#endif
textBufferInsertRangeInteractive ,
#if defined(ENABLE_OVERLOADING)
TextBufferMoveMarkMethodInfo ,
#endif
textBufferMoveMark ,
#if defined(ENABLE_OVERLOADING)
TextBufferMoveMarkByNameMethodInfo ,
#endif
textBufferMoveMarkByName ,
textBufferNew ,
#if defined(ENABLE_OVERLOADING)
TextBufferPasteClipboardMethodInfo ,
#endif
textBufferPasteClipboard ,
#if defined(ENABLE_OVERLOADING)
TextBufferPlaceCursorMethodInfo ,
#endif
textBufferPlaceCursor ,
#if defined(ENABLE_OVERLOADING)
TextBufferRegisterDeserializeFormatMethodInfo,
#endif
textBufferRegisterDeserializeFormat ,
#if defined(ENABLE_OVERLOADING)
TextBufferRegisterDeserializeTagsetMethodInfo,
#endif
textBufferRegisterDeserializeTagset ,
#if defined(ENABLE_OVERLOADING)
TextBufferRegisterSerializeFormatMethodInfo,
#endif
textBufferRegisterSerializeFormat ,
#if defined(ENABLE_OVERLOADING)
TextBufferRegisterSerializeTagsetMethodInfo,
#endif
textBufferRegisterSerializeTagset ,
#if defined(ENABLE_OVERLOADING)
TextBufferRemoveAllTagsMethodInfo ,
#endif
textBufferRemoveAllTags ,
#if defined(ENABLE_OVERLOADING)
TextBufferRemoveSelectionClipboardMethodInfo,
#endif
textBufferRemoveSelectionClipboard ,
#if defined(ENABLE_OVERLOADING)
TextBufferRemoveTagMethodInfo ,
#endif
textBufferRemoveTag ,
#if defined(ENABLE_OVERLOADING)
TextBufferRemoveTagByNameMethodInfo ,
#endif
textBufferRemoveTagByName ,
#if defined(ENABLE_OVERLOADING)
TextBufferSelectRangeMethodInfo ,
#endif
textBufferSelectRange ,
#if defined(ENABLE_OVERLOADING)
TextBufferSerializeMethodInfo ,
#endif
textBufferSerialize ,
#if defined(ENABLE_OVERLOADING)
TextBufferSetModifiedMethodInfo ,
#endif
textBufferSetModified ,
#if defined(ENABLE_OVERLOADING)
TextBufferSetTextMethodInfo ,
#endif
textBufferSetText ,
#if defined(ENABLE_OVERLOADING)
TextBufferUnregisterDeserializeFormatMethodInfo,
#endif
textBufferUnregisterDeserializeFormat ,
#if defined(ENABLE_OVERLOADING)
TextBufferUnregisterSerializeFormatMethodInfo,
#endif
textBufferUnregisterSerializeFormat ,
#if defined(ENABLE_OVERLOADING)
TextBufferCopyTargetListPropertyInfo ,
#endif
getTextBufferCopyTargetList ,
#if defined(ENABLE_OVERLOADING)
textBufferCopyTargetList ,
#endif
#if defined(ENABLE_OVERLOADING)
TextBufferCursorPositionPropertyInfo ,
#endif
getTextBufferCursorPosition ,
#if defined(ENABLE_OVERLOADING)
textBufferCursorPosition ,
#endif
#if defined(ENABLE_OVERLOADING)
TextBufferHasSelectionPropertyInfo ,
#endif
getTextBufferHasSelection ,
#if defined(ENABLE_OVERLOADING)
textBufferHasSelection ,
#endif
#if defined(ENABLE_OVERLOADING)
TextBufferPasteTargetListPropertyInfo ,
#endif
getTextBufferPasteTargetList ,
#if defined(ENABLE_OVERLOADING)
textBufferPasteTargetList ,
#endif
#if defined(ENABLE_OVERLOADING)
TextBufferTagTablePropertyInfo ,
#endif
constructTextBufferTagTable ,
getTextBufferTagTable ,
#if defined(ENABLE_OVERLOADING)
textBufferTagTable ,
#endif
#if defined(ENABLE_OVERLOADING)
TextBufferTextPropertyInfo ,
#endif
clearTextBufferText ,
constructTextBufferText ,
getTextBufferText ,
setTextBufferText ,
#if defined(ENABLE_OVERLOADING)
textBufferText ,
#endif
TextBufferApplyTagCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferApplyTagSignalInfo ,
#endif
afterTextBufferApplyTag ,
onTextBufferApplyTag ,
TextBufferBeginUserActionCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferBeginUserActionSignalInfo ,
#endif
afterTextBufferBeginUserAction ,
onTextBufferBeginUserAction ,
TextBufferChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferChangedSignalInfo ,
#endif
afterTextBufferChanged ,
onTextBufferChanged ,
TextBufferDeleteRangeCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferDeleteRangeSignalInfo ,
#endif
afterTextBufferDeleteRange ,
onTextBufferDeleteRange ,
TextBufferEndUserActionCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferEndUserActionSignalInfo ,
#endif
afterTextBufferEndUserAction ,
onTextBufferEndUserAction ,
TextBufferInsertChildAnchorCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertChildAnchorSignalInfo ,
#endif
afterTextBufferInsertChildAnchor ,
onTextBufferInsertChildAnchor ,
TextBufferInsertPixbufCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertPixbufSignalInfo ,
#endif
afterTextBufferInsertPixbuf ,
onTextBufferInsertPixbuf ,
TextBufferInsertTextCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferInsertTextSignalInfo ,
#endif
afterTextBufferInsertText ,
onTextBufferInsertText ,
TextBufferMarkDeletedCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferMarkDeletedSignalInfo ,
#endif
afterTextBufferMarkDeleted ,
onTextBufferMarkDeleted ,
TextBufferMarkSetCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferMarkSetSignalInfo ,
#endif
afterTextBufferMarkSet ,
onTextBufferMarkSet ,
TextBufferModifiedChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferModifiedChangedSignalInfo ,
#endif
afterTextBufferModifiedChanged ,
onTextBufferModifiedChanged ,
TextBufferPasteDoneCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferPasteDoneSignalInfo ,
#endif
afterTextBufferPasteDone ,
onTextBufferPasteDone ,
TextBufferRemoveTagCallback ,
#if defined(ENABLE_OVERLOADING)
TextBufferRemoveTagSignalInfo ,
#endif
afterTextBufferRemoveTag ,
onTextBufferRemoveTag ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Atom as Gdk.Atom
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Objects.Clipboard as Gtk.Clipboard
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextChildAnchor as Gtk.TextChildAnchor
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextMark as Gtk.TextMark
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTagTable as Gtk.TextTagTable
import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetList as Gtk.TargetList
import {-# SOURCE #-} qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
newtype TextBuffer = TextBuffer (SP.ManagedPtr TextBuffer)
deriving (TextBuffer -> TextBuffer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextBuffer -> TextBuffer -> Bool
$c/= :: TextBuffer -> TextBuffer -> Bool
== :: TextBuffer -> TextBuffer -> Bool
$c== :: TextBuffer -> TextBuffer -> Bool
Eq)
instance SP.ManagedPtrNewtype TextBuffer where
toManagedPtr :: TextBuffer -> ManagedPtr TextBuffer
toManagedPtr (TextBuffer ManagedPtr TextBuffer
p) = ManagedPtr TextBuffer
p
foreign import ccall "gtk_text_buffer_get_type"
c_gtk_text_buffer_get_type :: IO B.Types.GType
instance B.Types.TypedObject TextBuffer where
glibType :: IO GType
glibType = IO GType
c_gtk_text_buffer_get_type
instance B.Types.GObject TextBuffer
class (SP.GObject o, O.IsDescendantOf TextBuffer o) => IsTextBuffer o
instance (SP.GObject o, O.IsDescendantOf TextBuffer o) => IsTextBuffer o
instance O.HasParentTypes TextBuffer
type instance O.ParentTypes TextBuffer = '[GObject.Object.Object]
toTextBuffer :: (MIO.MonadIO m, IsTextBuffer o) => o -> m TextBuffer
toTextBuffer :: forall (m :: * -> *) o.
(MonadIO m, IsTextBuffer o) =>
o -> m TextBuffer
toTextBuffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TextBuffer -> TextBuffer
TextBuffer
instance B.GValue.IsGValue (Maybe TextBuffer) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_text_buffer_get_type
gvalueSet_ :: Ptr GValue -> Maybe TextBuffer -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TextBuffer
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr TextBuffer)
gvalueSet_ Ptr GValue
gv (P.Just TextBuffer
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TextBuffer
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TextBuffer)
gvalueGet_ Ptr GValue
gv = do
Ptr TextBuffer
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TextBuffer)
if Ptr TextBuffer
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TextBuffer -> TextBuffer
TextBuffer Ptr TextBuffer
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTextBufferMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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.Object.ObjectBindPropertyMethodInfo
ResolveTextBufferMethod "bindPropertyFull" o = GObject.Object.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.Object.ObjectForceFloatingMethodInfo
ResolveTextBufferMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTextBufferMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
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.Object.ObjectIsFloatingMethodInfo
ResolveTextBufferMethod "moveMark" o = TextBufferMoveMarkMethodInfo
ResolveTextBufferMethod "moveMarkByName" o = TextBufferMoveMarkByNameMethodInfo
ResolveTextBufferMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTextBufferMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTextBufferMethod "pasteClipboard" o = TextBufferPasteClipboardMethodInfo
ResolveTextBufferMethod "placeCursor" o = TextBufferPlaceCursorMethodInfo
ResolveTextBufferMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTextBufferMethod "refSink" o = GObject.Object.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 "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTextBufferMethod "selectRange" o = TextBufferSelectRangeMethodInfo
ResolveTextBufferMethod "serialize" o = TextBufferSerializeMethodInfo
ResolveTextBufferMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTextBufferMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTextBufferMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTextBufferMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTextBufferMethod "unregisterDeserializeFormat" o = TextBufferUnregisterDeserializeFormatMethodInfo
ResolveTextBufferMethod "unregisterSerializeFormat" o = TextBufferUnregisterSerializeFormatMethodInfo
ResolveTextBufferMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTextBufferMethod "getBounds" o = TextBufferGetBoundsMethodInfo
ResolveTextBufferMethod "getCharCount" o = TextBufferGetCharCountMethodInfo
ResolveTextBufferMethod "getCopyTargetList" o = TextBufferGetCopyTargetListMethodInfo
ResolveTextBufferMethod "getData" o = GObject.Object.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.Object.ObjectGetPropertyMethodInfo
ResolveTextBufferMethod "getQdata" o = GObject.Object.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.Object.ObjectSetDataMethodInfo
ResolveTextBufferMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTextBufferMethod "setModified" o = TextBufferSetModifiedMethodInfo
ResolveTextBufferMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTextBufferMethod "setText" o = TextBufferSetTextMethodInfo
ResolveTextBufferMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTextBufferMethod t TextBuffer, O.OverloadedMethod info TextBuffer p) => OL.IsLabel t (TextBuffer -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveTextBufferMethod t TextBuffer, O.OverloadedMethod info TextBuffer p, R.HasField t TextBuffer p) => R.HasField t TextBuffer p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTextBufferMethod t TextBuffer, O.OverloadedMethodInfo info TextBuffer) => OL.IsLabel t (O.MethodProxy info TextBuffer) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type TextBufferApplyTagCallback =
Gtk.TextTag.TextTag
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> IO ()
type C_TextBufferApplyTagCallback =
Ptr TextBuffer ->
Ptr Gtk.TextTag.TextTag ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferApplyTagCallback :: C_TextBufferApplyTagCallback -> IO (FunPtr C_TextBufferApplyTagCallback)
wrap_TextBufferApplyTagCallback ::
GObject a => (a -> TextBufferApplyTagCallback) ->
C_TextBufferApplyTagCallback
wrap_TextBufferApplyTagCallback :: forall a.
GObject a =>
(a -> TextBufferApplyTagCallback) -> C_TextBufferApplyTagCallback
wrap_TextBufferApplyTagCallback a -> TextBufferApplyTagCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr TextTag
tag Ptr TextIter
start Ptr TextIter
end Ptr ()
_ = do
TextTag
tag' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextTag -> TextTag
Gtk.TextTag.TextTag) Ptr TextTag
tag
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
start forall a b. (a -> b) -> a -> b
$ \TextIter
start' -> do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
end forall a b. (a -> b) -> a -> b
$ \TextIter
end' -> do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferApplyTagCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) TextTag
tag' TextIter
start' TextIter
end'
onTextBufferApplyTag :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferApplyTagCallback) -> m SignalHandlerId
onTextBufferApplyTag :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferApplyTagCallback) -> m SignalHandlerId
onTextBufferApplyTag a
obj (?self::a) => TextBufferApplyTagCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferApplyTagCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferApplyTagCallback
cb
let wrapped' :: C_TextBufferApplyTagCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferApplyTagCallback) -> C_TextBufferApplyTagCallback
wrap_TextBufferApplyTagCallback a -> TextBufferApplyTagCallback
wrapped
FunPtr C_TextBufferApplyTagCallback
wrapped'' <- C_TextBufferApplyTagCallback
-> IO (FunPtr C_TextBufferApplyTagCallback)
mk_TextBufferApplyTagCallback C_TextBufferApplyTagCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"apply-tag" FunPtr C_TextBufferApplyTagCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferApplyTag :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferApplyTagCallback) -> m SignalHandlerId
afterTextBufferApplyTag :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferApplyTagCallback) -> m SignalHandlerId
afterTextBufferApplyTag a
obj (?self::a) => TextBufferApplyTagCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferApplyTagCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferApplyTagCallback
cb
let wrapped' :: C_TextBufferApplyTagCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferApplyTagCallback) -> C_TextBufferApplyTagCallback
wrap_TextBufferApplyTagCallback a -> TextBufferApplyTagCallback
wrapped
FunPtr C_TextBufferApplyTagCallback
wrapped'' <- C_TextBufferApplyTagCallback
-> IO (FunPtr C_TextBufferApplyTagCallback)
mk_TextBufferApplyTagCallback C_TextBufferApplyTagCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"apply-tag" FunPtr C_TextBufferApplyTagCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferApplyTagSignalInfo
instance SignalInfo TextBufferApplyTagSignalInfo where
type HaskellCallbackType TextBufferApplyTagSignalInfo = TextBufferApplyTagCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferApplyTagCallback cb
cb'' <- mk_TextBufferApplyTagCallback cb'
connectSignalFunPtr obj "apply-tag" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::apply-tag"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:applyTag"})
#endif
type TextBufferBeginUserActionCallback =
IO ()
type C_TextBufferBeginUserActionCallback =
Ptr TextBuffer ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferBeginUserActionCallback :: C_TextBufferBeginUserActionCallback -> IO (FunPtr C_TextBufferBeginUserActionCallback)
wrap_TextBufferBeginUserActionCallback ::
GObject a => (a -> TextBufferBeginUserActionCallback) ->
C_TextBufferBeginUserActionCallback
wrap_TextBufferBeginUserActionCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferBeginUserActionCallback a -> IO ()
gi'cb Ptr TextBuffer
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self)
onTextBufferBeginUserAction :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferBeginUserActionCallback) -> m SignalHandlerId
onTextBufferBeginUserAction :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextBufferBeginUserAction a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_TextBufferBeginUserActionCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferBeginUserActionCallback a -> IO ()
wrapped
FunPtr C_TextBufferBeginUserActionCallback
wrapped'' <- C_TextBufferBeginUserActionCallback
-> IO (FunPtr C_TextBufferBeginUserActionCallback)
mk_TextBufferBeginUserActionCallback C_TextBufferBeginUserActionCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"begin-user-action" FunPtr C_TextBufferBeginUserActionCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferBeginUserAction :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferBeginUserActionCallback) -> m SignalHandlerId
afterTextBufferBeginUserAction :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextBufferBeginUserAction a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_TextBufferBeginUserActionCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferBeginUserActionCallback a -> IO ()
wrapped
FunPtr C_TextBufferBeginUserActionCallback
wrapped'' <- C_TextBufferBeginUserActionCallback
-> IO (FunPtr C_TextBufferBeginUserActionCallback)
mk_TextBufferBeginUserActionCallback C_TextBufferBeginUserActionCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"begin-user-action" FunPtr C_TextBufferBeginUserActionCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferBeginUserActionSignalInfo
instance SignalInfo TextBufferBeginUserActionSignalInfo where
type HaskellCallbackType TextBufferBeginUserActionSignalInfo = TextBufferBeginUserActionCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferBeginUserActionCallback cb
cb'' <- mk_TextBufferBeginUserActionCallback cb'
connectSignalFunPtr obj "begin-user-action" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::begin-user-action"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:beginUserAction"})
#endif
type TextBufferChangedCallback =
IO ()
type C_TextBufferChangedCallback =
Ptr TextBuffer ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferChangedCallback :: C_TextBufferChangedCallback -> IO (FunPtr C_TextBufferChangedCallback)
wrap_TextBufferChangedCallback ::
GObject a => (a -> TextBufferChangedCallback) ->
C_TextBufferChangedCallback
wrap_TextBufferChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferChangedCallback a -> IO ()
gi'cb Ptr TextBuffer
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self)
onTextBufferChanged :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferChangedCallback) -> m SignalHandlerId
onTextBufferChanged :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextBufferChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_TextBufferBeginUserActionCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferChangedCallback a -> IO ()
wrapped
FunPtr C_TextBufferBeginUserActionCallback
wrapped'' <- C_TextBufferBeginUserActionCallback
-> IO (FunPtr C_TextBufferBeginUserActionCallback)
mk_TextBufferChangedCallback C_TextBufferBeginUserActionCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_TextBufferBeginUserActionCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferChanged :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferChangedCallback) -> m SignalHandlerId
afterTextBufferChanged :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextBufferChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_TextBufferBeginUserActionCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferChangedCallback a -> IO ()
wrapped
FunPtr C_TextBufferBeginUserActionCallback
wrapped'' <- C_TextBufferBeginUserActionCallback
-> IO (FunPtr C_TextBufferBeginUserActionCallback)
mk_TextBufferChangedCallback C_TextBufferBeginUserActionCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_TextBufferBeginUserActionCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferChangedSignalInfo
instance SignalInfo TextBufferChangedSignalInfo where
type HaskellCallbackType TextBufferChangedSignalInfo = TextBufferChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferChangedCallback cb
cb'' <- mk_TextBufferChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:changed"})
#endif
type TextBufferDeleteRangeCallback =
Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> IO ()
type C_TextBufferDeleteRangeCallback =
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferDeleteRangeCallback :: C_TextBufferDeleteRangeCallback -> IO (FunPtr C_TextBufferDeleteRangeCallback)
wrap_TextBufferDeleteRangeCallback ::
GObject a => (a -> TextBufferDeleteRangeCallback) ->
C_TextBufferDeleteRangeCallback
wrap_TextBufferDeleteRangeCallback :: forall a.
GObject a =>
(a -> TextBufferDeleteRangeCallback)
-> C_TextBufferDeleteRangeCallback
wrap_TextBufferDeleteRangeCallback a -> TextBufferDeleteRangeCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr TextIter
start Ptr TextIter
end Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
start forall a b. (a -> b) -> a -> b
$ \TextIter
start' -> do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
end forall a b. (a -> b) -> a -> b
$ \TextIter
end' -> do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferDeleteRangeCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) TextIter
start' TextIter
end'
onTextBufferDeleteRange :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferDeleteRangeCallback) -> m SignalHandlerId
onTextBufferDeleteRange :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferDeleteRangeCallback)
-> m SignalHandlerId
onTextBufferDeleteRange a
obj (?self::a) => TextBufferDeleteRangeCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferDeleteRangeCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferDeleteRangeCallback
cb
let wrapped' :: C_TextBufferDeleteRangeCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferDeleteRangeCallback)
-> C_TextBufferDeleteRangeCallback
wrap_TextBufferDeleteRangeCallback a -> TextBufferDeleteRangeCallback
wrapped
FunPtr C_TextBufferDeleteRangeCallback
wrapped'' <- C_TextBufferDeleteRangeCallback
-> IO (FunPtr C_TextBufferDeleteRangeCallback)
mk_TextBufferDeleteRangeCallback C_TextBufferDeleteRangeCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-range" FunPtr C_TextBufferDeleteRangeCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferDeleteRange :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferDeleteRangeCallback) -> m SignalHandlerId
afterTextBufferDeleteRange :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferDeleteRangeCallback)
-> m SignalHandlerId
afterTextBufferDeleteRange a
obj (?self::a) => TextBufferDeleteRangeCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferDeleteRangeCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferDeleteRangeCallback
cb
let wrapped' :: C_TextBufferDeleteRangeCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferDeleteRangeCallback)
-> C_TextBufferDeleteRangeCallback
wrap_TextBufferDeleteRangeCallback a -> TextBufferDeleteRangeCallback
wrapped
FunPtr C_TextBufferDeleteRangeCallback
wrapped'' <- C_TextBufferDeleteRangeCallback
-> IO (FunPtr C_TextBufferDeleteRangeCallback)
mk_TextBufferDeleteRangeCallback C_TextBufferDeleteRangeCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-range" FunPtr C_TextBufferDeleteRangeCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferDeleteRangeSignalInfo
instance SignalInfo TextBufferDeleteRangeSignalInfo where
type HaskellCallbackType TextBufferDeleteRangeSignalInfo = TextBufferDeleteRangeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferDeleteRangeCallback cb
cb'' <- mk_TextBufferDeleteRangeCallback cb'
connectSignalFunPtr obj "delete-range" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::delete-range"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:deleteRange"})
#endif
type TextBufferEndUserActionCallback =
IO ()
type C_TextBufferEndUserActionCallback =
Ptr TextBuffer ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferEndUserActionCallback :: C_TextBufferEndUserActionCallback -> IO (FunPtr C_TextBufferEndUserActionCallback)
wrap_TextBufferEndUserActionCallback ::
GObject a => (a -> TextBufferEndUserActionCallback) ->
C_TextBufferEndUserActionCallback
wrap_TextBufferEndUserActionCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferEndUserActionCallback a -> IO ()
gi'cb Ptr TextBuffer
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self)
onTextBufferEndUserAction :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferEndUserActionCallback) -> m SignalHandlerId
onTextBufferEndUserAction :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextBufferEndUserAction a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_TextBufferBeginUserActionCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferEndUserActionCallback a -> IO ()
wrapped
FunPtr C_TextBufferBeginUserActionCallback
wrapped'' <- C_TextBufferBeginUserActionCallback
-> IO (FunPtr C_TextBufferBeginUserActionCallback)
mk_TextBufferEndUserActionCallback C_TextBufferBeginUserActionCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"end-user-action" FunPtr C_TextBufferBeginUserActionCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferEndUserAction :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferEndUserActionCallback) -> m SignalHandlerId
afterTextBufferEndUserAction :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextBufferEndUserAction a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_TextBufferBeginUserActionCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferEndUserActionCallback a -> IO ()
wrapped
FunPtr C_TextBufferBeginUserActionCallback
wrapped'' <- C_TextBufferBeginUserActionCallback
-> IO (FunPtr C_TextBufferBeginUserActionCallback)
mk_TextBufferEndUserActionCallback C_TextBufferBeginUserActionCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"end-user-action" FunPtr C_TextBufferBeginUserActionCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferEndUserActionSignalInfo
instance SignalInfo TextBufferEndUserActionSignalInfo where
type HaskellCallbackType TextBufferEndUserActionSignalInfo = TextBufferEndUserActionCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferEndUserActionCallback cb
cb'' <- mk_TextBufferEndUserActionCallback cb'
connectSignalFunPtr obj "end-user-action" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::end-user-action"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:endUserAction"})
#endif
type TextBufferInsertChildAnchorCallback =
Gtk.TextIter.TextIter
-> Gtk.TextChildAnchor.TextChildAnchor
-> IO ()
type C_TextBufferInsertChildAnchorCallback =
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextChildAnchor.TextChildAnchor ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferInsertChildAnchorCallback :: C_TextBufferInsertChildAnchorCallback -> IO (FunPtr C_TextBufferInsertChildAnchorCallback)
wrap_TextBufferInsertChildAnchorCallback ::
GObject a => (a -> TextBufferInsertChildAnchorCallback) ->
C_TextBufferInsertChildAnchorCallback
wrap_TextBufferInsertChildAnchorCallback :: forall a.
GObject a =>
(a -> TextBufferInsertChildAnchorCallback)
-> C_TextBufferInsertChildAnchorCallback
wrap_TextBufferInsertChildAnchorCallback a -> TextBufferInsertChildAnchorCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr TextIter
location Ptr TextChildAnchor
anchor Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
location forall a b. (a -> b) -> a -> b
$ \TextIter
location' -> do
TextChildAnchor
anchor' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextChildAnchor -> TextChildAnchor
Gtk.TextChildAnchor.TextChildAnchor) Ptr TextChildAnchor
anchor
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferInsertChildAnchorCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) TextIter
location' TextChildAnchor
anchor'
onTextBufferInsertChildAnchor :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferInsertChildAnchorCallback) -> m SignalHandlerId
onTextBufferInsertChildAnchor :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferInsertChildAnchorCallback)
-> m SignalHandlerId
onTextBufferInsertChildAnchor a
obj (?self::a) => TextBufferInsertChildAnchorCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferInsertChildAnchorCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferInsertChildAnchorCallback
cb
let wrapped' :: C_TextBufferInsertChildAnchorCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferInsertChildAnchorCallback)
-> C_TextBufferInsertChildAnchorCallback
wrap_TextBufferInsertChildAnchorCallback a -> TextBufferInsertChildAnchorCallback
wrapped
FunPtr C_TextBufferInsertChildAnchorCallback
wrapped'' <- C_TextBufferInsertChildAnchorCallback
-> IO (FunPtr C_TextBufferInsertChildAnchorCallback)
mk_TextBufferInsertChildAnchorCallback C_TextBufferInsertChildAnchorCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-child-anchor" FunPtr C_TextBufferInsertChildAnchorCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferInsertChildAnchor :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferInsertChildAnchorCallback) -> m SignalHandlerId
afterTextBufferInsertChildAnchor :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferInsertChildAnchorCallback)
-> m SignalHandlerId
afterTextBufferInsertChildAnchor a
obj (?self::a) => TextBufferInsertChildAnchorCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferInsertChildAnchorCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferInsertChildAnchorCallback
cb
let wrapped' :: C_TextBufferInsertChildAnchorCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferInsertChildAnchorCallback)
-> C_TextBufferInsertChildAnchorCallback
wrap_TextBufferInsertChildAnchorCallback a -> TextBufferInsertChildAnchorCallback
wrapped
FunPtr C_TextBufferInsertChildAnchorCallback
wrapped'' <- C_TextBufferInsertChildAnchorCallback
-> IO (FunPtr C_TextBufferInsertChildAnchorCallback)
mk_TextBufferInsertChildAnchorCallback C_TextBufferInsertChildAnchorCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-child-anchor" FunPtr C_TextBufferInsertChildAnchorCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertChildAnchorSignalInfo
instance SignalInfo TextBufferInsertChildAnchorSignalInfo where
type HaskellCallbackType TextBufferInsertChildAnchorSignalInfo = TextBufferInsertChildAnchorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferInsertChildAnchorCallback cb
cb'' <- mk_TextBufferInsertChildAnchorCallback cb'
connectSignalFunPtr obj "insert-child-anchor" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::insert-child-anchor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:insertChildAnchor"})
#endif
type TextBufferInsertPixbufCallback =
Gtk.TextIter.TextIter
-> GdkPixbuf.Pixbuf.Pixbuf
-> IO ()
type C_TextBufferInsertPixbufCallback =
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferInsertPixbufCallback :: C_TextBufferInsertPixbufCallback -> IO (FunPtr C_TextBufferInsertPixbufCallback)
wrap_TextBufferInsertPixbufCallback ::
GObject a => (a -> TextBufferInsertPixbufCallback) ->
C_TextBufferInsertPixbufCallback
wrap_TextBufferInsertPixbufCallback :: forall a.
GObject a =>
(a -> TextBufferInsertPixbufCallback)
-> C_TextBufferInsertPixbufCallback
wrap_TextBufferInsertPixbufCallback a -> TextBufferInsertPixbufCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr TextIter
location Ptr Pixbuf
pixbuf Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
location forall a b. (a -> b) -> a -> b
$ \TextIter
location' -> do
Pixbuf
pixbuf' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
pixbuf
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferInsertPixbufCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) TextIter
location' Pixbuf
pixbuf'
onTextBufferInsertPixbuf :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferInsertPixbufCallback) -> m SignalHandlerId
onTextBufferInsertPixbuf :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferInsertPixbufCallback)
-> m SignalHandlerId
onTextBufferInsertPixbuf a
obj (?self::a) => TextBufferInsertPixbufCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferInsertPixbufCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferInsertPixbufCallback
cb
let wrapped' :: C_TextBufferInsertPixbufCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferInsertPixbufCallback)
-> C_TextBufferInsertPixbufCallback
wrap_TextBufferInsertPixbufCallback a -> TextBufferInsertPixbufCallback
wrapped
FunPtr C_TextBufferInsertPixbufCallback
wrapped'' <- C_TextBufferInsertPixbufCallback
-> IO (FunPtr C_TextBufferInsertPixbufCallback)
mk_TextBufferInsertPixbufCallback C_TextBufferInsertPixbufCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-pixbuf" FunPtr C_TextBufferInsertPixbufCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferInsertPixbuf :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferInsertPixbufCallback) -> m SignalHandlerId
afterTextBufferInsertPixbuf :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferInsertPixbufCallback)
-> m SignalHandlerId
afterTextBufferInsertPixbuf a
obj (?self::a) => TextBufferInsertPixbufCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferInsertPixbufCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferInsertPixbufCallback
cb
let wrapped' :: C_TextBufferInsertPixbufCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferInsertPixbufCallback)
-> C_TextBufferInsertPixbufCallback
wrap_TextBufferInsertPixbufCallback a -> TextBufferInsertPixbufCallback
wrapped
FunPtr C_TextBufferInsertPixbufCallback
wrapped'' <- C_TextBufferInsertPixbufCallback
-> IO (FunPtr C_TextBufferInsertPixbufCallback)
mk_TextBufferInsertPixbufCallback C_TextBufferInsertPixbufCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-pixbuf" FunPtr C_TextBufferInsertPixbufCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertPixbufSignalInfo
instance SignalInfo TextBufferInsertPixbufSignalInfo where
type HaskellCallbackType TextBufferInsertPixbufSignalInfo = TextBufferInsertPixbufCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferInsertPixbufCallback cb
cb'' <- mk_TextBufferInsertPixbufCallback cb'
connectSignalFunPtr obj "insert-pixbuf" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::insert-pixbuf"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:insertPixbuf"})
#endif
type TextBufferInsertTextCallback =
Gtk.TextIter.TextIter
-> T.Text
-> Int32
-> IO ()
type C_TextBufferInsertTextCallback =
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferInsertTextCallback :: C_TextBufferInsertTextCallback -> IO (FunPtr C_TextBufferInsertTextCallback)
wrap_TextBufferInsertTextCallback ::
GObject a => (a -> TextBufferInsertTextCallback) ->
C_TextBufferInsertTextCallback
wrap_TextBufferInsertTextCallback :: forall a.
GObject a =>
(a -> TextBufferInsertTextCallback)
-> C_TextBufferInsertTextCallback
wrap_TextBufferInsertTextCallback a -> TextBufferInsertTextCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr TextIter
location CString
text Int32
len Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
location forall a b. (a -> b) -> a -> b
$ \TextIter
location' -> do
Text
text' <- HasCallStack => CString -> IO Text
cstringToText CString
text
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferInsertTextCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) TextIter
location' Text
text' Int32
len
onTextBufferInsertText :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferInsertTextCallback) -> m SignalHandlerId
onTextBufferInsertText :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferInsertTextCallback)
-> m SignalHandlerId
onTextBufferInsertText a
obj (?self::a) => TextBufferInsertTextCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferInsertTextCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferInsertTextCallback
cb
let wrapped' :: C_TextBufferInsertTextCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferInsertTextCallback)
-> C_TextBufferInsertTextCallback
wrap_TextBufferInsertTextCallback a -> TextBufferInsertTextCallback
wrapped
FunPtr C_TextBufferInsertTextCallback
wrapped'' <- C_TextBufferInsertTextCallback
-> IO (FunPtr C_TextBufferInsertTextCallback)
mk_TextBufferInsertTextCallback C_TextBufferInsertTextCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-text" FunPtr C_TextBufferInsertTextCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferInsertText :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferInsertTextCallback) -> m SignalHandlerId
afterTextBufferInsertText :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferInsertTextCallback)
-> m SignalHandlerId
afterTextBufferInsertText a
obj (?self::a) => TextBufferInsertTextCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferInsertTextCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferInsertTextCallback
cb
let wrapped' :: C_TextBufferInsertTextCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferInsertTextCallback)
-> C_TextBufferInsertTextCallback
wrap_TextBufferInsertTextCallback a -> TextBufferInsertTextCallback
wrapped
FunPtr C_TextBufferInsertTextCallback
wrapped'' <- C_TextBufferInsertTextCallback
-> IO (FunPtr C_TextBufferInsertTextCallback)
mk_TextBufferInsertTextCallback C_TextBufferInsertTextCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-text" FunPtr C_TextBufferInsertTextCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertTextSignalInfo
instance SignalInfo TextBufferInsertTextSignalInfo where
type HaskellCallbackType TextBufferInsertTextSignalInfo = TextBufferInsertTextCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferInsertTextCallback cb
cb'' <- mk_TextBufferInsertTextCallback cb'
connectSignalFunPtr obj "insert-text" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::insert-text"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:insertText"})
#endif
type TextBufferMarkDeletedCallback =
Gtk.TextMark.TextMark
-> IO ()
type C_TextBufferMarkDeletedCallback =
Ptr TextBuffer ->
Ptr Gtk.TextMark.TextMark ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferMarkDeletedCallback :: C_TextBufferMarkDeletedCallback -> IO (FunPtr C_TextBufferMarkDeletedCallback)
wrap_TextBufferMarkDeletedCallback ::
GObject a => (a -> TextBufferMarkDeletedCallback) ->
C_TextBufferMarkDeletedCallback
wrap_TextBufferMarkDeletedCallback :: forall a.
GObject a =>
(a -> TextBufferMarkDeletedCallback)
-> C_TextBufferMarkDeletedCallback
wrap_TextBufferMarkDeletedCallback a -> TextBufferMarkDeletedCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr TextMark
mark Ptr ()
_ = do
TextMark
mark' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextMark -> TextMark
Gtk.TextMark.TextMark) Ptr TextMark
mark
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferMarkDeletedCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) TextMark
mark'
onTextBufferMarkDeleted :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferMarkDeletedCallback) -> m SignalHandlerId
onTextBufferMarkDeleted :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferMarkDeletedCallback)
-> m SignalHandlerId
onTextBufferMarkDeleted a
obj (?self::a) => TextBufferMarkDeletedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferMarkDeletedCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferMarkDeletedCallback
cb
let wrapped' :: C_TextBufferMarkDeletedCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferMarkDeletedCallback)
-> C_TextBufferMarkDeletedCallback
wrap_TextBufferMarkDeletedCallback a -> TextBufferMarkDeletedCallback
wrapped
FunPtr C_TextBufferMarkDeletedCallback
wrapped'' <- C_TextBufferMarkDeletedCallback
-> IO (FunPtr C_TextBufferMarkDeletedCallback)
mk_TextBufferMarkDeletedCallback C_TextBufferMarkDeletedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"mark-deleted" FunPtr C_TextBufferMarkDeletedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferMarkDeleted :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferMarkDeletedCallback) -> m SignalHandlerId
afterTextBufferMarkDeleted :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferMarkDeletedCallback)
-> m SignalHandlerId
afterTextBufferMarkDeleted a
obj (?self::a) => TextBufferMarkDeletedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferMarkDeletedCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferMarkDeletedCallback
cb
let wrapped' :: C_TextBufferMarkDeletedCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferMarkDeletedCallback)
-> C_TextBufferMarkDeletedCallback
wrap_TextBufferMarkDeletedCallback a -> TextBufferMarkDeletedCallback
wrapped
FunPtr C_TextBufferMarkDeletedCallback
wrapped'' <- C_TextBufferMarkDeletedCallback
-> IO (FunPtr C_TextBufferMarkDeletedCallback)
mk_TextBufferMarkDeletedCallback C_TextBufferMarkDeletedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"mark-deleted" FunPtr C_TextBufferMarkDeletedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferMarkDeletedSignalInfo
instance SignalInfo TextBufferMarkDeletedSignalInfo where
type HaskellCallbackType TextBufferMarkDeletedSignalInfo = TextBufferMarkDeletedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferMarkDeletedCallback cb
cb'' <- mk_TextBufferMarkDeletedCallback cb'
connectSignalFunPtr obj "mark-deleted" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::mark-deleted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:markDeleted"})
#endif
type TextBufferMarkSetCallback =
Gtk.TextIter.TextIter
-> Gtk.TextMark.TextMark
-> IO ()
type C_TextBufferMarkSetCallback =
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextMark.TextMark ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferMarkSetCallback :: C_TextBufferMarkSetCallback -> IO (FunPtr C_TextBufferMarkSetCallback)
wrap_TextBufferMarkSetCallback ::
GObject a => (a -> TextBufferMarkSetCallback) ->
C_TextBufferMarkSetCallback
wrap_TextBufferMarkSetCallback :: forall a.
GObject a =>
(a -> TextBufferMarkSetCallback) -> C_TextBufferMarkSetCallback
wrap_TextBufferMarkSetCallback a -> TextBufferMarkSetCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr TextIter
location Ptr TextMark
mark Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
location forall a b. (a -> b) -> a -> b
$ \TextIter
location' -> do
TextMark
mark' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextMark -> TextMark
Gtk.TextMark.TextMark) Ptr TextMark
mark
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferMarkSetCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) TextIter
location' TextMark
mark'
onTextBufferMarkSet :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferMarkSetCallback) -> m SignalHandlerId
onTextBufferMarkSet :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => TextBufferMarkSetCallback) -> m SignalHandlerId
onTextBufferMarkSet a
obj (?self::a) => TextBufferMarkSetCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferMarkSetCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferMarkSetCallback
cb
let wrapped' :: C_TextBufferMarkSetCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferMarkSetCallback) -> C_TextBufferMarkSetCallback
wrap_TextBufferMarkSetCallback a -> TextBufferMarkSetCallback
wrapped
FunPtr C_TextBufferMarkSetCallback
wrapped'' <- C_TextBufferMarkSetCallback
-> IO (FunPtr C_TextBufferMarkSetCallback)
mk_TextBufferMarkSetCallback C_TextBufferMarkSetCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"mark-set" FunPtr C_TextBufferMarkSetCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferMarkSet :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferMarkSetCallback) -> m SignalHandlerId
afterTextBufferMarkSet :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => TextBufferMarkSetCallback) -> m SignalHandlerId
afterTextBufferMarkSet a
obj (?self::a) => TextBufferMarkSetCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferMarkSetCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferMarkSetCallback
cb
let wrapped' :: C_TextBufferMarkSetCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferMarkSetCallback) -> C_TextBufferMarkSetCallback
wrap_TextBufferMarkSetCallback a -> TextBufferMarkSetCallback
wrapped
FunPtr C_TextBufferMarkSetCallback
wrapped'' <- C_TextBufferMarkSetCallback
-> IO (FunPtr C_TextBufferMarkSetCallback)
mk_TextBufferMarkSetCallback C_TextBufferMarkSetCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"mark-set" FunPtr C_TextBufferMarkSetCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferMarkSetSignalInfo
instance SignalInfo TextBufferMarkSetSignalInfo where
type HaskellCallbackType TextBufferMarkSetSignalInfo = TextBufferMarkSetCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferMarkSetCallback cb
cb'' <- mk_TextBufferMarkSetCallback cb'
connectSignalFunPtr obj "mark-set" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::mark-set"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:markSet"})
#endif
type TextBufferModifiedChangedCallback =
IO ()
type C_TextBufferModifiedChangedCallback =
Ptr TextBuffer ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferModifiedChangedCallback :: C_TextBufferModifiedChangedCallback -> IO (FunPtr C_TextBufferModifiedChangedCallback)
wrap_TextBufferModifiedChangedCallback ::
GObject a => (a -> TextBufferModifiedChangedCallback) ->
C_TextBufferModifiedChangedCallback
wrap_TextBufferModifiedChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferModifiedChangedCallback a -> IO ()
gi'cb Ptr TextBuffer
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self)
onTextBufferModifiedChanged :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferModifiedChangedCallback) -> m SignalHandlerId
onTextBufferModifiedChanged :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextBufferModifiedChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_TextBufferBeginUserActionCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferModifiedChangedCallback a -> IO ()
wrapped
FunPtr C_TextBufferBeginUserActionCallback
wrapped'' <- C_TextBufferBeginUserActionCallback
-> IO (FunPtr C_TextBufferBeginUserActionCallback)
mk_TextBufferModifiedChangedCallback C_TextBufferBeginUserActionCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"modified-changed" FunPtr C_TextBufferBeginUserActionCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferModifiedChanged :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferModifiedChangedCallback) -> m SignalHandlerId
afterTextBufferModifiedChanged :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextBufferModifiedChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_TextBufferBeginUserActionCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_TextBufferBeginUserActionCallback
wrap_TextBufferModifiedChangedCallback a -> IO ()
wrapped
FunPtr C_TextBufferBeginUserActionCallback
wrapped'' <- C_TextBufferBeginUserActionCallback
-> IO (FunPtr C_TextBufferBeginUserActionCallback)
mk_TextBufferModifiedChangedCallback C_TextBufferBeginUserActionCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"modified-changed" FunPtr C_TextBufferBeginUserActionCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferModifiedChangedSignalInfo
instance SignalInfo TextBufferModifiedChangedSignalInfo where
type HaskellCallbackType TextBufferModifiedChangedSignalInfo = TextBufferModifiedChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferModifiedChangedCallback cb
cb'' <- mk_TextBufferModifiedChangedCallback cb'
connectSignalFunPtr obj "modified-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::modified-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:modifiedChanged"})
#endif
type TextBufferPasteDoneCallback =
Gtk.Clipboard.Clipboard
-> IO ()
type C_TextBufferPasteDoneCallback =
Ptr TextBuffer ->
Ptr Gtk.Clipboard.Clipboard ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferPasteDoneCallback :: C_TextBufferPasteDoneCallback -> IO (FunPtr C_TextBufferPasteDoneCallback)
wrap_TextBufferPasteDoneCallback ::
GObject a => (a -> TextBufferPasteDoneCallback) ->
C_TextBufferPasteDoneCallback
wrap_TextBufferPasteDoneCallback :: forall a.
GObject a =>
(a -> TextBufferPasteDoneCallback) -> C_TextBufferPasteDoneCallback
wrap_TextBufferPasteDoneCallback a -> TextBufferPasteDoneCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr Clipboard
clipboard Ptr ()
_ = do
Clipboard
clipboard' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Clipboard -> Clipboard
Gtk.Clipboard.Clipboard) Ptr Clipboard
clipboard
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferPasteDoneCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) Clipboard
clipboard'
onTextBufferPasteDone :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferPasteDoneCallback) -> m SignalHandlerId
onTextBufferPasteDone :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferPasteDoneCallback) -> m SignalHandlerId
onTextBufferPasteDone a
obj (?self::a) => TextBufferPasteDoneCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferPasteDoneCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferPasteDoneCallback
cb
let wrapped' :: C_TextBufferPasteDoneCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferPasteDoneCallback) -> C_TextBufferPasteDoneCallback
wrap_TextBufferPasteDoneCallback a -> TextBufferPasteDoneCallback
wrapped
FunPtr C_TextBufferPasteDoneCallback
wrapped'' <- C_TextBufferPasteDoneCallback
-> IO (FunPtr C_TextBufferPasteDoneCallback)
mk_TextBufferPasteDoneCallback C_TextBufferPasteDoneCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"paste-done" FunPtr C_TextBufferPasteDoneCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferPasteDone :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferPasteDoneCallback) -> m SignalHandlerId
afterTextBufferPasteDone :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferPasteDoneCallback) -> m SignalHandlerId
afterTextBufferPasteDone a
obj (?self::a) => TextBufferPasteDoneCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferPasteDoneCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferPasteDoneCallback
cb
let wrapped' :: C_TextBufferPasteDoneCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferPasteDoneCallback) -> C_TextBufferPasteDoneCallback
wrap_TextBufferPasteDoneCallback a -> TextBufferPasteDoneCallback
wrapped
FunPtr C_TextBufferPasteDoneCallback
wrapped'' <- C_TextBufferPasteDoneCallback
-> IO (FunPtr C_TextBufferPasteDoneCallback)
mk_TextBufferPasteDoneCallback C_TextBufferPasteDoneCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"paste-done" FunPtr C_TextBufferPasteDoneCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferPasteDoneSignalInfo
instance SignalInfo TextBufferPasteDoneSignalInfo where
type HaskellCallbackType TextBufferPasteDoneSignalInfo = TextBufferPasteDoneCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferPasteDoneCallback cb
cb'' <- mk_TextBufferPasteDoneCallback cb'
connectSignalFunPtr obj "paste-done" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::paste-done"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:pasteDone"})
#endif
type TextBufferRemoveTagCallback =
Gtk.TextTag.TextTag
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> IO ()
type C_TextBufferRemoveTagCallback =
Ptr TextBuffer ->
Ptr Gtk.TextTag.TextTag ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBufferRemoveTagCallback :: C_TextBufferRemoveTagCallback -> IO (FunPtr C_TextBufferRemoveTagCallback)
wrap_TextBufferRemoveTagCallback ::
GObject a => (a -> TextBufferRemoveTagCallback) ->
C_TextBufferRemoveTagCallback
wrap_TextBufferRemoveTagCallback :: forall a.
GObject a =>
(a -> TextBufferApplyTagCallback) -> C_TextBufferApplyTagCallback
wrap_TextBufferRemoveTagCallback a -> TextBufferApplyTagCallback
gi'cb Ptr TextBuffer
gi'selfPtr Ptr TextTag
tag Ptr TextIter
start Ptr TextIter
end Ptr ()
_ = do
TextTag
tag' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextTag -> TextTag
Gtk.TextTag.TextTag) Ptr TextTag
tag
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
start forall a b. (a -> b) -> a -> b
$ \TextIter
start' -> do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
end forall a b. (a -> b) -> a -> b
$ \TextIter
end' -> do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextBuffer
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \TextBuffer
gi'self -> a -> TextBufferApplyTagCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce TextBuffer
gi'self) TextTag
tag' TextIter
start' TextIter
end'
onTextBufferRemoveTag :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferRemoveTagCallback) -> m SignalHandlerId
onTextBufferRemoveTag :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferApplyTagCallback) -> m SignalHandlerId
onTextBufferRemoveTag a
obj (?self::a) => TextBufferApplyTagCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferApplyTagCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferApplyTagCallback
cb
let wrapped' :: C_TextBufferApplyTagCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferApplyTagCallback) -> C_TextBufferApplyTagCallback
wrap_TextBufferRemoveTagCallback a -> TextBufferApplyTagCallback
wrapped
FunPtr C_TextBufferApplyTagCallback
wrapped'' <- C_TextBufferApplyTagCallback
-> IO (FunPtr C_TextBufferApplyTagCallback)
mk_TextBufferRemoveTagCallback C_TextBufferApplyTagCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"remove-tag" FunPtr C_TextBufferApplyTagCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterTextBufferRemoveTag :: (IsTextBuffer a, MonadIO m) => a -> ((?self :: a) => TextBufferRemoveTagCallback) -> m SignalHandlerId
afterTextBufferRemoveTag :: forall a (m :: * -> *).
(IsTextBuffer a, MonadIO m) =>
a
-> ((?self::a) => TextBufferApplyTagCallback) -> m SignalHandlerId
afterTextBufferRemoveTag a
obj (?self::a) => TextBufferApplyTagCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextBufferApplyTagCallback
wrapped a
self = let ?self = a
self in (?self::a) => TextBufferApplyTagCallback
cb
let wrapped' :: C_TextBufferApplyTagCallback
wrapped' = forall a.
GObject a =>
(a -> TextBufferApplyTagCallback) -> C_TextBufferApplyTagCallback
wrap_TextBufferRemoveTagCallback a -> TextBufferApplyTagCallback
wrapped
FunPtr C_TextBufferApplyTagCallback
wrapped'' <- C_TextBufferApplyTagCallback
-> IO (FunPtr C_TextBufferApplyTagCallback)
mk_TextBufferRemoveTagCallback C_TextBufferApplyTagCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"remove-tag" FunPtr C_TextBufferApplyTagCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBufferRemoveTagSignalInfo
instance SignalInfo TextBufferRemoveTagSignalInfo where
type HaskellCallbackType TextBufferRemoveTagSignalInfo = TextBufferRemoveTagCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBufferRemoveTagCallback cb
cb'' <- mk_TextBufferRemoveTagCallback cb'
connectSignalFunPtr obj "remove-tag" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer::remove-tag"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:signal:removeTag"})
#endif
getTextBufferCopyTargetList :: (MonadIO m, IsTextBuffer o) => o -> m Gtk.TargetList.TargetList
getTextBufferCopyTargetList :: forall (m :: * -> *) o.
(MonadIO m, IsTextBuffer o) =>
o -> m TargetList
getTextBufferCopyTargetList o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTextBufferCopyTargetList" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"copy-target-list" ManagedPtr TargetList -> TargetList
Gtk.TargetList.TargetList
#if defined(ENABLE_OVERLOADING)
data TextBufferCopyTargetListPropertyInfo
instance AttrInfo TextBufferCopyTargetListPropertyInfo where
type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextBufferCopyTargetListPropertyInfo = IsTextBuffer
type AttrSetTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) ()
type AttrTransferTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) ()
type AttrTransferType TextBufferCopyTargetListPropertyInfo = ()
type AttrGetType TextBufferCopyTargetListPropertyInfo = Gtk.TargetList.TargetList
type AttrLabel TextBufferCopyTargetListPropertyInfo = "copy-target-list"
type AttrOrigin TextBufferCopyTargetListPropertyInfo = TextBuffer
attrGet = getTextBufferCopyTargetList
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.copyTargetList"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:attr:copyTargetList"
})
#endif
getTextBufferCursorPosition :: (MonadIO m, IsTextBuffer o) => o -> m Int32
getTextBufferCursorPosition :: forall (m :: * -> *) o. (MonadIO m, IsTextBuffer o) => o -> m Int32
getTextBufferCursorPosition o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"cursor-position"
#if defined(ENABLE_OVERLOADING)
data TextBufferCursorPositionPropertyInfo
instance AttrInfo TextBufferCursorPositionPropertyInfo where
type AttrAllowedOps TextBufferCursorPositionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TextBufferCursorPositionPropertyInfo = IsTextBuffer
type AttrSetTypeConstraint TextBufferCursorPositionPropertyInfo = (~) ()
type AttrTransferTypeConstraint TextBufferCursorPositionPropertyInfo = (~) ()
type AttrTransferType TextBufferCursorPositionPropertyInfo = ()
type AttrGetType TextBufferCursorPositionPropertyInfo = Int32
type AttrLabel TextBufferCursorPositionPropertyInfo = "cursor-position"
type AttrOrigin TextBufferCursorPositionPropertyInfo = TextBuffer
attrGet = getTextBufferCursorPosition
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.cursorPosition"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:attr:cursorPosition"
})
#endif
getTextBufferHasSelection :: (MonadIO m, IsTextBuffer o) => o -> m Bool
getTextBufferHasSelection :: forall (m :: * -> *) o. (MonadIO m, IsTextBuffer o) => o -> m Bool
getTextBufferHasSelection o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-selection"
#if defined(ENABLE_OVERLOADING)
data TextBufferHasSelectionPropertyInfo
instance AttrInfo TextBufferHasSelectionPropertyInfo where
type AttrAllowedOps TextBufferHasSelectionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TextBufferHasSelectionPropertyInfo = IsTextBuffer
type AttrSetTypeConstraint TextBufferHasSelectionPropertyInfo = (~) ()
type AttrTransferTypeConstraint TextBufferHasSelectionPropertyInfo = (~) ()
type AttrTransferType TextBufferHasSelectionPropertyInfo = ()
type AttrGetType TextBufferHasSelectionPropertyInfo = Bool
type AttrLabel TextBufferHasSelectionPropertyInfo = "has-selection"
type AttrOrigin TextBufferHasSelectionPropertyInfo = TextBuffer
attrGet = getTextBufferHasSelection
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.hasSelection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:attr:hasSelection"
})
#endif
getTextBufferPasteTargetList :: (MonadIO m, IsTextBuffer o) => o -> m Gtk.TargetList.TargetList
getTextBufferPasteTargetList :: forall (m :: * -> *) o.
(MonadIO m, IsTextBuffer o) =>
o -> m TargetList
getTextBufferPasteTargetList o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTextBufferPasteTargetList" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"paste-target-list" ManagedPtr TargetList -> TargetList
Gtk.TargetList.TargetList
#if defined(ENABLE_OVERLOADING)
data TextBufferPasteTargetListPropertyInfo
instance AttrInfo TextBufferPasteTargetListPropertyInfo where
type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextBufferPasteTargetListPropertyInfo = IsTextBuffer
type AttrSetTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) ()
type AttrTransferTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) ()
type AttrTransferType TextBufferPasteTargetListPropertyInfo = ()
type AttrGetType TextBufferPasteTargetListPropertyInfo = Gtk.TargetList.TargetList
type AttrLabel TextBufferPasteTargetListPropertyInfo = "paste-target-list"
type AttrOrigin TextBufferPasteTargetListPropertyInfo = TextBuffer
attrGet = getTextBufferPasteTargetList
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.pasteTargetList"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:attr:pasteTargetList"
})
#endif
getTextBufferTagTable :: (MonadIO m, IsTextBuffer o) => o -> m Gtk.TextTagTable.TextTagTable
getTextBufferTagTable :: forall (m :: * -> *) o.
(MonadIO m, IsTextBuffer o) =>
o -> m TextTagTable
getTextBufferTagTable o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTextBufferTagTable" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"tag-table" ManagedPtr TextTagTable -> TextTagTable
Gtk.TextTagTable.TextTagTable
constructTextBufferTagTable :: (IsTextBuffer o, MIO.MonadIO m, Gtk.TextTagTable.IsTextTagTable a) => a -> m (GValueConstruct o)
constructTextBufferTagTable :: forall o (m :: * -> *) a.
(IsTextBuffer o, MonadIO m, IsTextTagTable a) =>
a -> m (GValueConstruct o)
constructTextBufferTagTable a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"tag-table" (forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data TextBufferTagTablePropertyInfo
instance AttrInfo TextBufferTagTablePropertyInfo where
type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextBufferTagTablePropertyInfo = IsTextBuffer
type AttrSetTypeConstraint TextBufferTagTablePropertyInfo = Gtk.TextTagTable.IsTextTagTable
type AttrTransferTypeConstraint TextBufferTagTablePropertyInfo = Gtk.TextTagTable.IsTextTagTable
type AttrTransferType TextBufferTagTablePropertyInfo = Gtk.TextTagTable.TextTagTable
type AttrGetType TextBufferTagTablePropertyInfo = Gtk.TextTagTable.TextTagTable
type AttrLabel TextBufferTagTablePropertyInfo = "tag-table"
type AttrOrigin TextBufferTagTablePropertyInfo = TextBuffer
attrGet = getTextBufferTagTable
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.TextTagTable.TextTagTable v
attrConstruct = constructTextBufferTagTable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.tagTable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:attr:tagTable"
})
#endif
getTextBufferText :: (MonadIO m, IsTextBuffer o) => o -> m (Maybe T.Text)
getTextBufferText :: forall (m :: * -> *) o.
(MonadIO m, IsTextBuffer o) =>
o -> m (Maybe Text)
getTextBufferText o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"text"
setTextBufferText :: (MonadIO m, IsTextBuffer o) => o -> T.Text -> m ()
setTextBufferText :: forall (m :: * -> *) o.
(MonadIO m, IsTextBuffer o) =>
o -> Text -> m ()
setTextBufferText o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (forall a. a -> Maybe a
Just Text
val)
constructTextBufferText :: (IsTextBuffer o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTextBufferText :: forall o (m :: * -> *).
(IsTextBuffer o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTextBufferText Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"text" (forall a. a -> Maybe a
P.Just Text
val)
clearTextBufferText :: (MonadIO m, IsTextBuffer o) => o -> m ()
clearTextBufferText :: forall (m :: * -> *) o. (MonadIO m, IsTextBuffer o) => o -> m ()
clearTextBufferText o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TextBufferTextPropertyInfo
instance AttrInfo TextBufferTextPropertyInfo where
type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextBufferTextPropertyInfo = IsTextBuffer
type AttrSetTypeConstraint TextBufferTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TextBufferTextPropertyInfo = (~) T.Text
type AttrTransferType TextBufferTextPropertyInfo = T.Text
type AttrGetType TextBufferTextPropertyInfo = (Maybe T.Text)
type AttrLabel TextBufferTextPropertyInfo = "text"
type AttrOrigin TextBufferTextPropertyInfo = TextBuffer
attrGet = getTextBufferText
attrSet = setTextBufferText
attrTransfer _ v = do
return v
attrConstruct = constructTextBufferText
attrClear = clearTextBufferText
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.text"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#g:attr:text"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TextBuffer
type instance O.AttributeList TextBuffer = TextBufferAttributeList
type TextBufferAttributeList = ('[ '("copyTargetList", TextBufferCopyTargetListPropertyInfo), '("cursorPosition", TextBufferCursorPositionPropertyInfo), '("hasSelection", TextBufferHasSelectionPropertyInfo), '("pasteTargetList", TextBufferPasteTargetListPropertyInfo), '("tagTable", TextBufferTagTablePropertyInfo), '("text", TextBufferTextPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
textBufferCopyTargetList :: AttrLabelProxy "copyTargetList"
textBufferCopyTargetList = AttrLabelProxy
textBufferCursorPosition :: AttrLabelProxy "cursorPosition"
textBufferCursorPosition = AttrLabelProxy
textBufferHasSelection :: AttrLabelProxy "hasSelection"
textBufferHasSelection = AttrLabelProxy
textBufferPasteTargetList :: AttrLabelProxy "pasteTargetList"
textBufferPasteTargetList = AttrLabelProxy
textBufferTagTable :: AttrLabelProxy "tagTable"
textBufferTagTable = AttrLabelProxy
textBufferText :: AttrLabelProxy "text"
textBufferText = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.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.Object.ObjectNotifySignalInfo), '("pasteDone", TextBufferPasteDoneSignalInfo), '("removeTag", TextBufferRemoveTagSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_text_buffer_new" gtk_text_buffer_new ::
Ptr Gtk.TextTagTable.TextTagTable ->
IO (Ptr TextBuffer)
textBufferNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTagTable.IsTextTagTable a) =>
Maybe (a)
-> m TextBuffer
textBufferNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTagTable a) =>
Maybe a -> m TextBuffer
textBufferNew Maybe a
table = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextTagTable
maybeTable <- case Maybe a
table of
Maybe a
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just a
jTable -> do
Ptr TextTagTable
jTable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jTable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTagTable
jTable'
Ptr TextBuffer
result <- Ptr TextTagTable -> IO (Ptr TextBuffer)
gtk_text_buffer_new Ptr TextTagTable
maybeTable
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferNew" Ptr TextBuffer
result
TextBuffer
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr TextBuffer -> TextBuffer
TextBuffer) Ptr TextBuffer
result
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
table forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return TextBuffer
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_text_buffer_add_mark" gtk_text_buffer_add_mark ::
Ptr TextBuffer ->
Ptr Gtk.TextMark.TextMark ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferAddMark ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.TextMark.IsTextMark b) =>
a
-> b
-> Gtk.TextIter.TextIter
-> m ()
textBufferAddMark :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextMark b) =>
a -> b -> TextIter -> m ()
textBufferAddMark a
buffer b
mark TextIter
where_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextMark
mark' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
mark
Ptr TextIter
where_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
where_
Ptr TextBuffer -> Ptr TextMark -> Ptr TextIter -> IO ()
gtk_text_buffer_add_mark Ptr TextBuffer
buffer' Ptr TextMark
mark' Ptr TextIter
where_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
mark
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
where_
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferAddMarkMethodInfo
instance (signature ~ (b -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a, Gtk.TextMark.IsTextMark b) => O.OverloadedMethod TextBufferAddMarkMethodInfo a signature where
overloadedMethod = textBufferAddMark
instance O.OverloadedMethodInfo TextBufferAddMarkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferAddMark",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferAddMark"
})
#endif
foreign import ccall "gtk_text_buffer_add_selection_clipboard" gtk_text_buffer_add_selection_clipboard ::
Ptr TextBuffer ->
Ptr Gtk.Clipboard.Clipboard ->
IO ()
textBufferAddSelectionClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) =>
a
-> b
-> m ()
textBufferAddSelectionClipboard :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsClipboard b) =>
a -> b -> m ()
textBufferAddSelectionClipboard a
buffer b
clipboard = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Clipboard
clipboard' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
clipboard
Ptr TextBuffer -> Ptr Clipboard -> IO ()
gtk_text_buffer_add_selection_clipboard Ptr TextBuffer
buffer' Ptr Clipboard
clipboard'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
clipboard
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferAddSelectionClipboardMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) => O.OverloadedMethod TextBufferAddSelectionClipboardMethodInfo a signature where
overloadedMethod = textBufferAddSelectionClipboard
instance O.OverloadedMethodInfo TextBufferAddSelectionClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferAddSelectionClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferAddSelectionClipboard"
})
#endif
foreign import ccall "gtk_text_buffer_apply_tag" gtk_text_buffer_apply_tag ::
Ptr TextBuffer ->
Ptr Gtk.TextTag.TextTag ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferApplyTag ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.TextTag.IsTextTag b) =>
a
-> b
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
textBufferApplyTag :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextTag b) =>
a -> b -> TextIter -> TextIter -> m ()
textBufferApplyTag a
buffer b
tag TextIter
start TextIter
end = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextTag
tag' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tag
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr TextBuffer
-> Ptr TextTag -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_apply_tag Ptr TextBuffer
buffer' Ptr TextTag
tag' Ptr TextIter
start' Ptr TextIter
end'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tag
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferApplyTagMethodInfo
instance (signature ~ (b -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a, Gtk.TextTag.IsTextTag b) => O.OverloadedMethod TextBufferApplyTagMethodInfo a signature where
overloadedMethod = textBufferApplyTag
instance O.OverloadedMethodInfo TextBufferApplyTagMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferApplyTag",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferApplyTag"
})
#endif
foreign import ccall "gtk_text_buffer_apply_tag_by_name" gtk_text_buffer_apply_tag_by_name ::
Ptr TextBuffer ->
CString ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferApplyTagByName ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
textBufferApplyTagByName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> TextIter -> TextIter -> m ()
textBufferApplyTagByName a
buffer Text
name TextIter
start TextIter
end = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr TextBuffer -> CString -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_apply_tag_by_name Ptr TextBuffer
buffer' CString
name' Ptr TextIter
start' Ptr TextIter
end'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall a. Ptr a -> IO ()
freeMem CString
name'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferApplyTagByNameMethodInfo
instance (signature ~ (T.Text -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferApplyTagByNameMethodInfo a signature where
overloadedMethod = textBufferApplyTagByName
instance O.OverloadedMethodInfo TextBufferApplyTagByNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferApplyTagByName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferApplyTagByName"
})
#endif
foreign import ccall "gtk_text_buffer_backspace" gtk_text_buffer_backspace ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
CInt ->
CInt ->
IO CInt
textBufferBackspace ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Bool
-> Bool
-> m Bool
textBufferBackspace :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> Bool -> Bool -> m Bool
textBufferBackspace a
buffer TextIter
iter Bool
interactive Bool
defaultEditable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
let interactive' :: CInt
interactive' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
interactive
let defaultEditable' :: CInt
defaultEditable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
defaultEditable
CInt
result <- Ptr TextBuffer -> Ptr TextIter -> CInt -> CInt -> IO CInt
gtk_text_buffer_backspace Ptr TextBuffer
buffer' Ptr TextIter
iter' CInt
interactive' CInt
defaultEditable'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferBackspaceMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Bool -> Bool -> m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferBackspaceMethodInfo a signature where
overloadedMethod = textBufferBackspace
instance O.OverloadedMethodInfo TextBufferBackspaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferBackspace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferBackspace"
})
#endif
foreign import ccall "gtk_text_buffer_begin_user_action" gtk_text_buffer_begin_user_action ::
Ptr TextBuffer ->
IO ()
textBufferBeginUserAction ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m ()
textBufferBeginUserAction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m ()
textBufferBeginUserAction a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextBuffer -> IO ()
gtk_text_buffer_begin_user_action Ptr TextBuffer
buffer'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferBeginUserActionMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferBeginUserActionMethodInfo a signature where
overloadedMethod = textBufferBeginUserAction
instance O.OverloadedMethodInfo TextBufferBeginUserActionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferBeginUserAction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferBeginUserAction"
})
#endif
foreign import ccall "gtk_text_buffer_copy_clipboard" gtk_text_buffer_copy_clipboard ::
Ptr TextBuffer ->
Ptr Gtk.Clipboard.Clipboard ->
IO ()
textBufferCopyClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) =>
a
-> b
-> m ()
textBufferCopyClipboard :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsClipboard b) =>
a -> b -> m ()
textBufferCopyClipboard a
buffer b
clipboard = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Clipboard
clipboard' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
clipboard
Ptr TextBuffer -> Ptr Clipboard -> IO ()
gtk_text_buffer_copy_clipboard Ptr TextBuffer
buffer' Ptr Clipboard
clipboard'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
clipboard
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferCopyClipboardMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) => O.OverloadedMethod TextBufferCopyClipboardMethodInfo a signature where
overloadedMethod = textBufferCopyClipboard
instance O.OverloadedMethodInfo TextBufferCopyClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferCopyClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferCopyClipboard"
})
#endif
foreign import ccall "gtk_text_buffer_create_child_anchor" gtk_text_buffer_create_child_anchor ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
IO (Ptr Gtk.TextChildAnchor.TextChildAnchor)
textBufferCreateChildAnchor ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> m Gtk.TextChildAnchor.TextChildAnchor
textBufferCreateChildAnchor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> m TextChildAnchor
textBufferCreateChildAnchor a
buffer TextIter
iter = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextChildAnchor
result <- Ptr TextBuffer -> Ptr TextIter -> IO (Ptr TextChildAnchor)
gtk_text_buffer_create_child_anchor Ptr TextBuffer
buffer' Ptr TextIter
iter'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferCreateChildAnchor" Ptr TextChildAnchor
result
TextChildAnchor
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextChildAnchor -> TextChildAnchor
Gtk.TextChildAnchor.TextChildAnchor) Ptr TextChildAnchor
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall (m :: * -> *) a. Monad m => a -> m a
return TextChildAnchor
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferCreateChildAnchorMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> m Gtk.TextChildAnchor.TextChildAnchor), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferCreateChildAnchorMethodInfo a signature where
overloadedMethod = textBufferCreateChildAnchor
instance O.OverloadedMethodInfo TextBufferCreateChildAnchorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferCreateChildAnchor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferCreateChildAnchor"
})
#endif
foreign import ccall "gtk_text_buffer_create_mark" gtk_text_buffer_create_mark ::
Ptr TextBuffer ->
CString ->
Ptr Gtk.TextIter.TextIter ->
CInt ->
IO (Ptr Gtk.TextMark.TextMark)
textBufferCreateMark ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Maybe (T.Text)
-> Gtk.TextIter.TextIter
-> Bool
-> m Gtk.TextMark.TextMark
textBufferCreateMark :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Maybe Text -> TextIter -> Bool -> m TextMark
textBufferCreateMark a
buffer Maybe Text
markName TextIter
where_ Bool
leftGravity = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
maybeMarkName <- case Maybe Text
markName of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jMarkName -> do
CString
jMarkName' <- Text -> IO CString
textToCString Text
jMarkName
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jMarkName'
Ptr TextIter
where_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
where_
let leftGravity' :: CInt
leftGravity' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
leftGravity
Ptr TextMark
result <- Ptr TextBuffer
-> CString -> Ptr TextIter -> CInt -> IO (Ptr TextMark)
gtk_text_buffer_create_mark Ptr TextBuffer
buffer' CString
maybeMarkName Ptr TextIter
where_' CInt
leftGravity'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferCreateMark" Ptr TextMark
result
TextMark
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextMark -> TextMark
Gtk.TextMark.TextMark) Ptr TextMark
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
where_
forall a. Ptr a -> IO ()
freeMem CString
maybeMarkName
forall (m :: * -> *) a. Monad m => a -> m a
return TextMark
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferCreateMarkMethodInfo
instance (signature ~ (Maybe (T.Text) -> Gtk.TextIter.TextIter -> Bool -> m Gtk.TextMark.TextMark), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferCreateMarkMethodInfo a signature where
overloadedMethod = textBufferCreateMark
instance O.OverloadedMethodInfo TextBufferCreateMarkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferCreateMark",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferCreateMark"
})
#endif
foreign import ccall "gtk_text_buffer_cut_clipboard" gtk_text_buffer_cut_clipboard ::
Ptr TextBuffer ->
Ptr Gtk.Clipboard.Clipboard ->
CInt ->
IO ()
textBufferCutClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) =>
a
-> b
-> Bool
-> m ()
textBufferCutClipboard :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsClipboard b) =>
a -> b -> Bool -> m ()
textBufferCutClipboard a
buffer b
clipboard Bool
defaultEditable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Clipboard
clipboard' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
clipboard
let defaultEditable' :: CInt
defaultEditable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
defaultEditable
Ptr TextBuffer -> Ptr Clipboard -> CInt -> IO ()
gtk_text_buffer_cut_clipboard Ptr TextBuffer
buffer' Ptr Clipboard
clipboard' CInt
defaultEditable'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
clipboard
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferCutClipboardMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) => O.OverloadedMethod TextBufferCutClipboardMethodInfo a signature where
overloadedMethod = textBufferCutClipboard
instance O.OverloadedMethodInfo TextBufferCutClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferCutClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferCutClipboard"
})
#endif
foreign import ccall "gtk_text_buffer_delete" gtk_text_buffer_delete ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferDelete ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
textBufferDelete :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> TextIter -> m ()
textBufferDelete a
buffer TextIter
start TextIter
end = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr TextBuffer -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_delete Ptr TextBuffer
buffer' Ptr TextIter
start' Ptr TextIter
end'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferDeleteMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferDeleteMethodInfo a signature where
overloadedMethod = textBufferDelete
instance O.OverloadedMethodInfo TextBufferDeleteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferDelete",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferDelete"
})
#endif
foreign import ccall "gtk_text_buffer_delete_interactive" gtk_text_buffer_delete_interactive ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CInt ->
IO CInt
textBufferDeleteInteractive ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> Bool
-> m Bool
textBufferDeleteInteractive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> TextIter -> Bool -> m Bool
textBufferDeleteInteractive a
buffer TextIter
startIter TextIter
endIter Bool
defaultEditable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
startIter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
startIter
Ptr TextIter
endIter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
endIter
let defaultEditable' :: CInt
defaultEditable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
defaultEditable
CInt
result <- Ptr TextBuffer -> Ptr TextIter -> Ptr TextIter -> CInt -> IO CInt
gtk_text_buffer_delete_interactive Ptr TextBuffer
buffer' Ptr TextIter
startIter' Ptr TextIter
endIter' CInt
defaultEditable'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
startIter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
endIter
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferDeleteInteractiveMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> Bool -> m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferDeleteInteractiveMethodInfo a signature where
overloadedMethod = textBufferDeleteInteractive
instance O.OverloadedMethodInfo TextBufferDeleteInteractiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferDeleteInteractive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferDeleteInteractive"
})
#endif
foreign import ccall "gtk_text_buffer_delete_mark" gtk_text_buffer_delete_mark ::
Ptr TextBuffer ->
Ptr Gtk.TextMark.TextMark ->
IO ()
textBufferDeleteMark ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.TextMark.IsTextMark b) =>
a
-> b
-> m ()
textBufferDeleteMark :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextMark b) =>
a -> b -> m ()
textBufferDeleteMark a
buffer b
mark = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextMark
mark' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
mark
Ptr TextBuffer -> Ptr TextMark -> IO ()
gtk_text_buffer_delete_mark Ptr TextBuffer
buffer' Ptr TextMark
mark'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
mark
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferDeleteMarkMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTextBuffer a, Gtk.TextMark.IsTextMark b) => O.OverloadedMethod TextBufferDeleteMarkMethodInfo a signature where
overloadedMethod = textBufferDeleteMark
instance O.OverloadedMethodInfo TextBufferDeleteMarkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferDeleteMark",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferDeleteMark"
})
#endif
foreign import ccall "gtk_text_buffer_delete_mark_by_name" gtk_text_buffer_delete_mark_by_name ::
Ptr TextBuffer ->
CString ->
IO ()
textBufferDeleteMarkByName ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> m ()
textBufferDeleteMarkByName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> m ()
textBufferDeleteMarkByName a
buffer Text
name = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr TextBuffer -> CString -> IO ()
gtk_text_buffer_delete_mark_by_name Ptr TextBuffer
buffer' CString
name'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
name'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferDeleteMarkByNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferDeleteMarkByNameMethodInfo a signature where
overloadedMethod = textBufferDeleteMarkByName
instance O.OverloadedMethodInfo TextBufferDeleteMarkByNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferDeleteMarkByName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferDeleteMarkByName"
})
#endif
foreign import ccall "gtk_text_buffer_delete_selection" gtk_text_buffer_delete_selection ::
Ptr TextBuffer ->
CInt ->
CInt ->
IO CInt
textBufferDeleteSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Bool
-> Bool
-> m Bool
textBufferDeleteSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Bool -> Bool -> m Bool
textBufferDeleteSelection a
buffer Bool
interactive Bool
defaultEditable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
let interactive' :: CInt
interactive' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
interactive
let defaultEditable' :: CInt
defaultEditable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
defaultEditable
CInt
result <- Ptr TextBuffer -> CInt -> CInt -> IO CInt
gtk_text_buffer_delete_selection Ptr TextBuffer
buffer' CInt
interactive' CInt
defaultEditable'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferDeleteSelectionMethodInfo
instance (signature ~ (Bool -> Bool -> m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferDeleteSelectionMethodInfo a signature where
overloadedMethod = textBufferDeleteSelection
instance O.OverloadedMethodInfo TextBufferDeleteSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferDeleteSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferDeleteSelection"
})
#endif
foreign import ccall "gtk_text_buffer_deserialize" gtk_text_buffer_deserialize ::
Ptr TextBuffer ->
Ptr TextBuffer ->
Ptr Gdk.Atom.Atom ->
Ptr Gtk.TextIter.TextIter ->
Ptr Word8 ->
Word64 ->
Ptr (Ptr GError) ->
IO CInt
textBufferDeserialize ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, IsTextBuffer b) =>
a
-> b
-> Gdk.Atom.Atom
-> Gtk.TextIter.TextIter
-> ByteString
-> m ()
textBufferDeserialize :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextBuffer b) =>
a -> b -> Atom -> TextIter -> ByteString -> m ()
textBufferDeserialize a
registerBuffer b
contentBuffer Atom
format TextIter
iter ByteString
data_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let length_ :: Word64
length_ = forall a b. (Integral a, Num b) => a -> b
fromIntegral forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
data_
Ptr TextBuffer
registerBuffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
registerBuffer
Ptr TextBuffer
contentBuffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
contentBuffer
Ptr Atom
format' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
format
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Word8
data_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
data_
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr TextBuffer
-> Ptr TextBuffer
-> Ptr Atom
-> Ptr TextIter
-> Ptr Word8
-> Word64
-> Ptr (Ptr GError)
-> IO CInt
gtk_text_buffer_deserialize Ptr TextBuffer
registerBuffer' Ptr TextBuffer
contentBuffer' Ptr Atom
format' Ptr TextIter
iter' Ptr Word8
data_' Word64
length_
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
registerBuffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
contentBuffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
format
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall a. Ptr a -> IO ()
freeMem Ptr Word8
data_'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall a. Ptr a -> IO ()
freeMem Ptr Word8
data_'
)
#if defined(ENABLE_OVERLOADING)
data TextBufferDeserializeMethodInfo
instance (signature ~ (b -> Gdk.Atom.Atom -> Gtk.TextIter.TextIter -> ByteString -> m ()), MonadIO m, IsTextBuffer a, IsTextBuffer b) => O.OverloadedMethod TextBufferDeserializeMethodInfo a signature where
overloadedMethod = textBufferDeserialize
instance O.OverloadedMethodInfo TextBufferDeserializeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferDeserialize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferDeserialize"
})
#endif
foreign import ccall "gtk_text_buffer_deserialize_get_can_create_tags" gtk_text_buffer_deserialize_get_can_create_tags ::
Ptr TextBuffer ->
Ptr Gdk.Atom.Atom ->
IO CInt
textBufferDeserializeGetCanCreateTags ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gdk.Atom.Atom
-> m Bool
textBufferDeserializeGetCanCreateTags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Atom -> m Bool
textBufferDeserializeGetCanCreateTags a
buffer Atom
format = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Atom
format' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
format
CInt
result <- Ptr TextBuffer -> Ptr Atom -> IO CInt
gtk_text_buffer_deserialize_get_can_create_tags Ptr TextBuffer
buffer' Ptr Atom
format'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
format
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferDeserializeGetCanCreateTagsMethodInfo
instance (signature ~ (Gdk.Atom.Atom -> m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferDeserializeGetCanCreateTagsMethodInfo a signature where
overloadedMethod = textBufferDeserializeGetCanCreateTags
instance O.OverloadedMethodInfo TextBufferDeserializeGetCanCreateTagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferDeserializeGetCanCreateTags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferDeserializeGetCanCreateTags"
})
#endif
foreign import ccall "gtk_text_buffer_deserialize_set_can_create_tags" gtk_text_buffer_deserialize_set_can_create_tags ::
Ptr TextBuffer ->
Ptr Gdk.Atom.Atom ->
CInt ->
IO ()
textBufferDeserializeSetCanCreateTags ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gdk.Atom.Atom
-> Bool
-> m ()
textBufferDeserializeSetCanCreateTags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Atom -> Bool -> m ()
textBufferDeserializeSetCanCreateTags a
buffer Atom
format Bool
canCreateTags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Atom
format' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
format
let canCreateTags' :: CInt
canCreateTags' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
canCreateTags
Ptr TextBuffer -> Ptr Atom -> CInt -> IO ()
gtk_text_buffer_deserialize_set_can_create_tags Ptr TextBuffer
buffer' Ptr Atom
format' CInt
canCreateTags'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
format
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferDeserializeSetCanCreateTagsMethodInfo
instance (signature ~ (Gdk.Atom.Atom -> Bool -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferDeserializeSetCanCreateTagsMethodInfo a signature where
overloadedMethod = textBufferDeserializeSetCanCreateTags
instance O.OverloadedMethodInfo TextBufferDeserializeSetCanCreateTagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferDeserializeSetCanCreateTags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferDeserializeSetCanCreateTags"
})
#endif
foreign import ccall "gtk_text_buffer_end_user_action" gtk_text_buffer_end_user_action ::
Ptr TextBuffer ->
IO ()
textBufferEndUserAction ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m ()
textBufferEndUserAction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m ()
textBufferEndUserAction a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextBuffer -> IO ()
gtk_text_buffer_end_user_action Ptr TextBuffer
buffer'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferEndUserActionMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferEndUserActionMethodInfo a signature where
overloadedMethod = textBufferEndUserAction
instance O.OverloadedMethodInfo TextBufferEndUserActionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferEndUserAction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferEndUserAction"
})
#endif
foreign import ccall "gtk_text_buffer_get_bounds" gtk_text_buffer_get_bounds ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferGetBounds ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))
textBufferGetBounds :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m (TextIter, TextIter)
textBufferGetBounds a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
start <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
end <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextBuffer -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_get_bounds Ptr TextBuffer
buffer' Ptr TextIter
start Ptr TextIter
end
TextIter
start' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
start
TextIter
end' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
end
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return (TextIter
start', TextIter
end')
#if defined(ENABLE_OVERLOADING)
data TextBufferGetBoundsMethodInfo
instance (signature ~ (m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetBoundsMethodInfo a signature where
overloadedMethod = textBufferGetBounds
instance O.OverloadedMethodInfo TextBufferGetBoundsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetBounds",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetBounds"
})
#endif
foreign import ccall "gtk_text_buffer_get_char_count" gtk_text_buffer_get_char_count ::
Ptr TextBuffer ->
IO Int32
textBufferGetCharCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Int32
textBufferGetCharCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m Int32
textBufferGetCharCount a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Int32
result <- Ptr TextBuffer -> IO Int32
gtk_text_buffer_get_char_count Ptr TextBuffer
buffer'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextBufferGetCharCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetCharCountMethodInfo a signature where
overloadedMethod = textBufferGetCharCount
instance O.OverloadedMethodInfo TextBufferGetCharCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetCharCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetCharCount"
})
#endif
foreign import ccall "gtk_text_buffer_get_copy_target_list" gtk_text_buffer_get_copy_target_list ::
Ptr TextBuffer ->
IO (Ptr Gtk.TargetList.TargetList)
textBufferGetCopyTargetList ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Gtk.TargetList.TargetList
textBufferGetCopyTargetList :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m TargetList
textBufferGetCopyTargetList a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TargetList
result <- Ptr TextBuffer -> IO (Ptr TargetList)
gtk_text_buffer_get_copy_target_list Ptr TextBuffer
buffer'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetCopyTargetList" Ptr TargetList
result
TargetList
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr TargetList -> TargetList
Gtk.TargetList.TargetList) Ptr TargetList
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TargetList
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetCopyTargetListMethodInfo
instance (signature ~ (m Gtk.TargetList.TargetList), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetCopyTargetListMethodInfo a signature where
overloadedMethod = textBufferGetCopyTargetList
instance O.OverloadedMethodInfo TextBufferGetCopyTargetListMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetCopyTargetList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetCopyTargetList"
})
#endif
foreign import ccall "gtk_text_buffer_get_deserialize_formats" gtk_text_buffer_get_deserialize_formats ::
Ptr TextBuffer ->
Ptr Int32 ->
IO (Ptr (Ptr Gdk.Atom.Atom))
textBufferGetDeserializeFormats ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m [Gdk.Atom.Atom]
textBufferGetDeserializeFormats :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m [Atom]
textBufferGetDeserializeFormats a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Int32
nFormats <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr (Ptr Atom)
result <- Ptr TextBuffer -> Ptr Int32 -> IO (Ptr (Ptr Atom))
gtk_text_buffer_get_deserialize_formats Ptr TextBuffer
buffer' Ptr Int32
nFormats
Int32
nFormats' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
nFormats
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetDeserializeFormats" Ptr (Ptr Atom)
result
[Ptr Atom]
result' <- (forall a b. Integral a => a -> Ptr (Ptr b) -> IO [Ptr b]
unpackPtrArrayWithLength Int32
nFormats') Ptr (Ptr Atom)
result
[Atom]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) [Ptr Atom]
result'
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr Atom)
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem Ptr Int32
nFormats
forall (m :: * -> *) a. Monad m => a -> m a
return [Atom]
result''
#if defined(ENABLE_OVERLOADING)
data TextBufferGetDeserializeFormatsMethodInfo
instance (signature ~ (m [Gdk.Atom.Atom]), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetDeserializeFormatsMethodInfo a signature where
overloadedMethod = textBufferGetDeserializeFormats
instance O.OverloadedMethodInfo TextBufferGetDeserializeFormatsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetDeserializeFormats",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetDeserializeFormats"
})
#endif
foreign import ccall "gtk_text_buffer_get_end_iter" gtk_text_buffer_get_end_iter ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferGetEndIter ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m (Gtk.TextIter.TextIter)
textBufferGetEndIter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m TextIter
textBufferGetEndIter a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextBuffer -> Ptr TextIter -> IO ()
gtk_text_buffer_get_end_iter Ptr TextBuffer
buffer' Ptr TextIter
iter
TextIter
iter' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetEndIterMethodInfo
instance (signature ~ (m (Gtk.TextIter.TextIter)), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetEndIterMethodInfo a signature where
overloadedMethod = textBufferGetEndIter
instance O.OverloadedMethodInfo TextBufferGetEndIterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetEndIter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetEndIter"
})
#endif
foreign import ccall "gtk_text_buffer_get_has_selection" gtk_text_buffer_get_has_selection ::
Ptr TextBuffer ->
IO CInt
textBufferGetHasSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Bool
textBufferGetHasSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m Bool
textBufferGetHasSelection a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CInt
result <- Ptr TextBuffer -> IO CInt
gtk_text_buffer_get_has_selection Ptr TextBuffer
buffer'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetHasSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetHasSelectionMethodInfo a signature where
overloadedMethod = textBufferGetHasSelection
instance O.OverloadedMethodInfo TextBufferGetHasSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetHasSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetHasSelection"
})
#endif
foreign import ccall "gtk_text_buffer_get_insert" gtk_text_buffer_get_insert ::
Ptr TextBuffer ->
IO (Ptr Gtk.TextMark.TextMark)
textBufferGetInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Gtk.TextMark.TextMark
textBufferGetInsert :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m TextMark
textBufferGetInsert a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextMark
result <- Ptr TextBuffer -> IO (Ptr TextMark)
gtk_text_buffer_get_insert Ptr TextBuffer
buffer'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetInsert" Ptr TextMark
result
TextMark
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextMark -> TextMark
Gtk.TextMark.TextMark) Ptr TextMark
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextMark
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetInsertMethodInfo
instance (signature ~ (m Gtk.TextMark.TextMark), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetInsertMethodInfo a signature where
overloadedMethod = textBufferGetInsert
instance O.OverloadedMethodInfo TextBufferGetInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetInsert"
})
#endif
foreign import ccall "gtk_text_buffer_get_iter_at_child_anchor" gtk_text_buffer_get_iter_at_child_anchor ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextChildAnchor.TextChildAnchor ->
IO ()
textBufferGetIterAtChildAnchor ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.TextChildAnchor.IsTextChildAnchor b) =>
a
-> b
-> m (Gtk.TextIter.TextIter)
textBufferGetIterAtChildAnchor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextChildAnchor b) =>
a -> b -> m TextIter
textBufferGetIterAtChildAnchor a
buffer b
anchor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextChildAnchor
anchor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
anchor
Ptr TextBuffer -> Ptr TextIter -> Ptr TextChildAnchor -> IO ()
gtk_text_buffer_get_iter_at_child_anchor Ptr TextBuffer
buffer' Ptr TextIter
iter Ptr TextChildAnchor
anchor'
TextIter
iter' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
anchor
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetIterAtChildAnchorMethodInfo
instance (signature ~ (b -> m (Gtk.TextIter.TextIter)), MonadIO m, IsTextBuffer a, Gtk.TextChildAnchor.IsTextChildAnchor b) => O.OverloadedMethod TextBufferGetIterAtChildAnchorMethodInfo a signature where
overloadedMethod = textBufferGetIterAtChildAnchor
instance O.OverloadedMethodInfo TextBufferGetIterAtChildAnchorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetIterAtChildAnchor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetIterAtChildAnchor"
})
#endif
foreign import ccall "gtk_text_buffer_get_iter_at_line" gtk_text_buffer_get_iter_at_line ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Int32 ->
IO ()
textBufferGetIterAtLine ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Int32
-> m (Gtk.TextIter.TextIter)
textBufferGetIterAtLine :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Int32 -> m TextIter
textBufferGetIterAtLine a
buffer Int32
lineNumber = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextBuffer -> Ptr TextIter -> Int32 -> IO ()
gtk_text_buffer_get_iter_at_line Ptr TextBuffer
buffer' Ptr TextIter
iter Int32
lineNumber
TextIter
iter' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetIterAtLineMethodInfo
instance (signature ~ (Int32 -> m (Gtk.TextIter.TextIter)), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetIterAtLineMethodInfo a signature where
overloadedMethod = textBufferGetIterAtLine
instance O.OverloadedMethodInfo TextBufferGetIterAtLineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetIterAtLine",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetIterAtLine"
})
#endif
foreign import ccall "gtk_text_buffer_get_iter_at_line_index" gtk_text_buffer_get_iter_at_line_index ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Int32 ->
Int32 ->
IO ()
textBufferGetIterAtLineIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Int32
-> Int32
-> m (Gtk.TextIter.TextIter)
textBufferGetIterAtLineIndex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Int32 -> Int32 -> m TextIter
textBufferGetIterAtLineIndex a
buffer Int32
lineNumber Int32
byteIndex = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextBuffer -> Ptr TextIter -> Int32 -> Int32 -> IO ()
gtk_text_buffer_get_iter_at_line_index Ptr TextBuffer
buffer' Ptr TextIter
iter Int32
lineNumber Int32
byteIndex
TextIter
iter' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetIterAtLineIndexMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Gtk.TextIter.TextIter)), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetIterAtLineIndexMethodInfo a signature where
overloadedMethod = textBufferGetIterAtLineIndex
instance O.OverloadedMethodInfo TextBufferGetIterAtLineIndexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetIterAtLineIndex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetIterAtLineIndex"
})
#endif
foreign import ccall "gtk_text_buffer_get_iter_at_line_offset" gtk_text_buffer_get_iter_at_line_offset ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Int32 ->
Int32 ->
IO ()
textBufferGetIterAtLineOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Int32
-> Int32
-> m (Gtk.TextIter.TextIter)
textBufferGetIterAtLineOffset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Int32 -> Int32 -> m TextIter
textBufferGetIterAtLineOffset a
buffer Int32
lineNumber Int32
charOffset = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextBuffer -> Ptr TextIter -> Int32 -> Int32 -> IO ()
gtk_text_buffer_get_iter_at_line_offset Ptr TextBuffer
buffer' Ptr TextIter
iter Int32
lineNumber Int32
charOffset
TextIter
iter' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetIterAtLineOffsetMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Gtk.TextIter.TextIter)), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetIterAtLineOffsetMethodInfo a signature where
overloadedMethod = textBufferGetIterAtLineOffset
instance O.OverloadedMethodInfo TextBufferGetIterAtLineOffsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetIterAtLineOffset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetIterAtLineOffset"
})
#endif
foreign import ccall "gtk_text_buffer_get_iter_at_mark" gtk_text_buffer_get_iter_at_mark ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextMark.TextMark ->
IO ()
textBufferGetIterAtMark ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.TextMark.IsTextMark b) =>
a
-> b
-> m (Gtk.TextIter.TextIter)
textBufferGetIterAtMark :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextMark b) =>
a -> b -> m TextIter
textBufferGetIterAtMark a
buffer b
mark = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextMark
mark' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
mark
Ptr TextBuffer -> Ptr TextIter -> Ptr TextMark -> IO ()
gtk_text_buffer_get_iter_at_mark Ptr TextBuffer
buffer' Ptr TextIter
iter Ptr TextMark
mark'
TextIter
iter' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
mark
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetIterAtMarkMethodInfo
instance (signature ~ (b -> m (Gtk.TextIter.TextIter)), MonadIO m, IsTextBuffer a, Gtk.TextMark.IsTextMark b) => O.OverloadedMethod TextBufferGetIterAtMarkMethodInfo a signature where
overloadedMethod = textBufferGetIterAtMark
instance O.OverloadedMethodInfo TextBufferGetIterAtMarkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetIterAtMark",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetIterAtMark"
})
#endif
foreign import ccall "gtk_text_buffer_get_iter_at_offset" gtk_text_buffer_get_iter_at_offset ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Int32 ->
IO ()
textBufferGetIterAtOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Int32
-> m (Gtk.TextIter.TextIter)
textBufferGetIterAtOffset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Int32 -> m TextIter
textBufferGetIterAtOffset a
buffer Int32
charOffset = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextBuffer -> Ptr TextIter -> Int32 -> IO ()
gtk_text_buffer_get_iter_at_offset Ptr TextBuffer
buffer' Ptr TextIter
iter Int32
charOffset
TextIter
iter' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetIterAtOffsetMethodInfo
instance (signature ~ (Int32 -> m (Gtk.TextIter.TextIter)), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetIterAtOffsetMethodInfo a signature where
overloadedMethod = textBufferGetIterAtOffset
instance O.OverloadedMethodInfo TextBufferGetIterAtOffsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetIterAtOffset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetIterAtOffset"
})
#endif
foreign import ccall "gtk_text_buffer_get_line_count" gtk_text_buffer_get_line_count ::
Ptr TextBuffer ->
IO Int32
textBufferGetLineCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Int32
textBufferGetLineCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m Int32
textBufferGetLineCount a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Int32
result <- Ptr TextBuffer -> IO Int32
gtk_text_buffer_get_line_count Ptr TextBuffer
buffer'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextBufferGetLineCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetLineCountMethodInfo a signature where
overloadedMethod = textBufferGetLineCount
instance O.OverloadedMethodInfo TextBufferGetLineCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetLineCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetLineCount"
})
#endif
foreign import ccall "gtk_text_buffer_get_mark" gtk_text_buffer_get_mark ::
Ptr TextBuffer ->
CString ->
IO (Ptr Gtk.TextMark.TextMark)
textBufferGetMark ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> m (Maybe Gtk.TextMark.TextMark)
textBufferGetMark :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> m (Maybe TextMark)
textBufferGetMark a
buffer Text
name = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr TextMark
result <- Ptr TextBuffer -> CString -> IO (Ptr TextMark)
gtk_text_buffer_get_mark Ptr TextBuffer
buffer' CString
name'
Maybe TextMark
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TextMark
result forall a b. (a -> b) -> a -> b
$ \Ptr TextMark
result' -> do
TextMark
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextMark -> TextMark
Gtk.TextMark.TextMark) Ptr TextMark
result'
forall (m :: * -> *) a. Monad m => a -> m a
return TextMark
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
name'
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TextMark
maybeResult
#if defined(ENABLE_OVERLOADING)
data TextBufferGetMarkMethodInfo
instance (signature ~ (T.Text -> m (Maybe Gtk.TextMark.TextMark)), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetMarkMethodInfo a signature where
overloadedMethod = textBufferGetMark
instance O.OverloadedMethodInfo TextBufferGetMarkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetMark",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetMark"
})
#endif
foreign import ccall "gtk_text_buffer_get_modified" gtk_text_buffer_get_modified ::
Ptr TextBuffer ->
IO CInt
textBufferGetModified ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Bool
textBufferGetModified :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m Bool
textBufferGetModified a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CInt
result <- Ptr TextBuffer -> IO CInt
gtk_text_buffer_get_modified Ptr TextBuffer
buffer'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetModifiedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetModifiedMethodInfo a signature where
overloadedMethod = textBufferGetModified
instance O.OverloadedMethodInfo TextBufferGetModifiedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetModified",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetModified"
})
#endif
foreign import ccall "gtk_text_buffer_get_paste_target_list" gtk_text_buffer_get_paste_target_list ::
Ptr TextBuffer ->
IO (Ptr Gtk.TargetList.TargetList)
textBufferGetPasteTargetList ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Gtk.TargetList.TargetList
textBufferGetPasteTargetList :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m TargetList
textBufferGetPasteTargetList a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TargetList
result <- Ptr TextBuffer -> IO (Ptr TargetList)
gtk_text_buffer_get_paste_target_list Ptr TextBuffer
buffer'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetPasteTargetList" Ptr TargetList
result
TargetList
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr TargetList -> TargetList
Gtk.TargetList.TargetList) Ptr TargetList
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TargetList
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetPasteTargetListMethodInfo
instance (signature ~ (m Gtk.TargetList.TargetList), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetPasteTargetListMethodInfo a signature where
overloadedMethod = textBufferGetPasteTargetList
instance O.OverloadedMethodInfo TextBufferGetPasteTargetListMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetPasteTargetList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetPasteTargetList"
})
#endif
foreign import ccall "gtk_text_buffer_get_selection_bound" gtk_text_buffer_get_selection_bound ::
Ptr TextBuffer ->
IO (Ptr Gtk.TextMark.TextMark)
textBufferGetSelectionBound ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Gtk.TextMark.TextMark
textBufferGetSelectionBound :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m TextMark
textBufferGetSelectionBound a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextMark
result <- Ptr TextBuffer -> IO (Ptr TextMark)
gtk_text_buffer_get_selection_bound Ptr TextBuffer
buffer'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetSelectionBound" Ptr TextMark
result
TextMark
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextMark -> TextMark
Gtk.TextMark.TextMark) Ptr TextMark
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextMark
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetSelectionBoundMethodInfo
instance (signature ~ (m Gtk.TextMark.TextMark), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetSelectionBoundMethodInfo a signature where
overloadedMethod = textBufferGetSelectionBound
instance O.OverloadedMethodInfo TextBufferGetSelectionBoundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetSelectionBound",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetSelectionBound"
})
#endif
foreign import ccall "gtk_text_buffer_get_selection_bounds" gtk_text_buffer_get_selection_bounds ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO CInt
textBufferGetSelectionBounds ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))
textBufferGetSelectionBounds :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m (Bool, TextIter, TextIter)
textBufferGetSelectionBounds a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
start <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
end <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
CInt
result <- Ptr TextBuffer -> Ptr TextIter -> Ptr TextIter -> IO CInt
gtk_text_buffer_get_selection_bounds Ptr TextBuffer
buffer' Ptr TextIter
start Ptr TextIter
end
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter
start' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
start
TextIter
end' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
end
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextIter
start', TextIter
end')
#if defined(ENABLE_OVERLOADING)
data TextBufferGetSelectionBoundsMethodInfo
instance (signature ~ (m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetSelectionBoundsMethodInfo a signature where
overloadedMethod = textBufferGetSelectionBounds
instance O.OverloadedMethodInfo TextBufferGetSelectionBoundsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetSelectionBounds",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetSelectionBounds"
})
#endif
foreign import ccall "gtk_text_buffer_get_serialize_formats" gtk_text_buffer_get_serialize_formats ::
Ptr TextBuffer ->
Ptr Int32 ->
IO (Ptr (Ptr Gdk.Atom.Atom))
textBufferGetSerializeFormats ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m [Gdk.Atom.Atom]
textBufferGetSerializeFormats :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m [Atom]
textBufferGetSerializeFormats a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Int32
nFormats <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr (Ptr Atom)
result <- Ptr TextBuffer -> Ptr Int32 -> IO (Ptr (Ptr Atom))
gtk_text_buffer_get_serialize_formats Ptr TextBuffer
buffer' Ptr Int32
nFormats
Int32
nFormats' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
nFormats
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetSerializeFormats" Ptr (Ptr Atom)
result
[Ptr Atom]
result' <- (forall a b. Integral a => a -> Ptr (Ptr b) -> IO [Ptr b]
unpackPtrArrayWithLength Int32
nFormats') Ptr (Ptr Atom)
result
[Atom]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) [Ptr Atom]
result'
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr Atom)
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem Ptr Int32
nFormats
forall (m :: * -> *) a. Monad m => a -> m a
return [Atom]
result''
#if defined(ENABLE_OVERLOADING)
data TextBufferGetSerializeFormatsMethodInfo
instance (signature ~ (m [Gdk.Atom.Atom]), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetSerializeFormatsMethodInfo a signature where
overloadedMethod = textBufferGetSerializeFormats
instance O.OverloadedMethodInfo TextBufferGetSerializeFormatsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetSerializeFormats",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetSerializeFormats"
})
#endif
foreign import ccall "gtk_text_buffer_get_slice" gtk_text_buffer_get_slice ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CInt ->
IO CString
textBufferGetSlice ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> Bool
-> m T.Text
textBufferGetSlice :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> TextIter -> Bool -> m Text
textBufferGetSlice a
buffer TextIter
start TextIter
end Bool
includeHiddenChars = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
let includeHiddenChars' :: CInt
includeHiddenChars' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
includeHiddenChars
CString
result <- Ptr TextBuffer
-> Ptr TextIter -> Ptr TextIter -> CInt -> IO CString
gtk_text_buffer_get_slice Ptr TextBuffer
buffer' Ptr TextIter
start' Ptr TextIter
end' CInt
includeHiddenChars'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetSlice" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. Ptr a -> IO ()
freeMem CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetSliceMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> Bool -> m T.Text), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetSliceMethodInfo a signature where
overloadedMethod = textBufferGetSlice
instance O.OverloadedMethodInfo TextBufferGetSliceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetSlice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetSlice"
})
#endif
foreign import ccall "gtk_text_buffer_get_start_iter" gtk_text_buffer_get_start_iter ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferGetStartIter ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m (Gtk.TextIter.TextIter)
textBufferGetStartIter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m TextIter
textBufferGetStartIter a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextBuffer -> Ptr TextIter -> IO ()
gtk_text_buffer_get_start_iter Ptr TextBuffer
buffer' Ptr TextIter
iter
TextIter
iter' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetStartIterMethodInfo
instance (signature ~ (m (Gtk.TextIter.TextIter)), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetStartIterMethodInfo a signature where
overloadedMethod = textBufferGetStartIter
instance O.OverloadedMethodInfo TextBufferGetStartIterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetStartIter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetStartIter"
})
#endif
foreign import ccall "gtk_text_buffer_get_tag_table" gtk_text_buffer_get_tag_table ::
Ptr TextBuffer ->
IO (Ptr Gtk.TextTagTable.TextTagTable)
textBufferGetTagTable ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> m Gtk.TextTagTable.TextTagTable
textBufferGetTagTable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m TextTagTable
textBufferGetTagTable a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextTagTable
result <- Ptr TextBuffer -> IO (Ptr TextTagTable)
gtk_text_buffer_get_tag_table Ptr TextBuffer
buffer'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetTagTable" Ptr TextTagTable
result
TextTagTable
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextTagTable -> TextTagTable
Gtk.TextTagTable.TextTagTable) Ptr TextTagTable
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextTagTable
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetTagTableMethodInfo
instance (signature ~ (m Gtk.TextTagTable.TextTagTable), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetTagTableMethodInfo a signature where
overloadedMethod = textBufferGetTagTable
instance O.OverloadedMethodInfo TextBufferGetTagTableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetTagTable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetTagTable"
})
#endif
foreign import ccall "gtk_text_buffer_get_text" gtk_text_buffer_get_text ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CInt ->
IO CString
textBufferGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> Bool
-> m T.Text
textBufferGetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> TextIter -> Bool -> m Text
textBufferGetText a
buffer TextIter
start TextIter
end Bool
includeHiddenChars = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
let includeHiddenChars' :: CInt
includeHiddenChars' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
includeHiddenChars
CString
result <- Ptr TextBuffer
-> Ptr TextIter -> Ptr TextIter -> CInt -> IO CString
gtk_text_buffer_get_text Ptr TextBuffer
buffer' Ptr TextIter
start' Ptr TextIter
end' CInt
includeHiddenChars'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferGetText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. Ptr a -> IO ()
freeMem CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferGetTextMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> Bool -> m T.Text), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferGetTextMethodInfo a signature where
overloadedMethod = textBufferGetText
instance O.OverloadedMethodInfo TextBufferGetTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferGetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferGetText"
})
#endif
foreign import ccall "gtk_text_buffer_insert" gtk_text_buffer_insert ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
Int32 ->
IO ()
textBufferInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> T.Text
-> Int32
-> m ()
textBufferInsert :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> Text -> Int32 -> m ()
textBufferInsert a
buffer TextIter
iter Text
text Int32
len = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr TextBuffer -> Ptr TextIter -> CString -> Int32 -> IO ()
gtk_text_buffer_insert Ptr TextBuffer
buffer' Ptr TextIter
iter' CString
text' Int32
len
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall a. Ptr a -> IO ()
freeMem CString
text'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> T.Text -> Int32 -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferInsertMethodInfo a signature where
overloadedMethod = textBufferInsert
instance O.OverloadedMethodInfo TextBufferInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsert"
})
#endif
foreign import ccall "gtk_text_buffer_insert_at_cursor" gtk_text_buffer_insert_at_cursor ::
Ptr TextBuffer ->
CString ->
Int32 ->
IO ()
textBufferInsertAtCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> Int32
-> m ()
textBufferInsertAtCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> Int32 -> m ()
textBufferInsertAtCursor a
buffer Text
text Int32
len = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr TextBuffer -> CString -> Int32 -> IO ()
gtk_text_buffer_insert_at_cursor Ptr TextBuffer
buffer' CString
text' Int32
len
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
text'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertAtCursorMethodInfo
instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferInsertAtCursorMethodInfo a signature where
overloadedMethod = textBufferInsertAtCursor
instance O.OverloadedMethodInfo TextBufferInsertAtCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsertAtCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsertAtCursor"
})
#endif
foreign import ccall "gtk_text_buffer_insert_child_anchor" gtk_text_buffer_insert_child_anchor ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextChildAnchor.TextChildAnchor ->
IO ()
textBufferInsertChildAnchor ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.TextChildAnchor.IsTextChildAnchor b) =>
a
-> Gtk.TextIter.TextIter
-> b
-> m ()
textBufferInsertChildAnchor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextChildAnchor b) =>
a -> TextIter -> b -> m ()
textBufferInsertChildAnchor a
buffer TextIter
iter b
anchor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextChildAnchor
anchor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
anchor
Ptr TextBuffer -> Ptr TextIter -> Ptr TextChildAnchor -> IO ()
gtk_text_buffer_insert_child_anchor Ptr TextBuffer
buffer' Ptr TextIter
iter' Ptr TextChildAnchor
anchor'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
anchor
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertChildAnchorMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> b -> m ()), MonadIO m, IsTextBuffer a, Gtk.TextChildAnchor.IsTextChildAnchor b) => O.OverloadedMethod TextBufferInsertChildAnchorMethodInfo a signature where
overloadedMethod = textBufferInsertChildAnchor
instance O.OverloadedMethodInfo TextBufferInsertChildAnchorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsertChildAnchor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsertChildAnchor"
})
#endif
foreign import ccall "gtk_text_buffer_insert_interactive" gtk_text_buffer_insert_interactive ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
Int32 ->
CInt ->
IO CInt
textBufferInsertInteractive ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> T.Text
-> Int32
-> Bool
-> m Bool
textBufferInsertInteractive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> Text -> Int32 -> Bool -> m Bool
textBufferInsertInteractive a
buffer TextIter
iter Text
text Int32
len Bool
defaultEditable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CString
text' <- Text -> IO CString
textToCString Text
text
let defaultEditable' :: CInt
defaultEditable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
defaultEditable
CInt
result <- Ptr TextBuffer
-> Ptr TextIter -> CString -> Int32 -> CInt -> IO CInt
gtk_text_buffer_insert_interactive Ptr TextBuffer
buffer' Ptr TextIter
iter' CString
text' Int32
len CInt
defaultEditable'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall a. Ptr a -> IO ()
freeMem CString
text'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertInteractiveMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> T.Text -> Int32 -> Bool -> m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferInsertInteractiveMethodInfo a signature where
overloadedMethod = textBufferInsertInteractive
instance O.OverloadedMethodInfo TextBufferInsertInteractiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsertInteractive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsertInteractive"
})
#endif
foreign import ccall "gtk_text_buffer_insert_interactive_at_cursor" gtk_text_buffer_insert_interactive_at_cursor ::
Ptr TextBuffer ->
CString ->
Int32 ->
CInt ->
IO CInt
textBufferInsertInteractiveAtCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> Int32
-> Bool
-> m Bool
textBufferInsertInteractiveAtCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> Int32 -> Bool -> m Bool
textBufferInsertInteractiveAtCursor a
buffer Text
text Int32
len Bool
defaultEditable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
text' <- Text -> IO CString
textToCString Text
text
let defaultEditable' :: CInt
defaultEditable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
defaultEditable
CInt
result <- Ptr TextBuffer -> CString -> Int32 -> CInt -> IO CInt
gtk_text_buffer_insert_interactive_at_cursor Ptr TextBuffer
buffer' CString
text' Int32
len CInt
defaultEditable'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
text'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertInteractiveAtCursorMethodInfo
instance (signature ~ (T.Text -> Int32 -> Bool -> m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferInsertInteractiveAtCursorMethodInfo a signature where
overloadedMethod = textBufferInsertInteractiveAtCursor
instance O.OverloadedMethodInfo TextBufferInsertInteractiveAtCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsertInteractiveAtCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsertInteractiveAtCursor"
})
#endif
foreign import ccall "gtk_text_buffer_insert_markup" gtk_text_buffer_insert_markup ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
Int32 ->
IO ()
textBufferInsertMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> T.Text
-> Int32
-> m ()
textBufferInsertMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> Text -> Int32 -> m ()
textBufferInsertMarkup a
buffer TextIter
iter Text
markup Int32
len = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CString
markup' <- Text -> IO CString
textToCString Text
markup
Ptr TextBuffer -> Ptr TextIter -> CString -> Int32 -> IO ()
gtk_text_buffer_insert_markup Ptr TextBuffer
buffer' Ptr TextIter
iter' CString
markup' Int32
len
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall a. Ptr a -> IO ()
freeMem CString
markup'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertMarkupMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> T.Text -> Int32 -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferInsertMarkupMethodInfo a signature where
overloadedMethod = textBufferInsertMarkup
instance O.OverloadedMethodInfo TextBufferInsertMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsertMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsertMarkup"
})
#endif
foreign import ccall "gtk_text_buffer_insert_pixbuf" gtk_text_buffer_insert_pixbuf ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO ()
textBufferInsertPixbuf ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, GdkPixbuf.Pixbuf.IsPixbuf b) =>
a
-> Gtk.TextIter.TextIter
-> b
-> m ()
textBufferInsertPixbuf :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsPixbuf b) =>
a -> TextIter -> b -> m ()
textBufferInsertPixbuf a
buffer TextIter
iter b
pixbuf = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Pixbuf
pixbuf' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
pixbuf
Ptr TextBuffer -> Ptr TextIter -> Ptr Pixbuf -> IO ()
gtk_text_buffer_insert_pixbuf Ptr TextBuffer
buffer' Ptr TextIter
iter' Ptr Pixbuf
pixbuf'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
pixbuf
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertPixbufMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> b -> m ()), MonadIO m, IsTextBuffer a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.OverloadedMethod TextBufferInsertPixbufMethodInfo a signature where
overloadedMethod = textBufferInsertPixbuf
instance O.OverloadedMethodInfo TextBufferInsertPixbufMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsertPixbuf",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsertPixbuf"
})
#endif
foreign import ccall "gtk_text_buffer_insert_range" gtk_text_buffer_insert_range ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferInsertRange ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
textBufferInsertRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> TextIter -> TextIter -> m ()
textBufferInsertRange a
buffer TextIter
iter TextIter
start TextIter
end = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr TextBuffer
-> Ptr TextIter -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_insert_range Ptr TextBuffer
buffer' Ptr TextIter
iter' Ptr TextIter
start' Ptr TextIter
end'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertRangeMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferInsertRangeMethodInfo a signature where
overloadedMethod = textBufferInsertRange
instance O.OverloadedMethodInfo TextBufferInsertRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsertRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsertRange"
})
#endif
foreign import ccall "gtk_text_buffer_insert_range_interactive" gtk_text_buffer_insert_range_interactive ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CInt ->
IO CInt
textBufferInsertRangeInteractive ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> Bool
-> m Bool
textBufferInsertRangeInteractive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> TextIter -> TextIter -> Bool -> m Bool
textBufferInsertRangeInteractive a
buffer TextIter
iter TextIter
start TextIter
end Bool
defaultEditable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
let defaultEditable' :: CInt
defaultEditable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
defaultEditable
CInt
result <- Ptr TextBuffer
-> Ptr TextIter -> Ptr TextIter -> Ptr TextIter -> CInt -> IO CInt
gtk_text_buffer_insert_range_interactive Ptr TextBuffer
buffer' Ptr TextIter
iter' Ptr TextIter
start' Ptr TextIter
end' CInt
defaultEditable'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferInsertRangeInteractiveMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> Bool -> m Bool), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferInsertRangeInteractiveMethodInfo a signature where
overloadedMethod = textBufferInsertRangeInteractive
instance O.OverloadedMethodInfo TextBufferInsertRangeInteractiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferInsertRangeInteractive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferInsertRangeInteractive"
})
#endif
foreign import ccall "gtk_text_buffer_move_mark" gtk_text_buffer_move_mark ::
Ptr TextBuffer ->
Ptr Gtk.TextMark.TextMark ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferMoveMark ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.TextMark.IsTextMark b) =>
a
-> b
-> Gtk.TextIter.TextIter
-> m ()
textBufferMoveMark :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextMark b) =>
a -> b -> TextIter -> m ()
textBufferMoveMark a
buffer b
mark TextIter
where_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextMark
mark' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
mark
Ptr TextIter
where_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
where_
Ptr TextBuffer -> Ptr TextMark -> Ptr TextIter -> IO ()
gtk_text_buffer_move_mark Ptr TextBuffer
buffer' Ptr TextMark
mark' Ptr TextIter
where_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
mark
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
where_
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferMoveMarkMethodInfo
instance (signature ~ (b -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a, Gtk.TextMark.IsTextMark b) => O.OverloadedMethod TextBufferMoveMarkMethodInfo a signature where
overloadedMethod = textBufferMoveMark
instance O.OverloadedMethodInfo TextBufferMoveMarkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferMoveMark",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferMoveMark"
})
#endif
foreign import ccall "gtk_text_buffer_move_mark_by_name" gtk_text_buffer_move_mark_by_name ::
Ptr TextBuffer ->
CString ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferMoveMarkByName ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> Gtk.TextIter.TextIter
-> m ()
textBufferMoveMarkByName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> TextIter -> m ()
textBufferMoveMarkByName a
buffer Text
name TextIter
where_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr TextIter
where_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
where_
Ptr TextBuffer -> CString -> Ptr TextIter -> IO ()
gtk_text_buffer_move_mark_by_name Ptr TextBuffer
buffer' CString
name' Ptr TextIter
where_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
where_
forall a. Ptr a -> IO ()
freeMem CString
name'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferMoveMarkByNameMethodInfo
instance (signature ~ (T.Text -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferMoveMarkByNameMethodInfo a signature where
overloadedMethod = textBufferMoveMarkByName
instance O.OverloadedMethodInfo TextBufferMoveMarkByNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferMoveMarkByName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferMoveMarkByName"
})
#endif
foreign import ccall "gtk_text_buffer_paste_clipboard" gtk_text_buffer_paste_clipboard ::
Ptr TextBuffer ->
Ptr Gtk.Clipboard.Clipboard ->
Ptr Gtk.TextIter.TextIter ->
CInt ->
IO ()
textBufferPasteClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) =>
a
-> b
-> Maybe (Gtk.TextIter.TextIter)
-> Bool
-> m ()
textBufferPasteClipboard :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsClipboard b) =>
a -> b -> Maybe TextIter -> Bool -> m ()
textBufferPasteClipboard a
buffer b
clipboard Maybe TextIter
overrideLocation Bool
defaultEditable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Clipboard
clipboard' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
clipboard
Ptr TextIter
maybeOverrideLocation <- case Maybe TextIter
overrideLocation of
Maybe TextIter
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just TextIter
jOverrideLocation -> do
Ptr TextIter
jOverrideLocation' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
jOverrideLocation
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
jOverrideLocation'
let defaultEditable' :: CInt
defaultEditable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
defaultEditable
Ptr TextBuffer -> Ptr Clipboard -> Ptr TextIter -> CInt -> IO ()
gtk_text_buffer_paste_clipboard Ptr TextBuffer
buffer' Ptr Clipboard
clipboard' Ptr TextIter
maybeOverrideLocation CInt
defaultEditable'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
clipboard
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TextIter
overrideLocation forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferPasteClipboardMethodInfo
instance (signature ~ (b -> Maybe (Gtk.TextIter.TextIter) -> Bool -> m ()), MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) => O.OverloadedMethod TextBufferPasteClipboardMethodInfo a signature where
overloadedMethod = textBufferPasteClipboard
instance O.OverloadedMethodInfo TextBufferPasteClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferPasteClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferPasteClipboard"
})
#endif
foreign import ccall "gtk_text_buffer_place_cursor" gtk_text_buffer_place_cursor ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferPlaceCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> m ()
textBufferPlaceCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> m ()
textBufferPlaceCursor a
buffer TextIter
where_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
where_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
where_
Ptr TextBuffer -> Ptr TextIter -> IO ()
gtk_text_buffer_place_cursor Ptr TextBuffer
buffer' Ptr TextIter
where_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
where_
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferPlaceCursorMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferPlaceCursorMethodInfo a signature where
overloadedMethod = textBufferPlaceCursor
instance O.OverloadedMethodInfo TextBufferPlaceCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferPlaceCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferPlaceCursor"
})
#endif
foreign import ccall "gtk_text_buffer_register_deserialize_format" gtk_text_buffer_register_deserialize_format ::
Ptr TextBuffer ->
CString ->
FunPtr Gtk.Callbacks.C_TextBufferDeserializeFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO (Ptr Gdk.Atom.Atom)
textBufferRegisterDeserializeFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> FunPtr Gtk.Callbacks.C_TextBufferDeserializeFunc
-> m Gdk.Atom.Atom
textBufferRegisterDeserializeFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> FunPtr C_TextBufferDeserializeFunc -> m Atom
textBufferRegisterDeserializeFormat a
buffer Text
mimeType FunPtr C_TextBufferDeserializeFunc
function = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
mimeType' <- Text -> IO CString
textToCString Text
mimeType
let userData :: Ptr ()
userData = forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TextBufferDeserializeFunc
function
let userDataDestroy :: FunPtr (Ptr a -> IO ())
userDataDestroy = forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr Atom
result <- Ptr TextBuffer
-> CString
-> FunPtr C_TextBufferDeserializeFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO (Ptr Atom)
gtk_text_buffer_register_deserialize_format Ptr TextBuffer
buffer' CString
mimeType' FunPtr C_TextBufferDeserializeFunc
function Ptr ()
userData forall a. FunPtr (Ptr a -> IO ())
userDataDestroy
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferRegisterDeserializeFormat" Ptr Atom
result
Atom
result' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
mimeType'
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferRegisterDeserializeFormatMethodInfo
instance (signature ~ (T.Text -> FunPtr Gtk.Callbacks.C_TextBufferDeserializeFunc -> m Gdk.Atom.Atom), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferRegisterDeserializeFormatMethodInfo a signature where
overloadedMethod = textBufferRegisterDeserializeFormat
instance O.OverloadedMethodInfo TextBufferRegisterDeserializeFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferRegisterDeserializeFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferRegisterDeserializeFormat"
})
#endif
foreign import ccall "gtk_text_buffer_register_deserialize_tagset" gtk_text_buffer_register_deserialize_tagset ::
Ptr TextBuffer ->
CString ->
IO (Ptr Gdk.Atom.Atom)
textBufferRegisterDeserializeTagset ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Maybe (T.Text)
-> m Gdk.Atom.Atom
textBufferRegisterDeserializeTagset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Maybe Text -> m Atom
textBufferRegisterDeserializeTagset a
buffer Maybe Text
tagsetName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
maybeTagsetName <- case Maybe Text
tagsetName of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jTagsetName -> do
CString
jTagsetName' <- Text -> IO CString
textToCString Text
jTagsetName
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jTagsetName'
Ptr Atom
result <- Ptr TextBuffer -> CString -> IO (Ptr Atom)
gtk_text_buffer_register_deserialize_tagset Ptr TextBuffer
buffer' CString
maybeTagsetName
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferRegisterDeserializeTagset" Ptr Atom
result
Atom
result' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
maybeTagsetName
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferRegisterDeserializeTagsetMethodInfo
instance (signature ~ (Maybe (T.Text) -> m Gdk.Atom.Atom), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferRegisterDeserializeTagsetMethodInfo a signature where
overloadedMethod = textBufferRegisterDeserializeTagset
instance O.OverloadedMethodInfo TextBufferRegisterDeserializeTagsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferRegisterDeserializeTagset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferRegisterDeserializeTagset"
})
#endif
foreign import ccall "gtk_text_buffer_register_serialize_format" gtk_text_buffer_register_serialize_format ::
Ptr TextBuffer ->
CString ->
FunPtr Gtk.Callbacks.C_TextBufferSerializeFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO (Ptr Gdk.Atom.Atom)
textBufferRegisterSerializeFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> Gtk.Callbacks.TextBufferSerializeFunc
-> m Gdk.Atom.Atom
textBufferRegisterSerializeFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> TextBufferSerializeFunc -> m Atom
textBufferRegisterSerializeFormat a
buffer Text
mimeType TextBufferSerializeFunc
function = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
mimeType' <- Text -> IO CString
textToCString Text
mimeType
FunPtr C_TextBufferSerializeFunc
function' <- C_TextBufferSerializeFunc -> IO (FunPtr C_TextBufferSerializeFunc)
Gtk.Callbacks.mk_TextBufferSerializeFunc (Maybe (Ptr (FunPtr C_TextBufferSerializeFunc))
-> TextBufferSerializeFunc_WithClosures
-> C_TextBufferSerializeFunc
Gtk.Callbacks.wrap_TextBufferSerializeFunc forall a. Maybe a
Nothing (TextBufferSerializeFunc -> TextBufferSerializeFunc_WithClosures
Gtk.Callbacks.drop_closures_TextBufferSerializeFunc TextBufferSerializeFunc
function))
let userData :: Ptr ()
userData = forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TextBufferSerializeFunc
function'
let userDataDestroy :: FunPtr (Ptr a -> IO ())
userDataDestroy = forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr Atom
result <- Ptr TextBuffer
-> CString
-> FunPtr C_TextBufferSerializeFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO (Ptr Atom)
gtk_text_buffer_register_serialize_format Ptr TextBuffer
buffer' CString
mimeType' FunPtr C_TextBufferSerializeFunc
function' Ptr ()
userData forall a. FunPtr (Ptr a -> IO ())
userDataDestroy
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferRegisterSerializeFormat" Ptr Atom
result
Atom
result' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
mimeType'
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferRegisterSerializeFormatMethodInfo
instance (signature ~ (T.Text -> Gtk.Callbacks.TextBufferSerializeFunc -> m Gdk.Atom.Atom), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferRegisterSerializeFormatMethodInfo a signature where
overloadedMethod = textBufferRegisterSerializeFormat
instance O.OverloadedMethodInfo TextBufferRegisterSerializeFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferRegisterSerializeFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferRegisterSerializeFormat"
})
#endif
foreign import ccall "gtk_text_buffer_register_serialize_tagset" gtk_text_buffer_register_serialize_tagset ::
Ptr TextBuffer ->
CString ->
IO (Ptr Gdk.Atom.Atom)
textBufferRegisterSerializeTagset ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Maybe (T.Text)
-> m Gdk.Atom.Atom
textBufferRegisterSerializeTagset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Maybe Text -> m Atom
textBufferRegisterSerializeTagset a
buffer Maybe Text
tagsetName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
maybeTagsetName <- case Maybe Text
tagsetName of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jTagsetName -> do
CString
jTagsetName' <- Text -> IO CString
textToCString Text
jTagsetName
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jTagsetName'
Ptr Atom
result <- Ptr TextBuffer -> CString -> IO (Ptr Atom)
gtk_text_buffer_register_serialize_tagset Ptr TextBuffer
buffer' CString
maybeTagsetName
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferRegisterSerializeTagset" Ptr Atom
result
Atom
result' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
maybeTagsetName
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferRegisterSerializeTagsetMethodInfo
instance (signature ~ (Maybe (T.Text) -> m Gdk.Atom.Atom), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferRegisterSerializeTagsetMethodInfo a signature where
overloadedMethod = textBufferRegisterSerializeTagset
instance O.OverloadedMethodInfo TextBufferRegisterSerializeTagsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferRegisterSerializeTagset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferRegisterSerializeTagset"
})
#endif
foreign import ccall "gtk_text_buffer_remove_all_tags" gtk_text_buffer_remove_all_tags ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferRemoveAllTags ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
textBufferRemoveAllTags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> TextIter -> m ()
textBufferRemoveAllTags a
buffer TextIter
start TextIter
end = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr TextBuffer -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_remove_all_tags Ptr TextBuffer
buffer' Ptr TextIter
start' Ptr TextIter
end'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferRemoveAllTagsMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferRemoveAllTagsMethodInfo a signature where
overloadedMethod = textBufferRemoveAllTags
instance O.OverloadedMethodInfo TextBufferRemoveAllTagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferRemoveAllTags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferRemoveAllTags"
})
#endif
foreign import ccall "gtk_text_buffer_remove_selection_clipboard" gtk_text_buffer_remove_selection_clipboard ::
Ptr TextBuffer ->
Ptr Gtk.Clipboard.Clipboard ->
IO ()
textBufferRemoveSelectionClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) =>
a
-> b
-> m ()
textBufferRemoveSelectionClipboard :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsClipboard b) =>
a -> b -> m ()
textBufferRemoveSelectionClipboard a
buffer b
clipboard = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Clipboard
clipboard' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
clipboard
Ptr TextBuffer -> Ptr Clipboard -> IO ()
gtk_text_buffer_remove_selection_clipboard Ptr TextBuffer
buffer' Ptr Clipboard
clipboard'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
clipboard
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferRemoveSelectionClipboardMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTextBuffer a, Gtk.Clipboard.IsClipboard b) => O.OverloadedMethod TextBufferRemoveSelectionClipboardMethodInfo a signature where
overloadedMethod = textBufferRemoveSelectionClipboard
instance O.OverloadedMethodInfo TextBufferRemoveSelectionClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferRemoveSelectionClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferRemoveSelectionClipboard"
})
#endif
foreign import ccall "gtk_text_buffer_remove_tag" gtk_text_buffer_remove_tag ::
Ptr TextBuffer ->
Ptr Gtk.TextTag.TextTag ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferRemoveTag ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, Gtk.TextTag.IsTextTag b) =>
a
-> b
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
textBufferRemoveTag :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextTag b) =>
a -> b -> TextIter -> TextIter -> m ()
textBufferRemoveTag a
buffer b
tag TextIter
start TextIter
end = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextTag
tag' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tag
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr TextBuffer
-> Ptr TextTag -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_remove_tag Ptr TextBuffer
buffer' Ptr TextTag
tag' Ptr TextIter
start' Ptr TextIter
end'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tag
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferRemoveTagMethodInfo
instance (signature ~ (b -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a, Gtk.TextTag.IsTextTag b) => O.OverloadedMethod TextBufferRemoveTagMethodInfo a signature where
overloadedMethod = textBufferRemoveTag
instance O.OverloadedMethodInfo TextBufferRemoveTagMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferRemoveTag",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferRemoveTag"
})
#endif
foreign import ccall "gtk_text_buffer_remove_tag_by_name" gtk_text_buffer_remove_tag_by_name ::
Ptr TextBuffer ->
CString ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferRemoveTagByName ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
textBufferRemoveTagByName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> TextIter -> TextIter -> m ()
textBufferRemoveTagByName a
buffer Text
name TextIter
start TextIter
end = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr TextBuffer -> CString -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_remove_tag_by_name Ptr TextBuffer
buffer' CString
name' Ptr TextIter
start' Ptr TextIter
end'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall a. Ptr a -> IO ()
freeMem CString
name'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferRemoveTagByNameMethodInfo
instance (signature ~ (T.Text -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferRemoveTagByNameMethodInfo a signature where
overloadedMethod = textBufferRemoveTagByName
instance O.OverloadedMethodInfo TextBufferRemoveTagByNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferRemoveTagByName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferRemoveTagByName"
})
#endif
foreign import ccall "gtk_text_buffer_select_range" gtk_text_buffer_select_range ::
Ptr TextBuffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
textBufferSelectRange ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
textBufferSelectRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> TextIter -> TextIter -> m ()
textBufferSelectRange a
buffer TextIter
ins TextIter
bound = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr TextIter
ins' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
ins
Ptr TextIter
bound' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
bound
Ptr TextBuffer -> Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_buffer_select_range Ptr TextBuffer
buffer' Ptr TextIter
ins' Ptr TextIter
bound'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
ins
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
bound
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferSelectRangeMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferSelectRangeMethodInfo a signature where
overloadedMethod = textBufferSelectRange
instance O.OverloadedMethodInfo TextBufferSelectRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferSelectRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferSelectRange"
})
#endif
foreign import ccall "gtk_text_buffer_serialize" gtk_text_buffer_serialize ::
Ptr TextBuffer ->
Ptr TextBuffer ->
Ptr Gdk.Atom.Atom ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr Word64 ->
IO (Ptr Word8)
textBufferSerialize ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a, IsTextBuffer b) =>
a
-> b
-> Gdk.Atom.Atom
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ByteString
textBufferSerialize :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTextBuffer a, IsTextBuffer b) =>
a -> b -> Atom -> TextIter -> TextIter -> m ByteString
textBufferSerialize a
registerBuffer b
contentBuffer Atom
format TextIter
start TextIter
end = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
registerBuffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
registerBuffer
Ptr TextBuffer
contentBuffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
contentBuffer
Ptr Atom
format' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
format
Ptr TextIter
start' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr Word64
length_ <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr Word8
result <- Ptr TextBuffer
-> Ptr TextBuffer
-> Ptr Atom
-> Ptr TextIter
-> Ptr TextIter
-> Ptr Word64
-> IO (Ptr Word8)
gtk_text_buffer_serialize Ptr TextBuffer
registerBuffer' Ptr TextBuffer
contentBuffer' Ptr Atom
format' Ptr TextIter
start' Ptr TextIter
end' Ptr Word64
length_
Word64
length_' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
length_
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textBufferSerialize" Ptr Word8
result
ByteString
result' <- (forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength Word64
length_') Ptr Word8
result
forall a. Ptr a -> IO ()
freeMem Ptr Word8
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
registerBuffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
contentBuffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
format
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
forall a. Ptr a -> IO ()
freeMem Ptr Word64
length_
forall (m :: * -> *) a. Monad m => a -> m a
return ByteString
result'
#if defined(ENABLE_OVERLOADING)
data TextBufferSerializeMethodInfo
instance (signature ~ (b -> Gdk.Atom.Atom -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ByteString), MonadIO m, IsTextBuffer a, IsTextBuffer b) => O.OverloadedMethod TextBufferSerializeMethodInfo a signature where
overloadedMethod = textBufferSerialize
instance O.OverloadedMethodInfo TextBufferSerializeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferSerialize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferSerialize"
})
#endif
foreign import ccall "gtk_text_buffer_set_modified" gtk_text_buffer_set_modified ::
Ptr TextBuffer ->
CInt ->
IO ()
textBufferSetModified ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Bool
-> m ()
textBufferSetModified :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Bool -> m ()
textBufferSetModified a
buffer Bool
setting = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
let setting' :: CInt
setting' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
setting
Ptr TextBuffer -> CInt -> IO ()
gtk_text_buffer_set_modified Ptr TextBuffer
buffer' CInt
setting'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferSetModifiedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferSetModifiedMethodInfo a signature where
overloadedMethod = textBufferSetModified
instance O.OverloadedMethodInfo TextBufferSetModifiedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferSetModified",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferSetModified"
})
#endif
foreign import ccall "gtk_text_buffer_set_text" gtk_text_buffer_set_text ::
Ptr TextBuffer ->
CString ->
Int32 ->
IO ()
textBufferSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> T.Text
-> Int32
-> m ()
textBufferSetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Text -> Int32 -> m ()
textBufferSetText a
buffer Text
text Int32
len = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr TextBuffer -> CString -> Int32 -> IO ()
gtk_text_buffer_set_text Ptr TextBuffer
buffer' CString
text' Int32
len
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. Ptr a -> IO ()
freeMem CString
text'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferSetTextMethodInfo
instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferSetTextMethodInfo a signature where
overloadedMethod = textBufferSetText
instance O.OverloadedMethodInfo TextBufferSetTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferSetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferSetText"
})
#endif
foreign import ccall "gtk_text_buffer_unregister_deserialize_format" gtk_text_buffer_unregister_deserialize_format ::
Ptr TextBuffer ->
Ptr Gdk.Atom.Atom ->
IO ()
textBufferUnregisterDeserializeFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gdk.Atom.Atom
-> m ()
textBufferUnregisterDeserializeFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Atom -> m ()
textBufferUnregisterDeserializeFormat a
buffer Atom
format = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Atom
format' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
format
Ptr TextBuffer -> Ptr Atom -> IO ()
gtk_text_buffer_unregister_deserialize_format Ptr TextBuffer
buffer' Ptr Atom
format'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
format
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferUnregisterDeserializeFormatMethodInfo
instance (signature ~ (Gdk.Atom.Atom -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferUnregisterDeserializeFormatMethodInfo a signature where
overloadedMethod = textBufferUnregisterDeserializeFormat
instance O.OverloadedMethodInfo TextBufferUnregisterDeserializeFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferUnregisterDeserializeFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferUnregisterDeserializeFormat"
})
#endif
foreign import ccall "gtk_text_buffer_unregister_serialize_format" gtk_text_buffer_unregister_serialize_format ::
Ptr TextBuffer ->
Ptr Gdk.Atom.Atom ->
IO ()
textBufferUnregisterSerializeFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsTextBuffer a) =>
a
-> Gdk.Atom.Atom
-> m ()
textBufferUnregisterSerializeFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> Atom -> m ()
textBufferUnregisterSerializeFormat a
buffer Atom
format = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Atom
format' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
format
Ptr TextBuffer -> Ptr Atom -> IO ()
gtk_text_buffer_unregister_serialize_format Ptr TextBuffer
buffer' Ptr Atom
format'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
format
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextBufferUnregisterSerializeFormatMethodInfo
instance (signature ~ (Gdk.Atom.Atom -> m ()), MonadIO m, IsTextBuffer a) => O.OverloadedMethod TextBufferUnregisterSerializeFormatMethodInfo a signature where
overloadedMethod = textBufferUnregisterSerializeFormat
instance O.OverloadedMethodInfo TextBufferUnregisterSerializeFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextBuffer.textBufferUnregisterSerializeFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextBuffer.html#v:textBufferUnregisterSerializeFormat"
})
#endif