{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.Completion
(
Completion(..) ,
IsCompletion ,
toCompletion ,
noCompletion ,
#if defined(ENABLE_OVERLOADING)
ResolveCompletionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CompletionAddProviderMethodInfo ,
#endif
completionAddProvider ,
#if defined(ENABLE_OVERLOADING)
CompletionBlockInteractiveMethodInfo ,
#endif
completionBlockInteractive ,
#if defined(ENABLE_OVERLOADING)
CompletionCreateContextMethodInfo ,
#endif
completionCreateContext ,
#if defined(ENABLE_OVERLOADING)
CompletionGetInfoWindowMethodInfo ,
#endif
completionGetInfoWindow ,
#if defined(ENABLE_OVERLOADING)
CompletionGetProvidersMethodInfo ,
#endif
completionGetProviders ,
#if defined(ENABLE_OVERLOADING)
CompletionGetViewMethodInfo ,
#endif
completionGetView ,
#if defined(ENABLE_OVERLOADING)
CompletionHideMethodInfo ,
#endif
completionHide ,
#if defined(ENABLE_OVERLOADING)
CompletionMoveWindowMethodInfo ,
#endif
completionMoveWindow ,
#if defined(ENABLE_OVERLOADING)
CompletionRemoveProviderMethodInfo ,
#endif
completionRemoveProvider ,
#if defined(ENABLE_OVERLOADING)
CompletionShowMethodInfo ,
#endif
completionShow ,
#if defined(ENABLE_OVERLOADING)
CompletionUnblockInteractiveMethodInfo ,
#endif
completionUnblockInteractive ,
#if defined(ENABLE_OVERLOADING)
CompletionAcceleratorsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionAccelerators ,
#endif
constructCompletionAccelerators ,
getCompletionAccelerators ,
setCompletionAccelerators ,
#if defined(ENABLE_OVERLOADING)
CompletionAutoCompleteDelayPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionAutoCompleteDelay ,
#endif
constructCompletionAutoCompleteDelay ,
getCompletionAutoCompleteDelay ,
setCompletionAutoCompleteDelay ,
#if defined(ENABLE_OVERLOADING)
CompletionProposalPageSizePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionProposalPageSize ,
#endif
constructCompletionProposalPageSize ,
getCompletionProposalPageSize ,
setCompletionProposalPageSize ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderPageSizePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionProviderPageSize ,
#endif
constructCompletionProviderPageSize ,
getCompletionProviderPageSize ,
setCompletionProviderPageSize ,
#if defined(ENABLE_OVERLOADING)
CompletionRememberInfoVisibilityPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
completionRememberInfoVisibility ,
#endif
constructCompletionRememberInfoVisibility,
getCompletionRememberInfoVisibility ,
setCompletionRememberInfoVisibility ,
#if defined(ENABLE_OVERLOADING)
CompletionSelectOnShowPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionSelectOnShow ,
#endif
constructCompletionSelectOnShow ,
getCompletionSelectOnShow ,
setCompletionSelectOnShow ,
#if defined(ENABLE_OVERLOADING)
CompletionShowHeadersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionShowHeaders ,
#endif
constructCompletionShowHeaders ,
getCompletionShowHeaders ,
setCompletionShowHeaders ,
#if defined(ENABLE_OVERLOADING)
CompletionShowIconsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionShowIcons ,
#endif
constructCompletionShowIcons ,
getCompletionShowIcons ,
setCompletionShowIcons ,
#if defined(ENABLE_OVERLOADING)
CompletionViewPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionView ,
#endif
constructCompletionView ,
getCompletionView ,
C_CompletionActivateProposalCallback ,
CompletionActivateProposalCallback ,
#if defined(ENABLE_OVERLOADING)
CompletionActivateProposalSignalInfo ,
#endif
afterCompletionActivateProposal ,
genClosure_CompletionActivateProposal ,
mk_CompletionActivateProposalCallback ,
noCompletionActivateProposalCallback ,
onCompletionActivateProposal ,
wrap_CompletionActivateProposalCallback ,
C_CompletionHideCallback ,
CompletionHideCallback ,
#if defined(ENABLE_OVERLOADING)
CompletionHideSignalInfo ,
#endif
afterCompletionHide ,
genClosure_CompletionHide ,
mk_CompletionHideCallback ,
noCompletionHideCallback ,
onCompletionHide ,
wrap_CompletionHideCallback ,
C_CompletionMoveCursorCallback ,
CompletionMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
CompletionMoveCursorSignalInfo ,
#endif
afterCompletionMoveCursor ,
genClosure_CompletionMoveCursor ,
mk_CompletionMoveCursorCallback ,
noCompletionMoveCursorCallback ,
onCompletionMoveCursor ,
wrap_CompletionMoveCursorCallback ,
C_CompletionMovePageCallback ,
CompletionMovePageCallback ,
#if defined(ENABLE_OVERLOADING)
CompletionMovePageSignalInfo ,
#endif
afterCompletionMovePage ,
genClosure_CompletionMovePage ,
mk_CompletionMovePageCallback ,
noCompletionMovePageCallback ,
onCompletionMovePage ,
wrap_CompletionMovePageCallback ,
C_CompletionPopulateContextCallback ,
CompletionPopulateContextCallback ,
#if defined(ENABLE_OVERLOADING)
CompletionPopulateContextSignalInfo ,
#endif
afterCompletionPopulateContext ,
genClosure_CompletionPopulateContext ,
mk_CompletionPopulateContextCallback ,
noCompletionPopulateContextCallback ,
onCompletionPopulateContext ,
wrap_CompletionPopulateContextCallback ,
C_CompletionShowCallback ,
CompletionShowCallback ,
#if defined(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.GI.Base.Signals as B.Signals
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)
deriving (Completion -> Completion -> Bool
(Completion -> Completion -> Bool)
-> (Completion -> Completion -> Bool) -> Eq Completion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Completion -> Completion -> Bool
$c/= :: Completion -> Completion -> Bool
== :: Completion -> Completion -> Bool
$c== :: Completion -> Completion -> Bool
Eq)
foreign import ccall "gtk_source_completion_get_type"
c_gtk_source_completion_get_type :: IO GType
instance GObject Completion where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_source_completion_get_type
instance B.GValue.IsGValue Completion where
toGValue :: Completion -> IO GValue
toGValue o :: Completion
o = do
GType
gtype <- IO GType
c_gtk_source_completion_get_type
Completion -> (Ptr Completion -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Completion
o (GType
-> (GValue -> Ptr Completion -> IO ())
-> Ptr Completion
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Completion -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Completion
fromGValue gv :: GValue
gv = do
Ptr Completion
ptr <- GValue -> IO (Ptr Completion)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Completion)
(ManagedPtr Completion -> Completion)
-> Ptr Completion -> IO Completion
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Completion -> Completion
Completion Ptr Completion
ptr
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 :: o -> m Completion
toCompletion = IO Completion -> m Completion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Completion -> m Completion)
-> (o -> IO Completion) -> o -> m Completion
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Completion -> Completion) -> o -> IO Completion
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Completion -> Completion
Completion
noCompletion :: Maybe Completion
noCompletion :: Maybe Completion
noCompletion = Maybe Completion
forall a. Maybe a
Nothing
#if defined(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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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 @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type CompletionActivateProposalCallback =
IO ()
noCompletionActivateProposalCallback :: Maybe CompletionActivateProposalCallback
noCompletionActivateProposalCallback :: Maybe (IO ())
noCompletionActivateProposalCallback = Maybe (IO ())
forall a. Maybe a
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 :: IO () -> m (GClosure C_CompletionActivateProposalCallback)
genClosure_CompletionActivateProposal cb :: IO ()
cb = IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback))
-> IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionActivateProposalCallback IO ()
cb
C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionActivateProposalCallback C_CompletionActivateProposalCallback
cb' IO (FunPtr C_CompletionActivateProposalCallback)
-> (FunPtr C_CompletionActivateProposalCallback
-> IO (GClosure C_CompletionActivateProposalCallback))
-> IO (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CompletionActivateProposalCallback
-> IO (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CompletionActivateProposalCallback ::
CompletionActivateProposalCallback ->
C_CompletionActivateProposalCallback
wrap_CompletionActivateProposalCallback :: IO () -> C_CompletionActivateProposalCallback
wrap_CompletionActivateProposalCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onCompletionActivateProposal :: (IsCompletion a, MonadIO m) => a -> CompletionActivateProposalCallback -> m SignalHandlerId
onCompletionActivateProposal :: a -> IO () -> m SignalHandlerId
onCompletionActivateProposal obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionActivateProposalCallback IO ()
cb
FunPtr C_CompletionActivateProposalCallback
cb'' <- C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionActivateProposalCallback C_CompletionActivateProposalCallback
cb'
a
-> Text
-> FunPtr C_CompletionActivateProposalCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "activate-proposal" FunPtr C_CompletionActivateProposalCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCompletionActivateProposal :: (IsCompletion a, MonadIO m) => a -> CompletionActivateProposalCallback -> m SignalHandlerId
afterCompletionActivateProposal :: a -> IO () -> m SignalHandlerId
afterCompletionActivateProposal obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionActivateProposalCallback IO ()
cb
FunPtr C_CompletionActivateProposalCallback
cb'' <- C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionActivateProposalCallback C_CompletionActivateProposalCallback
cb'
a
-> Text
-> FunPtr C_CompletionActivateProposalCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "activate-proposal" FunPtr C_CompletionActivateProposalCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CompletionActivateProposalSignalInfo
instance SignalInfo CompletionActivateProposalSignalInfo where
type HaskellCallbackType CompletionActivateProposalSignalInfo = CompletionActivateProposalCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CompletionActivateProposalCallback cb
cb'' <- mk_CompletionActivateProposalCallback cb'
connectSignalFunPtr obj "activate-proposal" cb'' connectMode detail
#endif
type CompletionHideCallback =
IO ()
noCompletionHideCallback :: Maybe CompletionHideCallback
noCompletionHideCallback :: Maybe (IO ())
noCompletionHideCallback = Maybe (IO ())
forall a. Maybe a
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 :: IO () -> m (GClosure C_CompletionActivateProposalCallback)
genClosure_CompletionHide cb :: IO ()
cb = IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback))
-> IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionHideCallback IO ()
cb
C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionHideCallback C_CompletionActivateProposalCallback
cb' IO (FunPtr C_CompletionActivateProposalCallback)
-> (FunPtr C_CompletionActivateProposalCallback
-> IO (GClosure C_CompletionActivateProposalCallback))
-> IO (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CompletionActivateProposalCallback
-> IO (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CompletionHideCallback ::
CompletionHideCallback ->
C_CompletionHideCallback
wrap_CompletionHideCallback :: IO () -> C_CompletionActivateProposalCallback
wrap_CompletionHideCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onCompletionHide :: (IsCompletion a, MonadIO m) => a -> CompletionHideCallback -> m SignalHandlerId
onCompletionHide :: a -> IO () -> m SignalHandlerId
onCompletionHide obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionHideCallback IO ()
cb
FunPtr C_CompletionActivateProposalCallback
cb'' <- C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionHideCallback C_CompletionActivateProposalCallback
cb'
a
-> Text
-> FunPtr C_CompletionActivateProposalCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "hide" FunPtr C_CompletionActivateProposalCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCompletionHide :: (IsCompletion a, MonadIO m) => a -> CompletionHideCallback -> m SignalHandlerId
afterCompletionHide :: a -> IO () -> m SignalHandlerId
afterCompletionHide obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionHideCallback IO ()
cb
FunPtr C_CompletionActivateProposalCallback
cb'' <- C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionHideCallback C_CompletionActivateProposalCallback
cb'
a
-> Text
-> FunPtr C_CompletionActivateProposalCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "hide" FunPtr C_CompletionActivateProposalCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CompletionHideSignalInfo
instance SignalInfo CompletionHideSignalInfo where
type HaskellCallbackType CompletionHideSignalInfo = CompletionHideCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CompletionHideCallback cb
cb'' <- mk_CompletionHideCallback cb'
connectSignalFunPtr obj "hide" cb'' connectMode detail
#endif
type CompletionMoveCursorCallback =
Gtk.Enums.ScrollStep
-> Int32
-> IO ()
noCompletionMoveCursorCallback :: Maybe CompletionMoveCursorCallback
noCompletionMoveCursorCallback :: Maybe CompletionMoveCursorCallback
noCompletionMoveCursorCallback = Maybe CompletionMoveCursorCallback
forall a. Maybe a
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 :: CompletionMoveCursorCallback
-> m (GClosure C_CompletionMoveCursorCallback)
genClosure_CompletionMoveCursor cb :: CompletionMoveCursorCallback
cb = IO (GClosure C_CompletionMoveCursorCallback)
-> m (GClosure C_CompletionMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CompletionMoveCursorCallback)
-> m (GClosure C_CompletionMoveCursorCallback))
-> IO (GClosure C_CompletionMoveCursorCallback)
-> m (GClosure C_CompletionMoveCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionMoveCursorCallback
cb' = CompletionMoveCursorCallback -> C_CompletionMoveCursorCallback
wrap_CompletionMoveCursorCallback CompletionMoveCursorCallback
cb
C_CompletionMoveCursorCallback
-> IO (FunPtr C_CompletionMoveCursorCallback)
mk_CompletionMoveCursorCallback C_CompletionMoveCursorCallback
cb' IO (FunPtr C_CompletionMoveCursorCallback)
-> (FunPtr C_CompletionMoveCursorCallback
-> IO (GClosure C_CompletionMoveCursorCallback))
-> IO (GClosure C_CompletionMoveCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CompletionMoveCursorCallback
-> IO (GClosure C_CompletionMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CompletionMoveCursorCallback ::
CompletionMoveCursorCallback ->
C_CompletionMoveCursorCallback
wrap_CompletionMoveCursorCallback :: CompletionMoveCursorCallback -> C_CompletionMoveCursorCallback
wrap_CompletionMoveCursorCallback _cb :: CompletionMoveCursorCallback
_cb _ step :: CUInt
step num :: Int32
num _ = do
let step' :: ScrollStep
step' = (Int -> ScrollStep
forall a. Enum a => Int -> a
toEnum (Int -> ScrollStep) -> (CUInt -> Int) -> CUInt -> ScrollStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
CompletionMoveCursorCallback
_cb ScrollStep
step' Int32
num
onCompletionMoveCursor :: (IsCompletion a, MonadIO m) => a -> CompletionMoveCursorCallback -> m SignalHandlerId
onCompletionMoveCursor :: a -> CompletionMoveCursorCallback -> m SignalHandlerId
onCompletionMoveCursor obj :: a
obj cb :: CompletionMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionMoveCursorCallback
cb' = CompletionMoveCursorCallback -> C_CompletionMoveCursorCallback
wrap_CompletionMoveCursorCallback CompletionMoveCursorCallback
cb
FunPtr C_CompletionMoveCursorCallback
cb'' <- C_CompletionMoveCursorCallback
-> IO (FunPtr C_CompletionMoveCursorCallback)
mk_CompletionMoveCursorCallback C_CompletionMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_CompletionMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-cursor" FunPtr C_CompletionMoveCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCompletionMoveCursor :: (IsCompletion a, MonadIO m) => a -> CompletionMoveCursorCallback -> m SignalHandlerId
afterCompletionMoveCursor :: a -> CompletionMoveCursorCallback -> m SignalHandlerId
afterCompletionMoveCursor obj :: a
obj cb :: CompletionMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionMoveCursorCallback
cb' = CompletionMoveCursorCallback -> C_CompletionMoveCursorCallback
wrap_CompletionMoveCursorCallback CompletionMoveCursorCallback
cb
FunPtr C_CompletionMoveCursorCallback
cb'' <- C_CompletionMoveCursorCallback
-> IO (FunPtr C_CompletionMoveCursorCallback)
mk_CompletionMoveCursorCallback C_CompletionMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_CompletionMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-cursor" FunPtr C_CompletionMoveCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CompletionMoveCursorSignalInfo
instance SignalInfo CompletionMoveCursorSignalInfo where
type HaskellCallbackType CompletionMoveCursorSignalInfo = CompletionMoveCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CompletionMoveCursorCallback cb
cb'' <- mk_CompletionMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' connectMode detail
#endif
type CompletionMovePageCallback =
Gtk.Enums.ScrollStep
-> Int32
-> IO ()
noCompletionMovePageCallback :: Maybe CompletionMovePageCallback
noCompletionMovePageCallback :: Maybe CompletionMoveCursorCallback
noCompletionMovePageCallback = Maybe CompletionMoveCursorCallback
forall a. Maybe a
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 :: CompletionMoveCursorCallback
-> m (GClosure C_CompletionMoveCursorCallback)
genClosure_CompletionMovePage cb :: CompletionMoveCursorCallback
cb = IO (GClosure C_CompletionMoveCursorCallback)
-> m (GClosure C_CompletionMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CompletionMoveCursorCallback)
-> m (GClosure C_CompletionMoveCursorCallback))
-> IO (GClosure C_CompletionMoveCursorCallback)
-> m (GClosure C_CompletionMoveCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionMoveCursorCallback
cb' = CompletionMoveCursorCallback -> C_CompletionMoveCursorCallback
wrap_CompletionMovePageCallback CompletionMoveCursorCallback
cb
C_CompletionMoveCursorCallback
-> IO (FunPtr C_CompletionMoveCursorCallback)
mk_CompletionMovePageCallback C_CompletionMoveCursorCallback
cb' IO (FunPtr C_CompletionMoveCursorCallback)
-> (FunPtr C_CompletionMoveCursorCallback
-> IO (GClosure C_CompletionMoveCursorCallback))
-> IO (GClosure C_CompletionMoveCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CompletionMoveCursorCallback
-> IO (GClosure C_CompletionMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CompletionMovePageCallback ::
CompletionMovePageCallback ->
C_CompletionMovePageCallback
wrap_CompletionMovePageCallback :: CompletionMoveCursorCallback -> C_CompletionMoveCursorCallback
wrap_CompletionMovePageCallback _cb :: CompletionMoveCursorCallback
_cb _ step :: CUInt
step num :: Int32
num _ = do
let step' :: ScrollStep
step' = (Int -> ScrollStep
forall a. Enum a => Int -> a
toEnum (Int -> ScrollStep) -> (CUInt -> Int) -> CUInt -> ScrollStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
CompletionMoveCursorCallback
_cb ScrollStep
step' Int32
num
onCompletionMovePage :: (IsCompletion a, MonadIO m) => a -> CompletionMovePageCallback -> m SignalHandlerId
onCompletionMovePage :: a -> CompletionMoveCursorCallback -> m SignalHandlerId
onCompletionMovePage obj :: a
obj cb :: CompletionMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionMoveCursorCallback
cb' = CompletionMoveCursorCallback -> C_CompletionMoveCursorCallback
wrap_CompletionMovePageCallback CompletionMoveCursorCallback
cb
FunPtr C_CompletionMoveCursorCallback
cb'' <- C_CompletionMoveCursorCallback
-> IO (FunPtr C_CompletionMoveCursorCallback)
mk_CompletionMovePageCallback C_CompletionMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_CompletionMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-page" FunPtr C_CompletionMoveCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCompletionMovePage :: (IsCompletion a, MonadIO m) => a -> CompletionMovePageCallback -> m SignalHandlerId
afterCompletionMovePage :: a -> CompletionMoveCursorCallback -> m SignalHandlerId
afterCompletionMovePage obj :: a
obj cb :: CompletionMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionMoveCursorCallback
cb' = CompletionMoveCursorCallback -> C_CompletionMoveCursorCallback
wrap_CompletionMovePageCallback CompletionMoveCursorCallback
cb
FunPtr C_CompletionMoveCursorCallback
cb'' <- C_CompletionMoveCursorCallback
-> IO (FunPtr C_CompletionMoveCursorCallback)
mk_CompletionMovePageCallback C_CompletionMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_CompletionMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-page" FunPtr C_CompletionMoveCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CompletionMovePageSignalInfo
instance SignalInfo CompletionMovePageSignalInfo where
type HaskellCallbackType CompletionMovePageSignalInfo = CompletionMovePageCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CompletionMovePageCallback cb
cb'' <- mk_CompletionMovePageCallback cb'
connectSignalFunPtr obj "move-page" cb'' connectMode detail
#endif
type CompletionPopulateContextCallback =
GtkSource.CompletionContext.CompletionContext
-> IO ()
noCompletionPopulateContextCallback :: Maybe CompletionPopulateContextCallback
noCompletionPopulateContextCallback :: Maybe CompletionPopulateContextCallback
noCompletionPopulateContextCallback = Maybe CompletionPopulateContextCallback
forall a. Maybe a
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 :: CompletionPopulateContextCallback
-> m (GClosure C_CompletionPopulateContextCallback)
genClosure_CompletionPopulateContext cb :: CompletionPopulateContextCallback
cb = IO (GClosure C_CompletionPopulateContextCallback)
-> m (GClosure C_CompletionPopulateContextCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CompletionPopulateContextCallback)
-> m (GClosure C_CompletionPopulateContextCallback))
-> IO (GClosure C_CompletionPopulateContextCallback)
-> m (GClosure C_CompletionPopulateContextCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionPopulateContextCallback
cb' = CompletionPopulateContextCallback
-> C_CompletionPopulateContextCallback
wrap_CompletionPopulateContextCallback CompletionPopulateContextCallback
cb
C_CompletionPopulateContextCallback
-> IO (FunPtr C_CompletionPopulateContextCallback)
mk_CompletionPopulateContextCallback C_CompletionPopulateContextCallback
cb' IO (FunPtr C_CompletionPopulateContextCallback)
-> (FunPtr C_CompletionPopulateContextCallback
-> IO (GClosure C_CompletionPopulateContextCallback))
-> IO (GClosure C_CompletionPopulateContextCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CompletionPopulateContextCallback
-> IO (GClosure C_CompletionPopulateContextCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CompletionPopulateContextCallback ::
CompletionPopulateContextCallback ->
C_CompletionPopulateContextCallback
wrap_CompletionPopulateContextCallback :: CompletionPopulateContextCallback
-> C_CompletionPopulateContextCallback
wrap_CompletionPopulateContextCallback _cb :: CompletionPopulateContextCallback
_cb _ context :: Ptr CompletionContext
context _ = do
CompletionContext
context' <- ((ManagedPtr CompletionContext -> CompletionContext)
-> Ptr CompletionContext -> IO CompletionContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CompletionContext -> CompletionContext
GtkSource.CompletionContext.CompletionContext) Ptr CompletionContext
context
CompletionPopulateContextCallback
_cb CompletionContext
context'
onCompletionPopulateContext :: (IsCompletion a, MonadIO m) => a -> CompletionPopulateContextCallback -> m SignalHandlerId
onCompletionPopulateContext :: a -> CompletionPopulateContextCallback -> m SignalHandlerId
onCompletionPopulateContext obj :: a
obj cb :: CompletionPopulateContextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionPopulateContextCallback
cb' = CompletionPopulateContextCallback
-> C_CompletionPopulateContextCallback
wrap_CompletionPopulateContextCallback CompletionPopulateContextCallback
cb
FunPtr C_CompletionPopulateContextCallback
cb'' <- C_CompletionPopulateContextCallback
-> IO (FunPtr C_CompletionPopulateContextCallback)
mk_CompletionPopulateContextCallback C_CompletionPopulateContextCallback
cb'
a
-> Text
-> FunPtr C_CompletionPopulateContextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "populate-context" FunPtr C_CompletionPopulateContextCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCompletionPopulateContext :: (IsCompletion a, MonadIO m) => a -> CompletionPopulateContextCallback -> m SignalHandlerId
afterCompletionPopulateContext :: a -> CompletionPopulateContextCallback -> m SignalHandlerId
afterCompletionPopulateContext obj :: a
obj cb :: CompletionPopulateContextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionPopulateContextCallback
cb' = CompletionPopulateContextCallback
-> C_CompletionPopulateContextCallback
wrap_CompletionPopulateContextCallback CompletionPopulateContextCallback
cb
FunPtr C_CompletionPopulateContextCallback
cb'' <- C_CompletionPopulateContextCallback
-> IO (FunPtr C_CompletionPopulateContextCallback)
mk_CompletionPopulateContextCallback C_CompletionPopulateContextCallback
cb'
a
-> Text
-> FunPtr C_CompletionPopulateContextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "populate-context" FunPtr C_CompletionPopulateContextCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CompletionPopulateContextSignalInfo
instance SignalInfo CompletionPopulateContextSignalInfo where
type HaskellCallbackType CompletionPopulateContextSignalInfo = CompletionPopulateContextCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CompletionPopulateContextCallback cb
cb'' <- mk_CompletionPopulateContextCallback cb'
connectSignalFunPtr obj "populate-context" cb'' connectMode detail
#endif
type CompletionShowCallback =
IO ()
noCompletionShowCallback :: Maybe CompletionShowCallback
noCompletionShowCallback :: Maybe (IO ())
noCompletionShowCallback = Maybe (IO ())
forall a. Maybe a
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 :: IO () -> m (GClosure C_CompletionActivateProposalCallback)
genClosure_CompletionShow cb :: IO ()
cb = IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback))
-> IO (GClosure C_CompletionActivateProposalCallback)
-> m (GClosure C_CompletionActivateProposalCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionShowCallback IO ()
cb
C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionShowCallback C_CompletionActivateProposalCallback
cb' IO (FunPtr C_CompletionActivateProposalCallback)
-> (FunPtr C_CompletionActivateProposalCallback
-> IO (GClosure C_CompletionActivateProposalCallback))
-> IO (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CompletionActivateProposalCallback
-> IO (GClosure C_CompletionActivateProposalCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CompletionShowCallback ::
CompletionShowCallback ->
C_CompletionShowCallback
wrap_CompletionShowCallback :: IO () -> C_CompletionActivateProposalCallback
wrap_CompletionShowCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onCompletionShow :: (IsCompletion a, MonadIO m) => a -> CompletionShowCallback -> m SignalHandlerId
onCompletionShow :: a -> IO () -> m SignalHandlerId
onCompletionShow obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionShowCallback IO ()
cb
FunPtr C_CompletionActivateProposalCallback
cb'' <- C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionShowCallback C_CompletionActivateProposalCallback
cb'
a
-> Text
-> FunPtr C_CompletionActivateProposalCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "show" FunPtr C_CompletionActivateProposalCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCompletionShow :: (IsCompletion a, MonadIO m) => a -> CompletionShowCallback -> m SignalHandlerId
afterCompletionShow :: a -> IO () -> m SignalHandlerId
afterCompletionShow obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CompletionActivateProposalCallback
cb' = IO () -> C_CompletionActivateProposalCallback
wrap_CompletionShowCallback IO ()
cb
FunPtr C_CompletionActivateProposalCallback
cb'' <- C_CompletionActivateProposalCallback
-> IO (FunPtr C_CompletionActivateProposalCallback)
mk_CompletionShowCallback C_CompletionActivateProposalCallback
cb'
a
-> Text
-> FunPtr C_CompletionActivateProposalCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "show" FunPtr C_CompletionActivateProposalCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CompletionShowSignalInfo
instance SignalInfo CompletionShowSignalInfo where
type HaskellCallbackType CompletionShowSignalInfo = CompletionShowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CompletionShowCallback cb
cb'' <- mk_CompletionShowCallback cb'
connectSignalFunPtr obj "show" cb'' connectMode detail
#endif
getCompletionAccelerators :: (MonadIO m, IsCompletion o) => o -> m Word32
getCompletionAccelerators :: o -> m Word32
getCompletionAccelerators obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "accelerators"
setCompletionAccelerators :: (MonadIO m, IsCompletion o) => o -> Word32 -> m ()
setCompletionAccelerators :: o -> Word32 -> m ()
setCompletionAccelerators obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "accelerators" Word32
val
constructCompletionAccelerators :: (IsCompletion o) => Word32 -> IO (GValueConstruct o)
constructCompletionAccelerators :: Word32 -> IO (GValueConstruct o)
constructCompletionAccelerators val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "accelerators" Word32
val
#if defined(ENABLE_OVERLOADING)
data CompletionAcceleratorsPropertyInfo
instance AttrInfo CompletionAcceleratorsPropertyInfo where
type AttrAllowedOps CompletionAcceleratorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionAcceleratorsPropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionAcceleratorsPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CompletionAcceleratorsPropertyInfo = (~) Word32
type AttrTransferType CompletionAcceleratorsPropertyInfo = Word32
type AttrGetType CompletionAcceleratorsPropertyInfo = Word32
type AttrLabel CompletionAcceleratorsPropertyInfo = "accelerators"
type AttrOrigin CompletionAcceleratorsPropertyInfo = Completion
attrGet = getCompletionAccelerators
attrSet = setCompletionAccelerators
attrTransfer _ v = do
return v
attrConstruct = constructCompletionAccelerators
attrClear = undefined
#endif
getCompletionAutoCompleteDelay :: (MonadIO m, IsCompletion o) => o -> m Word32
getCompletionAutoCompleteDelay :: o -> m Word32
getCompletionAutoCompleteDelay obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "auto-complete-delay"
setCompletionAutoCompleteDelay :: (MonadIO m, IsCompletion o) => o -> Word32 -> m ()
setCompletionAutoCompleteDelay :: o -> Word32 -> m ()
setCompletionAutoCompleteDelay obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "auto-complete-delay" Word32
val
constructCompletionAutoCompleteDelay :: (IsCompletion o) => Word32 -> IO (GValueConstruct o)
constructCompletionAutoCompleteDelay :: Word32 -> IO (GValueConstruct o)
constructCompletionAutoCompleteDelay val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "auto-complete-delay" Word32
val
#if defined(ENABLE_OVERLOADING)
data CompletionAutoCompleteDelayPropertyInfo
instance AttrInfo CompletionAutoCompleteDelayPropertyInfo where
type AttrAllowedOps CompletionAutoCompleteDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionAutoCompleteDelayPropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionAutoCompleteDelayPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CompletionAutoCompleteDelayPropertyInfo = (~) Word32
type AttrTransferType CompletionAutoCompleteDelayPropertyInfo = Word32
type AttrGetType CompletionAutoCompleteDelayPropertyInfo = Word32
type AttrLabel CompletionAutoCompleteDelayPropertyInfo = "auto-complete-delay"
type AttrOrigin CompletionAutoCompleteDelayPropertyInfo = Completion
attrGet = getCompletionAutoCompleteDelay
attrSet = setCompletionAutoCompleteDelay
attrTransfer _ v = do
return v
attrConstruct = constructCompletionAutoCompleteDelay
attrClear = undefined
#endif
getCompletionProposalPageSize :: (MonadIO m, IsCompletion o) => o -> m Word32
getCompletionProposalPageSize :: o -> m Word32
getCompletionProposalPageSize obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "proposal-page-size"
setCompletionProposalPageSize :: (MonadIO m, IsCompletion o) => o -> Word32 -> m ()
setCompletionProposalPageSize :: o -> Word32 -> m ()
setCompletionProposalPageSize obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "proposal-page-size" Word32
val
constructCompletionProposalPageSize :: (IsCompletion o) => Word32 -> IO (GValueConstruct o)
constructCompletionProposalPageSize :: Word32 -> IO (GValueConstruct o)
constructCompletionProposalPageSize val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "proposal-page-size" Word32
val
#if defined(ENABLE_OVERLOADING)
data CompletionProposalPageSizePropertyInfo
instance AttrInfo CompletionProposalPageSizePropertyInfo where
type AttrAllowedOps CompletionProposalPageSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionProposalPageSizePropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionProposalPageSizePropertyInfo = (~) Word32
type AttrTransferTypeConstraint CompletionProposalPageSizePropertyInfo = (~) Word32
type AttrTransferType CompletionProposalPageSizePropertyInfo = Word32
type AttrGetType CompletionProposalPageSizePropertyInfo = Word32
type AttrLabel CompletionProposalPageSizePropertyInfo = "proposal-page-size"
type AttrOrigin CompletionProposalPageSizePropertyInfo = Completion
attrGet = getCompletionProposalPageSize
attrSet = setCompletionProposalPageSize
attrTransfer _ v = do
return v
attrConstruct = constructCompletionProposalPageSize
attrClear = undefined
#endif
getCompletionProviderPageSize :: (MonadIO m, IsCompletion o) => o -> m Word32
getCompletionProviderPageSize :: o -> m Word32
getCompletionProviderPageSize obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "provider-page-size"
setCompletionProviderPageSize :: (MonadIO m, IsCompletion o) => o -> Word32 -> m ()
setCompletionProviderPageSize :: o -> Word32 -> m ()
setCompletionProviderPageSize obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "provider-page-size" Word32
val
constructCompletionProviderPageSize :: (IsCompletion o) => Word32 -> IO (GValueConstruct o)
constructCompletionProviderPageSize :: Word32 -> IO (GValueConstruct o)
constructCompletionProviderPageSize val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "provider-page-size" Word32
val
#if defined(ENABLE_OVERLOADING)
data CompletionProviderPageSizePropertyInfo
instance AttrInfo CompletionProviderPageSizePropertyInfo where
type AttrAllowedOps CompletionProviderPageSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionProviderPageSizePropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionProviderPageSizePropertyInfo = (~) Word32
type AttrTransferTypeConstraint CompletionProviderPageSizePropertyInfo = (~) Word32
type AttrTransferType CompletionProviderPageSizePropertyInfo = Word32
type AttrGetType CompletionProviderPageSizePropertyInfo = Word32
type AttrLabel CompletionProviderPageSizePropertyInfo = "provider-page-size"
type AttrOrigin CompletionProviderPageSizePropertyInfo = Completion
attrGet = getCompletionProviderPageSize
attrSet = setCompletionProviderPageSize
attrTransfer _ v = do
return v
attrConstruct = constructCompletionProviderPageSize
attrClear = undefined
#endif
getCompletionRememberInfoVisibility :: (MonadIO m, IsCompletion o) => o -> m Bool
getCompletionRememberInfoVisibility :: o -> m Bool
getCompletionRememberInfoVisibility obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "remember-info-visibility"
setCompletionRememberInfoVisibility :: (MonadIO m, IsCompletion o) => o -> Bool -> m ()
setCompletionRememberInfoVisibility :: o -> Bool -> m ()
setCompletionRememberInfoVisibility obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "remember-info-visibility" Bool
val
constructCompletionRememberInfoVisibility :: (IsCompletion o) => Bool -> IO (GValueConstruct o)
constructCompletionRememberInfoVisibility :: Bool -> IO (GValueConstruct o)
constructCompletionRememberInfoVisibility val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "remember-info-visibility" Bool
val
#if defined(ENABLE_OVERLOADING)
data CompletionRememberInfoVisibilityPropertyInfo
instance AttrInfo CompletionRememberInfoVisibilityPropertyInfo where
type AttrAllowedOps CompletionRememberInfoVisibilityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionRememberInfoVisibilityPropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionRememberInfoVisibilityPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CompletionRememberInfoVisibilityPropertyInfo = (~) Bool
type AttrTransferType CompletionRememberInfoVisibilityPropertyInfo = Bool
type AttrGetType CompletionRememberInfoVisibilityPropertyInfo = Bool
type AttrLabel CompletionRememberInfoVisibilityPropertyInfo = "remember-info-visibility"
type AttrOrigin CompletionRememberInfoVisibilityPropertyInfo = Completion
attrGet = getCompletionRememberInfoVisibility
attrSet = setCompletionRememberInfoVisibility
attrTransfer _ v = do
return v
attrConstruct = constructCompletionRememberInfoVisibility
attrClear = undefined
#endif
getCompletionSelectOnShow :: (MonadIO m, IsCompletion o) => o -> m Bool
getCompletionSelectOnShow :: o -> m Bool
getCompletionSelectOnShow obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "select-on-show"
setCompletionSelectOnShow :: (MonadIO m, IsCompletion o) => o -> Bool -> m ()
setCompletionSelectOnShow :: o -> Bool -> m ()
setCompletionSelectOnShow obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "select-on-show" Bool
val
constructCompletionSelectOnShow :: (IsCompletion o) => Bool -> IO (GValueConstruct o)
constructCompletionSelectOnShow :: Bool -> IO (GValueConstruct o)
constructCompletionSelectOnShow val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "select-on-show" Bool
val
#if defined(ENABLE_OVERLOADING)
data CompletionSelectOnShowPropertyInfo
instance AttrInfo CompletionSelectOnShowPropertyInfo where
type AttrAllowedOps CompletionSelectOnShowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionSelectOnShowPropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionSelectOnShowPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CompletionSelectOnShowPropertyInfo = (~) Bool
type AttrTransferType CompletionSelectOnShowPropertyInfo = Bool
type AttrGetType CompletionSelectOnShowPropertyInfo = Bool
type AttrLabel CompletionSelectOnShowPropertyInfo = "select-on-show"
type AttrOrigin CompletionSelectOnShowPropertyInfo = Completion
attrGet = getCompletionSelectOnShow
attrSet = setCompletionSelectOnShow
attrTransfer _ v = do
return v
attrConstruct = constructCompletionSelectOnShow
attrClear = undefined
#endif
getCompletionShowHeaders :: (MonadIO m, IsCompletion o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-headers"
setCompletionShowHeaders :: (MonadIO m, IsCompletion o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-headers" Bool
val
constructCompletionShowHeaders :: (IsCompletion o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "show-headers" Bool
val
#if defined(ENABLE_OVERLOADING)
data CompletionShowHeadersPropertyInfo
instance AttrInfo CompletionShowHeadersPropertyInfo where
type AttrAllowedOps CompletionShowHeadersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionShowHeadersPropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionShowHeadersPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CompletionShowHeadersPropertyInfo = (~) Bool
type AttrTransferType CompletionShowHeadersPropertyInfo = Bool
type AttrGetType CompletionShowHeadersPropertyInfo = Bool
type AttrLabel CompletionShowHeadersPropertyInfo = "show-headers"
type AttrOrigin CompletionShowHeadersPropertyInfo = Completion
attrGet = getCompletionShowHeaders
attrSet = setCompletionShowHeaders
attrTransfer _ v = do
return v
attrConstruct = constructCompletionShowHeaders
attrClear = undefined
#endif
getCompletionShowIcons :: (MonadIO m, IsCompletion o) => o -> m Bool
getCompletionShowIcons :: o -> m Bool
getCompletionShowIcons obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "show-icons"
setCompletionShowIcons :: (MonadIO m, IsCompletion o) => o -> Bool -> m ()
setCompletionShowIcons :: o -> Bool -> m ()
setCompletionShowIcons obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-icons" Bool
val
constructCompletionShowIcons :: (IsCompletion o) => Bool -> IO (GValueConstruct o)
constructCompletionShowIcons :: Bool -> IO (GValueConstruct o)
constructCompletionShowIcons val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "show-icons" Bool
val
#if defined(ENABLE_OVERLOADING)
data CompletionShowIconsPropertyInfo
instance AttrInfo CompletionShowIconsPropertyInfo where
type AttrAllowedOps CompletionShowIconsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionShowIconsPropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionShowIconsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CompletionShowIconsPropertyInfo = (~) Bool
type AttrTransferType CompletionShowIconsPropertyInfo = Bool
type AttrGetType CompletionShowIconsPropertyInfo = Bool
type AttrLabel CompletionShowIconsPropertyInfo = "show-icons"
type AttrOrigin CompletionShowIconsPropertyInfo = Completion
attrGet = getCompletionShowIcons
attrSet = setCompletionShowIcons
attrTransfer _ v = do
return v
attrConstruct = constructCompletionShowIcons
attrClear = undefined
#endif
getCompletionView :: (MonadIO m, IsCompletion o) => o -> m (Maybe GtkSource.View.View)
getCompletionView :: o -> m (Maybe View)
getCompletionView obj :: o
obj = IO (Maybe View) -> m (Maybe View)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe View) -> m (Maybe View))
-> IO (Maybe View) -> m (Maybe View)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr View -> View) -> IO (Maybe View)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "view" ManagedPtr View -> View
GtkSource.View.View
constructCompletionView :: (IsCompletion o, GtkSource.View.IsView a) => a -> IO (GValueConstruct o)
constructCompletionView :: a -> IO (GValueConstruct o)
constructCompletionView val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "view" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if defined(ENABLE_OVERLOADING)
data CompletionViewPropertyInfo
instance AttrInfo CompletionViewPropertyInfo where
type AttrAllowedOps CompletionViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionViewPropertyInfo = IsCompletion
type AttrSetTypeConstraint CompletionViewPropertyInfo = GtkSource.View.IsView
type AttrTransferTypeConstraint CompletionViewPropertyInfo = GtkSource.View.IsView
type AttrTransferType CompletionViewPropertyInfo = GtkSource.View.View
type AttrGetType CompletionViewPropertyInfo = (Maybe GtkSource.View.View)
type AttrLabel CompletionViewPropertyInfo = "view"
type AttrOrigin CompletionViewPropertyInfo = Completion
attrGet = getCompletionView
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo GtkSource.View.View v
attrConstruct = constructCompletionView
attrClear = undefined
#endif
#if defined(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 defined(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 defined(ENABLE_OVERLOADING)
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 :: a -> b -> m ()
completionAddProvider completion :: a
completion provider :: b
provider = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr CompletionProvider
provider' <- b -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
provider
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Completion
-> Ptr CompletionProvider -> Ptr (Ptr GError) -> IO CInt
gtk_source_completion_add_provider Ptr Completion
completion' Ptr CompletionProvider
provider'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
provider
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(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 :: a -> m ()
completionBlockInteractive completion :: a
completion = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr Completion -> IO ()
gtk_source_completion_block_interactive Ptr Completion
completion'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(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 :: a -> Maybe TextIter -> m CompletionContext
completionCreateContext completion :: a
completion position :: Maybe TextIter
position = IO CompletionContext -> m CompletionContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CompletionContext -> m CompletionContext)
-> IO CompletionContext -> m CompletionContext
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr TextIter
maybePosition <- case Maybe TextIter
position of
Nothing -> Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
forall a. Ptr a
nullPtr
Just jPosition :: TextIter
jPosition -> do
Ptr TextIter
jPosition' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
jPosition
Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
jPosition'
Ptr CompletionContext
result <- Ptr Completion -> Ptr TextIter -> IO (Ptr CompletionContext)
gtk_source_completion_create_context Ptr Completion
completion' Ptr TextIter
maybePosition
Text -> Ptr CompletionContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "completionCreateContext" Ptr CompletionContext
result
CompletionContext
result' <- ((ManagedPtr CompletionContext -> CompletionContext)
-> Ptr CompletionContext -> IO CompletionContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CompletionContext -> CompletionContext
GtkSource.CompletionContext.CompletionContext) Ptr CompletionContext
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
Maybe TextIter -> (TextIter -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TextIter
position TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CompletionContext -> IO CompletionContext
forall (m :: * -> *) a. Monad m => a -> m a
return CompletionContext
result'
#if defined(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 :: a -> m CompletionInfo
completionGetInfoWindow completion :: a
completion = IO CompletionInfo -> m CompletionInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CompletionInfo -> m CompletionInfo)
-> IO CompletionInfo -> m CompletionInfo
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr CompletionInfo
result <- Ptr Completion -> IO (Ptr CompletionInfo)
gtk_source_completion_get_info_window Ptr Completion
completion'
Text -> Ptr CompletionInfo -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "completionGetInfoWindow" Ptr CompletionInfo
result
CompletionInfo
result' <- ((ManagedPtr CompletionInfo -> CompletionInfo)
-> Ptr CompletionInfo -> IO CompletionInfo
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CompletionInfo -> CompletionInfo
GtkSource.CompletionInfo.CompletionInfo) Ptr CompletionInfo
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
CompletionInfo -> IO CompletionInfo
forall (m :: * -> *) a. Monad m => a -> m a
return CompletionInfo
result'
#if defined(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 :: a -> m [CompletionProvider]
completionGetProviders completion :: a
completion = IO [CompletionProvider] -> m [CompletionProvider]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CompletionProvider] -> m [CompletionProvider])
-> IO [CompletionProvider] -> m [CompletionProvider]
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr (GList (Ptr CompletionProvider))
result <- Ptr Completion -> IO (Ptr (GList (Ptr CompletionProvider)))
gtk_source_completion_get_providers Ptr Completion
completion'
[Ptr CompletionProvider]
result' <- Ptr (GList (Ptr CompletionProvider)) -> IO [Ptr CompletionProvider]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr CompletionProvider))
result
[CompletionProvider]
result'' <- (Ptr CompletionProvider -> IO CompletionProvider)
-> [Ptr CompletionProvider] -> IO [CompletionProvider]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr CompletionProvider -> CompletionProvider)
-> Ptr CompletionProvider -> IO CompletionProvider
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CompletionProvider -> CompletionProvider
GtkSource.CompletionProvider.CompletionProvider) [Ptr CompletionProvider]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
[CompletionProvider] -> IO [CompletionProvider]
forall (m :: * -> *) a. Monad m => a -> m a
return [CompletionProvider]
result''
#if defined(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 :: a -> m (Maybe View)
completionGetView completion :: a
completion = IO (Maybe View) -> m (Maybe View)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe View) -> m (Maybe View))
-> IO (Maybe View) -> m (Maybe View)
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr View
result <- Ptr Completion -> IO (Ptr View)
gtk_source_completion_get_view Ptr Completion
completion'
Maybe View
maybeResult <- Ptr View -> (Ptr View -> IO View) -> IO (Maybe View)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr View
result ((Ptr View -> IO View) -> IO (Maybe View))
-> (Ptr View -> IO View) -> IO (Maybe View)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr View
result' -> do
View
result'' <- ((ManagedPtr View -> View) -> Ptr View -> IO View
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr View -> View
GtkSource.View.View) Ptr View
result'
View -> IO View
forall (m :: * -> *) a. Monad m => a -> m a
return View
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
Maybe View -> IO (Maybe View)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe View
maybeResult
#if defined(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 :: a -> m ()
completionHide completion :: a
completion = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr Completion -> IO ()
gtk_source_completion_hide Ptr Completion
completion'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(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 :: a -> TextIter -> m ()
completionMoveWindow completion :: a
completion iter :: TextIter
iter = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Completion -> Ptr TextIter -> IO ()
gtk_source_completion_move_window Ptr Completion
completion' Ptr TextIter
iter'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(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 :: a -> b -> m ()
completionRemoveProvider completion :: a
completion provider :: b
provider = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr CompletionProvider
provider' <- b -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
provider
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Completion
-> Ptr CompletionProvider -> Ptr (Ptr GError) -> IO CInt
gtk_source_completion_remove_provider Ptr Completion
completion' Ptr CompletionProvider
provider'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
provider
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(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 :: a -> [b] -> c -> m Bool
completionShow completion :: a
completion providers :: [b]
providers context :: c
context = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
[Ptr CompletionProvider]
providers' <- (b -> IO (Ptr CompletionProvider))
-> [b] -> IO [Ptr CompletionProvider]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM b -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [b]
providers
Ptr (GList (Ptr CompletionProvider))
providers'' <- [Ptr CompletionProvider]
-> IO (Ptr (GList (Ptr CompletionProvider)))
forall a. [Ptr a] -> IO (Ptr (GList (Ptr a)))
packGList [Ptr CompletionProvider]
providers'
Ptr CompletionContext
context' <- c -> IO (Ptr CompletionContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
context
CInt
result <- Ptr Completion
-> Ptr (GList (Ptr CompletionProvider))
-> Ptr CompletionContext
-> IO CInt
gtk_source_completion_show Ptr Completion
completion' Ptr (GList (Ptr CompletionProvider))
providers'' Ptr CompletionContext
context'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
(b -> IO ()) -> [b] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [b]
providers
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
context
Ptr (GList (Ptr CompletionProvider)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr CompletionProvider))
providers''
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(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 :: a -> m ()
completionUnblockInteractive completion :: a
completion = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Completion
completion' <- a -> IO (Ptr Completion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
Ptr Completion -> IO ()
gtk_source_completion_unblock_interactive Ptr Completion
completion'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionUnblockInteractiveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCompletion a) => O.MethodInfo CompletionUnblockInteractiveMethodInfo a signature where
overloadedMethod = completionUnblockInteractive
#endif