#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.Buffer
(
Buffer(..) ,
IsBuffer ,
toBuffer ,
noBuffer ,
#if ENABLE_OVERLOADING
BufferBackwardIterToSourceMarkMethodInfo,
#endif
bufferBackwardIterToSourceMark ,
#if ENABLE_OVERLOADING
BufferBeginNotUndoableActionMethodInfo ,
#endif
bufferBeginNotUndoableAction ,
#if ENABLE_OVERLOADING
BufferCanRedoMethodInfo ,
#endif
bufferCanRedo ,
#if ENABLE_OVERLOADING
BufferCanUndoMethodInfo ,
#endif
bufferCanUndo ,
#if ENABLE_OVERLOADING
BufferChangeCaseMethodInfo ,
#endif
bufferChangeCase ,
#if ENABLE_OVERLOADING
BufferCreateSourceMarkMethodInfo ,
#endif
bufferCreateSourceMark ,
#if ENABLE_OVERLOADING
BufferEndNotUndoableActionMethodInfo ,
#endif
bufferEndNotUndoableAction ,
#if ENABLE_OVERLOADING
BufferEnsureHighlightMethodInfo ,
#endif
bufferEnsureHighlight ,
#if ENABLE_OVERLOADING
BufferForwardIterToSourceMarkMethodInfo ,
#endif
bufferForwardIterToSourceMark ,
#if ENABLE_OVERLOADING
BufferGetContextClassesAtIterMethodInfo ,
#endif
bufferGetContextClassesAtIter ,
#if ENABLE_OVERLOADING
BufferGetHighlightMatchingBracketsMethodInfo,
#endif
bufferGetHighlightMatchingBrackets ,
#if ENABLE_OVERLOADING
BufferGetHighlightSyntaxMethodInfo ,
#endif
bufferGetHighlightSyntax ,
#if ENABLE_OVERLOADING
BufferGetImplicitTrailingNewlineMethodInfo,
#endif
bufferGetImplicitTrailingNewline ,
#if ENABLE_OVERLOADING
BufferGetLanguageMethodInfo ,
#endif
bufferGetLanguage ,
#if ENABLE_OVERLOADING
BufferGetMaxUndoLevelsMethodInfo ,
#endif
bufferGetMaxUndoLevels ,
#if ENABLE_OVERLOADING
BufferGetSourceMarksAtIterMethodInfo ,
#endif
bufferGetSourceMarksAtIter ,
#if ENABLE_OVERLOADING
BufferGetSourceMarksAtLineMethodInfo ,
#endif
bufferGetSourceMarksAtLine ,
#if ENABLE_OVERLOADING
BufferGetStyleSchemeMethodInfo ,
#endif
bufferGetStyleScheme ,
#if ENABLE_OVERLOADING
BufferGetUndoManagerMethodInfo ,
#endif
bufferGetUndoManager ,
#if ENABLE_OVERLOADING
BufferIterBackwardToContextClassToggleMethodInfo,
#endif
bufferIterBackwardToContextClassToggle ,
#if ENABLE_OVERLOADING
BufferIterForwardToContextClassToggleMethodInfo,
#endif
bufferIterForwardToContextClassToggle ,
#if ENABLE_OVERLOADING
BufferIterHasContextClassMethodInfo ,
#endif
bufferIterHasContextClass ,
#if ENABLE_OVERLOADING
BufferJoinLinesMethodInfo ,
#endif
bufferJoinLines ,
bufferNew ,
bufferNewWithLanguage ,
#if ENABLE_OVERLOADING
BufferRedoMethodInfo ,
#endif
bufferRedo ,
#if ENABLE_OVERLOADING
BufferRemoveSourceMarksMethodInfo ,
#endif
bufferRemoveSourceMarks ,
#if ENABLE_OVERLOADING
BufferSetHighlightMatchingBracketsMethodInfo,
#endif
bufferSetHighlightMatchingBrackets ,
#if ENABLE_OVERLOADING
BufferSetHighlightSyntaxMethodInfo ,
#endif
bufferSetHighlightSyntax ,
#if ENABLE_OVERLOADING
BufferSetImplicitTrailingNewlineMethodInfo,
#endif
bufferSetImplicitTrailingNewline ,
#if ENABLE_OVERLOADING
BufferSetLanguageMethodInfo ,
#endif
bufferSetLanguage ,
#if ENABLE_OVERLOADING
BufferSetMaxUndoLevelsMethodInfo ,
#endif
bufferSetMaxUndoLevels ,
#if ENABLE_OVERLOADING
BufferSetStyleSchemeMethodInfo ,
#endif
bufferSetStyleScheme ,
#if ENABLE_OVERLOADING
BufferSetUndoManagerMethodInfo ,
#endif
bufferSetUndoManager ,
#if ENABLE_OVERLOADING
BufferSortLinesMethodInfo ,
#endif
bufferSortLines ,
#if ENABLE_OVERLOADING
BufferUndoMethodInfo ,
#endif
bufferUndo ,
#if ENABLE_OVERLOADING
BufferCanRedoPropertyInfo ,
#endif
getBufferCanRedo ,
#if ENABLE_OVERLOADING
BufferCanUndoPropertyInfo ,
#endif
getBufferCanUndo ,
#if ENABLE_OVERLOADING
BufferHighlightMatchingBracketsPropertyInfo,
#endif
#if ENABLE_OVERLOADING
bufferHighlightMatchingBrackets ,
#endif
constructBufferHighlightMatchingBrackets,
getBufferHighlightMatchingBrackets ,
setBufferHighlightMatchingBrackets ,
#if ENABLE_OVERLOADING
BufferHighlightSyntaxPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
bufferHighlightSyntax ,
#endif
constructBufferHighlightSyntax ,
getBufferHighlightSyntax ,
setBufferHighlightSyntax ,
#if ENABLE_OVERLOADING
BufferImplicitTrailingNewlinePropertyInfo,
#endif
#if ENABLE_OVERLOADING
bufferImplicitTrailingNewline ,
#endif
constructBufferImplicitTrailingNewline ,
getBufferImplicitTrailingNewline ,
setBufferImplicitTrailingNewline ,
#if ENABLE_OVERLOADING
BufferLanguagePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
bufferLanguage ,
#endif
clearBufferLanguage ,
constructBufferLanguage ,
getBufferLanguage ,
setBufferLanguage ,
#if ENABLE_OVERLOADING
BufferMaxUndoLevelsPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
bufferMaxUndoLevels ,
#endif
constructBufferMaxUndoLevels ,
getBufferMaxUndoLevels ,
setBufferMaxUndoLevels ,
#if ENABLE_OVERLOADING
BufferStyleSchemePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
bufferStyleScheme ,
#endif
clearBufferStyleScheme ,
constructBufferStyleScheme ,
getBufferStyleScheme ,
setBufferStyleScheme ,
#if ENABLE_OVERLOADING
BufferUndoManagerPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
bufferUndoManager ,
#endif
clearBufferUndoManager ,
constructBufferUndoManager ,
getBufferUndoManager ,
setBufferUndoManager ,
BufferBracketMatchedCallback ,
#if ENABLE_OVERLOADING
BufferBracketMatchedSignalInfo ,
#endif
C_BufferBracketMatchedCallback ,
afterBufferBracketMatched ,
genClosure_BufferBracketMatched ,
mk_BufferBracketMatchedCallback ,
noBufferBracketMatchedCallback ,
onBufferBracketMatched ,
wrap_BufferBracketMatchedCallback ,
BufferHighlightUpdatedCallback ,
#if ENABLE_OVERLOADING
BufferHighlightUpdatedSignalInfo ,
#endif
C_BufferHighlightUpdatedCallback ,
afterBufferHighlightUpdated ,
genClosure_BufferHighlightUpdated ,
mk_BufferHighlightUpdatedCallback ,
noBufferHighlightUpdatedCallback ,
onBufferHighlightUpdated ,
wrap_BufferHighlightUpdatedCallback ,
BufferRedoCallback ,
#if ENABLE_OVERLOADING
BufferRedoSignalInfo ,
#endif
C_BufferRedoCallback ,
afterBufferRedo ,
genClosure_BufferRedo ,
mk_BufferRedoCallback ,
noBufferRedoCallback ,
onBufferRedo ,
wrap_BufferRedoCallback ,
BufferSourceMarkUpdatedCallback ,
#if ENABLE_OVERLOADING
BufferSourceMarkUpdatedSignalInfo ,
#endif
C_BufferSourceMarkUpdatedCallback ,
afterBufferSourceMarkUpdated ,
genClosure_BufferSourceMarkUpdated ,
mk_BufferSourceMarkUpdatedCallback ,
noBufferSourceMarkUpdatedCallback ,
onBufferSourceMarkUpdated ,
wrap_BufferSourceMarkUpdatedCallback ,
BufferUndoCallback ,
#if ENABLE_OVERLOADING
BufferUndoSignalInfo ,
#endif
C_BufferUndoCallback ,
afterBufferUndo ,
genClosure_BufferUndo ,
mk_BufferUndoCallback ,
noBufferUndoCallback ,
onBufferUndo ,
wrap_BufferUndoCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer
import qualified GI.Gtk.Objects.TextMark as Gtk.TextMark
import qualified GI.Gtk.Objects.TextTagTable as Gtk.TextTagTable
import qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.GtkSource.Enums as GtkSource.Enums
import {-# SOURCE #-} qualified GI.GtkSource.Flags as GtkSource.Flags
import {-# SOURCE #-} qualified GI.GtkSource.Interfaces.UndoManager as GtkSource.UndoManager
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Language as GtkSource.Language
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Mark as GtkSource.Mark
import {-# SOURCE #-} qualified GI.GtkSource.Objects.StyleScheme as GtkSource.StyleScheme
newtype Buffer = Buffer (ManagedPtr Buffer)
foreign import ccall "gtk_source_buffer_get_type"
c_gtk_source_buffer_get_type :: IO GType
instance GObject Buffer where
gobjectType = c_gtk_source_buffer_get_type
class (GObject o, O.IsDescendantOf Buffer o) => IsBuffer o
instance (GObject o, O.IsDescendantOf Buffer o) => IsBuffer o
instance O.HasParentTypes Buffer
type instance O.ParentTypes Buffer = '[Gtk.TextBuffer.TextBuffer, GObject.Object.Object]
toBuffer :: (MonadIO m, IsBuffer o) => o -> m Buffer
toBuffer = liftIO . unsafeCastTo Buffer
noBuffer :: Maybe Buffer
noBuffer = Nothing
#if ENABLE_OVERLOADING
type family ResolveBufferMethod (t :: Symbol) (o :: *) :: * where
ResolveBufferMethod "addMark" o = Gtk.TextBuffer.TextBufferAddMarkMethodInfo
ResolveBufferMethod "addSelectionClipboard" o = Gtk.TextBuffer.TextBufferAddSelectionClipboardMethodInfo
ResolveBufferMethod "applyTag" o = Gtk.TextBuffer.TextBufferApplyTagMethodInfo
ResolveBufferMethod "applyTagByName" o = Gtk.TextBuffer.TextBufferApplyTagByNameMethodInfo
ResolveBufferMethod "backspace" o = Gtk.TextBuffer.TextBufferBackspaceMethodInfo
ResolveBufferMethod "backwardIterToSourceMark" o = BufferBackwardIterToSourceMarkMethodInfo
ResolveBufferMethod "beginNotUndoableAction" o = BufferBeginNotUndoableActionMethodInfo
ResolveBufferMethod "beginUserAction" o = Gtk.TextBuffer.TextBufferBeginUserActionMethodInfo
ResolveBufferMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBufferMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBufferMethod "canRedo" o = BufferCanRedoMethodInfo
ResolveBufferMethod "canUndo" o = BufferCanUndoMethodInfo
ResolveBufferMethod "changeCase" o = BufferChangeCaseMethodInfo
ResolveBufferMethod "copyClipboard" o = Gtk.TextBuffer.TextBufferCopyClipboardMethodInfo
ResolveBufferMethod "createChildAnchor" o = Gtk.TextBuffer.TextBufferCreateChildAnchorMethodInfo
ResolveBufferMethod "createMark" o = Gtk.TextBuffer.TextBufferCreateMarkMethodInfo
ResolveBufferMethod "createSourceMark" o = BufferCreateSourceMarkMethodInfo
ResolveBufferMethod "cutClipboard" o = Gtk.TextBuffer.TextBufferCutClipboardMethodInfo
ResolveBufferMethod "delete" o = Gtk.TextBuffer.TextBufferDeleteMethodInfo
ResolveBufferMethod "deleteInteractive" o = Gtk.TextBuffer.TextBufferDeleteInteractiveMethodInfo
ResolveBufferMethod "deleteMark" o = Gtk.TextBuffer.TextBufferDeleteMarkMethodInfo
ResolveBufferMethod "deleteMarkByName" o = Gtk.TextBuffer.TextBufferDeleteMarkByNameMethodInfo
ResolveBufferMethod "deleteSelection" o = Gtk.TextBuffer.TextBufferDeleteSelectionMethodInfo
ResolveBufferMethod "deserialize" o = Gtk.TextBuffer.TextBufferDeserializeMethodInfo
ResolveBufferMethod "deserializeGetCanCreateTags" o = Gtk.TextBuffer.TextBufferDeserializeGetCanCreateTagsMethodInfo
ResolveBufferMethod "deserializeSetCanCreateTags" o = Gtk.TextBuffer.TextBufferDeserializeSetCanCreateTagsMethodInfo
ResolveBufferMethod "endNotUndoableAction" o = BufferEndNotUndoableActionMethodInfo
ResolveBufferMethod "endUserAction" o = Gtk.TextBuffer.TextBufferEndUserActionMethodInfo
ResolveBufferMethod "ensureHighlight" o = BufferEnsureHighlightMethodInfo
ResolveBufferMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBufferMethod "forwardIterToSourceMark" o = BufferForwardIterToSourceMarkMethodInfo
ResolveBufferMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBufferMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBufferMethod "insert" o = Gtk.TextBuffer.TextBufferInsertMethodInfo
ResolveBufferMethod "insertAtCursor" o = Gtk.TextBuffer.TextBufferInsertAtCursorMethodInfo
ResolveBufferMethod "insertChildAnchor" o = Gtk.TextBuffer.TextBufferInsertChildAnchorMethodInfo
ResolveBufferMethod "insertInteractive" o = Gtk.TextBuffer.TextBufferInsertInteractiveMethodInfo
ResolveBufferMethod "insertInteractiveAtCursor" o = Gtk.TextBuffer.TextBufferInsertInteractiveAtCursorMethodInfo
ResolveBufferMethod "insertMarkup" o = Gtk.TextBuffer.TextBufferInsertMarkupMethodInfo
ResolveBufferMethod "insertPixbuf" o = Gtk.TextBuffer.TextBufferInsertPixbufMethodInfo
ResolveBufferMethod "insertRange" o = Gtk.TextBuffer.TextBufferInsertRangeMethodInfo
ResolveBufferMethod "insertRangeInteractive" o = Gtk.TextBuffer.TextBufferInsertRangeInteractiveMethodInfo
ResolveBufferMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBufferMethod "iterBackwardToContextClassToggle" o = BufferIterBackwardToContextClassToggleMethodInfo
ResolveBufferMethod "iterForwardToContextClassToggle" o = BufferIterForwardToContextClassToggleMethodInfo
ResolveBufferMethod "iterHasContextClass" o = BufferIterHasContextClassMethodInfo
ResolveBufferMethod "joinLines" o = BufferJoinLinesMethodInfo
ResolveBufferMethod "moveMark" o = Gtk.TextBuffer.TextBufferMoveMarkMethodInfo
ResolveBufferMethod "moveMarkByName" o = Gtk.TextBuffer.TextBufferMoveMarkByNameMethodInfo
ResolveBufferMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBufferMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBufferMethod "pasteClipboard" o = Gtk.TextBuffer.TextBufferPasteClipboardMethodInfo
ResolveBufferMethod "placeCursor" o = Gtk.TextBuffer.TextBufferPlaceCursorMethodInfo
ResolveBufferMethod "redo" o = BufferRedoMethodInfo
ResolveBufferMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBufferMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBufferMethod "registerDeserializeFormat" o = Gtk.TextBuffer.TextBufferRegisterDeserializeFormatMethodInfo
ResolveBufferMethod "registerDeserializeTagset" o = Gtk.TextBuffer.TextBufferRegisterDeserializeTagsetMethodInfo
ResolveBufferMethod "registerSerializeFormat" o = Gtk.TextBuffer.TextBufferRegisterSerializeFormatMethodInfo
ResolveBufferMethod "registerSerializeTagset" o = Gtk.TextBuffer.TextBufferRegisterSerializeTagsetMethodInfo
ResolveBufferMethod "removeAllTags" o = Gtk.TextBuffer.TextBufferRemoveAllTagsMethodInfo
ResolveBufferMethod "removeSelectionClipboard" o = Gtk.TextBuffer.TextBufferRemoveSelectionClipboardMethodInfo
ResolveBufferMethod "removeSourceMarks" o = BufferRemoveSourceMarksMethodInfo
ResolveBufferMethod "removeTag" o = Gtk.TextBuffer.TextBufferRemoveTagMethodInfo
ResolveBufferMethod "removeTagByName" o = Gtk.TextBuffer.TextBufferRemoveTagByNameMethodInfo
ResolveBufferMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBufferMethod "selectRange" o = Gtk.TextBuffer.TextBufferSelectRangeMethodInfo
ResolveBufferMethod "serialize" o = Gtk.TextBuffer.TextBufferSerializeMethodInfo
ResolveBufferMethod "sortLines" o = BufferSortLinesMethodInfo
ResolveBufferMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBufferMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBufferMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBufferMethod "undo" o = BufferUndoMethodInfo
ResolveBufferMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBufferMethod "unregisterDeserializeFormat" o = Gtk.TextBuffer.TextBufferUnregisterDeserializeFormatMethodInfo
ResolveBufferMethod "unregisterSerializeFormat" o = Gtk.TextBuffer.TextBufferUnregisterSerializeFormatMethodInfo
ResolveBufferMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBufferMethod "getBounds" o = Gtk.TextBuffer.TextBufferGetBoundsMethodInfo
ResolveBufferMethod "getCharCount" o = Gtk.TextBuffer.TextBufferGetCharCountMethodInfo
ResolveBufferMethod "getContextClassesAtIter" o = BufferGetContextClassesAtIterMethodInfo
ResolveBufferMethod "getCopyTargetList" o = Gtk.TextBuffer.TextBufferGetCopyTargetListMethodInfo
ResolveBufferMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBufferMethod "getDeserializeFormats" o = Gtk.TextBuffer.TextBufferGetDeserializeFormatsMethodInfo
ResolveBufferMethod "getEndIter" o = Gtk.TextBuffer.TextBufferGetEndIterMethodInfo
ResolveBufferMethod "getHasSelection" o = Gtk.TextBuffer.TextBufferGetHasSelectionMethodInfo
ResolveBufferMethod "getHighlightMatchingBrackets" o = BufferGetHighlightMatchingBracketsMethodInfo
ResolveBufferMethod "getHighlightSyntax" o = BufferGetHighlightSyntaxMethodInfo
ResolveBufferMethod "getImplicitTrailingNewline" o = BufferGetImplicitTrailingNewlineMethodInfo
ResolveBufferMethod "getInsert" o = Gtk.TextBuffer.TextBufferGetInsertMethodInfo
ResolveBufferMethod "getIterAtChildAnchor" o = Gtk.TextBuffer.TextBufferGetIterAtChildAnchorMethodInfo
ResolveBufferMethod "getIterAtLine" o = Gtk.TextBuffer.TextBufferGetIterAtLineMethodInfo
ResolveBufferMethod "getIterAtLineIndex" o = Gtk.TextBuffer.TextBufferGetIterAtLineIndexMethodInfo
ResolveBufferMethod "getIterAtLineOffset" o = Gtk.TextBuffer.TextBufferGetIterAtLineOffsetMethodInfo
ResolveBufferMethod "getIterAtMark" o = Gtk.TextBuffer.TextBufferGetIterAtMarkMethodInfo
ResolveBufferMethod "getIterAtOffset" o = Gtk.TextBuffer.TextBufferGetIterAtOffsetMethodInfo
ResolveBufferMethod "getLanguage" o = BufferGetLanguageMethodInfo
ResolveBufferMethod "getLineCount" o = Gtk.TextBuffer.TextBufferGetLineCountMethodInfo
ResolveBufferMethod "getMark" o = Gtk.TextBuffer.TextBufferGetMarkMethodInfo
ResolveBufferMethod "getMaxUndoLevels" o = BufferGetMaxUndoLevelsMethodInfo
ResolveBufferMethod "getModified" o = Gtk.TextBuffer.TextBufferGetModifiedMethodInfo
ResolveBufferMethod "getPasteTargetList" o = Gtk.TextBuffer.TextBufferGetPasteTargetListMethodInfo
ResolveBufferMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBufferMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBufferMethod "getSelectionBound" o = Gtk.TextBuffer.TextBufferGetSelectionBoundMethodInfo
ResolveBufferMethod "getSelectionBounds" o = Gtk.TextBuffer.TextBufferGetSelectionBoundsMethodInfo
ResolveBufferMethod "getSerializeFormats" o = Gtk.TextBuffer.TextBufferGetSerializeFormatsMethodInfo
ResolveBufferMethod "getSlice" o = Gtk.TextBuffer.TextBufferGetSliceMethodInfo
ResolveBufferMethod "getSourceMarksAtIter" o = BufferGetSourceMarksAtIterMethodInfo
ResolveBufferMethod "getSourceMarksAtLine" o = BufferGetSourceMarksAtLineMethodInfo
ResolveBufferMethod "getStartIter" o = Gtk.TextBuffer.TextBufferGetStartIterMethodInfo
ResolveBufferMethod "getStyleScheme" o = BufferGetStyleSchemeMethodInfo
ResolveBufferMethod "getTagTable" o = Gtk.TextBuffer.TextBufferGetTagTableMethodInfo
ResolveBufferMethod "getText" o = Gtk.TextBuffer.TextBufferGetTextMethodInfo
ResolveBufferMethod "getUndoManager" o = BufferGetUndoManagerMethodInfo
ResolveBufferMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBufferMethod "setHighlightMatchingBrackets" o = BufferSetHighlightMatchingBracketsMethodInfo
ResolveBufferMethod "setHighlightSyntax" o = BufferSetHighlightSyntaxMethodInfo
ResolveBufferMethod "setImplicitTrailingNewline" o = BufferSetImplicitTrailingNewlineMethodInfo
ResolveBufferMethod "setLanguage" o = BufferSetLanguageMethodInfo
ResolveBufferMethod "setMaxUndoLevels" o = BufferSetMaxUndoLevelsMethodInfo
ResolveBufferMethod "setModified" o = Gtk.TextBuffer.TextBufferSetModifiedMethodInfo
ResolveBufferMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBufferMethod "setStyleScheme" o = BufferSetStyleSchemeMethodInfo
ResolveBufferMethod "setText" o = Gtk.TextBuffer.TextBufferSetTextMethodInfo
ResolveBufferMethod "setUndoManager" o = BufferSetUndoManagerMethodInfo
ResolveBufferMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBufferMethod t Buffer, O.MethodInfo info Buffer p) => OL.IsLabel t (Buffer -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type BufferBracketMatchedCallback =
Maybe Gtk.TextIter.TextIter
-> GtkSource.Enums.BracketMatchType
-> IO ()
noBufferBracketMatchedCallback :: Maybe BufferBracketMatchedCallback
noBufferBracketMatchedCallback = Nothing
type C_BufferBracketMatchedCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_BufferBracketMatchedCallback :: C_BufferBracketMatchedCallback -> IO (FunPtr C_BufferBracketMatchedCallback)
genClosure_BufferBracketMatched :: MonadIO m => BufferBracketMatchedCallback -> m (GClosure C_BufferBracketMatchedCallback)
genClosure_BufferBracketMatched cb = liftIO $ do
let cb' = wrap_BufferBracketMatchedCallback cb
mk_BufferBracketMatchedCallback cb' >>= B.GClosure.newGClosure
wrap_BufferBracketMatchedCallback ::
BufferBracketMatchedCallback ->
C_BufferBracketMatchedCallback
wrap_BufferBracketMatchedCallback _cb _ iter state _ = do
maybeIter <-
if iter == nullPtr
then return Nothing
else do
B.ManagedPtr.withTransient Gtk.TextIter.TextIter iter $ \iter' -> do
return $ Just iter'
let state' = (toEnum . fromIntegral) state
_cb maybeIter state'
onBufferBracketMatched :: (IsBuffer a, MonadIO m) => a -> BufferBracketMatchedCallback -> m SignalHandlerId
onBufferBracketMatched obj cb = liftIO $ do
let cb' = wrap_BufferBracketMatchedCallback cb
cb'' <- mk_BufferBracketMatchedCallback cb'
connectSignalFunPtr obj "bracket-matched" cb'' SignalConnectBefore
afterBufferBracketMatched :: (IsBuffer a, MonadIO m) => a -> BufferBracketMatchedCallback -> m SignalHandlerId
afterBufferBracketMatched obj cb = liftIO $ do
let cb' = wrap_BufferBracketMatchedCallback cb
cb'' <- mk_BufferBracketMatchedCallback cb'
connectSignalFunPtr obj "bracket-matched" cb'' SignalConnectAfter
type BufferHighlightUpdatedCallback =
Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> IO ()
noBufferHighlightUpdatedCallback :: Maybe BufferHighlightUpdatedCallback
noBufferHighlightUpdatedCallback = Nothing
type C_BufferHighlightUpdatedCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_BufferHighlightUpdatedCallback :: C_BufferHighlightUpdatedCallback -> IO (FunPtr C_BufferHighlightUpdatedCallback)
genClosure_BufferHighlightUpdated :: MonadIO m => BufferHighlightUpdatedCallback -> m (GClosure C_BufferHighlightUpdatedCallback)
genClosure_BufferHighlightUpdated cb = liftIO $ do
let cb' = wrap_BufferHighlightUpdatedCallback cb
mk_BufferHighlightUpdatedCallback cb' >>= B.GClosure.newGClosure
wrap_BufferHighlightUpdatedCallback ::
BufferHighlightUpdatedCallback ->
C_BufferHighlightUpdatedCallback
wrap_BufferHighlightUpdatedCallback _cb _ start end _ = do
B.ManagedPtr.withTransient Gtk.TextIter.TextIter start $ \start' -> do
B.ManagedPtr.withTransient Gtk.TextIter.TextIter end $ \end' -> do
_cb start' end'
onBufferHighlightUpdated :: (IsBuffer a, MonadIO m) => a -> BufferHighlightUpdatedCallback -> m SignalHandlerId
onBufferHighlightUpdated obj cb = liftIO $ do
let cb' = wrap_BufferHighlightUpdatedCallback cb
cb'' <- mk_BufferHighlightUpdatedCallback cb'
connectSignalFunPtr obj "highlight-updated" cb'' SignalConnectBefore
afterBufferHighlightUpdated :: (IsBuffer a, MonadIO m) => a -> BufferHighlightUpdatedCallback -> m SignalHandlerId
afterBufferHighlightUpdated obj cb = liftIO $ do
let cb' = wrap_BufferHighlightUpdatedCallback cb
cb'' <- mk_BufferHighlightUpdatedCallback cb'
connectSignalFunPtr obj "highlight-updated" cb'' SignalConnectAfter
type BufferRedoCallback =
IO ()
noBufferRedoCallback :: Maybe BufferRedoCallback
noBufferRedoCallback = Nothing
type C_BufferRedoCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_BufferRedoCallback :: C_BufferRedoCallback -> IO (FunPtr C_BufferRedoCallback)
genClosure_BufferRedo :: MonadIO m => BufferRedoCallback -> m (GClosure C_BufferRedoCallback)
genClosure_BufferRedo cb = liftIO $ do
let cb' = wrap_BufferRedoCallback cb
mk_BufferRedoCallback cb' >>= B.GClosure.newGClosure
wrap_BufferRedoCallback ::
BufferRedoCallback ->
C_BufferRedoCallback
wrap_BufferRedoCallback _cb _ _ = do
_cb
onBufferRedo :: (IsBuffer a, MonadIO m) => a -> BufferRedoCallback -> m SignalHandlerId
onBufferRedo obj cb = liftIO $ do
let cb' = wrap_BufferRedoCallback cb
cb'' <- mk_BufferRedoCallback cb'
connectSignalFunPtr obj "redo" cb'' SignalConnectBefore
afterBufferRedo :: (IsBuffer a, MonadIO m) => a -> BufferRedoCallback -> m SignalHandlerId
afterBufferRedo obj cb = liftIO $ do
let cb' = wrap_BufferRedoCallback cb
cb'' <- mk_BufferRedoCallback cb'
connectSignalFunPtr obj "redo" cb'' SignalConnectAfter
type BufferSourceMarkUpdatedCallback =
Gtk.TextMark.TextMark
-> IO ()
noBufferSourceMarkUpdatedCallback :: Maybe BufferSourceMarkUpdatedCallback
noBufferSourceMarkUpdatedCallback = Nothing
type C_BufferSourceMarkUpdatedCallback =
Ptr () ->
Ptr Gtk.TextMark.TextMark ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_BufferSourceMarkUpdatedCallback :: C_BufferSourceMarkUpdatedCallback -> IO (FunPtr C_BufferSourceMarkUpdatedCallback)
genClosure_BufferSourceMarkUpdated :: MonadIO m => BufferSourceMarkUpdatedCallback -> m (GClosure C_BufferSourceMarkUpdatedCallback)
genClosure_BufferSourceMarkUpdated cb = liftIO $ do
let cb' = wrap_BufferSourceMarkUpdatedCallback cb
mk_BufferSourceMarkUpdatedCallback cb' >>= B.GClosure.newGClosure
wrap_BufferSourceMarkUpdatedCallback ::
BufferSourceMarkUpdatedCallback ->
C_BufferSourceMarkUpdatedCallback
wrap_BufferSourceMarkUpdatedCallback _cb _ mark _ = do
mark' <- (newObject Gtk.TextMark.TextMark) mark
_cb mark'
onBufferSourceMarkUpdated :: (IsBuffer a, MonadIO m) => a -> BufferSourceMarkUpdatedCallback -> m SignalHandlerId
onBufferSourceMarkUpdated obj cb = liftIO $ do
let cb' = wrap_BufferSourceMarkUpdatedCallback cb
cb'' <- mk_BufferSourceMarkUpdatedCallback cb'
connectSignalFunPtr obj "source-mark-updated" cb'' SignalConnectBefore
afterBufferSourceMarkUpdated :: (IsBuffer a, MonadIO m) => a -> BufferSourceMarkUpdatedCallback -> m SignalHandlerId
afterBufferSourceMarkUpdated obj cb = liftIO $ do
let cb' = wrap_BufferSourceMarkUpdatedCallback cb
cb'' <- mk_BufferSourceMarkUpdatedCallback cb'
connectSignalFunPtr obj "source-mark-updated" cb'' SignalConnectAfter
type BufferUndoCallback =
IO ()
noBufferUndoCallback :: Maybe BufferUndoCallback
noBufferUndoCallback = Nothing
type C_BufferUndoCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_BufferUndoCallback :: C_BufferUndoCallback -> IO (FunPtr C_BufferUndoCallback)
genClosure_BufferUndo :: MonadIO m => BufferUndoCallback -> m (GClosure C_BufferUndoCallback)
genClosure_BufferUndo cb = liftIO $ do
let cb' = wrap_BufferUndoCallback cb
mk_BufferUndoCallback cb' >>= B.GClosure.newGClosure
wrap_BufferUndoCallback ::
BufferUndoCallback ->
C_BufferUndoCallback
wrap_BufferUndoCallback _cb _ _ = do
_cb
onBufferUndo :: (IsBuffer a, MonadIO m) => a -> BufferUndoCallback -> m SignalHandlerId
onBufferUndo obj cb = liftIO $ do
let cb' = wrap_BufferUndoCallback cb
cb'' <- mk_BufferUndoCallback cb'
connectSignalFunPtr obj "undo" cb'' SignalConnectBefore
afterBufferUndo :: (IsBuffer a, MonadIO m) => a -> BufferUndoCallback -> m SignalHandlerId
afterBufferUndo obj cb = liftIO $ do
let cb' = wrap_BufferUndoCallback cb
cb'' <- mk_BufferUndoCallback cb'
connectSignalFunPtr obj "undo" cb'' SignalConnectAfter
getBufferCanRedo :: (MonadIO m, IsBuffer o) => o -> m Bool
getBufferCanRedo obj = liftIO $ B.Properties.getObjectPropertyBool obj "can-redo"
#if ENABLE_OVERLOADING
data BufferCanRedoPropertyInfo
instance AttrInfo BufferCanRedoPropertyInfo where
type AttrAllowedOps BufferCanRedoPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint BufferCanRedoPropertyInfo = (~) ()
type AttrBaseTypeConstraint BufferCanRedoPropertyInfo = IsBuffer
type AttrGetType BufferCanRedoPropertyInfo = Bool
type AttrLabel BufferCanRedoPropertyInfo = "can-redo"
type AttrOrigin BufferCanRedoPropertyInfo = Buffer
attrGet _ = getBufferCanRedo
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getBufferCanUndo :: (MonadIO m, IsBuffer o) => o -> m Bool
getBufferCanUndo obj = liftIO $ B.Properties.getObjectPropertyBool obj "can-undo"
#if ENABLE_OVERLOADING
data BufferCanUndoPropertyInfo
instance AttrInfo BufferCanUndoPropertyInfo where
type AttrAllowedOps BufferCanUndoPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint BufferCanUndoPropertyInfo = (~) ()
type AttrBaseTypeConstraint BufferCanUndoPropertyInfo = IsBuffer
type AttrGetType BufferCanUndoPropertyInfo = Bool
type AttrLabel BufferCanUndoPropertyInfo = "can-undo"
type AttrOrigin BufferCanUndoPropertyInfo = Buffer
attrGet _ = getBufferCanUndo
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getBufferHighlightMatchingBrackets :: (MonadIO m, IsBuffer o) => o -> m Bool
getBufferHighlightMatchingBrackets obj = liftIO $ B.Properties.getObjectPropertyBool obj "highlight-matching-brackets"
setBufferHighlightMatchingBrackets :: (MonadIO m, IsBuffer o) => o -> Bool -> m ()
setBufferHighlightMatchingBrackets obj val = liftIO $ B.Properties.setObjectPropertyBool obj "highlight-matching-brackets" val
constructBufferHighlightMatchingBrackets :: (IsBuffer o) => Bool -> IO (GValueConstruct o)
constructBufferHighlightMatchingBrackets val = B.Properties.constructObjectPropertyBool "highlight-matching-brackets" val
#if ENABLE_OVERLOADING
data BufferHighlightMatchingBracketsPropertyInfo
instance AttrInfo BufferHighlightMatchingBracketsPropertyInfo where
type AttrAllowedOps BufferHighlightMatchingBracketsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BufferHighlightMatchingBracketsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint BufferHighlightMatchingBracketsPropertyInfo = IsBuffer
type AttrGetType BufferHighlightMatchingBracketsPropertyInfo = Bool
type AttrLabel BufferHighlightMatchingBracketsPropertyInfo = "highlight-matching-brackets"
type AttrOrigin BufferHighlightMatchingBracketsPropertyInfo = Buffer
attrGet _ = getBufferHighlightMatchingBrackets
attrSet _ = setBufferHighlightMatchingBrackets
attrConstruct _ = constructBufferHighlightMatchingBrackets
attrClear _ = undefined
#endif
getBufferHighlightSyntax :: (MonadIO m, IsBuffer o) => o -> m Bool
getBufferHighlightSyntax obj = liftIO $ B.Properties.getObjectPropertyBool obj "highlight-syntax"
setBufferHighlightSyntax :: (MonadIO m, IsBuffer o) => o -> Bool -> m ()
setBufferHighlightSyntax obj val = liftIO $ B.Properties.setObjectPropertyBool obj "highlight-syntax" val
constructBufferHighlightSyntax :: (IsBuffer o) => Bool -> IO (GValueConstruct o)
constructBufferHighlightSyntax val = B.Properties.constructObjectPropertyBool "highlight-syntax" val
#if ENABLE_OVERLOADING
data BufferHighlightSyntaxPropertyInfo
instance AttrInfo BufferHighlightSyntaxPropertyInfo where
type AttrAllowedOps BufferHighlightSyntaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BufferHighlightSyntaxPropertyInfo = (~) Bool
type AttrBaseTypeConstraint BufferHighlightSyntaxPropertyInfo = IsBuffer
type AttrGetType BufferHighlightSyntaxPropertyInfo = Bool
type AttrLabel BufferHighlightSyntaxPropertyInfo = "highlight-syntax"
type AttrOrigin BufferHighlightSyntaxPropertyInfo = Buffer
attrGet _ = getBufferHighlightSyntax
attrSet _ = setBufferHighlightSyntax
attrConstruct _ = constructBufferHighlightSyntax
attrClear _ = undefined
#endif
getBufferImplicitTrailingNewline :: (MonadIO m, IsBuffer o) => o -> m Bool
getBufferImplicitTrailingNewline obj = liftIO $ B.Properties.getObjectPropertyBool obj "implicit-trailing-newline"
setBufferImplicitTrailingNewline :: (MonadIO m, IsBuffer o) => o -> Bool -> m ()
setBufferImplicitTrailingNewline obj val = liftIO $ B.Properties.setObjectPropertyBool obj "implicit-trailing-newline" val
constructBufferImplicitTrailingNewline :: (IsBuffer o) => Bool -> IO (GValueConstruct o)
constructBufferImplicitTrailingNewline val = B.Properties.constructObjectPropertyBool "implicit-trailing-newline" val
#if ENABLE_OVERLOADING
data BufferImplicitTrailingNewlinePropertyInfo
instance AttrInfo BufferImplicitTrailingNewlinePropertyInfo where
type AttrAllowedOps BufferImplicitTrailingNewlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BufferImplicitTrailingNewlinePropertyInfo = (~) Bool
type AttrBaseTypeConstraint BufferImplicitTrailingNewlinePropertyInfo = IsBuffer
type AttrGetType BufferImplicitTrailingNewlinePropertyInfo = Bool
type AttrLabel BufferImplicitTrailingNewlinePropertyInfo = "implicit-trailing-newline"
type AttrOrigin BufferImplicitTrailingNewlinePropertyInfo = Buffer
attrGet _ = getBufferImplicitTrailingNewline
attrSet _ = setBufferImplicitTrailingNewline
attrConstruct _ = constructBufferImplicitTrailingNewline
attrClear _ = undefined
#endif
getBufferLanguage :: (MonadIO m, IsBuffer o) => o -> m (Maybe GtkSource.Language.Language)
getBufferLanguage obj = liftIO $ B.Properties.getObjectPropertyObject obj "language" GtkSource.Language.Language
setBufferLanguage :: (MonadIO m, IsBuffer o, GtkSource.Language.IsLanguage a) => o -> a -> m ()
setBufferLanguage obj val = liftIO $ B.Properties.setObjectPropertyObject obj "language" (Just val)
constructBufferLanguage :: (IsBuffer o, GtkSource.Language.IsLanguage a) => a -> IO (GValueConstruct o)
constructBufferLanguage val = B.Properties.constructObjectPropertyObject "language" (Just val)
clearBufferLanguage :: (MonadIO m, IsBuffer o) => o -> m ()
clearBufferLanguage obj = liftIO $ B.Properties.setObjectPropertyObject obj "language" (Nothing :: Maybe GtkSource.Language.Language)
#if ENABLE_OVERLOADING
data BufferLanguagePropertyInfo
instance AttrInfo BufferLanguagePropertyInfo where
type AttrAllowedOps BufferLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BufferLanguagePropertyInfo = GtkSource.Language.IsLanguage
type AttrBaseTypeConstraint BufferLanguagePropertyInfo = IsBuffer
type AttrGetType BufferLanguagePropertyInfo = (Maybe GtkSource.Language.Language)
type AttrLabel BufferLanguagePropertyInfo = "language"
type AttrOrigin BufferLanguagePropertyInfo = Buffer
attrGet _ = getBufferLanguage
attrSet _ = setBufferLanguage
attrConstruct _ = constructBufferLanguage
attrClear _ = clearBufferLanguage
#endif
getBufferMaxUndoLevels :: (MonadIO m, IsBuffer o) => o -> m Int32
getBufferMaxUndoLevels obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "max-undo-levels"
setBufferMaxUndoLevels :: (MonadIO m, IsBuffer o) => o -> Int32 -> m ()
setBufferMaxUndoLevels obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "max-undo-levels" val
constructBufferMaxUndoLevels :: (IsBuffer o) => Int32 -> IO (GValueConstruct o)
constructBufferMaxUndoLevels val = B.Properties.constructObjectPropertyInt32 "max-undo-levels" val
#if ENABLE_OVERLOADING
data BufferMaxUndoLevelsPropertyInfo
instance AttrInfo BufferMaxUndoLevelsPropertyInfo where
type AttrAllowedOps BufferMaxUndoLevelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BufferMaxUndoLevelsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint BufferMaxUndoLevelsPropertyInfo = IsBuffer
type AttrGetType BufferMaxUndoLevelsPropertyInfo = Int32
type AttrLabel BufferMaxUndoLevelsPropertyInfo = "max-undo-levels"
type AttrOrigin BufferMaxUndoLevelsPropertyInfo = Buffer
attrGet _ = getBufferMaxUndoLevels
attrSet _ = setBufferMaxUndoLevels
attrConstruct _ = constructBufferMaxUndoLevels
attrClear _ = undefined
#endif
getBufferStyleScheme :: (MonadIO m, IsBuffer o) => o -> m (Maybe GtkSource.StyleScheme.StyleScheme)
getBufferStyleScheme obj = liftIO $ B.Properties.getObjectPropertyObject obj "style-scheme" GtkSource.StyleScheme.StyleScheme
setBufferStyleScheme :: (MonadIO m, IsBuffer o, GtkSource.StyleScheme.IsStyleScheme a) => o -> a -> m ()
setBufferStyleScheme obj val = liftIO $ B.Properties.setObjectPropertyObject obj "style-scheme" (Just val)
constructBufferStyleScheme :: (IsBuffer o, GtkSource.StyleScheme.IsStyleScheme a) => a -> IO (GValueConstruct o)
constructBufferStyleScheme val = B.Properties.constructObjectPropertyObject "style-scheme" (Just val)
clearBufferStyleScheme :: (MonadIO m, IsBuffer o) => o -> m ()
clearBufferStyleScheme obj = liftIO $ B.Properties.setObjectPropertyObject obj "style-scheme" (Nothing :: Maybe GtkSource.StyleScheme.StyleScheme)
#if ENABLE_OVERLOADING
data BufferStyleSchemePropertyInfo
instance AttrInfo BufferStyleSchemePropertyInfo where
type AttrAllowedOps BufferStyleSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BufferStyleSchemePropertyInfo = GtkSource.StyleScheme.IsStyleScheme
type AttrBaseTypeConstraint BufferStyleSchemePropertyInfo = IsBuffer
type AttrGetType BufferStyleSchemePropertyInfo = (Maybe GtkSource.StyleScheme.StyleScheme)
type AttrLabel BufferStyleSchemePropertyInfo = "style-scheme"
type AttrOrigin BufferStyleSchemePropertyInfo = Buffer
attrGet _ = getBufferStyleScheme
attrSet _ = setBufferStyleScheme
attrConstruct _ = constructBufferStyleScheme
attrClear _ = clearBufferStyleScheme
#endif
getBufferUndoManager :: (MonadIO m, IsBuffer o) => o -> m (Maybe GtkSource.UndoManager.UndoManager)
getBufferUndoManager obj = liftIO $ B.Properties.getObjectPropertyObject obj "undo-manager" GtkSource.UndoManager.UndoManager
setBufferUndoManager :: (MonadIO m, IsBuffer o, GtkSource.UndoManager.IsUndoManager a) => o -> a -> m ()
setBufferUndoManager obj val = liftIO $ B.Properties.setObjectPropertyObject obj "undo-manager" (Just val)
constructBufferUndoManager :: (IsBuffer o, GtkSource.UndoManager.IsUndoManager a) => a -> IO (GValueConstruct o)
constructBufferUndoManager val = B.Properties.constructObjectPropertyObject "undo-manager" (Just val)
clearBufferUndoManager :: (MonadIO m, IsBuffer o) => o -> m ()
clearBufferUndoManager obj = liftIO $ B.Properties.setObjectPropertyObject obj "undo-manager" (Nothing :: Maybe GtkSource.UndoManager.UndoManager)
#if ENABLE_OVERLOADING
data BufferUndoManagerPropertyInfo
instance AttrInfo BufferUndoManagerPropertyInfo where
type AttrAllowedOps BufferUndoManagerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BufferUndoManagerPropertyInfo = GtkSource.UndoManager.IsUndoManager
type AttrBaseTypeConstraint BufferUndoManagerPropertyInfo = IsBuffer
type AttrGetType BufferUndoManagerPropertyInfo = (Maybe GtkSource.UndoManager.UndoManager)
type AttrLabel BufferUndoManagerPropertyInfo = "undo-manager"
type AttrOrigin BufferUndoManagerPropertyInfo = Buffer
attrGet _ = getBufferUndoManager
attrSet _ = setBufferUndoManager
attrConstruct _ = constructBufferUndoManager
attrClear _ = clearBufferUndoManager
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList Buffer
type instance O.AttributeList Buffer = BufferAttributeList
type BufferAttributeList = ('[ '("canRedo", BufferCanRedoPropertyInfo), '("canUndo", BufferCanUndoPropertyInfo), '("copyTargetList", Gtk.TextBuffer.TextBufferCopyTargetListPropertyInfo), '("cursorPosition", Gtk.TextBuffer.TextBufferCursorPositionPropertyInfo), '("hasSelection", Gtk.TextBuffer.TextBufferHasSelectionPropertyInfo), '("highlightMatchingBrackets", BufferHighlightMatchingBracketsPropertyInfo), '("highlightSyntax", BufferHighlightSyntaxPropertyInfo), '("implicitTrailingNewline", BufferImplicitTrailingNewlinePropertyInfo), '("language", BufferLanguagePropertyInfo), '("maxUndoLevels", BufferMaxUndoLevelsPropertyInfo), '("pasteTargetList", Gtk.TextBuffer.TextBufferPasteTargetListPropertyInfo), '("styleScheme", BufferStyleSchemePropertyInfo), '("tagTable", Gtk.TextBuffer.TextBufferTagTablePropertyInfo), '("text", Gtk.TextBuffer.TextBufferTextPropertyInfo), '("undoManager", BufferUndoManagerPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
bufferHighlightMatchingBrackets :: AttrLabelProxy "highlightMatchingBrackets"
bufferHighlightMatchingBrackets = AttrLabelProxy
bufferHighlightSyntax :: AttrLabelProxy "highlightSyntax"
bufferHighlightSyntax = AttrLabelProxy
bufferImplicitTrailingNewline :: AttrLabelProxy "implicitTrailingNewline"
bufferImplicitTrailingNewline = AttrLabelProxy
bufferLanguage :: AttrLabelProxy "language"
bufferLanguage = AttrLabelProxy
bufferMaxUndoLevels :: AttrLabelProxy "maxUndoLevels"
bufferMaxUndoLevels = AttrLabelProxy
bufferStyleScheme :: AttrLabelProxy "styleScheme"
bufferStyleScheme = AttrLabelProxy
bufferUndoManager :: AttrLabelProxy "undoManager"
bufferUndoManager = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data BufferBracketMatchedSignalInfo
instance SignalInfo BufferBracketMatchedSignalInfo where
type HaskellCallbackType BufferBracketMatchedSignalInfo = BufferBracketMatchedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_BufferBracketMatchedCallback cb
cb'' <- mk_BufferBracketMatchedCallback cb'
connectSignalFunPtr obj "bracket-matched" cb'' connectMode
data BufferHighlightUpdatedSignalInfo
instance SignalInfo BufferHighlightUpdatedSignalInfo where
type HaskellCallbackType BufferHighlightUpdatedSignalInfo = BufferHighlightUpdatedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_BufferHighlightUpdatedCallback cb
cb'' <- mk_BufferHighlightUpdatedCallback cb'
connectSignalFunPtr obj "highlight-updated" cb'' connectMode
data BufferRedoSignalInfo
instance SignalInfo BufferRedoSignalInfo where
type HaskellCallbackType BufferRedoSignalInfo = BufferRedoCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_BufferRedoCallback cb
cb'' <- mk_BufferRedoCallback cb'
connectSignalFunPtr obj "redo" cb'' connectMode
data BufferSourceMarkUpdatedSignalInfo
instance SignalInfo BufferSourceMarkUpdatedSignalInfo where
type HaskellCallbackType BufferSourceMarkUpdatedSignalInfo = BufferSourceMarkUpdatedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_BufferSourceMarkUpdatedCallback cb
cb'' <- mk_BufferSourceMarkUpdatedCallback cb'
connectSignalFunPtr obj "source-mark-updated" cb'' connectMode
data BufferUndoSignalInfo
instance SignalInfo BufferUndoSignalInfo where
type HaskellCallbackType BufferUndoSignalInfo = BufferUndoCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_BufferUndoCallback cb
cb'' <- mk_BufferUndoCallback cb'
connectSignalFunPtr obj "undo" cb'' connectMode
type instance O.SignalList Buffer = BufferSignalList
type BufferSignalList = ('[ '("applyTag", Gtk.TextBuffer.TextBufferApplyTagSignalInfo), '("beginUserAction", Gtk.TextBuffer.TextBufferBeginUserActionSignalInfo), '("bracketMatched", BufferBracketMatchedSignalInfo), '("changed", Gtk.TextBuffer.TextBufferChangedSignalInfo), '("deleteRange", Gtk.TextBuffer.TextBufferDeleteRangeSignalInfo), '("endUserAction", Gtk.TextBuffer.TextBufferEndUserActionSignalInfo), '("highlightUpdated", BufferHighlightUpdatedSignalInfo), '("insertChildAnchor", Gtk.TextBuffer.TextBufferInsertChildAnchorSignalInfo), '("insertPixbuf", Gtk.TextBuffer.TextBufferInsertPixbufSignalInfo), '("insertText", Gtk.TextBuffer.TextBufferInsertTextSignalInfo), '("markDeleted", Gtk.TextBuffer.TextBufferMarkDeletedSignalInfo), '("markSet", Gtk.TextBuffer.TextBufferMarkSetSignalInfo), '("modifiedChanged", Gtk.TextBuffer.TextBufferModifiedChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pasteDone", Gtk.TextBuffer.TextBufferPasteDoneSignalInfo), '("redo", BufferRedoSignalInfo), '("removeTag", Gtk.TextBuffer.TextBufferRemoveTagSignalInfo), '("sourceMarkUpdated", BufferSourceMarkUpdatedSignalInfo), '("undo", BufferUndoSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_buffer_new" gtk_source_buffer_new ::
Ptr Gtk.TextTagTable.TextTagTable ->
IO (Ptr Buffer)
bufferNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTagTable.IsTextTagTable a) =>
Maybe (a)
-> m Buffer
bufferNew table = liftIO $ do
maybeTable <- case table of
Nothing -> return nullPtr
Just jTable -> do
jTable' <- unsafeManagedPtrCastPtr jTable
return jTable'
result <- gtk_source_buffer_new maybeTable
checkUnexpectedReturnNULL "bufferNew" result
result' <- (wrapObject Buffer) result
whenJust table touchManagedPtr
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_source_buffer_new_with_language" gtk_source_buffer_new_with_language ::
Ptr GtkSource.Language.Language ->
IO (Ptr Buffer)
bufferNewWithLanguage ::
(B.CallStack.HasCallStack, MonadIO m, GtkSource.Language.IsLanguage a) =>
a
-> m Buffer
bufferNewWithLanguage language = liftIO $ do
language' <- unsafeManagedPtrCastPtr language
result <- gtk_source_buffer_new_with_language language'
checkUnexpectedReturnNULL "bufferNewWithLanguage" result
result' <- (wrapObject Buffer) result
touchManagedPtr language
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_source_buffer_backward_iter_to_source_mark" gtk_source_buffer_backward_iter_to_source_mark ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
IO CInt
bufferBackwardIterToSourceMark ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Maybe (T.Text)
-> m Bool
bufferBackwardIterToSourceMark buffer iter category = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
iter' <- unsafeManagedPtrGetPtr iter
maybeCategory <- case category of
Nothing -> return nullPtr
Just jCategory -> do
jCategory' <- textToCString jCategory
return jCategory'
result <- gtk_source_buffer_backward_iter_to_source_mark buffer' iter' maybeCategory
let result' = (/= 0) result
touchManagedPtr buffer
touchManagedPtr iter
freeMem maybeCategory
return result'
#if ENABLE_OVERLOADING
data BufferBackwardIterToSourceMarkMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Maybe (T.Text) -> m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferBackwardIterToSourceMarkMethodInfo a signature where
overloadedMethod _ = bufferBackwardIterToSourceMark
#endif
foreign import ccall "gtk_source_buffer_begin_not_undoable_action" gtk_source_buffer_begin_not_undoable_action ::
Ptr Buffer ->
IO ()
bufferBeginNotUndoableAction ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m ()
bufferBeginNotUndoableAction buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
gtk_source_buffer_begin_not_undoable_action buffer'
touchManagedPtr buffer
return ()
#if ENABLE_OVERLOADING
data BufferBeginNotUndoableActionMethodInfo
instance (signature ~ (m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferBeginNotUndoableActionMethodInfo a signature where
overloadedMethod _ = bufferBeginNotUndoableAction
#endif
foreign import ccall "gtk_source_buffer_can_redo" gtk_source_buffer_can_redo ::
Ptr Buffer ->
IO CInt
bufferCanRedo ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m Bool
bufferCanRedo buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_can_redo buffer'
let result' = (/= 0) result
touchManagedPtr buffer
return result'
#if ENABLE_OVERLOADING
data BufferCanRedoMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferCanRedoMethodInfo a signature where
overloadedMethod _ = bufferCanRedo
#endif
foreign import ccall "gtk_source_buffer_can_undo" gtk_source_buffer_can_undo ::
Ptr Buffer ->
IO CInt
bufferCanUndo ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m Bool
bufferCanUndo buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_can_undo buffer'
let result' = (/= 0) result
touchManagedPtr buffer
return result'
#if ENABLE_OVERLOADING
data BufferCanUndoMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferCanUndoMethodInfo a signature where
overloadedMethod _ = bufferCanUndo
#endif
foreign import ccall "gtk_source_buffer_change_case" gtk_source_buffer_change_case ::
Ptr Buffer ->
CUInt ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
bufferChangeCase ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> GtkSource.Enums.ChangeCaseType
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
bufferChangeCase buffer caseType start end = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
let caseType' = (fromIntegral . fromEnum) caseType
start' <- unsafeManagedPtrGetPtr start
end' <- unsafeManagedPtrGetPtr end
gtk_source_buffer_change_case buffer' caseType' start' end'
touchManagedPtr buffer
touchManagedPtr start
touchManagedPtr end
return ()
#if ENABLE_OVERLOADING
data BufferChangeCaseMethodInfo
instance (signature ~ (GtkSource.Enums.ChangeCaseType -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferChangeCaseMethodInfo a signature where
overloadedMethod _ = bufferChangeCase
#endif
foreign import ccall "gtk_source_buffer_create_source_mark" gtk_source_buffer_create_source_mark ::
Ptr Buffer ->
CString ->
CString ->
Ptr Gtk.TextIter.TextIter ->
IO (Ptr GtkSource.Mark.Mark)
bufferCreateSourceMark ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Maybe (T.Text)
-> T.Text
-> Gtk.TextIter.TextIter
-> m GtkSource.Mark.Mark
bufferCreateSourceMark buffer name category where_ = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
category' <- textToCString category
where_' <- unsafeManagedPtrGetPtr where_
result <- gtk_source_buffer_create_source_mark buffer' maybeName category' where_'
checkUnexpectedReturnNULL "bufferCreateSourceMark" result
result' <- (newObject GtkSource.Mark.Mark) result
touchManagedPtr buffer
touchManagedPtr where_
freeMem maybeName
freeMem category'
return result'
#if ENABLE_OVERLOADING
data BufferCreateSourceMarkMethodInfo
instance (signature ~ (Maybe (T.Text) -> T.Text -> Gtk.TextIter.TextIter -> m GtkSource.Mark.Mark), MonadIO m, IsBuffer a) => O.MethodInfo BufferCreateSourceMarkMethodInfo a signature where
overloadedMethod _ = bufferCreateSourceMark
#endif
foreign import ccall "gtk_source_buffer_end_not_undoable_action" gtk_source_buffer_end_not_undoable_action ::
Ptr Buffer ->
IO ()
bufferEndNotUndoableAction ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m ()
bufferEndNotUndoableAction buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
gtk_source_buffer_end_not_undoable_action buffer'
touchManagedPtr buffer
return ()
#if ENABLE_OVERLOADING
data BufferEndNotUndoableActionMethodInfo
instance (signature ~ (m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferEndNotUndoableActionMethodInfo a signature where
overloadedMethod _ = bufferEndNotUndoableAction
#endif
foreign import ccall "gtk_source_buffer_ensure_highlight" gtk_source_buffer_ensure_highlight ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
bufferEnsureHighlight ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
bufferEnsureHighlight buffer start end = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
start' <- unsafeManagedPtrGetPtr start
end' <- unsafeManagedPtrGetPtr end
gtk_source_buffer_ensure_highlight buffer' start' end'
touchManagedPtr buffer
touchManagedPtr start
touchManagedPtr end
return ()
#if ENABLE_OVERLOADING
data BufferEnsureHighlightMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferEnsureHighlightMethodInfo a signature where
overloadedMethod _ = bufferEnsureHighlight
#endif
foreign import ccall "gtk_source_buffer_forward_iter_to_source_mark" gtk_source_buffer_forward_iter_to_source_mark ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
IO CInt
bufferForwardIterToSourceMark ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Maybe (T.Text)
-> m Bool
bufferForwardIterToSourceMark buffer iter category = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
iter' <- unsafeManagedPtrGetPtr iter
maybeCategory <- case category of
Nothing -> return nullPtr
Just jCategory -> do
jCategory' <- textToCString jCategory
return jCategory'
result <- gtk_source_buffer_forward_iter_to_source_mark buffer' iter' maybeCategory
let result' = (/= 0) result
touchManagedPtr buffer
touchManagedPtr iter
freeMem maybeCategory
return result'
#if ENABLE_OVERLOADING
data BufferForwardIterToSourceMarkMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Maybe (T.Text) -> m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferForwardIterToSourceMarkMethodInfo a signature where
overloadedMethod _ = bufferForwardIterToSourceMark
#endif
foreign import ccall "gtk_source_buffer_get_context_classes_at_iter" gtk_source_buffer_get_context_classes_at_iter ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
IO (Ptr CString)
bufferGetContextClassesAtIter ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> m [T.Text]
bufferGetContextClassesAtIter buffer iter = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
iter' <- unsafeManagedPtrGetPtr iter
result <- gtk_source_buffer_get_context_classes_at_iter buffer' iter'
checkUnexpectedReturnNULL "bufferGetContextClassesAtIter" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr buffer
touchManagedPtr iter
return result'
#if ENABLE_OVERLOADING
data BufferGetContextClassesAtIterMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> m [T.Text]), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetContextClassesAtIterMethodInfo a signature where
overloadedMethod _ = bufferGetContextClassesAtIter
#endif
foreign import ccall "gtk_source_buffer_get_highlight_matching_brackets" gtk_source_buffer_get_highlight_matching_brackets ::
Ptr Buffer ->
IO CInt
bufferGetHighlightMatchingBrackets ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m Bool
bufferGetHighlightMatchingBrackets buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_get_highlight_matching_brackets buffer'
let result' = (/= 0) result
touchManagedPtr buffer
return result'
#if ENABLE_OVERLOADING
data BufferGetHighlightMatchingBracketsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetHighlightMatchingBracketsMethodInfo a signature where
overloadedMethod _ = bufferGetHighlightMatchingBrackets
#endif
foreign import ccall "gtk_source_buffer_get_highlight_syntax" gtk_source_buffer_get_highlight_syntax ::
Ptr Buffer ->
IO CInt
bufferGetHighlightSyntax ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m Bool
bufferGetHighlightSyntax buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_get_highlight_syntax buffer'
let result' = (/= 0) result
touchManagedPtr buffer
return result'
#if ENABLE_OVERLOADING
data BufferGetHighlightSyntaxMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetHighlightSyntaxMethodInfo a signature where
overloadedMethod _ = bufferGetHighlightSyntax
#endif
foreign import ccall "gtk_source_buffer_get_implicit_trailing_newline" gtk_source_buffer_get_implicit_trailing_newline ::
Ptr Buffer ->
IO CInt
bufferGetImplicitTrailingNewline ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m Bool
bufferGetImplicitTrailingNewline buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_get_implicit_trailing_newline buffer'
let result' = (/= 0) result
touchManagedPtr buffer
return result'
#if ENABLE_OVERLOADING
data BufferGetImplicitTrailingNewlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetImplicitTrailingNewlineMethodInfo a signature where
overloadedMethod _ = bufferGetImplicitTrailingNewline
#endif
foreign import ccall "gtk_source_buffer_get_language" gtk_source_buffer_get_language ::
Ptr Buffer ->
IO (Ptr GtkSource.Language.Language)
bufferGetLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m (Maybe GtkSource.Language.Language)
bufferGetLanguage buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_get_language buffer'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject GtkSource.Language.Language) result'
return result''
touchManagedPtr buffer
return maybeResult
#if ENABLE_OVERLOADING
data BufferGetLanguageMethodInfo
instance (signature ~ (m (Maybe GtkSource.Language.Language)), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetLanguageMethodInfo a signature where
overloadedMethod _ = bufferGetLanguage
#endif
foreign import ccall "gtk_source_buffer_get_max_undo_levels" gtk_source_buffer_get_max_undo_levels ::
Ptr Buffer ->
IO Int32
bufferGetMaxUndoLevels ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m Int32
bufferGetMaxUndoLevels buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_get_max_undo_levels buffer'
touchManagedPtr buffer
return result
#if ENABLE_OVERLOADING
data BufferGetMaxUndoLevelsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetMaxUndoLevelsMethodInfo a signature where
overloadedMethod _ = bufferGetMaxUndoLevels
#endif
foreign import ccall "gtk_source_buffer_get_source_marks_at_iter" gtk_source_buffer_get_source_marks_at_iter ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
IO (Ptr (GSList (Ptr GtkSource.Mark.Mark)))
bufferGetSourceMarksAtIter ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Maybe (T.Text)
-> m [GtkSource.Mark.Mark]
bufferGetSourceMarksAtIter buffer iter category = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
iter' <- unsafeManagedPtrGetPtr iter
maybeCategory <- case category of
Nothing -> return nullPtr
Just jCategory -> do
jCategory' <- textToCString jCategory
return jCategory'
result <- gtk_source_buffer_get_source_marks_at_iter buffer' iter' maybeCategory
result' <- unpackGSList result
result'' <- mapM (newObject GtkSource.Mark.Mark) result'
g_slist_free result
touchManagedPtr buffer
touchManagedPtr iter
freeMem maybeCategory
return result''
#if ENABLE_OVERLOADING
data BufferGetSourceMarksAtIterMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Maybe (T.Text) -> m [GtkSource.Mark.Mark]), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetSourceMarksAtIterMethodInfo a signature where
overloadedMethod _ = bufferGetSourceMarksAtIter
#endif
foreign import ccall "gtk_source_buffer_get_source_marks_at_line" gtk_source_buffer_get_source_marks_at_line ::
Ptr Buffer ->
Int32 ->
CString ->
IO (Ptr (GSList (Ptr GtkSource.Mark.Mark)))
bufferGetSourceMarksAtLine ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Int32
-> Maybe (T.Text)
-> m [GtkSource.Mark.Mark]
bufferGetSourceMarksAtLine buffer line category = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
maybeCategory <- case category of
Nothing -> return nullPtr
Just jCategory -> do
jCategory' <- textToCString jCategory
return jCategory'
result <- gtk_source_buffer_get_source_marks_at_line buffer' line maybeCategory
result' <- unpackGSList result
result'' <- mapM (newObject GtkSource.Mark.Mark) result'
g_slist_free result
touchManagedPtr buffer
freeMem maybeCategory
return result''
#if ENABLE_OVERLOADING
data BufferGetSourceMarksAtLineMethodInfo
instance (signature ~ (Int32 -> Maybe (T.Text) -> m [GtkSource.Mark.Mark]), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetSourceMarksAtLineMethodInfo a signature where
overloadedMethod _ = bufferGetSourceMarksAtLine
#endif
foreign import ccall "gtk_source_buffer_get_style_scheme" gtk_source_buffer_get_style_scheme ::
Ptr Buffer ->
IO (Ptr GtkSource.StyleScheme.StyleScheme)
bufferGetStyleScheme ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m (Maybe GtkSource.StyleScheme.StyleScheme)
bufferGetStyleScheme buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_get_style_scheme buffer'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject GtkSource.StyleScheme.StyleScheme) result'
return result''
touchManagedPtr buffer
return maybeResult
#if ENABLE_OVERLOADING
data BufferGetStyleSchemeMethodInfo
instance (signature ~ (m (Maybe GtkSource.StyleScheme.StyleScheme)), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetStyleSchemeMethodInfo a signature where
overloadedMethod _ = bufferGetStyleScheme
#endif
foreign import ccall "gtk_source_buffer_get_undo_manager" gtk_source_buffer_get_undo_manager ::
Ptr Buffer ->
IO (Ptr GtkSource.UndoManager.UndoManager)
bufferGetUndoManager ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m (Maybe GtkSource.UndoManager.UndoManager)
bufferGetUndoManager buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
result <- gtk_source_buffer_get_undo_manager buffer'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject GtkSource.UndoManager.UndoManager) result'
return result''
touchManagedPtr buffer
return maybeResult
#if ENABLE_OVERLOADING
data BufferGetUndoManagerMethodInfo
instance (signature ~ (m (Maybe GtkSource.UndoManager.UndoManager)), MonadIO m, IsBuffer a) => O.MethodInfo BufferGetUndoManagerMethodInfo a signature where
overloadedMethod _ = bufferGetUndoManager
#endif
foreign import ccall "gtk_source_buffer_iter_backward_to_context_class_toggle" gtk_source_buffer_iter_backward_to_context_class_toggle ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
IO CInt
bufferIterBackwardToContextClassToggle ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> T.Text
-> m Bool
bufferIterBackwardToContextClassToggle buffer iter contextClass = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
iter' <- unsafeManagedPtrGetPtr iter
contextClass' <- textToCString contextClass
result <- gtk_source_buffer_iter_backward_to_context_class_toggle buffer' iter' contextClass'
let result' = (/= 0) result
touchManagedPtr buffer
touchManagedPtr iter
freeMem contextClass'
return result'
#if ENABLE_OVERLOADING
data BufferIterBackwardToContextClassToggleMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> T.Text -> m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferIterBackwardToContextClassToggleMethodInfo a signature where
overloadedMethod _ = bufferIterBackwardToContextClassToggle
#endif
foreign import ccall "gtk_source_buffer_iter_forward_to_context_class_toggle" gtk_source_buffer_iter_forward_to_context_class_toggle ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
IO CInt
bufferIterForwardToContextClassToggle ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> T.Text
-> m Bool
bufferIterForwardToContextClassToggle buffer iter contextClass = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
iter' <- unsafeManagedPtrGetPtr iter
contextClass' <- textToCString contextClass
result <- gtk_source_buffer_iter_forward_to_context_class_toggle buffer' iter' contextClass'
let result' = (/= 0) result
touchManagedPtr buffer
touchManagedPtr iter
freeMem contextClass'
return result'
#if ENABLE_OVERLOADING
data BufferIterForwardToContextClassToggleMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> T.Text -> m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferIterForwardToContextClassToggleMethodInfo a signature where
overloadedMethod _ = bufferIterForwardToContextClassToggle
#endif
foreign import ccall "gtk_source_buffer_iter_has_context_class" gtk_source_buffer_iter_has_context_class ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
CString ->
IO CInt
bufferIterHasContextClass ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> T.Text
-> m Bool
bufferIterHasContextClass buffer iter contextClass = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
iter' <- unsafeManagedPtrGetPtr iter
contextClass' <- textToCString contextClass
result <- gtk_source_buffer_iter_has_context_class buffer' iter' contextClass'
let result' = (/= 0) result
touchManagedPtr buffer
touchManagedPtr iter
freeMem contextClass'
return result'
#if ENABLE_OVERLOADING
data BufferIterHasContextClassMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> T.Text -> m Bool), MonadIO m, IsBuffer a) => O.MethodInfo BufferIterHasContextClassMethodInfo a signature where
overloadedMethod _ = bufferIterHasContextClass
#endif
foreign import ccall "gtk_source_buffer_join_lines" gtk_source_buffer_join_lines ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
bufferJoinLines ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
bufferJoinLines buffer start end = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
start' <- unsafeManagedPtrGetPtr start
end' <- unsafeManagedPtrGetPtr end
gtk_source_buffer_join_lines buffer' start' end'
touchManagedPtr buffer
touchManagedPtr start
touchManagedPtr end
return ()
#if ENABLE_OVERLOADING
data BufferJoinLinesMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferJoinLinesMethodInfo a signature where
overloadedMethod _ = bufferJoinLines
#endif
foreign import ccall "gtk_source_buffer_redo" gtk_source_buffer_redo ::
Ptr Buffer ->
IO ()
bufferRedo ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m ()
bufferRedo buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
gtk_source_buffer_redo buffer'
touchManagedPtr buffer
return ()
#if ENABLE_OVERLOADING
data BufferRedoMethodInfo
instance (signature ~ (m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferRedoMethodInfo a signature where
overloadedMethod _ = bufferRedo
#endif
foreign import ccall "gtk_source_buffer_remove_source_marks" gtk_source_buffer_remove_source_marks ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CString ->
IO ()
bufferRemoveSourceMarks ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> Maybe (T.Text)
-> m ()
bufferRemoveSourceMarks buffer start end category = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
start' <- unsafeManagedPtrGetPtr start
end' <- unsafeManagedPtrGetPtr end
maybeCategory <- case category of
Nothing -> return nullPtr
Just jCategory -> do
jCategory' <- textToCString jCategory
return jCategory'
gtk_source_buffer_remove_source_marks buffer' start' end' maybeCategory
touchManagedPtr buffer
touchManagedPtr start
touchManagedPtr end
freeMem maybeCategory
return ()
#if ENABLE_OVERLOADING
data BufferRemoveSourceMarksMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> Maybe (T.Text) -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferRemoveSourceMarksMethodInfo a signature where
overloadedMethod _ = bufferRemoveSourceMarks
#endif
foreign import ccall "gtk_source_buffer_set_highlight_matching_brackets" gtk_source_buffer_set_highlight_matching_brackets ::
Ptr Buffer ->
CInt ->
IO ()
bufferSetHighlightMatchingBrackets ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Bool
-> m ()
bufferSetHighlightMatchingBrackets buffer highlight = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
let highlight' = (fromIntegral . fromEnum) highlight
gtk_source_buffer_set_highlight_matching_brackets buffer' highlight'
touchManagedPtr buffer
return ()
#if ENABLE_OVERLOADING
data BufferSetHighlightMatchingBracketsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferSetHighlightMatchingBracketsMethodInfo a signature where
overloadedMethod _ = bufferSetHighlightMatchingBrackets
#endif
foreign import ccall "gtk_source_buffer_set_highlight_syntax" gtk_source_buffer_set_highlight_syntax ::
Ptr Buffer ->
CInt ->
IO ()
bufferSetHighlightSyntax ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Bool
-> m ()
bufferSetHighlightSyntax buffer highlight = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
let highlight' = (fromIntegral . fromEnum) highlight
gtk_source_buffer_set_highlight_syntax buffer' highlight'
touchManagedPtr buffer
return ()
#if ENABLE_OVERLOADING
data BufferSetHighlightSyntaxMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferSetHighlightSyntaxMethodInfo a signature where
overloadedMethod _ = bufferSetHighlightSyntax
#endif
foreign import ccall "gtk_source_buffer_set_implicit_trailing_newline" gtk_source_buffer_set_implicit_trailing_newline ::
Ptr Buffer ->
CInt ->
IO ()
bufferSetImplicitTrailingNewline ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Bool
-> m ()
bufferSetImplicitTrailingNewline buffer implicitTrailingNewline = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
let implicitTrailingNewline' = (fromIntegral . fromEnum) implicitTrailingNewline
gtk_source_buffer_set_implicit_trailing_newline buffer' implicitTrailingNewline'
touchManagedPtr buffer
return ()
#if ENABLE_OVERLOADING
data BufferSetImplicitTrailingNewlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferSetImplicitTrailingNewlineMethodInfo a signature where
overloadedMethod _ = bufferSetImplicitTrailingNewline
#endif
foreign import ccall "gtk_source_buffer_set_language" gtk_source_buffer_set_language ::
Ptr Buffer ->
Ptr GtkSource.Language.Language ->
IO ()
bufferSetLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a, GtkSource.Language.IsLanguage b) =>
a
-> Maybe (b)
-> m ()
bufferSetLanguage buffer language = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
maybeLanguage <- case language of
Nothing -> return nullPtr
Just jLanguage -> do
jLanguage' <- unsafeManagedPtrCastPtr jLanguage
return jLanguage'
gtk_source_buffer_set_language buffer' maybeLanguage
touchManagedPtr buffer
whenJust language touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data BufferSetLanguageMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsBuffer a, GtkSource.Language.IsLanguage b) => O.MethodInfo BufferSetLanguageMethodInfo a signature where
overloadedMethod _ = bufferSetLanguage
#endif
foreign import ccall "gtk_source_buffer_set_max_undo_levels" gtk_source_buffer_set_max_undo_levels ::
Ptr Buffer ->
Int32 ->
IO ()
bufferSetMaxUndoLevels ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Int32
-> m ()
bufferSetMaxUndoLevels buffer maxUndoLevels = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
gtk_source_buffer_set_max_undo_levels buffer' maxUndoLevels
touchManagedPtr buffer
return ()
#if ENABLE_OVERLOADING
data BufferSetMaxUndoLevelsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferSetMaxUndoLevelsMethodInfo a signature where
overloadedMethod _ = bufferSetMaxUndoLevels
#endif
foreign import ccall "gtk_source_buffer_set_style_scheme" gtk_source_buffer_set_style_scheme ::
Ptr Buffer ->
Ptr GtkSource.StyleScheme.StyleScheme ->
IO ()
bufferSetStyleScheme ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a, GtkSource.StyleScheme.IsStyleScheme b) =>
a
-> Maybe (b)
-> m ()
bufferSetStyleScheme buffer scheme = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
maybeScheme <- case scheme of
Nothing -> return nullPtr
Just jScheme -> do
jScheme' <- unsafeManagedPtrCastPtr jScheme
return jScheme'
gtk_source_buffer_set_style_scheme buffer' maybeScheme
touchManagedPtr buffer
whenJust scheme touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data BufferSetStyleSchemeMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsBuffer a, GtkSource.StyleScheme.IsStyleScheme b) => O.MethodInfo BufferSetStyleSchemeMethodInfo a signature where
overloadedMethod _ = bufferSetStyleScheme
#endif
foreign import ccall "gtk_source_buffer_set_undo_manager" gtk_source_buffer_set_undo_manager ::
Ptr Buffer ->
Ptr GtkSource.UndoManager.UndoManager ->
IO ()
bufferSetUndoManager ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a, GtkSource.UndoManager.IsUndoManager b) =>
a
-> Maybe (b)
-> m ()
bufferSetUndoManager buffer manager = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
maybeManager <- case manager of
Nothing -> return nullPtr
Just jManager -> do
jManager' <- unsafeManagedPtrCastPtr jManager
return jManager'
gtk_source_buffer_set_undo_manager buffer' maybeManager
touchManagedPtr buffer
whenJust manager touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data BufferSetUndoManagerMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsBuffer a, GtkSource.UndoManager.IsUndoManager b) => O.MethodInfo BufferSetUndoManagerMethodInfo a signature where
overloadedMethod _ = bufferSetUndoManager
#endif
foreign import ccall "gtk_source_buffer_sort_lines" gtk_source_buffer_sort_lines ::
Ptr Buffer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
Int32 ->
IO ()
bufferSortLines ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> [GtkSource.Flags.SortFlags]
-> Int32
-> m ()
bufferSortLines buffer start end flags column = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
start' <- unsafeManagedPtrGetPtr start
end' <- unsafeManagedPtrGetPtr end
let flags' = gflagsToWord flags
gtk_source_buffer_sort_lines buffer' start' end' flags' column
touchManagedPtr buffer
touchManagedPtr start
touchManagedPtr end
return ()
#if ENABLE_OVERLOADING
data BufferSortLinesMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> [GtkSource.Flags.SortFlags] -> Int32 -> m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferSortLinesMethodInfo a signature where
overloadedMethod _ = bufferSortLines
#endif
foreign import ccall "gtk_source_buffer_undo" gtk_source_buffer_undo ::
Ptr Buffer ->
IO ()
bufferUndo ::
(B.CallStack.HasCallStack, MonadIO m, IsBuffer a) =>
a
-> m ()
bufferUndo buffer = liftIO $ do
buffer' <- unsafeManagedPtrCastPtr buffer
gtk_source_buffer_undo buffer'
touchManagedPtr buffer
return ()
#if ENABLE_OVERLOADING
data BufferUndoMethodInfo
instance (signature ~ (m ()), MonadIO m, IsBuffer a) => O.MethodInfo BufferUndoMethodInfo a signature where
overloadedMethod _ = bufferUndo
#endif