{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) -} module GI.GtkSource.Objects.Buffer ( -- * Exported types Buffer(..) , BufferK , toBuffer , noBuffer , -- * Methods -- ** bufferBackwardIterToSourceMark BufferBackwardIterToSourceMarkMethodInfo, bufferBackwardIterToSourceMark , -- ** bufferBeginNotUndoableAction BufferBeginNotUndoableActionMethodInfo , bufferBeginNotUndoableAction , -- ** bufferCanRedo BufferCanRedoMethodInfo , bufferCanRedo , -- ** bufferCanUndo BufferCanUndoMethodInfo , bufferCanUndo , -- ** bufferChangeCase BufferChangeCaseMethodInfo , bufferChangeCase , -- ** bufferCreateSourceMark BufferCreateSourceMarkMethodInfo , bufferCreateSourceMark , -- ** bufferEndNotUndoableAction BufferEndNotUndoableActionMethodInfo , bufferEndNotUndoableAction , -- ** bufferEnsureHighlight BufferEnsureHighlightMethodInfo , bufferEnsureHighlight , -- ** bufferForwardIterToSourceMark BufferForwardIterToSourceMarkMethodInfo , bufferForwardIterToSourceMark , -- ** bufferGetContextClassesAtIter BufferGetContextClassesAtIterMethodInfo , bufferGetContextClassesAtIter , -- ** bufferGetHighlightMatchingBrackets BufferGetHighlightMatchingBracketsMethodInfo, bufferGetHighlightMatchingBrackets , -- ** bufferGetHighlightSyntax BufferGetHighlightSyntaxMethodInfo , bufferGetHighlightSyntax , -- ** bufferGetImplicitTrailingNewline BufferGetImplicitTrailingNewlineMethodInfo, bufferGetImplicitTrailingNewline , -- ** bufferGetLanguage BufferGetLanguageMethodInfo , bufferGetLanguage , -- ** bufferGetMaxUndoLevels BufferGetMaxUndoLevelsMethodInfo , bufferGetMaxUndoLevels , -- ** bufferGetSourceMarksAtIter BufferGetSourceMarksAtIterMethodInfo , bufferGetSourceMarksAtIter , -- ** bufferGetSourceMarksAtLine BufferGetSourceMarksAtLineMethodInfo , bufferGetSourceMarksAtLine , -- ** bufferGetStyleScheme BufferGetStyleSchemeMethodInfo , bufferGetStyleScheme , -- ** bufferGetUndoManager BufferGetUndoManagerMethodInfo , bufferGetUndoManager , -- ** bufferIterBackwardToContextClassToggle BufferIterBackwardToContextClassToggleMethodInfo, bufferIterBackwardToContextClassToggle , -- ** bufferIterForwardToContextClassToggle BufferIterForwardToContextClassToggleMethodInfo, bufferIterForwardToContextClassToggle , -- ** bufferIterHasContextClass BufferIterHasContextClassMethodInfo , bufferIterHasContextClass , -- ** bufferJoinLines BufferJoinLinesMethodInfo , bufferJoinLines , -- ** bufferNew bufferNew , -- ** bufferNewWithLanguage bufferNewWithLanguage , -- ** bufferRedo BufferRedoMethodInfo , bufferRedo , -- ** bufferRemoveSourceMarks BufferRemoveSourceMarksMethodInfo , bufferRemoveSourceMarks , -- ** bufferSetHighlightMatchingBrackets BufferSetHighlightMatchingBracketsMethodInfo, bufferSetHighlightMatchingBrackets , -- ** bufferSetHighlightSyntax BufferSetHighlightSyntaxMethodInfo , bufferSetHighlightSyntax , -- ** bufferSetImplicitTrailingNewline BufferSetImplicitTrailingNewlineMethodInfo, bufferSetImplicitTrailingNewline , -- ** bufferSetLanguage BufferSetLanguageMethodInfo , bufferSetLanguage , -- ** bufferSetMaxUndoLevels BufferSetMaxUndoLevelsMethodInfo , bufferSetMaxUndoLevels , -- ** bufferSetStyleScheme BufferSetStyleSchemeMethodInfo , bufferSetStyleScheme , -- ** bufferSetUndoManager BufferSetUndoManagerMethodInfo , bufferSetUndoManager , -- ** bufferSortLines BufferSortLinesMethodInfo , bufferSortLines , -- ** bufferUndo BufferUndoMethodInfo , bufferUndo , -- * Properties -- ** CanRedo BufferCanRedoPropertyInfo , getBufferCanRedo , -- ** CanUndo BufferCanUndoPropertyInfo , getBufferCanUndo , -- ** HighlightMatchingBrackets BufferHighlightMatchingBracketsPropertyInfo, bufferHighlightMatchingBrackets , constructBufferHighlightMatchingBrackets, getBufferHighlightMatchingBrackets , setBufferHighlightMatchingBrackets , -- ** HighlightSyntax BufferHighlightSyntaxPropertyInfo , bufferHighlightSyntax , constructBufferHighlightSyntax , getBufferHighlightSyntax , setBufferHighlightSyntax , -- ** ImplicitTrailingNewline BufferImplicitTrailingNewlinePropertyInfo, bufferImplicitTrailingNewline , constructBufferImplicitTrailingNewline , getBufferImplicitTrailingNewline , setBufferImplicitTrailingNewline , -- ** Language BufferLanguagePropertyInfo , bufferLanguage , clearBufferLanguage , constructBufferLanguage , getBufferLanguage , setBufferLanguage , -- ** MaxUndoLevels BufferMaxUndoLevelsPropertyInfo , bufferMaxUndoLevels , constructBufferMaxUndoLevels , getBufferMaxUndoLevels , setBufferMaxUndoLevels , -- ** StyleScheme BufferStyleSchemePropertyInfo , bufferStyleScheme , clearBufferStyleScheme , constructBufferStyleScheme , getBufferStyleScheme , setBufferStyleScheme , -- ** UndoManager BufferUndoManagerPropertyInfo , bufferUndoManager , clearBufferUndoManager , constructBufferUndoManager , getBufferUndoManager , setBufferUndoManager , -- * Signals -- ** BracketMatched BufferBracketMatchedCallback , BufferBracketMatchedCallbackC , BufferBracketMatchedSignalInfo , afterBufferBracketMatched , bufferBracketMatchedCallbackWrapper , bufferBracketMatchedClosure , mkBufferBracketMatchedCallback , noBufferBracketMatchedCallback , onBufferBracketMatched , -- ** HighlightUpdated BufferHighlightUpdatedCallback , BufferHighlightUpdatedCallbackC , BufferHighlightUpdatedSignalInfo , afterBufferHighlightUpdated , bufferHighlightUpdatedCallbackWrapper , bufferHighlightUpdatedClosure , mkBufferHighlightUpdatedCallback , noBufferHighlightUpdatedCallback , onBufferHighlightUpdated , -- ** Redo BufferRedoCallback , BufferRedoCallbackC , BufferRedoSignalInfo , afterBufferRedo , bufferRedoCallbackWrapper , bufferRedoClosure , mkBufferRedoCallback , noBufferRedoCallback , onBufferRedo , -- ** SourceMarkUpdated BufferSourceMarkUpdatedCallback , BufferSourceMarkUpdatedCallbackC , BufferSourceMarkUpdatedSignalInfo , afterBufferSourceMarkUpdated , bufferSourceMarkUpdatedCallbackWrapper , bufferSourceMarkUpdatedClosure , mkBufferSourceMarkUpdatedCallback , noBufferSourceMarkUpdatedCallback , onBufferSourceMarkUpdated , -- ** Undo BufferUndoCallback , BufferUndoCallbackC , BufferUndoSignalInfo , afterBufferUndo , bufferUndoCallbackWrapper , bufferUndoClosure , mkBufferUndoCallback , noBufferUndoCallback , onBufferUndo , ) where import Data.GI.Base.ShortPrelude import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.GtkSource.Types import GI.GtkSource.Callbacks import qualified GI.GObject as GObject import qualified GI.Gtk as Gtk newtype Buffer = Buffer (ForeignPtr Buffer) foreign import ccall "gtk_source_buffer_get_type" c_gtk_source_buffer_get_type :: IO GType type instance ParentTypes Buffer = BufferParentTypes type BufferParentTypes = '[Gtk.TextBuffer, GObject.Object] instance GObject Buffer where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gtk_source_buffer_get_type class GObject o => BufferK o instance (GObject o, IsDescendantOf Buffer o) => BufferK o toBuffer :: BufferK o => o -> IO Buffer toBuffer = unsafeCastTo Buffer noBuffer :: Maybe Buffer noBuffer = Nothing type family ResolveBufferMethod (t :: Symbol) (o :: *) :: * where ResolveBufferMethod "addMark" o = Gtk.TextBufferAddMarkMethodInfo ResolveBufferMethod "addSelectionClipboard" o = Gtk.TextBufferAddSelectionClipboardMethodInfo ResolveBufferMethod "applyTag" o = Gtk.TextBufferApplyTagMethodInfo ResolveBufferMethod "applyTagByName" o = Gtk.TextBufferApplyTagByNameMethodInfo ResolveBufferMethod "backspace" o = Gtk.TextBufferBackspaceMethodInfo ResolveBufferMethod "backwardIterToSourceMark" o = BufferBackwardIterToSourceMarkMethodInfo ResolveBufferMethod "beginNotUndoableAction" o = BufferBeginNotUndoableActionMethodInfo ResolveBufferMethod "beginUserAction" o = Gtk.TextBufferBeginUserActionMethodInfo ResolveBufferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo ResolveBufferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo ResolveBufferMethod "canRedo" o = BufferCanRedoMethodInfo ResolveBufferMethod "canUndo" o = BufferCanUndoMethodInfo ResolveBufferMethod "changeCase" o = BufferChangeCaseMethodInfo ResolveBufferMethod "copyClipboard" o = Gtk.TextBufferCopyClipboardMethodInfo ResolveBufferMethod "createChildAnchor" o = Gtk.TextBufferCreateChildAnchorMethodInfo ResolveBufferMethod "createMark" o = Gtk.TextBufferCreateMarkMethodInfo ResolveBufferMethod "createSourceMark" o = BufferCreateSourceMarkMethodInfo ResolveBufferMethod "cutClipboard" o = Gtk.TextBufferCutClipboardMethodInfo ResolveBufferMethod "delete" o = Gtk.TextBufferDeleteMethodInfo ResolveBufferMethod "deleteInteractive" o = Gtk.TextBufferDeleteInteractiveMethodInfo ResolveBufferMethod "deleteMark" o = Gtk.TextBufferDeleteMarkMethodInfo ResolveBufferMethod "deleteMarkByName" o = Gtk.TextBufferDeleteMarkByNameMethodInfo ResolveBufferMethod "deleteSelection" o = Gtk.TextBufferDeleteSelectionMethodInfo ResolveBufferMethod "deserialize" o = Gtk.TextBufferDeserializeMethodInfo ResolveBufferMethod "deserializeGetCanCreateTags" o = Gtk.TextBufferDeserializeGetCanCreateTagsMethodInfo ResolveBufferMethod "deserializeSetCanCreateTags" o = Gtk.TextBufferDeserializeSetCanCreateTagsMethodInfo ResolveBufferMethod "endNotUndoableAction" o = BufferEndNotUndoableActionMethodInfo ResolveBufferMethod "endUserAction" o = Gtk.TextBufferEndUserActionMethodInfo ResolveBufferMethod "ensureHighlight" o = BufferEnsureHighlightMethodInfo ResolveBufferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo ResolveBufferMethod "forwardIterToSourceMark" o = BufferForwardIterToSourceMarkMethodInfo ResolveBufferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo ResolveBufferMethod "insert" o = Gtk.TextBufferInsertMethodInfo ResolveBufferMethod "insertAtCursor" o = Gtk.TextBufferInsertAtCursorMethodInfo ResolveBufferMethod "insertChildAnchor" o = Gtk.TextBufferInsertChildAnchorMethodInfo ResolveBufferMethod "insertInteractive" o = Gtk.TextBufferInsertInteractiveMethodInfo ResolveBufferMethod "insertInteractiveAtCursor" o = Gtk.TextBufferInsertInteractiveAtCursorMethodInfo ResolveBufferMethod "insertMarkup" o = Gtk.TextBufferInsertMarkupMethodInfo ResolveBufferMethod "insertPixbuf" o = Gtk.TextBufferInsertPixbufMethodInfo ResolveBufferMethod "insertRange" o = Gtk.TextBufferInsertRangeMethodInfo ResolveBufferMethod "insertRangeInteractive" o = Gtk.TextBufferInsertRangeInteractiveMethodInfo ResolveBufferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo ResolveBufferMethod "iterBackwardToContextClassToggle" o = BufferIterBackwardToContextClassToggleMethodInfo ResolveBufferMethod "iterForwardToContextClassToggle" o = BufferIterForwardToContextClassToggleMethodInfo ResolveBufferMethod "iterHasContextClass" o = BufferIterHasContextClassMethodInfo ResolveBufferMethod "joinLines" o = BufferJoinLinesMethodInfo ResolveBufferMethod "moveMark" o = Gtk.TextBufferMoveMarkMethodInfo ResolveBufferMethod "moveMarkByName" o = Gtk.TextBufferMoveMarkByNameMethodInfo ResolveBufferMethod "notify" o = GObject.ObjectNotifyMethodInfo ResolveBufferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo ResolveBufferMethod "pasteClipboard" o = Gtk.TextBufferPasteClipboardMethodInfo ResolveBufferMethod "placeCursor" o = Gtk.TextBufferPlaceCursorMethodInfo ResolveBufferMethod "redo" o = BufferRedoMethodInfo ResolveBufferMethod "ref" o = GObject.ObjectRefMethodInfo ResolveBufferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo ResolveBufferMethod "registerDeserializeFormat" o = Gtk.TextBufferRegisterDeserializeFormatMethodInfo ResolveBufferMethod "registerDeserializeTagset" o = Gtk.TextBufferRegisterDeserializeTagsetMethodInfo ResolveBufferMethod "registerSerializeFormat" o = Gtk.TextBufferRegisterSerializeFormatMethodInfo ResolveBufferMethod "registerSerializeTagset" o = Gtk.TextBufferRegisterSerializeTagsetMethodInfo ResolveBufferMethod "removeAllTags" o = Gtk.TextBufferRemoveAllTagsMethodInfo ResolveBufferMethod "removeSelectionClipboard" o = Gtk.TextBufferRemoveSelectionClipboardMethodInfo ResolveBufferMethod "removeSourceMarks" o = BufferRemoveSourceMarksMethodInfo ResolveBufferMethod "removeTag" o = Gtk.TextBufferRemoveTagMethodInfo ResolveBufferMethod "removeTagByName" o = Gtk.TextBufferRemoveTagByNameMethodInfo ResolveBufferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo ResolveBufferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo ResolveBufferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo ResolveBufferMethod "selectRange" o = Gtk.TextBufferSelectRangeMethodInfo ResolveBufferMethod "serialize" o = Gtk.TextBufferSerializeMethodInfo ResolveBufferMethod "sortLines" o = BufferSortLinesMethodInfo ResolveBufferMethod "stealData" o = GObject.ObjectStealDataMethodInfo ResolveBufferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo ResolveBufferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo ResolveBufferMethod "undo" o = BufferUndoMethodInfo ResolveBufferMethod "unref" o = GObject.ObjectUnrefMethodInfo ResolveBufferMethod "unregisterDeserializeFormat" o = Gtk.TextBufferUnregisterDeserializeFormatMethodInfo ResolveBufferMethod "unregisterSerializeFormat" o = Gtk.TextBufferUnregisterSerializeFormatMethodInfo ResolveBufferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo ResolveBufferMethod "getBounds" o = Gtk.TextBufferGetBoundsMethodInfo ResolveBufferMethod "getCharCount" o = Gtk.TextBufferGetCharCountMethodInfo ResolveBufferMethod "getContextClassesAtIter" o = BufferGetContextClassesAtIterMethodInfo ResolveBufferMethod "getCopyTargetList" o = Gtk.TextBufferGetCopyTargetListMethodInfo ResolveBufferMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveBufferMethod "getDeserializeFormats" o = Gtk.TextBufferGetDeserializeFormatsMethodInfo ResolveBufferMethod "getEndIter" o = Gtk.TextBufferGetEndIterMethodInfo ResolveBufferMethod "getHasSelection" o = Gtk.TextBufferGetHasSelectionMethodInfo ResolveBufferMethod "getHighlightMatchingBrackets" o = BufferGetHighlightMatchingBracketsMethodInfo ResolveBufferMethod "getHighlightSyntax" o = BufferGetHighlightSyntaxMethodInfo ResolveBufferMethod "getImplicitTrailingNewline" o = BufferGetImplicitTrailingNewlineMethodInfo ResolveBufferMethod "getInsert" o = Gtk.TextBufferGetInsertMethodInfo ResolveBufferMethod "getIterAtChildAnchor" o = Gtk.TextBufferGetIterAtChildAnchorMethodInfo ResolveBufferMethod "getIterAtLine" o = Gtk.TextBufferGetIterAtLineMethodInfo ResolveBufferMethod "getIterAtLineIndex" o = Gtk.TextBufferGetIterAtLineIndexMethodInfo ResolveBufferMethod "getIterAtLineOffset" o = Gtk.TextBufferGetIterAtLineOffsetMethodInfo ResolveBufferMethod "getIterAtMark" o = Gtk.TextBufferGetIterAtMarkMethodInfo ResolveBufferMethod "getIterAtOffset" o = Gtk.TextBufferGetIterAtOffsetMethodInfo ResolveBufferMethod "getLanguage" o = BufferGetLanguageMethodInfo ResolveBufferMethod "getLineCount" o = Gtk.TextBufferGetLineCountMethodInfo ResolveBufferMethod "getMark" o = Gtk.TextBufferGetMarkMethodInfo ResolveBufferMethod "getMaxUndoLevels" o = BufferGetMaxUndoLevelsMethodInfo ResolveBufferMethod "getModified" o = Gtk.TextBufferGetModifiedMethodInfo ResolveBufferMethod "getPasteTargetList" o = Gtk.TextBufferGetPasteTargetListMethodInfo ResolveBufferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo ResolveBufferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo ResolveBufferMethod "getSelectionBound" o = Gtk.TextBufferGetSelectionBoundMethodInfo ResolveBufferMethod "getSelectionBounds" o = Gtk.TextBufferGetSelectionBoundsMethodInfo ResolveBufferMethod "getSerializeFormats" o = Gtk.TextBufferGetSerializeFormatsMethodInfo ResolveBufferMethod "getSlice" o = Gtk.TextBufferGetSliceMethodInfo ResolveBufferMethod "getSourceMarksAtIter" o = BufferGetSourceMarksAtIterMethodInfo ResolveBufferMethod "getSourceMarksAtLine" o = BufferGetSourceMarksAtLineMethodInfo ResolveBufferMethod "getStartIter" o = Gtk.TextBufferGetStartIterMethodInfo ResolveBufferMethod "getStyleScheme" o = BufferGetStyleSchemeMethodInfo ResolveBufferMethod "getTagTable" o = Gtk.TextBufferGetTagTableMethodInfo ResolveBufferMethod "getText" o = Gtk.TextBufferGetTextMethodInfo ResolveBufferMethod "getUndoManager" o = BufferGetUndoManagerMethodInfo ResolveBufferMethod "setData" o = GObject.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.TextBufferSetModifiedMethodInfo ResolveBufferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo ResolveBufferMethod "setStyleScheme" o = BufferSetStyleSchemeMethodInfo ResolveBufferMethod "setText" o = Gtk.TextBufferSetTextMethodInfo ResolveBufferMethod "setUndoManager" o = BufferSetUndoManagerMethodInfo ResolveBufferMethod l o = MethodResolutionFailed l o instance (info ~ ResolveBufferMethod t Buffer, MethodInfo info Buffer p) => IsLabelProxy t (Buffer -> p) where fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveBufferMethod t Buffer, MethodInfo info Buffer p) => IsLabel t (Buffer -> p) where fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif -- signal Buffer::bracket-matched type BufferBracketMatchedCallback = Gtk.TextIter -> BracketMatchType -> IO () noBufferBracketMatchedCallback :: Maybe BufferBracketMatchedCallback noBufferBracketMatchedCallback = Nothing type BufferBracketMatchedCallbackC = Ptr () -> -- object Ptr Gtk.TextIter -> CUInt -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkBufferBracketMatchedCallback :: BufferBracketMatchedCallbackC -> IO (FunPtr BufferBracketMatchedCallbackC) bufferBracketMatchedClosure :: BufferBracketMatchedCallback -> IO Closure bufferBracketMatchedClosure cb = newCClosure =<< mkBufferBracketMatchedCallback wrapped where wrapped = bufferBracketMatchedCallbackWrapper cb bufferBracketMatchedCallbackWrapper :: BufferBracketMatchedCallback -> Ptr () -> Ptr Gtk.TextIter -> CUInt -> Ptr () -> IO () bufferBracketMatchedCallbackWrapper _cb _ iter state _ = do iter' <- (newBoxed Gtk.TextIter) iter let state' = (toEnum . fromIntegral) state _cb iter' state' onBufferBracketMatched :: (GObject a, MonadIO m) => a -> BufferBracketMatchedCallback -> m SignalHandlerId onBufferBracketMatched obj cb = liftIO $ connectBufferBracketMatched obj cb SignalConnectBefore afterBufferBracketMatched :: (GObject a, MonadIO m) => a -> BufferBracketMatchedCallback -> m SignalHandlerId afterBufferBracketMatched obj cb = connectBufferBracketMatched obj cb SignalConnectAfter connectBufferBracketMatched :: (GObject a, MonadIO m) => a -> BufferBracketMatchedCallback -> SignalConnectMode -> m SignalHandlerId connectBufferBracketMatched obj cb after = liftIO $ do cb' <- mkBufferBracketMatchedCallback (bufferBracketMatchedCallbackWrapper cb) connectSignalFunPtr obj "bracket-matched" cb' after -- signal Buffer::highlight-updated type BufferHighlightUpdatedCallback = Gtk.TextIter -> Gtk.TextIter -> IO () noBufferHighlightUpdatedCallback :: Maybe BufferHighlightUpdatedCallback noBufferHighlightUpdatedCallback = Nothing type BufferHighlightUpdatedCallbackC = Ptr () -> -- object Ptr Gtk.TextIter -> Ptr Gtk.TextIter -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkBufferHighlightUpdatedCallback :: BufferHighlightUpdatedCallbackC -> IO (FunPtr BufferHighlightUpdatedCallbackC) bufferHighlightUpdatedClosure :: BufferHighlightUpdatedCallback -> IO Closure bufferHighlightUpdatedClosure cb = newCClosure =<< mkBufferHighlightUpdatedCallback wrapped where wrapped = bufferHighlightUpdatedCallbackWrapper cb bufferHighlightUpdatedCallbackWrapper :: BufferHighlightUpdatedCallback -> Ptr () -> Ptr Gtk.TextIter -> Ptr Gtk.TextIter -> Ptr () -> IO () bufferHighlightUpdatedCallbackWrapper _cb _ start end _ = do start' <- (newBoxed Gtk.TextIter) start end' <- (newBoxed Gtk.TextIter) end _cb start' end' onBufferHighlightUpdated :: (GObject a, MonadIO m) => a -> BufferHighlightUpdatedCallback -> m SignalHandlerId onBufferHighlightUpdated obj cb = liftIO $ connectBufferHighlightUpdated obj cb SignalConnectBefore afterBufferHighlightUpdated :: (GObject a, MonadIO m) => a -> BufferHighlightUpdatedCallback -> m SignalHandlerId afterBufferHighlightUpdated obj cb = connectBufferHighlightUpdated obj cb SignalConnectAfter connectBufferHighlightUpdated :: (GObject a, MonadIO m) => a -> BufferHighlightUpdatedCallback -> SignalConnectMode -> m SignalHandlerId connectBufferHighlightUpdated obj cb after = liftIO $ do cb' <- mkBufferHighlightUpdatedCallback (bufferHighlightUpdatedCallbackWrapper cb) connectSignalFunPtr obj "highlight-updated" cb' after -- signal Buffer::redo type BufferRedoCallback = IO () noBufferRedoCallback :: Maybe BufferRedoCallback noBufferRedoCallback = Nothing type BufferRedoCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkBufferRedoCallback :: BufferRedoCallbackC -> IO (FunPtr BufferRedoCallbackC) bufferRedoClosure :: BufferRedoCallback -> IO Closure bufferRedoClosure cb = newCClosure =<< mkBufferRedoCallback wrapped where wrapped = bufferRedoCallbackWrapper cb bufferRedoCallbackWrapper :: BufferRedoCallback -> Ptr () -> Ptr () -> IO () bufferRedoCallbackWrapper _cb _ _ = do _cb onBufferRedo :: (GObject a, MonadIO m) => a -> BufferRedoCallback -> m SignalHandlerId onBufferRedo obj cb = liftIO $ connectBufferRedo obj cb SignalConnectBefore afterBufferRedo :: (GObject a, MonadIO m) => a -> BufferRedoCallback -> m SignalHandlerId afterBufferRedo obj cb = connectBufferRedo obj cb SignalConnectAfter connectBufferRedo :: (GObject a, MonadIO m) => a -> BufferRedoCallback -> SignalConnectMode -> m SignalHandlerId connectBufferRedo obj cb after = liftIO $ do cb' <- mkBufferRedoCallback (bufferRedoCallbackWrapper cb) connectSignalFunPtr obj "redo" cb' after -- signal Buffer::source-mark-updated type BufferSourceMarkUpdatedCallback = Gtk.TextMark -> IO () noBufferSourceMarkUpdatedCallback :: Maybe BufferSourceMarkUpdatedCallback noBufferSourceMarkUpdatedCallback = Nothing type BufferSourceMarkUpdatedCallbackC = Ptr () -> -- object Ptr Gtk.TextMark -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkBufferSourceMarkUpdatedCallback :: BufferSourceMarkUpdatedCallbackC -> IO (FunPtr BufferSourceMarkUpdatedCallbackC) bufferSourceMarkUpdatedClosure :: BufferSourceMarkUpdatedCallback -> IO Closure bufferSourceMarkUpdatedClosure cb = newCClosure =<< mkBufferSourceMarkUpdatedCallback wrapped where wrapped = bufferSourceMarkUpdatedCallbackWrapper cb bufferSourceMarkUpdatedCallbackWrapper :: BufferSourceMarkUpdatedCallback -> Ptr () -> Ptr Gtk.TextMark -> Ptr () -> IO () bufferSourceMarkUpdatedCallbackWrapper _cb _ mark _ = do mark' <- (newObject Gtk.TextMark) mark _cb mark' onBufferSourceMarkUpdated :: (GObject a, MonadIO m) => a -> BufferSourceMarkUpdatedCallback -> m SignalHandlerId onBufferSourceMarkUpdated obj cb = liftIO $ connectBufferSourceMarkUpdated obj cb SignalConnectBefore afterBufferSourceMarkUpdated :: (GObject a, MonadIO m) => a -> BufferSourceMarkUpdatedCallback -> m SignalHandlerId afterBufferSourceMarkUpdated obj cb = connectBufferSourceMarkUpdated obj cb SignalConnectAfter connectBufferSourceMarkUpdated :: (GObject a, MonadIO m) => a -> BufferSourceMarkUpdatedCallback -> SignalConnectMode -> m SignalHandlerId connectBufferSourceMarkUpdated obj cb after = liftIO $ do cb' <- mkBufferSourceMarkUpdatedCallback (bufferSourceMarkUpdatedCallbackWrapper cb) connectSignalFunPtr obj "source-mark-updated" cb' after -- signal Buffer::undo type BufferUndoCallback = IO () noBufferUndoCallback :: Maybe BufferUndoCallback noBufferUndoCallback = Nothing type BufferUndoCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkBufferUndoCallback :: BufferUndoCallbackC -> IO (FunPtr BufferUndoCallbackC) bufferUndoClosure :: BufferUndoCallback -> IO Closure bufferUndoClosure cb = newCClosure =<< mkBufferUndoCallback wrapped where wrapped = bufferUndoCallbackWrapper cb bufferUndoCallbackWrapper :: BufferUndoCallback -> Ptr () -> Ptr () -> IO () bufferUndoCallbackWrapper _cb _ _ = do _cb onBufferUndo :: (GObject a, MonadIO m) => a -> BufferUndoCallback -> m SignalHandlerId onBufferUndo obj cb = liftIO $ connectBufferUndo obj cb SignalConnectBefore afterBufferUndo :: (GObject a, MonadIO m) => a -> BufferUndoCallback -> m SignalHandlerId afterBufferUndo obj cb = connectBufferUndo obj cb SignalConnectAfter connectBufferUndo :: (GObject a, MonadIO m) => a -> BufferUndoCallback -> SignalConnectMode -> m SignalHandlerId connectBufferUndo obj cb after = liftIO $ do cb' <- mkBufferUndoCallback (bufferUndoCallbackWrapper cb) connectSignalFunPtr obj "undo" cb' after -- VVV Prop "can-redo" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] -- Nullable: (Nothing,Nothing) getBufferCanRedo :: (MonadIO m, BufferK o) => o -> m Bool getBufferCanRedo obj = liftIO $ getObjectPropertyBool obj "can-redo" data BufferCanRedoPropertyInfo instance AttrInfo BufferCanRedoPropertyInfo where type AttrAllowedOps BufferCanRedoPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint BufferCanRedoPropertyInfo = (~) () type AttrBaseTypeConstraint BufferCanRedoPropertyInfo = BufferK type AttrGetType BufferCanRedoPropertyInfo = Bool type AttrLabel BufferCanRedoPropertyInfo = "can-redo" attrGet _ = getBufferCanRedo attrSet _ = undefined attrConstruct _ = undefined attrClear _ = undefined -- VVV Prop "can-undo" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] -- Nullable: (Nothing,Nothing) getBufferCanUndo :: (MonadIO m, BufferK o) => o -> m Bool getBufferCanUndo obj = liftIO $ getObjectPropertyBool obj "can-undo" data BufferCanUndoPropertyInfo instance AttrInfo BufferCanUndoPropertyInfo where type AttrAllowedOps BufferCanUndoPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint BufferCanUndoPropertyInfo = (~) () type AttrBaseTypeConstraint BufferCanUndoPropertyInfo = BufferK type AttrGetType BufferCanUndoPropertyInfo = Bool type AttrLabel BufferCanUndoPropertyInfo = "can-undo" attrGet _ = getBufferCanUndo attrSet _ = undefined attrConstruct _ = undefined attrClear _ = undefined -- VVV Prop "highlight-matching-brackets" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getBufferHighlightMatchingBrackets :: (MonadIO m, BufferK o) => o -> m Bool getBufferHighlightMatchingBrackets obj = liftIO $ getObjectPropertyBool obj "highlight-matching-brackets" setBufferHighlightMatchingBrackets :: (MonadIO m, BufferK o) => o -> Bool -> m () setBufferHighlightMatchingBrackets obj val = liftIO $ setObjectPropertyBool obj "highlight-matching-brackets" val constructBufferHighlightMatchingBrackets :: Bool -> IO ([Char], GValue) constructBufferHighlightMatchingBrackets val = constructObjectPropertyBool "highlight-matching-brackets" val data BufferHighlightMatchingBracketsPropertyInfo instance AttrInfo BufferHighlightMatchingBracketsPropertyInfo where type AttrAllowedOps BufferHighlightMatchingBracketsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint BufferHighlightMatchingBracketsPropertyInfo = (~) Bool type AttrBaseTypeConstraint BufferHighlightMatchingBracketsPropertyInfo = BufferK type AttrGetType BufferHighlightMatchingBracketsPropertyInfo = Bool type AttrLabel BufferHighlightMatchingBracketsPropertyInfo = "highlight-matching-brackets" attrGet _ = getBufferHighlightMatchingBrackets attrSet _ = setBufferHighlightMatchingBrackets attrConstruct _ = constructBufferHighlightMatchingBrackets attrClear _ = undefined -- VVV Prop "highlight-syntax" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getBufferHighlightSyntax :: (MonadIO m, BufferK o) => o -> m Bool getBufferHighlightSyntax obj = liftIO $ getObjectPropertyBool obj "highlight-syntax" setBufferHighlightSyntax :: (MonadIO m, BufferK o) => o -> Bool -> m () setBufferHighlightSyntax obj val = liftIO $ setObjectPropertyBool obj "highlight-syntax" val constructBufferHighlightSyntax :: Bool -> IO ([Char], GValue) constructBufferHighlightSyntax val = constructObjectPropertyBool "highlight-syntax" val data BufferHighlightSyntaxPropertyInfo instance AttrInfo BufferHighlightSyntaxPropertyInfo where type AttrAllowedOps BufferHighlightSyntaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint BufferHighlightSyntaxPropertyInfo = (~) Bool type AttrBaseTypeConstraint BufferHighlightSyntaxPropertyInfo = BufferK type AttrGetType BufferHighlightSyntaxPropertyInfo = Bool type AttrLabel BufferHighlightSyntaxPropertyInfo = "highlight-syntax" attrGet _ = getBufferHighlightSyntax attrSet _ = setBufferHighlightSyntax attrConstruct _ = constructBufferHighlightSyntax attrClear _ = undefined -- VVV Prop "implicit-trailing-newline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just False,Just False) getBufferImplicitTrailingNewline :: (MonadIO m, BufferK o) => o -> m Bool getBufferImplicitTrailingNewline obj = liftIO $ getObjectPropertyBool obj "implicit-trailing-newline" setBufferImplicitTrailingNewline :: (MonadIO m, BufferK o) => o -> Bool -> m () setBufferImplicitTrailingNewline obj val = liftIO $ setObjectPropertyBool obj "implicit-trailing-newline" val constructBufferImplicitTrailingNewline :: Bool -> IO ([Char], GValue) constructBufferImplicitTrailingNewline val = constructObjectPropertyBool "implicit-trailing-newline" val data BufferImplicitTrailingNewlinePropertyInfo instance AttrInfo BufferImplicitTrailingNewlinePropertyInfo where type AttrAllowedOps BufferImplicitTrailingNewlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint BufferImplicitTrailingNewlinePropertyInfo = (~) Bool type AttrBaseTypeConstraint BufferImplicitTrailingNewlinePropertyInfo = BufferK type AttrGetType BufferImplicitTrailingNewlinePropertyInfo = Bool type AttrLabel BufferImplicitTrailingNewlinePropertyInfo = "implicit-trailing-newline" attrGet _ = getBufferImplicitTrailingNewline attrSet _ = setBufferImplicitTrailingNewline attrConstruct _ = constructBufferImplicitTrailingNewline attrClear _ = undefined -- VVV Prop "language" -- Type: TInterface "GtkSource" "Language" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Just True) getBufferLanguage :: (MonadIO m, BufferK o) => o -> m (Maybe Language) getBufferLanguage obj = liftIO $ getObjectPropertyObject obj "language" Language setBufferLanguage :: (MonadIO m, BufferK o, LanguageK a) => o -> a -> m () setBufferLanguage obj val = liftIO $ setObjectPropertyObject obj "language" (Just val) constructBufferLanguage :: (LanguageK a) => a -> IO ([Char], GValue) constructBufferLanguage val = constructObjectPropertyObject "language" (Just val) clearBufferLanguage :: (MonadIO m, BufferK o) => o -> m () clearBufferLanguage obj = liftIO $ setObjectPropertyObject obj "language" (Nothing :: Maybe Language) data BufferLanguagePropertyInfo instance AttrInfo BufferLanguagePropertyInfo where type AttrAllowedOps BufferLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint BufferLanguagePropertyInfo = LanguageK type AttrBaseTypeConstraint BufferLanguagePropertyInfo = BufferK type AttrGetType BufferLanguagePropertyInfo = (Maybe Language) type AttrLabel BufferLanguagePropertyInfo = "language" attrGet _ = getBufferLanguage attrSet _ = setBufferLanguage attrConstruct _ = constructBufferLanguage attrClear _ = clearBufferLanguage -- VVV Prop "max-undo-levels" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getBufferMaxUndoLevels :: (MonadIO m, BufferK o) => o -> m Int32 getBufferMaxUndoLevels obj = liftIO $ getObjectPropertyInt32 obj "max-undo-levels" setBufferMaxUndoLevels :: (MonadIO m, BufferK o) => o -> Int32 -> m () setBufferMaxUndoLevels obj val = liftIO $ setObjectPropertyInt32 obj "max-undo-levels" val constructBufferMaxUndoLevels :: Int32 -> IO ([Char], GValue) constructBufferMaxUndoLevels val = constructObjectPropertyInt32 "max-undo-levels" val data BufferMaxUndoLevelsPropertyInfo instance AttrInfo BufferMaxUndoLevelsPropertyInfo where type AttrAllowedOps BufferMaxUndoLevelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint BufferMaxUndoLevelsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint BufferMaxUndoLevelsPropertyInfo = BufferK type AttrGetType BufferMaxUndoLevelsPropertyInfo = Int32 type AttrLabel BufferMaxUndoLevelsPropertyInfo = "max-undo-levels" attrGet _ = getBufferMaxUndoLevels attrSet _ = setBufferMaxUndoLevels attrConstruct _ = constructBufferMaxUndoLevels attrClear _ = undefined -- VVV Prop "style-scheme" -- Type: TInterface "GtkSource" "StyleScheme" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Just True) getBufferStyleScheme :: (MonadIO m, BufferK o) => o -> m (Maybe StyleScheme) getBufferStyleScheme obj = liftIO $ getObjectPropertyObject obj "style-scheme" StyleScheme setBufferStyleScheme :: (MonadIO m, BufferK o, StyleSchemeK a) => o -> a -> m () setBufferStyleScheme obj val = liftIO $ setObjectPropertyObject obj "style-scheme" (Just val) constructBufferStyleScheme :: (StyleSchemeK a) => a -> IO ([Char], GValue) constructBufferStyleScheme val = constructObjectPropertyObject "style-scheme" (Just val) clearBufferStyleScheme :: (MonadIO m, BufferK o) => o -> m () clearBufferStyleScheme obj = liftIO $ setObjectPropertyObject obj "style-scheme" (Nothing :: Maybe StyleScheme) data BufferStyleSchemePropertyInfo instance AttrInfo BufferStyleSchemePropertyInfo where type AttrAllowedOps BufferStyleSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint BufferStyleSchemePropertyInfo = StyleSchemeK type AttrBaseTypeConstraint BufferStyleSchemePropertyInfo = BufferK type AttrGetType BufferStyleSchemePropertyInfo = (Maybe StyleScheme) type AttrLabel BufferStyleSchemePropertyInfo = "style-scheme" attrGet _ = getBufferStyleScheme attrSet _ = setBufferStyleScheme attrConstruct _ = constructBufferStyleScheme attrClear _ = clearBufferStyleScheme -- VVV Prop "undo-manager" -- Type: TInterface "GtkSource" "UndoManager" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] -- Nullable: (Just True,Just True) getBufferUndoManager :: (MonadIO m, BufferK o) => o -> m (Maybe UndoManager) getBufferUndoManager obj = liftIO $ getObjectPropertyObject obj "undo-manager" UndoManager setBufferUndoManager :: (MonadIO m, BufferK o, UndoManagerK a) => o -> a -> m () setBufferUndoManager obj val = liftIO $ setObjectPropertyObject obj "undo-manager" (Just val) constructBufferUndoManager :: (UndoManagerK a) => a -> IO ([Char], GValue) constructBufferUndoManager val = constructObjectPropertyObject "undo-manager" (Just val) clearBufferUndoManager :: (MonadIO m, BufferK o) => o -> m () clearBufferUndoManager obj = liftIO $ setObjectPropertyObject obj "undo-manager" (Nothing :: Maybe UndoManager) data BufferUndoManagerPropertyInfo instance AttrInfo BufferUndoManagerPropertyInfo where type AttrAllowedOps BufferUndoManagerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint BufferUndoManagerPropertyInfo = UndoManagerK type AttrBaseTypeConstraint BufferUndoManagerPropertyInfo = BufferK type AttrGetType BufferUndoManagerPropertyInfo = (Maybe UndoManager) type AttrLabel BufferUndoManagerPropertyInfo = "undo-manager" attrGet _ = getBufferUndoManager attrSet _ = setBufferUndoManager attrConstruct _ = constructBufferUndoManager attrClear _ = clearBufferUndoManager type instance AttributeList Buffer = BufferAttributeList type BufferAttributeList = ('[ '("canRedo", BufferCanRedoPropertyInfo), '("canUndo", BufferCanUndoPropertyInfo), '("copyTargetList", Gtk.TextBufferCopyTargetListPropertyInfo), '("cursorPosition", Gtk.TextBufferCursorPositionPropertyInfo), '("hasSelection", Gtk.TextBufferHasSelectionPropertyInfo), '("highlightMatchingBrackets", BufferHighlightMatchingBracketsPropertyInfo), '("highlightSyntax", BufferHighlightSyntaxPropertyInfo), '("implicitTrailingNewline", BufferImplicitTrailingNewlinePropertyInfo), '("language", BufferLanguagePropertyInfo), '("maxUndoLevels", BufferMaxUndoLevelsPropertyInfo), '("pasteTargetList", Gtk.TextBufferPasteTargetListPropertyInfo), '("styleScheme", BufferStyleSchemePropertyInfo), '("tagTable", Gtk.TextBufferTagTablePropertyInfo), '("text", Gtk.TextBufferTextPropertyInfo), '("undoManager", BufferUndoManagerPropertyInfo)] :: [(Symbol, *)]) 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 data BufferBracketMatchedSignalInfo instance SignalInfo BufferBracketMatchedSignalInfo where type HaskellCallbackType BufferBracketMatchedSignalInfo = BufferBracketMatchedCallback connectSignal _ = connectBufferBracketMatched data BufferHighlightUpdatedSignalInfo instance SignalInfo BufferHighlightUpdatedSignalInfo where type HaskellCallbackType BufferHighlightUpdatedSignalInfo = BufferHighlightUpdatedCallback connectSignal _ = connectBufferHighlightUpdated data BufferRedoSignalInfo instance SignalInfo BufferRedoSignalInfo where type HaskellCallbackType BufferRedoSignalInfo = BufferRedoCallback connectSignal _ = connectBufferRedo data BufferSourceMarkUpdatedSignalInfo instance SignalInfo BufferSourceMarkUpdatedSignalInfo where type HaskellCallbackType BufferSourceMarkUpdatedSignalInfo = BufferSourceMarkUpdatedCallback connectSignal _ = connectBufferSourceMarkUpdated data BufferUndoSignalInfo instance SignalInfo BufferUndoSignalInfo where type HaskellCallbackType BufferUndoSignalInfo = BufferUndoCallback connectSignal _ = connectBufferUndo type instance SignalList Buffer = BufferSignalList type BufferSignalList = ('[ '("applyTag", Gtk.TextBufferApplyTagSignalInfo), '("beginUserAction", Gtk.TextBufferBeginUserActionSignalInfo), '("bracketMatched", BufferBracketMatchedSignalInfo), '("changed", Gtk.TextBufferChangedSignalInfo), '("deleteRange", Gtk.TextBufferDeleteRangeSignalInfo), '("endUserAction", Gtk.TextBufferEndUserActionSignalInfo), '("highlightUpdated", BufferHighlightUpdatedSignalInfo), '("insertChildAnchor", Gtk.TextBufferInsertChildAnchorSignalInfo), '("insertPixbuf", Gtk.TextBufferInsertPixbufSignalInfo), '("insertText", Gtk.TextBufferInsertTextSignalInfo), '("markDeleted", Gtk.TextBufferMarkDeletedSignalInfo), '("markSet", Gtk.TextBufferMarkSetSignalInfo), '("modifiedChanged", Gtk.TextBufferModifiedChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pasteDone", Gtk.TextBufferPasteDoneSignalInfo), '("redo", BufferRedoSignalInfo), '("removeTag", Gtk.TextBufferRemoveTagSignalInfo), '("sourceMarkUpdated", BufferSourceMarkUpdatedSignalInfo), '("undo", BufferUndoSignalInfo)] :: [(Symbol, *)]) -- method Buffer::new -- method type : Constructor -- Args : [Arg {argCName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "GtkSource" "Buffer") -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_new" gtk_source_buffer_new :: Ptr Gtk.TextTagTable -> -- table : TInterface "Gtk" "TextTagTable" IO (Ptr Buffer) bufferNew :: (MonadIO m, Gtk.TextTagTableK a) => Maybe (a) -- table -> m Buffer -- result bufferNew table = liftIO $ do maybeTable <- case table of Nothing -> return nullPtr Just jTable -> do let jTable' = unsafeManagedPtrCastPtr jTable return jTable' result <- gtk_source_buffer_new maybeTable checkUnexpectedReturnNULL "gtk_source_buffer_new" result result' <- (wrapObject Buffer) result whenJust table touchManagedPtr return result' -- method Buffer::new_with_language -- method type : Constructor -- Args : [Arg {argCName = "language", argType = TInterface "GtkSource" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "GtkSource" "Buffer") -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_new_with_language" gtk_source_buffer_new_with_language :: Ptr Language -> -- language : TInterface "GtkSource" "Language" IO (Ptr Buffer) bufferNewWithLanguage :: (MonadIO m, LanguageK a) => a -- language -> m Buffer -- result bufferNewWithLanguage language = liftIO $ do let language' = unsafeManagedPtrCastPtr language result <- gtk_source_buffer_new_with_language language' checkUnexpectedReturnNULL "gtk_source_buffer_new_with_language" result result' <- (wrapObject Buffer) result touchManagedPtr language return result' -- method Buffer::backward_iter_to_source_mark -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_backward_iter_to_source_mark" gtk_source_buffer_backward_iter_to_source_mark :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- category : TBasicType TUTF8 IO CInt bufferBackwardIterToSourceMark :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- iter -> Maybe (T.Text) -- category -> m Bool -- result bufferBackwardIterToSourceMark _obj iter category = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let 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 _obj' iter' maybeCategory let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr iter freeMem maybeCategory return result' data BufferBackwardIterToSourceMarkMethodInfo instance (signature ~ (Gtk.TextIter -> Maybe (T.Text) -> m Bool), MonadIO m, BufferK a) => MethodInfo BufferBackwardIterToSourceMarkMethodInfo a signature where overloadedMethod _ = bufferBackwardIterToSourceMark -- method Buffer::begin_not_undoable_action -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_begin_not_undoable_action" gtk_source_buffer_begin_not_undoable_action :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO () bufferBeginNotUndoableAction :: (MonadIO m, BufferK a) => a -- _obj -> m () -- result bufferBeginNotUndoableAction _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_source_buffer_begin_not_undoable_action _obj' touchManagedPtr _obj return () data BufferBeginNotUndoableActionMethodInfo instance (signature ~ (m ()), MonadIO m, BufferK a) => MethodInfo BufferBeginNotUndoableActionMethodInfo a signature where overloadedMethod _ = bufferBeginNotUndoableAction -- method Buffer::can_redo -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_can_redo" gtk_source_buffer_can_redo :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO CInt bufferCanRedo :: (MonadIO m, BufferK a) => a -- _obj -> m Bool -- result bufferCanRedo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_can_redo _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data BufferCanRedoMethodInfo instance (signature ~ (m Bool), MonadIO m, BufferK a) => MethodInfo BufferCanRedoMethodInfo a signature where overloadedMethod _ = bufferCanRedo -- method Buffer::can_undo -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_can_undo" gtk_source_buffer_can_undo :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO CInt bufferCanUndo :: (MonadIO m, BufferK a) => a -- _obj -> m Bool -- result bufferCanUndo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_can_undo _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data BufferCanUndoMethodInfo instance (signature ~ (m Bool), MonadIO m, BufferK a) => MethodInfo BufferCanUndoMethodInfo a signature where overloadedMethod _ = bufferCanUndo -- method Buffer::change_case -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "case_type", argType = TInterface "GtkSource" "ChangeCaseType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_change_case" gtk_source_buffer_change_case :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" CUInt -> -- case_type : TInterface "GtkSource" "ChangeCaseType" Ptr Gtk.TextIter -> -- start : TInterface "Gtk" "TextIter" Ptr Gtk.TextIter -> -- end : TInterface "Gtk" "TextIter" IO () bufferChangeCase :: (MonadIO m, BufferK a) => a -- _obj -> ChangeCaseType -- caseType -> Gtk.TextIter -- start -> Gtk.TextIter -- end -> m () -- result bufferChangeCase _obj caseType start end = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let caseType' = (fromIntegral . fromEnum) caseType let start' = unsafeManagedPtrGetPtr start let end' = unsafeManagedPtrGetPtr end gtk_source_buffer_change_case _obj' caseType' start' end' touchManagedPtr _obj touchManagedPtr start touchManagedPtr end return () data BufferChangeCaseMethodInfo instance (signature ~ (ChangeCaseType -> Gtk.TextIter -> Gtk.TextIter -> m ()), MonadIO m, BufferK a) => MethodInfo BufferChangeCaseMethodInfo a signature where overloadedMethod _ = bufferChangeCase -- method Buffer::create_source_mark -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "GtkSource" "Mark") -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_create_source_mark" gtk_source_buffer_create_source_mark :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" CString -> -- name : TBasicType TUTF8 CString -> -- category : TBasicType TUTF8 Ptr Gtk.TextIter -> -- where : TInterface "Gtk" "TextIter" IO (Ptr Mark) bufferCreateSourceMark :: (MonadIO m, BufferK a) => a -- _obj -> Maybe (T.Text) -- name -> T.Text -- category -> Gtk.TextIter -- where_ -> m Mark -- result bufferCreateSourceMark _obj name category where_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeName <- case name of Nothing -> return nullPtr Just jName -> do jName' <- textToCString jName return jName' category' <- textToCString category let where_' = unsafeManagedPtrGetPtr where_ result <- gtk_source_buffer_create_source_mark _obj' maybeName category' where_' checkUnexpectedReturnNULL "gtk_source_buffer_create_source_mark" result result' <- (newObject Mark) result touchManagedPtr _obj touchManagedPtr where_ freeMem maybeName freeMem category' return result' data BufferCreateSourceMarkMethodInfo instance (signature ~ (Maybe (T.Text) -> T.Text -> Gtk.TextIter -> m Mark), MonadIO m, BufferK a) => MethodInfo BufferCreateSourceMarkMethodInfo a signature where overloadedMethod _ = bufferCreateSourceMark -- method Buffer::end_not_undoable_action -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_end_not_undoable_action" gtk_source_buffer_end_not_undoable_action :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO () bufferEndNotUndoableAction :: (MonadIO m, BufferK a) => a -- _obj -> m () -- result bufferEndNotUndoableAction _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_source_buffer_end_not_undoable_action _obj' touchManagedPtr _obj return () data BufferEndNotUndoableActionMethodInfo instance (signature ~ (m ()), MonadIO m, BufferK a) => MethodInfo BufferEndNotUndoableActionMethodInfo a signature where overloadedMethod _ = bufferEndNotUndoableAction -- method Buffer::ensure_highlight -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_ensure_highlight" gtk_source_buffer_ensure_highlight :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- start : TInterface "Gtk" "TextIter" Ptr Gtk.TextIter -> -- end : TInterface "Gtk" "TextIter" IO () bufferEnsureHighlight :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- start -> Gtk.TextIter -- end -> m () -- result bufferEnsureHighlight _obj start end = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let start' = unsafeManagedPtrGetPtr start let end' = unsafeManagedPtrGetPtr end gtk_source_buffer_ensure_highlight _obj' start' end' touchManagedPtr _obj touchManagedPtr start touchManagedPtr end return () data BufferEnsureHighlightMethodInfo instance (signature ~ (Gtk.TextIter -> Gtk.TextIter -> m ()), MonadIO m, BufferK a) => MethodInfo BufferEnsureHighlightMethodInfo a signature where overloadedMethod _ = bufferEnsureHighlight -- method Buffer::forward_iter_to_source_mark -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_forward_iter_to_source_mark" gtk_source_buffer_forward_iter_to_source_mark :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- category : TBasicType TUTF8 IO CInt bufferForwardIterToSourceMark :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- iter -> Maybe (T.Text) -- category -> m Bool -- result bufferForwardIterToSourceMark _obj iter category = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let 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 _obj' iter' maybeCategory let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr iter freeMem maybeCategory return result' data BufferForwardIterToSourceMarkMethodInfo instance (signature ~ (Gtk.TextIter -> Maybe (T.Text) -> m Bool), MonadIO m, BufferK a) => MethodInfo BufferForwardIterToSourceMarkMethodInfo a signature where overloadedMethod _ = bufferForwardIterToSourceMark -- method Buffer::get_context_classes_at_iter -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_context_classes_at_iter" gtk_source_buffer_get_context_classes_at_iter :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter" IO (Ptr CString) bufferGetContextClassesAtIter :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- iter -> m [T.Text] -- result bufferGetContextClassesAtIter _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter result <- gtk_source_buffer_get_context_classes_at_iter _obj' iter' checkUnexpectedReturnNULL "gtk_source_buffer_get_context_classes_at_iter" result result' <- unpackZeroTerminatedUTF8CArray result mapZeroTerminatedCArray freeMem result freeMem result touchManagedPtr _obj touchManagedPtr iter return result' data BufferGetContextClassesAtIterMethodInfo instance (signature ~ (Gtk.TextIter -> m [T.Text]), MonadIO m, BufferK a) => MethodInfo BufferGetContextClassesAtIterMethodInfo a signature where overloadedMethod _ = bufferGetContextClassesAtIter -- method Buffer::get_highlight_matching_brackets -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_highlight_matching_brackets" gtk_source_buffer_get_highlight_matching_brackets :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO CInt bufferGetHighlightMatchingBrackets :: (MonadIO m, BufferK a) => a -- _obj -> m Bool -- result bufferGetHighlightMatchingBrackets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_get_highlight_matching_brackets _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data BufferGetHighlightMatchingBracketsMethodInfo instance (signature ~ (m Bool), MonadIO m, BufferK a) => MethodInfo BufferGetHighlightMatchingBracketsMethodInfo a signature where overloadedMethod _ = bufferGetHighlightMatchingBrackets -- method Buffer::get_highlight_syntax -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_highlight_syntax" gtk_source_buffer_get_highlight_syntax :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO CInt bufferGetHighlightSyntax :: (MonadIO m, BufferK a) => a -- _obj -> m Bool -- result bufferGetHighlightSyntax _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_get_highlight_syntax _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data BufferGetHighlightSyntaxMethodInfo instance (signature ~ (m Bool), MonadIO m, BufferK a) => MethodInfo BufferGetHighlightSyntaxMethodInfo a signature where overloadedMethod _ = bufferGetHighlightSyntax -- method Buffer::get_implicit_trailing_newline -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_implicit_trailing_newline" gtk_source_buffer_get_implicit_trailing_newline :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO CInt bufferGetImplicitTrailingNewline :: (MonadIO m, BufferK a) => a -- _obj -> m Bool -- result bufferGetImplicitTrailingNewline _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_get_implicit_trailing_newline _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data BufferGetImplicitTrailingNewlineMethodInfo instance (signature ~ (m Bool), MonadIO m, BufferK a) => MethodInfo BufferGetImplicitTrailingNewlineMethodInfo a signature where overloadedMethod _ = bufferGetImplicitTrailingNewline -- method Buffer::get_language -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "GtkSource" "Language") -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_language" gtk_source_buffer_get_language :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO (Ptr Language) bufferGetLanguage :: (MonadIO m, BufferK a) => a -- _obj -> m (Maybe Language) -- result bufferGetLanguage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_get_language _obj' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Language) result' return result'' touchManagedPtr _obj return maybeResult data BufferGetLanguageMethodInfo instance (signature ~ (m (Maybe Language)), MonadIO m, BufferK a) => MethodInfo BufferGetLanguageMethodInfo a signature where overloadedMethod _ = bufferGetLanguage -- method Buffer::get_max_undo_levels -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_max_undo_levels" gtk_source_buffer_get_max_undo_levels :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO Int32 bufferGetMaxUndoLevels :: (MonadIO m, BufferK a) => a -- _obj -> m Int32 -- result bufferGetMaxUndoLevels _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_get_max_undo_levels _obj' touchManagedPtr _obj return result data BufferGetMaxUndoLevelsMethodInfo instance (signature ~ (m Int32), MonadIO m, BufferK a) => MethodInfo BufferGetMaxUndoLevelsMethodInfo a signature where overloadedMethod _ = bufferGetMaxUndoLevels -- method Buffer::get_source_marks_at_iter -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TGSList (TInterface "GtkSource" "Mark")) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_source_marks_at_iter" gtk_source_buffer_get_source_marks_at_iter :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- category : TBasicType TUTF8 IO (Ptr (GSList (Ptr Mark))) bufferGetSourceMarksAtIter :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- iter -> Maybe (T.Text) -- category -> m [Mark] -- result bufferGetSourceMarksAtIter _obj iter category = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let 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 _obj' iter' maybeCategory result' <- unpackGSList result result'' <- mapM (newObject Mark) result' g_slist_free result touchManagedPtr _obj touchManagedPtr iter freeMem maybeCategory return result'' data BufferGetSourceMarksAtIterMethodInfo instance (signature ~ (Gtk.TextIter -> Maybe (T.Text) -> m [Mark]), MonadIO m, BufferK a) => MethodInfo BufferGetSourceMarksAtIterMethodInfo a signature where overloadedMethod _ = bufferGetSourceMarksAtIter -- method Buffer::get_source_marks_at_line -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TGSList (TInterface "GtkSource" "Mark")) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_source_marks_at_line" gtk_source_buffer_get_source_marks_at_line :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Int32 -> -- line : TBasicType TInt CString -> -- category : TBasicType TUTF8 IO (Ptr (GSList (Ptr Mark))) bufferGetSourceMarksAtLine :: (MonadIO m, BufferK a) => a -- _obj -> Int32 -- line -> Maybe (T.Text) -- category -> m [Mark] -- result bufferGetSourceMarksAtLine _obj line category = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCategory <- case category of Nothing -> return nullPtr Just jCategory -> do jCategory' <- textToCString jCategory return jCategory' result <- gtk_source_buffer_get_source_marks_at_line _obj' line maybeCategory result' <- unpackGSList result result'' <- mapM (newObject Mark) result' g_slist_free result touchManagedPtr _obj freeMem maybeCategory return result'' data BufferGetSourceMarksAtLineMethodInfo instance (signature ~ (Int32 -> Maybe (T.Text) -> m [Mark]), MonadIO m, BufferK a) => MethodInfo BufferGetSourceMarksAtLineMethodInfo a signature where overloadedMethod _ = bufferGetSourceMarksAtLine -- method Buffer::get_style_scheme -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "GtkSource" "StyleScheme") -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_style_scheme" gtk_source_buffer_get_style_scheme :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO (Ptr StyleScheme) bufferGetStyleScheme :: (MonadIO m, BufferK a) => a -- _obj -> m (Maybe StyleScheme) -- result bufferGetStyleScheme _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_get_style_scheme _obj' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject StyleScheme) result' return result'' touchManagedPtr _obj return maybeResult data BufferGetStyleSchemeMethodInfo instance (signature ~ (m (Maybe StyleScheme)), MonadIO m, BufferK a) => MethodInfo BufferGetStyleSchemeMethodInfo a signature where overloadedMethod _ = bufferGetStyleScheme -- method Buffer::get_undo_manager -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "GtkSource" "UndoManager") -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_get_undo_manager" gtk_source_buffer_get_undo_manager :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO (Ptr UndoManager) bufferGetUndoManager :: (MonadIO m, BufferK a) => a -- _obj -> m (Maybe UndoManager) -- result bufferGetUndoManager _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_source_buffer_get_undo_manager _obj' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject UndoManager) result' return result'' touchManagedPtr _obj return maybeResult data BufferGetUndoManagerMethodInfo instance (signature ~ (m (Maybe UndoManager)), MonadIO m, BufferK a) => MethodInfo BufferGetUndoManagerMethodInfo a signature where overloadedMethod _ = bufferGetUndoManager -- method Buffer::iter_backward_to_context_class_toggle -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "context_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_iter_backward_to_context_class_toggle" gtk_source_buffer_iter_backward_to_context_class_toggle :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- context_class : TBasicType TUTF8 IO CInt bufferIterBackwardToContextClassToggle :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- iter -> T.Text -- contextClass -> m (Bool,Gtk.TextIter) -- result bufferIterBackwardToContextClassToggle _obj iter contextClass = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter' <- copyBoxed iter iter'' <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter) memcpy iter'' iter' 80 contextClass' <- textToCString contextClass result <- gtk_source_buffer_iter_backward_to_context_class_toggle _obj' iter'' contextClass' let result' = (/= 0) result iter''' <- (wrapBoxed Gtk.TextIter) iter'' touchManagedPtr _obj touchManagedPtr iter freeMem contextClass' return (result', iter''') data BufferIterBackwardToContextClassToggleMethodInfo instance (signature ~ (Gtk.TextIter -> T.Text -> m (Bool,Gtk.TextIter)), MonadIO m, BufferK a) => MethodInfo BufferIterBackwardToContextClassToggleMethodInfo a signature where overloadedMethod _ = bufferIterBackwardToContextClassToggle -- method Buffer::iter_forward_to_context_class_toggle -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "context_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_iter_forward_to_context_class_toggle" gtk_source_buffer_iter_forward_to_context_class_toggle :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- context_class : TBasicType TUTF8 IO CInt bufferIterForwardToContextClassToggle :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- iter -> T.Text -- contextClass -> m (Bool,Gtk.TextIter) -- result bufferIterForwardToContextClassToggle _obj iter contextClass = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter' <- copyBoxed iter iter'' <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter) memcpy iter'' iter' 80 contextClass' <- textToCString contextClass result <- gtk_source_buffer_iter_forward_to_context_class_toggle _obj' iter'' contextClass' let result' = (/= 0) result iter''' <- (wrapBoxed Gtk.TextIter) iter'' touchManagedPtr _obj touchManagedPtr iter freeMem contextClass' return (result', iter''') data BufferIterForwardToContextClassToggleMethodInfo instance (signature ~ (Gtk.TextIter -> T.Text -> m (Bool,Gtk.TextIter)), MonadIO m, BufferK a) => MethodInfo BufferIterForwardToContextClassToggleMethodInfo a signature where overloadedMethod _ = bufferIterForwardToContextClassToggle -- method Buffer::iter_has_context_class -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_iter_has_context_class" gtk_source_buffer_iter_has_context_class :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- context_class : TBasicType TUTF8 IO CInt bufferIterHasContextClass :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- iter -> T.Text -- contextClass -> m Bool -- result bufferIterHasContextClass _obj iter contextClass = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter contextClass' <- textToCString contextClass result <- gtk_source_buffer_iter_has_context_class _obj' iter' contextClass' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr iter freeMem contextClass' return result' data BufferIterHasContextClassMethodInfo instance (signature ~ (Gtk.TextIter -> T.Text -> m Bool), MonadIO m, BufferK a) => MethodInfo BufferIterHasContextClassMethodInfo a signature where overloadedMethod _ = bufferIterHasContextClass -- method Buffer::join_lines -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_join_lines" gtk_source_buffer_join_lines :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- start : TInterface "Gtk" "TextIter" Ptr Gtk.TextIter -> -- end : TInterface "Gtk" "TextIter" IO () bufferJoinLines :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- start -> Gtk.TextIter -- end -> m () -- result bufferJoinLines _obj start end = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let start' = unsafeManagedPtrGetPtr start let end' = unsafeManagedPtrGetPtr end gtk_source_buffer_join_lines _obj' start' end' touchManagedPtr _obj touchManagedPtr start touchManagedPtr end return () data BufferJoinLinesMethodInfo instance (signature ~ (Gtk.TextIter -> Gtk.TextIter -> m ()), MonadIO m, BufferK a) => MethodInfo BufferJoinLinesMethodInfo a signature where overloadedMethod _ = bufferJoinLines -- method Buffer::redo -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_redo" gtk_source_buffer_redo :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO () bufferRedo :: (MonadIO m, BufferK a) => a -- _obj -> m () -- result bufferRedo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_source_buffer_redo _obj' touchManagedPtr _obj return () data BufferRedoMethodInfo instance (signature ~ (m ()), MonadIO m, BufferK a) => MethodInfo BufferRedoMethodInfo a signature where overloadedMethod _ = bufferRedo -- method Buffer::remove_source_marks -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_remove_source_marks" gtk_source_buffer_remove_source_marks :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- start : TInterface "Gtk" "TextIter" Ptr Gtk.TextIter -> -- end : TInterface "Gtk" "TextIter" CString -> -- category : TBasicType TUTF8 IO () bufferRemoveSourceMarks :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- start -> Gtk.TextIter -- end -> Maybe (T.Text) -- category -> m () -- result bufferRemoveSourceMarks _obj start end category = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let start' = unsafeManagedPtrGetPtr start let end' = unsafeManagedPtrGetPtr end maybeCategory <- case category of Nothing -> return nullPtr Just jCategory -> do jCategory' <- textToCString jCategory return jCategory' gtk_source_buffer_remove_source_marks _obj' start' end' maybeCategory touchManagedPtr _obj touchManagedPtr start touchManagedPtr end freeMem maybeCategory return () data BufferRemoveSourceMarksMethodInfo instance (signature ~ (Gtk.TextIter -> Gtk.TextIter -> Maybe (T.Text) -> m ()), MonadIO m, BufferK a) => MethodInfo BufferRemoveSourceMarksMethodInfo a signature where overloadedMethod _ = bufferRemoveSourceMarks -- method Buffer::set_highlight_matching_brackets -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "highlight", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_set_highlight_matching_brackets" gtk_source_buffer_set_highlight_matching_brackets :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" CInt -> -- highlight : TBasicType TBoolean IO () bufferSetHighlightMatchingBrackets :: (MonadIO m, BufferK a) => a -- _obj -> Bool -- highlight -> m () -- result bufferSetHighlightMatchingBrackets _obj highlight = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let highlight' = (fromIntegral . fromEnum) highlight gtk_source_buffer_set_highlight_matching_brackets _obj' highlight' touchManagedPtr _obj return () data BufferSetHighlightMatchingBracketsMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, BufferK a) => MethodInfo BufferSetHighlightMatchingBracketsMethodInfo a signature where overloadedMethod _ = bufferSetHighlightMatchingBrackets -- method Buffer::set_highlight_syntax -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "highlight", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_set_highlight_syntax" gtk_source_buffer_set_highlight_syntax :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" CInt -> -- highlight : TBasicType TBoolean IO () bufferSetHighlightSyntax :: (MonadIO m, BufferK a) => a -- _obj -> Bool -- highlight -> m () -- result bufferSetHighlightSyntax _obj highlight = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let highlight' = (fromIntegral . fromEnum) highlight gtk_source_buffer_set_highlight_syntax _obj' highlight' touchManagedPtr _obj return () data BufferSetHighlightSyntaxMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, BufferK a) => MethodInfo BufferSetHighlightSyntaxMethodInfo a signature where overloadedMethod _ = bufferSetHighlightSyntax -- method Buffer::set_implicit_trailing_newline -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "implicit_trailing_newline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_set_implicit_trailing_newline" gtk_source_buffer_set_implicit_trailing_newline :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" CInt -> -- implicit_trailing_newline : TBasicType TBoolean IO () bufferSetImplicitTrailingNewline :: (MonadIO m, BufferK a) => a -- _obj -> Bool -- implicitTrailingNewline -> m () -- result bufferSetImplicitTrailingNewline _obj implicitTrailingNewline = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let implicitTrailingNewline' = (fromIntegral . fromEnum) implicitTrailingNewline gtk_source_buffer_set_implicit_trailing_newline _obj' implicitTrailingNewline' touchManagedPtr _obj return () data BufferSetImplicitTrailingNewlineMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, BufferK a) => MethodInfo BufferSetImplicitTrailingNewlineMethodInfo a signature where overloadedMethod _ = bufferSetImplicitTrailingNewline -- method Buffer::set_language -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "GtkSource" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_set_language" gtk_source_buffer_set_language :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Language -> -- language : TInterface "GtkSource" "Language" IO () bufferSetLanguage :: (MonadIO m, BufferK a, LanguageK b) => a -- _obj -> Maybe (b) -- language -> m () -- result bufferSetLanguage _obj language = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLanguage <- case language of Nothing -> return nullPtr Just jLanguage -> do let jLanguage' = unsafeManagedPtrCastPtr jLanguage return jLanguage' gtk_source_buffer_set_language _obj' maybeLanguage touchManagedPtr _obj whenJust language touchManagedPtr return () data BufferSetLanguageMethodInfo instance (signature ~ (Maybe (b) -> m ()), MonadIO m, BufferK a, LanguageK b) => MethodInfo BufferSetLanguageMethodInfo a signature where overloadedMethod _ = bufferSetLanguage -- method Buffer::set_max_undo_levels -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_undo_levels", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_set_max_undo_levels" gtk_source_buffer_set_max_undo_levels :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Int32 -> -- max_undo_levels : TBasicType TInt IO () bufferSetMaxUndoLevels :: (MonadIO m, BufferK a) => a -- _obj -> Int32 -- maxUndoLevels -> m () -- result bufferSetMaxUndoLevels _obj maxUndoLevels = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_source_buffer_set_max_undo_levels _obj' maxUndoLevels touchManagedPtr _obj return () data BufferSetMaxUndoLevelsMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, BufferK a) => MethodInfo BufferSetMaxUndoLevelsMethodInfo a signature where overloadedMethod _ = bufferSetMaxUndoLevels -- method Buffer::set_style_scheme -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TInterface "GtkSource" "StyleScheme", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_set_style_scheme" gtk_source_buffer_set_style_scheme :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr StyleScheme -> -- scheme : TInterface "GtkSource" "StyleScheme" IO () bufferSetStyleScheme :: (MonadIO m, BufferK a, StyleSchemeK b) => a -- _obj -> Maybe (b) -- scheme -> m () -- result bufferSetStyleScheme _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeScheme <- case scheme of Nothing -> return nullPtr Just jScheme -> do let jScheme' = unsafeManagedPtrCastPtr jScheme return jScheme' gtk_source_buffer_set_style_scheme _obj' maybeScheme touchManagedPtr _obj whenJust scheme touchManagedPtr return () data BufferSetStyleSchemeMethodInfo instance (signature ~ (Maybe (b) -> m ()), MonadIO m, BufferK a, StyleSchemeK b) => MethodInfo BufferSetStyleSchemeMethodInfo a signature where overloadedMethod _ = bufferSetStyleScheme -- method Buffer::set_undo_manager -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "manager", argType = TInterface "GtkSource" "UndoManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_set_undo_manager" gtk_source_buffer_set_undo_manager :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr UndoManager -> -- manager : TInterface "GtkSource" "UndoManager" IO () bufferSetUndoManager :: (MonadIO m, BufferK a, UndoManagerK b) => a -- _obj -> Maybe (b) -- manager -> m () -- result bufferSetUndoManager _obj manager = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeManager <- case manager of Nothing -> return nullPtr Just jManager -> do let jManager' = unsafeManagedPtrCastPtr jManager return jManager' gtk_source_buffer_set_undo_manager _obj' maybeManager touchManagedPtr _obj whenJust manager touchManagedPtr return () data BufferSetUndoManagerMethodInfo instance (signature ~ (Maybe (b) -> m ()), MonadIO m, BufferK a, UndoManagerK b) => MethodInfo BufferSetUndoManagerMethodInfo a signature where overloadedMethod _ = bufferSetUndoManager -- method Buffer::sort_lines -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GtkSource" "SortFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_sort_lines" gtk_source_buffer_sort_lines :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" Ptr Gtk.TextIter -> -- start : TInterface "Gtk" "TextIter" Ptr Gtk.TextIter -> -- end : TInterface "Gtk" "TextIter" CUInt -> -- flags : TInterface "GtkSource" "SortFlags" Int32 -> -- column : TBasicType TInt IO () bufferSortLines :: (MonadIO m, BufferK a) => a -- _obj -> Gtk.TextIter -- start -> Gtk.TextIter -- end -> [SortFlags] -- flags -> Int32 -- column -> m () -- result bufferSortLines _obj start end flags column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let start' = unsafeManagedPtrGetPtr start let end' = unsafeManagedPtrGetPtr end let flags' = gflagsToWord flags gtk_source_buffer_sort_lines _obj' start' end' flags' column touchManagedPtr _obj touchManagedPtr start touchManagedPtr end return () data BufferSortLinesMethodInfo instance (signature ~ (Gtk.TextIter -> Gtk.TextIter -> [SortFlags] -> Int32 -> m ()), MonadIO m, BufferK a) => MethodInfo BufferSortLinesMethodInfo a signature where overloadedMethod _ = bufferSortLines -- method Buffer::undo -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_source_buffer_undo" gtk_source_buffer_undo :: Ptr Buffer -> -- _obj : TInterface "GtkSource" "Buffer" IO () bufferUndo :: (MonadIO m, BufferK a) => a -- _obj -> m () -- result bufferUndo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_source_buffer_undo _obj' touchManagedPtr _obj return () data BufferUndoMethodInfo instance (signature ~ (m ()), MonadIO m, BufferK a) => MethodInfo BufferUndoMethodInfo a signature where overloadedMethod _ = bufferUndo