#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.Completion
(
Completion(..) ,
IsCompletion ,
toCompletion ,
noCompletion ,
#if ENABLE_OVERLOADING
CompletionAddProviderMethodInfo ,
#endif
completionAddProvider ,
#if ENABLE_OVERLOADING
CompletionBlockInteractiveMethodInfo ,
#endif
completionBlockInteractive ,
#if ENABLE_OVERLOADING
CompletionCreateContextMethodInfo ,
#endif
completionCreateContext ,
#if ENABLE_OVERLOADING
CompletionGetInfoWindowMethodInfo ,
#endif
completionGetInfoWindow ,
#if ENABLE_OVERLOADING
CompletionGetProvidersMethodInfo ,
#endif
completionGetProviders ,
#if ENABLE_OVERLOADING
CompletionGetViewMethodInfo ,
#endif
completionGetView ,
#if ENABLE_OVERLOADING
CompletionHideMethodInfo ,
#endif
completionHide ,
#if ENABLE_OVERLOADING
CompletionMoveWindowMethodInfo ,
#endif
completionMoveWindow ,
#if ENABLE_OVERLOADING
CompletionRemoveProviderMethodInfo ,
#endif
completionRemoveProvider ,
#if ENABLE_OVERLOADING
CompletionShowMethodInfo ,
#endif
completionShow ,
#if ENABLE_OVERLOADING
CompletionUnblockInteractiveMethodInfo ,
#endif
completionUnblockInteractive ,
#if ENABLE_OVERLOADING
CompletionAcceleratorsPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
completionAccelerators ,
#endif
constructCompletionAccelerators ,
getCompletionAccelerators ,
setCompletionAccelerators ,
#if ENABLE_OVERLOADING
CompletionAutoCompleteDelayPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
completionAutoCompleteDelay ,
#endif
constructCompletionAutoCompleteDelay ,
getCompletionAutoCompleteDelay ,
setCompletionAutoCompleteDelay ,
#if ENABLE_OVERLOADING
CompletionProposalPageSizePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
completionProposalPageSize ,
#endif
constructCompletionProposalPageSize ,
getCompletionProposalPageSize ,
setCompletionProposalPageSize ,
#if ENABLE_OVERLOADING
CompletionProviderPageSizePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
completionProviderPageSize ,
#endif
constructCompletionProviderPageSize ,
getCompletionProviderPageSize ,
setCompletionProviderPageSize ,
#if ENABLE_OVERLOADING
CompletionRememberInfoVisibilityPropertyInfo,
#endif
#if ENABLE_OVERLOADING
completionRememberInfoVisibility ,
#endif
constructCompletionRememberInfoVisibility,
getCompletionRememberInfoVisibility ,
setCompletionRememberInfoVisibility ,
#if ENABLE_OVERLOADING
CompletionSelectOnShowPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
completionSelectOnShow ,
#endif
constructCompletionSelectOnShow ,
getCompletionSelectOnShow ,
setCompletionSelectOnShow ,
#if ENABLE_OVERLOADING
CompletionShowHeadersPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
completionShowHeaders ,
#endif
constructCompletionShowHeaders ,
getCompletionShowHeaders ,
setCompletionShowHeaders ,
#if ENABLE_OVERLOADING
CompletionShowIconsPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
completionShowIcons ,
#endif
constructCompletionShowIcons ,
getCompletionShowIcons ,
setCompletionShowIcons ,
#if ENABLE_OVERLOADING
CompletionViewPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
completionView ,
#endif
constructCompletionView ,
getCompletionView ,
C_CompletionActivateProposalCallback ,
CompletionActivateProposalCallback ,
#if ENABLE_OVERLOADING
CompletionActivateProposalSignalInfo ,
#endif
afterCompletionActivateProposal ,
genClosure_CompletionActivateProposal ,
mk_CompletionActivateProposalCallback ,
noCompletionActivateProposalCallback ,
onCompletionActivateProposal ,
wrap_CompletionActivateProposalCallback ,
C_CompletionHideCallback ,
CompletionHideCallback ,
#if ENABLE_OVERLOADING
CompletionHideSignalInfo ,
#endif
afterCompletionHide ,
genClosure_CompletionHide ,
mk_CompletionHideCallback ,
noCompletionHideCallback ,
onCompletionHide ,
wrap_CompletionHideCallback ,
C_CompletionMoveCursorCallback ,
CompletionMoveCursorCallback ,
#if ENABLE_OVERLOADING
CompletionMoveCursorSignalInfo ,
#endif
afterCompletionMoveCursor ,
genClosure_CompletionMoveCursor ,
mk_CompletionMoveCursorCallback ,
noCompletionMoveCursorCallback ,
onCompletionMoveCursor ,
wrap_CompletionMoveCursorCallback ,
C_CompletionMovePageCallback ,
CompletionMovePageCallback ,
#if ENABLE_OVERLOADING
CompletionMovePageSignalInfo ,
#endif
afterCompletionMovePage ,
genClosure_CompletionMovePage ,
mk_CompletionMovePageCallback ,
noCompletionMovePageCallback ,
onCompletionMovePage ,
wrap_CompletionMovePageCallback ,
C_CompletionPopulateContextCallback ,
CompletionPopulateContextCallback ,
#if ENABLE_OVERLOADING
CompletionPopulateContextSignalInfo ,
#endif
afterCompletionPopulateContext ,
genClosure_CompletionPopulateContext ,
mk_CompletionPopulateContextCallback ,
noCompletionPopulateContextCallback ,
onCompletionPopulateContext ,
wrap_CompletionPopulateContextCallback ,
C_CompletionShowCallback ,
CompletionShowCallback ,
#if ENABLE_OVERLOADING
CompletionShowSignalInfo ,
#endif
afterCompletionShow ,
genClosure_CompletionShow ,
mk_CompletionShowCallback ,
noCompletionShowCallback ,
onCompletionShow ,
wrap_CompletionShowCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.GtkSource.Interfaces.CompletionProvider as GtkSource.CompletionProvider
import {-# SOURCE #-} qualified GI.GtkSource.Objects.CompletionContext as GtkSource.CompletionContext
import {-# SOURCE #-} qualified GI.GtkSource.Objects.CompletionInfo as GtkSource.CompletionInfo
import {-# SOURCE #-} qualified GI.GtkSource.Objects.View as GtkSource.View
newtype Completion = Completion (ManagedPtr Completion)
foreign import ccall "gtk_source_completion_get_type"
c_gtk_source_completion_get_type :: IO GType
instance GObject Completion where
gobjectType = c_gtk_source_completion_get_type
class (GObject o, O.IsDescendantOf Completion o) => IsCompletion o
instance (GObject o, O.IsDescendantOf Completion o) => IsCompletion o
instance O.HasParentTypes Completion
type instance O.ParentTypes Completion = '[GObject.Object.Object, Gtk.Buildable.Buildable]
toCompletion :: (MonadIO m, IsCompletion o) => o -> m Completion
toCompletion = liftIO . unsafeCastTo Completion
noCompletion :: Maybe Completion
noCompletion = Nothing
#if ENABLE_OVERLOADING
type family ResolveCompletionMethod (t :: Symbol) (o :: *) :: * where
ResolveCompletionMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveCompletionMethod "addProvider" o = CompletionAddProviderMethodInfo
ResolveCompletionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCompletionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCompletionMethod "blockInteractive" o = CompletionBlockInteractiveMethodInfo
ResolveCompletionMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveCompletionMethod "createContext" o = CompletionCreateContextMethodInfo
ResolveCompletionMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveCompletionMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveCompletionMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveCompletionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCompletionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCompletionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCompletionMethod "hide" o = CompletionHideMethodInfo
ResolveCompletionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCompletionMethod "moveWindow" o = CompletionMoveWindowMethodInfo
ResolveCompletionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCompletionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCompletionMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveCompletionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCompletionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCompletionMethod "removeProvider" o = CompletionRemoveProviderMethodInfo
ResolveCompletionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCompletionMethod "show" o = CompletionShowMethodInfo
ResolveCompletionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCompletionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCompletionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCompletionMethod "unblockInteractive" o = CompletionUnblockInteractiveMethodInfo
ResolveCompletionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCompletionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCompletionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCompletionMethod "getInfoWindow" o = CompletionGetInfoWindowMethodInfo
ResolveCompletionMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveCompletionMethod "getName" o = Gtk.Buildable.BuildableGetNameMethodInfo
ResolveCompletionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCompletionMethod "getProviders" o = CompletionGetProvidersMethodInfo
ResolveCompletionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCompletionMethod "getView" o = CompletionGetViewMethodInfo
ResolveCompletionMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveCompletionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCompletionMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
ResolveCompletionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCompletionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCompletionMethod t Completion, O.MethodInfo info Completion p) => OL.IsLabel t (Completion -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type CompletionActivateProposalCallback =
IO ()
noCompletionActivateProposalCallback :: Maybe CompletionActivateProposalCallback
noCompletionActivateProposalCallback = Nothing
type C_CompletionActivateProposalCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CompletionActivateProposalCallback :: C_CompletionActivateProposalCallback -> IO (FunPtr C_CompletionActivateProposalCallback)
genClosure_CompletionActivateProposal :: MonadIO m => CompletionActivateProposalCallback -> m (GClosure C_CompletionActivateProposalCallback)
genClosure_CompletionActivateProposal cb = liftIO $ do
let cb' = wrap_CompletionActivateProposalCallback cb
mk_CompletionActivateProposalCallback cb' >>= B.GClosure.newGClosure
wrap_CompletionActivateProposalCallback ::
CompletionActivateProposalCallback ->
C_CompletionActivateProposalCallback
wrap_CompletionActivateProposalCallback _cb _ _ = do
_cb
onCompletionActivateProposal :: (IsCompletion a, MonadIO m) => a -> CompletionActivateProposalCallback -> m SignalHandlerId
onCompletionActivateProposal obj cb = liftIO $ do
let cb' = wrap_CompletionActivateProposalCallback cb
cb'' <- mk_CompletionActivateProposalCallback cb'
connectSignalFunPtr obj "activate-proposal" cb'' SignalConnectBefore
afterCompletionActivateProposal :: (IsCompletion a, MonadIO m) => a -> CompletionActivateProposalCallback -> m SignalHandlerId
afterCompletionActivateProposal obj cb = liftIO $ do
let cb' = wrap_CompletionActivateProposalCallback cb
cb'' <- mk_CompletionActivateProposalCallback cb'
connectSignalFunPtr obj "activate-proposal" cb'' SignalConnectAfter
type CompletionHideCallback =
IO ()
noCompletionHideCallback :: Maybe CompletionHideCallback
noCompletionHideCallback = Nothing
type C_CompletionHideCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CompletionHideCallback :: C_CompletionHideCallback -> IO (FunPtr C_CompletionHideCallback)
genClosure_CompletionHide :: MonadIO m => CompletionHideCallback -> m (GClosure C_CompletionHideCallback)
genClosure_CompletionHide cb = liftIO $ do
let cb' = wrap_CompletionHideCallback cb
mk_CompletionHideCallback cb' >>= B.GClosure.newGClosure
wrap_CompletionHideCallback ::
CompletionHideCallback ->
C_CompletionHideCallback
wrap_CompletionHideCallback _cb _ _ = do
_cb
onCompletionHide :: (IsCompletion a, MonadIO m) => a -> CompletionHideCallback -> m SignalHandlerId
onCompletionHide obj cb = liftIO $ do
let cb' = wrap_CompletionHideCallback cb
cb'' <- mk_CompletionHideCallback cb'
connectSignalFunPtr obj "hide" cb'' SignalConnectBefore
afterCompletionHide :: (IsCompletion a, MonadIO m) => a -> CompletionHideCallback -> m SignalHandlerId
afterCompletionHide obj cb = liftIO $ do
let cb' = wrap_CompletionHideCallback cb
cb'' <- mk_CompletionHideCallback cb'
connectSignalFunPtr obj "hide" cb'' SignalConnectAfter
type CompletionMoveCursorCallback =
Gtk.Enums.ScrollStep
-> Int32
-> IO ()
noCompletionMoveCursorCallback :: Maybe CompletionMoveCursorCallback
noCompletionMoveCursorCallback = Nothing
type C_CompletionMoveCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CompletionMoveCursorCallback :: C_CompletionMoveCursorCallback -> IO (FunPtr C_CompletionMoveCursorCallback)
genClosure_CompletionMoveCursor :: MonadIO m => CompletionMoveCursorCallback -> m (GClosure C_CompletionMoveCursorCallback)
genClosure_CompletionMoveCursor cb = liftIO $ do
let cb' = wrap_CompletionMoveCursorCallback cb
mk_CompletionMoveCursorCallback cb' >>= B.GClosure.newGClosure
wrap_CompletionMoveCursorCallback ::
CompletionMoveCursorCallback ->
C_CompletionMoveCursorCallback
wrap_CompletionMoveCursorCallback _cb _ step num _ = do
let step' = (toEnum . fromIntegral) step
_cb step' num
onCompletionMoveCursor :: (IsCompletion a, MonadIO m) => a -> CompletionMoveCursorCallback -> m SignalHandlerId
onCompletionMoveCursor obj cb = liftIO $ do
let cb' = wrap_CompletionMoveCursorCallback cb
cb'' <- mk_CompletionMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' SignalConnectBefore
afterCompletionMoveCursor :: (IsCompletion a, MonadIO m) => a -> CompletionMoveCursorCallback -> m SignalHandlerId
afterCompletionMoveCursor obj cb = liftIO $ do
let cb' = wrap_CompletionMoveCursorCallback cb
cb'' <- mk_CompletionMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' SignalConnectAfter
type CompletionMovePageCallback =
Gtk.Enums.ScrollStep
-> Int32
-> IO ()
noCompletionMovePageCallback :: Maybe CompletionMovePageCallback
noCompletionMovePageCallback = Nothing
type C_CompletionMovePageCallback =
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CompletionMovePageCallback :: C_CompletionMovePageCallback -> IO (FunPtr C_CompletionMovePageCallback)
genClosure_CompletionMovePage :: MonadIO m => CompletionMovePageCallback -> m (GClosure C_CompletionMovePageCallback)
genClosure_CompletionMovePage cb = liftIO $ do
let cb' = wrap_CompletionMovePageCallback cb
mk_CompletionMovePageCallback cb' >>= B.GClosure.newGClosure
wrap_CompletionMovePageCallback ::
CompletionMovePageCallback ->
C_CompletionMovePageCallback
wrap_CompletionMovePageCallback _cb _ step num _ = do
let step' = (toEnum . fromIntegral) step
_cb step' num
onCompletionMovePage :: (IsCompletion a, MonadIO m) => a -> CompletionMovePageCallback -> m SignalHandlerId
onCompletionMovePage obj cb = liftIO $ do
let cb' = wrap_CompletionMovePageCallback cb
cb'' <- mk_CompletionMovePageCallback cb'
connectSignalFunPtr obj "move-page" cb'' SignalConnectBefore
afterCompletionMovePage :: (IsCompletion a, MonadIO m) => a -> CompletionMovePageCallback -> m SignalHandlerId
afterCompletionMovePage obj cb = liftIO $ do
let cb' = wrap_CompletionMovePageCallback cb
cb'' <- mk_CompletionMovePageCallback cb'
connectSignalFunPtr obj "move-page" cb'' SignalConnectAfter
type CompletionPopulateContextCallback =
GtkSource.CompletionContext.CompletionContext
-> IO ()
noCompletionPopulateContextCallback :: Maybe CompletionPopulateContextCallback
noCompletionPopulateContextCallback = Nothing
type C_CompletionPopulateContextCallback =
Ptr () ->
Ptr GtkSource.CompletionContext.CompletionContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CompletionPopulateContextCallback :: C_CompletionPopulateContextCallback -> IO (FunPtr C_CompletionPopulateContextCallback)
genClosure_CompletionPopulateContext :: MonadIO m => CompletionPopulateContextCallback -> m (GClosure C_CompletionPopulateContextCallback)
genClosure_CompletionPopulateContext cb = liftIO $ do
let cb' = wrap_CompletionPopulateContextCallback cb
mk_CompletionPopulateContextCallback cb' >>= B.GClosure.newGClosure
wrap_CompletionPopulateContextCallback ::
CompletionPopulateContextCallback ->
C_CompletionPopulateContextCallback
wrap_CompletionPopulateContextCallback _cb _ context _ = do
context' <- (newObject GtkSource.CompletionContext.CompletionContext) context
_cb context'
onCompletionPopulateContext :: (IsCompletion a, MonadIO m) => a -> CompletionPopulateContextCallback -> m SignalHandlerId
onCompletionPopulateContext obj cb = liftIO $ do
let cb' = wrap_CompletionPopulateContextCallback cb
cb'' <- mk_CompletionPopulateContextCallback cb'
connectSignalFunPtr obj "populate-context" cb'' SignalConnectBefore
afterCompletionPopulateContext :: (IsCompletion a, MonadIO m) => a -> CompletionPopulateContextCallback -> m SignalHandlerId
afterCompletionPopulateContext obj cb = liftIO $ do
let cb' = wrap_CompletionPopulateContextCallback cb
cb'' <- mk_CompletionPopulateContextCallback cb'
connectSignalFunPtr obj "populate-context" cb'' SignalConnectAfter
type CompletionShowCallback =
IO ()
noCompletionShowCallback :: Maybe CompletionShowCallback
noCompletionShowCallback = Nothing
type C_CompletionShowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CompletionShowCallback :: C_CompletionShowCallback -> IO (FunPtr C_CompletionShowCallback)
genClosure_CompletionShow :: MonadIO m => CompletionShowCallback -> m (GClosure C_CompletionShowCallback)
genClosure_CompletionShow cb = liftIO $ do
let cb' = wrap_CompletionShowCallback cb
mk_CompletionShowCallback cb' >>= B.GClosure.newGClosure
wrap_CompletionShowCallback ::
CompletionShowCallback ->
C_CompletionShowCallback
wrap_CompletionShowCallback _cb _ _ = do
_cb
onCompletionShow :: (IsCompletion a, MonadIO m) => a -> CompletionShowCallback -> m SignalHandlerId
onCompletionShow obj cb = liftIO $ do
let cb' = wrap_CompletionShowCallback cb
cb'' <- mk_CompletionShowCallback cb'
connectSignalFunPtr obj "show" cb'' SignalConnectBefore
afterCompletionShow :: (IsCompletion a, MonadIO m) => a -> CompletionShowCallback -> m SignalHandlerId
afterCompletionShow obj cb = liftIO $ do
let cb' = wrap_CompletionShowCallback cb
cb'' <- mk_CompletionShowCallback cb'
connectSignalFunPtr obj "show" cb'' SignalConnectAfter
getCompletionAccelerators :: (MonadIO m, IsCompletion o) => o -> m Word32
getCompletionAccelerators obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "accelerators"
setCompletionAccelerators :: (MonadIO m, IsCompletion o) => o -> Word32 -> m ()
setCompletionAccelerators obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "accelerators" val
constructCompletionAccelerators :: (IsCompletion o) => Word32 -> IO (GValueConstruct o)
constructCompletionAccelerators val = B.Properties.constructObjectPropertyUInt32 "accelerators" val
#if ENABLE_OVERLOADING
data CompletionAcceleratorsPropertyInfo
instance AttrInfo CompletionAcceleratorsPropertyInfo where
type AttrAllowedOps CompletionAcceleratorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CompletionAcceleratorsPropertyInfo = (~) Word32
type AttrBaseTypeConstraint CompletionAcceleratorsPropertyInfo = IsCompletion
type AttrGetType CompletionAcceleratorsPropertyInfo = Word32
type AttrLabel CompletionAcceleratorsPropertyInfo = "accelerators"
type AttrOrigin CompletionAcceleratorsPropertyInfo = Completion
attrGet _ = getCompletionAccelerators
attrSet _ = setCompletionAccelerators
attrConstruct _ = constructCompletionAccelerators
attrClear _ = undefined
#endif
getCompletionAutoCompleteDelay :: (MonadIO m, IsCompletion o) => o -> m Word32
getCompletionAutoCompleteDelay obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "auto-complete-delay"
setCompletionAutoCompleteDelay :: (MonadIO m, IsCompletion o) => o -> Word32 -> m ()
setCompletionAutoCompleteDelay obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "auto-complete-delay" val
constructCompletionAutoCompleteDelay :: (IsCompletion o) => Word32 -> IO (GValueConstruct o)
constructCompletionAutoCompleteDelay val = B.Properties.constructObjectPropertyUInt32 "auto-complete-delay" val
#if ENABLE_OVERLOADING
data CompletionAutoCompleteDelayPropertyInfo
instance AttrInfo CompletionAutoCompleteDelayPropertyInfo where
type AttrAllowedOps CompletionAutoCompleteDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CompletionAutoCompleteDelayPropertyInfo = (~) Word32
type AttrBaseTypeConstraint CompletionAutoCompleteDelayPropertyInfo = IsCompletion
type AttrGetType CompletionAutoCompleteDelayPropertyInfo = Word32
type AttrLabel CompletionAutoCompleteDelayPropertyInfo = "auto-complete-delay"
type AttrOrigin CompletionAutoCompleteDelayPropertyInfo = Completion
attrGet _ = getCompletionAutoCompleteDelay
attrSet _ = setCompletionAutoCompleteDelay
attrConstruct _ = constructCompletionAutoCompleteDelay
attrClear _ = undefined
#endif
getCompletionProposalPageSize :: (MonadIO m, IsCompletion o) => o -> m Word32
getCompletionProposalPageSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "proposal-page-size"
setCompletionProposalPageSize :: (MonadIO m, IsCompletion o) => o -> Word32 -> m ()
setCompletionProposalPageSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "proposal-page-size" val
constructCompletionProposalPageSize :: (IsCompletion o) => Word32 -> IO (GValueConstruct o)
constructCompletionProposalPageSize val = B.Properties.constructObjectPropertyUInt32 "proposal-page-size" val
#if ENABLE_OVERLOADING
data CompletionProposalPageSizePropertyInfo
instance AttrInfo CompletionProposalPageSizePropertyInfo where
type AttrAllowedOps CompletionProposalPageSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CompletionProposalPageSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint CompletionProposalPageSizePropertyInfo = IsCompletion
type AttrGetType CompletionProposalPageSizePropertyInfo = Word32
type AttrLabel CompletionProposalPageSizePropertyInfo = "proposal-page-size"
type AttrOrigin CompletionProposalPageSizePropertyInfo = Completion
attrGet _ = getCompletionProposalPageSize
attrSet _ = setCompletionProposalPageSize
attrConstruct _ = constructCompletionProposalPageSize
attrClear _ = undefined
#endif
getCompletionProviderPageSize :: (MonadIO m, IsCompletion o) => o -> m Word32
getCompletionProviderPageSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "provider-page-size"
setCompletionProviderPageSize :: (MonadIO m, IsCompletion o) => o -> Word32 -> m ()
setCompletionProviderPageSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "provider-page-size" val
constructCompletionProviderPageSize :: (IsCompletion o) => Word32 -> IO (GValueConstruct o)
constructCompletionProviderPageSize val = B.Properties.constructObjectPropertyUInt32 "provider-page-size" val
#if ENABLE_OVERLOADING
data CompletionProviderPageSizePropertyInfo
instance AttrInfo CompletionProviderPageSizePropertyInfo where
type AttrAllowedOps CompletionProviderPageSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CompletionProviderPageSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint CompletionProviderPageSizePropertyInfo = IsCompletion
type AttrGetType CompletionProviderPageSizePropertyInfo = Word32
type AttrLabel CompletionProviderPageSizePropertyInfo = "provider-page-size"
type AttrOrigin CompletionProviderPageSizePropertyInfo = Completion
attrGet _ = getCompletionProviderPageSize
attrSet _ = setCompletionProviderPageSize
attrConstruct _ = constructCompletionProviderPageSize
attrClear _ = undefined
#endif
getCompletionRememberInfoVisibility :: (MonadIO m, IsCompletion o) => o -> m Bool
getCompletionRememberInfoVisibility obj = liftIO $ B.Properties.getObjectPropertyBool obj "remember-info-visibility"
setCompletionRememberInfoVisibility :: (MonadIO m, IsCompletion o) => o -> Bool -> m ()
setCompletionRememberInfoVisibility obj val = liftIO $ B.Properties.setObjectPropertyBool obj "remember-info-visibility" val
constructCompletionRememberInfoVisibility :: (IsCompletion o) => Bool -> IO (GValueConstruct o)
constructCompletionRememberInfoVisibility val = B.Properties.constructObjectPropertyBool "remember-info-visibility" val
#if ENABLE_OVERLOADING
data CompletionRememberInfoVisibilityPropertyInfo
instance AttrInfo CompletionRememberInfoVisibilityPropertyInfo where
type AttrAllowedOps CompletionRememberInfoVisibilityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CompletionRememberInfoVisibilityPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CompletionRememberInfoVisibilityPropertyInfo = IsCompletion
type AttrGetType CompletionRememberInfoVisibilityPropertyInfo = Bool
type AttrLabel CompletionRememberInfoVisibilityPropertyInfo = "remember-info-visibility"
type AttrOrigin CompletionRememberInfoVisibilityPropertyInfo = Completion
attrGet _ = getCompletionRememberInfoVisibility
attrSet _ = setCompletionRememberInfoVisibility
attrConstruct _ = constructCompletionRememberInfoVisibility
attrClear _ = undefined
#endif
getCompletionSelectOnShow :: (MonadIO m, IsCompletion o) => o -> m Bool
getCompletionSelectOnShow obj = liftIO $ B.Properties.getObjectPropertyBool obj "select-on-show"
setCompletionSelectOnShow :: (MonadIO m, IsCompletion o) => o -> Bool -> m ()
setCompletionSelectOnShow obj val = liftIO $ B.Properties.setObjectPropertyBool obj "select-on-show" val
constructCompletionSelectOnShow :: (IsCompletion o) => Bool -> IO (GValueConstruct o)
constructCompletionSelectOnShow val = B.Properties.constructObjectPropertyBool "select-on-show" val
#if ENABLE_OVERLOADING
data CompletionSelectOnShowPropertyInfo
instance AttrInfo CompletionSelectOnShowPropertyInfo where
type AttrAllowedOps CompletionSelectOnShowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CompletionSelectOnShowPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CompletionSelectOnShowPropertyInfo = IsCompletion
type AttrGetType CompletionSelectOnShowPropertyInfo = Bool
type AttrLabel CompletionSelectOnShowPropertyInfo = "select-on-show"
type AttrOrigin CompletionSelectOnShowPropertyInfo = Completion
attrGet _ = getCompletionSelectOnShow
attrSet _ = setCompletionSelectOnShow
attrConstruct _ = constructCompletionSelectOnShow
attrClear _ = undefined
#endif
getCompletionShowHeaders :: (MonadIO m, IsCompletion o) => o -> m Bool
getCompletionShowHeaders obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-headers"
setCompletionShowHeaders :: (MonadIO m, IsCompletion o) => o -> Bool -> m ()
setCompletionShowHeaders obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-headers" val
constructCompletionShowHeaders :: (IsCompletion o) => Bool -> IO (GValueConstruct o)
constructCompletionShowHeaders val = B.Properties.constructObjectPropertyBool "show-headers" val
#if ENABLE_OVERLOADING
data CompletionShowHeadersPropertyInfo
instance AttrInfo CompletionShowHeadersPropertyInfo where
type AttrAllowedOps CompletionShowHeadersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CompletionShowHeadersPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CompletionShowHeadersPropertyInfo = IsCompletion
type AttrGetType CompletionShowHeadersPropertyInfo = Bool
type AttrLabel CompletionShowHeadersPropertyInfo = "show-headers"
type AttrOrigin CompletionShowHeadersPropertyInfo = Completion
attrGet _ = getCompletionShowHeaders
attrSet _ = setCompletionShowHeaders
attrConstruct _ = constructCompletionShowHeaders
attrClear _ = undefined
#endif
getCompletionShowIcons :: (MonadIO m, IsCompletion o) => o -> m Bool
getCompletionShowIcons obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-icons"
setCompletionShowIcons :: (MonadIO m, IsCompletion o) => o -> Bool -> m ()
setCompletionShowIcons obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-icons" val
constructCompletionShowIcons :: (IsCompletion o) => Bool -> IO (GValueConstruct o)
constructCompletionShowIcons val = B.Properties.constructObjectPropertyBool "show-icons" val
#if ENABLE_OVERLOADING
data CompletionShowIconsPropertyInfo
instance AttrInfo CompletionShowIconsPropertyInfo where
type AttrAllowedOps CompletionShowIconsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CompletionShowIconsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CompletionShowIconsPropertyInfo = IsCompletion
type AttrGetType CompletionShowIconsPropertyInfo = Bool
type AttrLabel CompletionShowIconsPropertyInfo = "show-icons"
type AttrOrigin CompletionShowIconsPropertyInfo = Completion
attrGet _ = getCompletionShowIcons
attrSet _ = setCompletionShowIcons
attrConstruct _ = constructCompletionShowIcons
attrClear _ = undefined
#endif
getCompletionView :: (MonadIO m, IsCompletion o) => o -> m (Maybe GtkSource.View.View)
getCompletionView obj = liftIO $ B.Properties.getObjectPropertyObject obj "view" GtkSource.View.View
constructCompletionView :: (IsCompletion o, GtkSource.View.IsView a) => a -> IO (GValueConstruct o)
constructCompletionView val = B.Properties.constructObjectPropertyObject "view" (Just val)
#if ENABLE_OVERLOADING
data CompletionViewPropertyInfo
instance AttrInfo CompletionViewPropertyInfo where
type AttrAllowedOps CompletionViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint CompletionViewPropertyInfo = GtkSource.View.IsView
type AttrBaseTypeConstraint CompletionViewPropertyInfo = IsCompletion
type AttrGetType CompletionViewPropertyInfo = (Maybe GtkSource.View.View)
type AttrLabel CompletionViewPropertyInfo = "view"
type AttrOrigin CompletionViewPropertyInfo = Completion
attrGet _ = getCompletionView
attrSet _ = undefined
attrConstruct _ = constructCompletionView
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList Completion
type instance O.AttributeList Completion = CompletionAttributeList
type CompletionAttributeList = ('[ '("accelerators", CompletionAcceleratorsPropertyInfo), '("autoCompleteDelay", CompletionAutoCompleteDelayPropertyInfo), '("proposalPageSize", CompletionProposalPageSizePropertyInfo), '("providerPageSize", CompletionProviderPageSizePropertyInfo), '("rememberInfoVisibility", CompletionRememberInfoVisibilityPropertyInfo), '("selectOnShow", CompletionSelectOnShowPropertyInfo), '("showHeaders", CompletionShowHeadersPropertyInfo), '("showIcons", CompletionShowIconsPropertyInfo), '("view", CompletionViewPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
completionAccelerators :: AttrLabelProxy "accelerators"
completionAccelerators = AttrLabelProxy
completionAutoCompleteDelay :: AttrLabelProxy "autoCompleteDelay"
completionAutoCompleteDelay = AttrLabelProxy
completionProposalPageSize :: AttrLabelProxy "proposalPageSize"
completionProposalPageSize = AttrLabelProxy
completionProviderPageSize :: AttrLabelProxy "providerPageSize"
completionProviderPageSize = AttrLabelProxy
completionRememberInfoVisibility :: AttrLabelProxy "rememberInfoVisibility"
completionRememberInfoVisibility = AttrLabelProxy
completionSelectOnShow :: AttrLabelProxy "selectOnShow"
completionSelectOnShow = AttrLabelProxy
completionShowHeaders :: AttrLabelProxy "showHeaders"
completionShowHeaders = AttrLabelProxy
completionShowIcons :: AttrLabelProxy "showIcons"
completionShowIcons = AttrLabelProxy
completionView :: AttrLabelProxy "view"
completionView = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data CompletionActivateProposalSignalInfo
instance SignalInfo CompletionActivateProposalSignalInfo where
type HaskellCallbackType CompletionActivateProposalSignalInfo = CompletionActivateProposalCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_CompletionActivateProposalCallback cb
cb'' <- mk_CompletionActivateProposalCallback cb'
connectSignalFunPtr obj "activate-proposal" cb'' connectMode
data CompletionHideSignalInfo
instance SignalInfo CompletionHideSignalInfo where
type HaskellCallbackType CompletionHideSignalInfo = CompletionHideCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_CompletionHideCallback cb
cb'' <- mk_CompletionHideCallback cb'
connectSignalFunPtr obj "hide" cb'' connectMode
data CompletionMoveCursorSignalInfo
instance SignalInfo CompletionMoveCursorSignalInfo where
type HaskellCallbackType CompletionMoveCursorSignalInfo = CompletionMoveCursorCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_CompletionMoveCursorCallback cb
cb'' <- mk_CompletionMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' connectMode
data CompletionMovePageSignalInfo
instance SignalInfo CompletionMovePageSignalInfo where
type HaskellCallbackType CompletionMovePageSignalInfo = CompletionMovePageCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_CompletionMovePageCallback cb
cb'' <- mk_CompletionMovePageCallback cb'
connectSignalFunPtr obj "move-page" cb'' connectMode
data CompletionPopulateContextSignalInfo
instance SignalInfo CompletionPopulateContextSignalInfo where
type HaskellCallbackType CompletionPopulateContextSignalInfo = CompletionPopulateContextCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_CompletionPopulateContextCallback cb
cb'' <- mk_CompletionPopulateContextCallback cb'
connectSignalFunPtr obj "populate-context" cb'' connectMode
data CompletionShowSignalInfo
instance SignalInfo CompletionShowSignalInfo where
type HaskellCallbackType CompletionShowSignalInfo = CompletionShowCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_CompletionShowCallback cb
cb'' <- mk_CompletionShowCallback cb'
connectSignalFunPtr obj "show" cb'' connectMode
type instance O.SignalList Completion = CompletionSignalList
type CompletionSignalList = ('[ '("activateProposal", CompletionActivateProposalSignalInfo), '("hide", CompletionHideSignalInfo), '("moveCursor", CompletionMoveCursorSignalInfo), '("movePage", CompletionMovePageSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("populateContext", CompletionPopulateContextSignalInfo), '("show", CompletionShowSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_completion_add_provider" gtk_source_completion_add_provider ::
Ptr Completion ->
Ptr GtkSource.CompletionProvider.CompletionProvider ->
Ptr (Ptr GError) ->
IO CInt
completionAddProvider ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a, GtkSource.CompletionProvider.IsCompletionProvider b) =>
a
-> b
-> m ()
completionAddProvider completion provider = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
provider' <- unsafeManagedPtrCastPtr provider
onException (do
_ <- propagateGError $ gtk_source_completion_add_provider completion' provider'
touchManagedPtr completion
touchManagedPtr provider
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data CompletionAddProviderMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCompletion a, GtkSource.CompletionProvider.IsCompletionProvider b) => O.MethodInfo CompletionAddProviderMethodInfo a signature where
overloadedMethod _ = completionAddProvider
#endif
foreign import ccall "gtk_source_completion_block_interactive" gtk_source_completion_block_interactive ::
Ptr Completion ->
IO ()
completionBlockInteractive ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a) =>
a
-> m ()
completionBlockInteractive completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
gtk_source_completion_block_interactive completion'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data CompletionBlockInteractiveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCompletion a) => O.MethodInfo CompletionBlockInteractiveMethodInfo a signature where
overloadedMethod _ = completionBlockInteractive
#endif
foreign import ccall "gtk_source_completion_create_context" gtk_source_completion_create_context ::
Ptr Completion ->
Ptr Gtk.TextIter.TextIter ->
IO (Ptr GtkSource.CompletionContext.CompletionContext)
completionCreateContext ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a) =>
a
-> Maybe (Gtk.TextIter.TextIter)
-> m GtkSource.CompletionContext.CompletionContext
completionCreateContext completion position = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
maybePosition <- case position of
Nothing -> return nullPtr
Just jPosition -> do
jPosition' <- unsafeManagedPtrGetPtr jPosition
return jPosition'
result <- gtk_source_completion_create_context completion' maybePosition
checkUnexpectedReturnNULL "completionCreateContext" result
result' <- (newObject GtkSource.CompletionContext.CompletionContext) result
touchManagedPtr completion
whenJust position touchManagedPtr
return result'
#if ENABLE_OVERLOADING
data CompletionCreateContextMethodInfo
instance (signature ~ (Maybe (Gtk.TextIter.TextIter) -> m GtkSource.CompletionContext.CompletionContext), MonadIO m, IsCompletion a) => O.MethodInfo CompletionCreateContextMethodInfo a signature where
overloadedMethod _ = completionCreateContext
#endif
foreign import ccall "gtk_source_completion_get_info_window" gtk_source_completion_get_info_window ::
Ptr Completion ->
IO (Ptr GtkSource.CompletionInfo.CompletionInfo)
completionGetInfoWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a) =>
a
-> m GtkSource.CompletionInfo.CompletionInfo
completionGetInfoWindow completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_source_completion_get_info_window completion'
checkUnexpectedReturnNULL "completionGetInfoWindow" result
result' <- (newObject GtkSource.CompletionInfo.CompletionInfo) result
touchManagedPtr completion
return result'
#if ENABLE_OVERLOADING
data CompletionGetInfoWindowMethodInfo
instance (signature ~ (m GtkSource.CompletionInfo.CompletionInfo), MonadIO m, IsCompletion a) => O.MethodInfo CompletionGetInfoWindowMethodInfo a signature where
overloadedMethod _ = completionGetInfoWindow
#endif
foreign import ccall "gtk_source_completion_get_providers" gtk_source_completion_get_providers ::
Ptr Completion ->
IO (Ptr (GList (Ptr GtkSource.CompletionProvider.CompletionProvider)))
completionGetProviders ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a) =>
a
-> m [GtkSource.CompletionProvider.CompletionProvider]
completionGetProviders completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_source_completion_get_providers completion'
result' <- unpackGList result
result'' <- mapM (newObject GtkSource.CompletionProvider.CompletionProvider) result'
touchManagedPtr completion
return result''
#if ENABLE_OVERLOADING
data CompletionGetProvidersMethodInfo
instance (signature ~ (m [GtkSource.CompletionProvider.CompletionProvider]), MonadIO m, IsCompletion a) => O.MethodInfo CompletionGetProvidersMethodInfo a signature where
overloadedMethod _ = completionGetProviders
#endif
foreign import ccall "gtk_source_completion_get_view" gtk_source_completion_get_view ::
Ptr Completion ->
IO (Ptr GtkSource.View.View)
completionGetView ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a) =>
a
-> m (Maybe GtkSource.View.View)
completionGetView completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_source_completion_get_view completion'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject GtkSource.View.View) result'
return result''
touchManagedPtr completion
return maybeResult
#if ENABLE_OVERLOADING
data CompletionGetViewMethodInfo
instance (signature ~ (m (Maybe GtkSource.View.View)), MonadIO m, IsCompletion a) => O.MethodInfo CompletionGetViewMethodInfo a signature where
overloadedMethod _ = completionGetView
#endif
foreign import ccall "gtk_source_completion_hide" gtk_source_completion_hide ::
Ptr Completion ->
IO ()
completionHide ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a) =>
a
-> m ()
completionHide completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
gtk_source_completion_hide completion'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data CompletionHideMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCompletion a) => O.MethodInfo CompletionHideMethodInfo a signature where
overloadedMethod _ = completionHide
#endif
foreign import ccall "gtk_source_completion_move_window" gtk_source_completion_move_window ::
Ptr Completion ->
Ptr Gtk.TextIter.TextIter ->
IO ()
{-# DEPRECATED completionMoveWindow ["(Since version 3.8)","Use 'GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetStartIter' instead."] #-}
completionMoveWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a) =>
a
-> Gtk.TextIter.TextIter
-> m ()
completionMoveWindow completion iter = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
iter' <- unsafeManagedPtrGetPtr iter
gtk_source_completion_move_window completion' iter'
touchManagedPtr completion
touchManagedPtr iter
return ()
#if ENABLE_OVERLOADING
data CompletionMoveWindowMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> m ()), MonadIO m, IsCompletion a) => O.MethodInfo CompletionMoveWindowMethodInfo a signature where
overloadedMethod _ = completionMoveWindow
#endif
foreign import ccall "gtk_source_completion_remove_provider" gtk_source_completion_remove_provider ::
Ptr Completion ->
Ptr GtkSource.CompletionProvider.CompletionProvider ->
Ptr (Ptr GError) ->
IO CInt
completionRemoveProvider ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a, GtkSource.CompletionProvider.IsCompletionProvider b) =>
a
-> b
-> m ()
completionRemoveProvider completion provider = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
provider' <- unsafeManagedPtrCastPtr provider
onException (do
_ <- propagateGError $ gtk_source_completion_remove_provider completion' provider'
touchManagedPtr completion
touchManagedPtr provider
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data CompletionRemoveProviderMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCompletion a, GtkSource.CompletionProvider.IsCompletionProvider b) => O.MethodInfo CompletionRemoveProviderMethodInfo a signature where
overloadedMethod _ = completionRemoveProvider
#endif
foreign import ccall "gtk_source_completion_show" gtk_source_completion_show ::
Ptr Completion ->
Ptr (GList (Ptr GtkSource.CompletionProvider.CompletionProvider)) ->
Ptr GtkSource.CompletionContext.CompletionContext ->
IO CInt
completionShow ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a, GtkSource.CompletionProvider.IsCompletionProvider b, GtkSource.CompletionContext.IsCompletionContext c) =>
a
-> [b]
-> c
-> m Bool
completionShow completion providers context = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
providers' <- mapM unsafeManagedPtrCastPtr providers
providers'' <- packGList providers'
context' <- unsafeManagedPtrCastPtr context
result <- gtk_source_completion_show completion' providers'' context'
let result' = (/= 0) result
touchManagedPtr completion
mapM_ touchManagedPtr providers
touchManagedPtr context
g_list_free providers''
return result'
#if ENABLE_OVERLOADING
data CompletionShowMethodInfo
instance (signature ~ ([b] -> c -> m Bool), MonadIO m, IsCompletion a, GtkSource.CompletionProvider.IsCompletionProvider b, GtkSource.CompletionContext.IsCompletionContext c) => O.MethodInfo CompletionShowMethodInfo a signature where
overloadedMethod _ = completionShow
#endif
foreign import ccall "gtk_source_completion_unblock_interactive" gtk_source_completion_unblock_interactive ::
Ptr Completion ->
IO ()
completionUnblockInteractive ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletion a) =>
a
-> m ()
completionUnblockInteractive completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
gtk_source_completion_unblock_interactive completion'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data CompletionUnblockInteractiveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCompletion a) => O.MethodInfo CompletionUnblockInteractiveMethodInfo a signature where
overloadedMethod _ = completionUnblockInteractive
#endif