{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Interfaces.CompletionProvider
(
CompletionProvider(..) ,
IsCompletionProvider ,
toCompletionProvider ,
#if defined(ENABLE_OVERLOADING)
ResolveCompletionProviderMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CompletionProviderActivateProposalMethodInfo,
#endif
completionProviderActivateProposal ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetActivationMethodInfo,
#endif
completionProviderGetActivation ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetGiconMethodInfo ,
#endif
completionProviderGetGicon ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetIconMethodInfo ,
#endif
completionProviderGetIcon ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetIconNameMethodInfo ,
#endif
completionProviderGetIconName ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetInfoWidgetMethodInfo,
#endif
completionProviderGetInfoWidget ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetInteractiveDelayMethodInfo,
#endif
completionProviderGetInteractiveDelay ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetNameMethodInfo ,
#endif
completionProviderGetName ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetPriorityMethodInfo ,
#endif
completionProviderGetPriority ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderGetStartIterMethodInfo,
#endif
completionProviderGetStartIter ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderMatchMethodInfo ,
#endif
completionProviderMatch ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderPopulateMethodInfo ,
#endif
completionProviderPopulate ,
#if defined(ENABLE_OVERLOADING)
CompletionProviderUpdateInfoMethodInfo ,
#endif
completionProviderUpdateInfo ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.GtkSource.Flags as GtkSource.Flags
import {-# SOURCE #-} qualified GI.GtkSource.Interfaces.CompletionProposal as GtkSource.CompletionProposal
import {-# SOURCE #-} qualified GI.GtkSource.Objects.CompletionContext as GtkSource.CompletionContext
import {-# SOURCE #-} qualified GI.GtkSource.Objects.CompletionInfo as GtkSource.CompletionInfo
newtype CompletionProvider = CompletionProvider (SP.ManagedPtr CompletionProvider)
deriving (CompletionProvider -> CompletionProvider -> Bool
(CompletionProvider -> CompletionProvider -> Bool)
-> (CompletionProvider -> CompletionProvider -> Bool)
-> Eq CompletionProvider
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompletionProvider -> CompletionProvider -> Bool
== :: CompletionProvider -> CompletionProvider -> Bool
$c/= :: CompletionProvider -> CompletionProvider -> Bool
/= :: CompletionProvider -> CompletionProvider -> Bool
Eq)
instance SP.ManagedPtrNewtype CompletionProvider where
toManagedPtr :: CompletionProvider -> ManagedPtr CompletionProvider
toManagedPtr (CompletionProvider ManagedPtr CompletionProvider
p) = ManagedPtr CompletionProvider
p
foreign import ccall "gtk_source_completion_provider_get_type"
c_gtk_source_completion_provider_get_type :: IO B.Types.GType
instance B.Types.TypedObject CompletionProvider where
glibType :: IO GType
glibType = IO GType
c_gtk_source_completion_provider_get_type
instance B.Types.GObject CompletionProvider
class (SP.GObject o, O.IsDescendantOf CompletionProvider o) => IsCompletionProvider o
instance (SP.GObject o, O.IsDescendantOf CompletionProvider o) => IsCompletionProvider o
instance O.HasParentTypes CompletionProvider
type instance O.ParentTypes CompletionProvider = '[GObject.Object.Object]
toCompletionProvider :: (MIO.MonadIO m, IsCompletionProvider o) => o -> m CompletionProvider
toCompletionProvider :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionProvider o) =>
o -> m CompletionProvider
toCompletionProvider = IO CompletionProvider -> m CompletionProvider
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CompletionProvider -> m CompletionProvider)
-> (o -> IO CompletionProvider) -> o -> m CompletionProvider
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CompletionProvider -> CompletionProvider)
-> o -> IO CompletionProvider
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CompletionProvider -> CompletionProvider
CompletionProvider
instance B.GValue.IsGValue (Maybe CompletionProvider) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_completion_provider_get_type
gvalueSet_ :: Ptr GValue -> Maybe CompletionProvider -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CompletionProvider
P.Nothing = Ptr GValue -> Ptr CompletionProvider -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CompletionProvider
forall a. Ptr a
FP.nullPtr :: FP.Ptr CompletionProvider)
gvalueSet_ Ptr GValue
gv (P.Just CompletionProvider
obj) = CompletionProvider -> (Ptr CompletionProvider -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CompletionProvider
obj (Ptr GValue -> Ptr CompletionProvider -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CompletionProvider)
gvalueGet_ Ptr GValue
gv = do
Ptr CompletionProvider
ptr <- Ptr GValue -> IO (Ptr CompletionProvider)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CompletionProvider)
if Ptr CompletionProvider
ptr Ptr CompletionProvider -> Ptr CompletionProvider -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CompletionProvider
forall a. Ptr a
FP.nullPtr
then CompletionProvider -> Maybe CompletionProvider
forall a. a -> Maybe a
P.Just (CompletionProvider -> Maybe CompletionProvider)
-> IO CompletionProvider -> IO (Maybe CompletionProvider)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CompletionProvider -> CompletionProvider)
-> Ptr CompletionProvider -> IO CompletionProvider
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CompletionProvider -> CompletionProvider
CompletionProvider Ptr CompletionProvider
ptr
else Maybe CompletionProvider -> IO (Maybe CompletionProvider)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CompletionProvider
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CompletionProvider
type instance O.AttributeList CompletionProvider = CompletionProviderAttributeList
type CompletionProviderAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveCompletionProviderMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCompletionProviderMethod "activateProposal" o = CompletionProviderActivateProposalMethodInfo
ResolveCompletionProviderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCompletionProviderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCompletionProviderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCompletionProviderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCompletionProviderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCompletionProviderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCompletionProviderMethod "match" o = CompletionProviderMatchMethodInfo
ResolveCompletionProviderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCompletionProviderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCompletionProviderMethod "populate" o = CompletionProviderPopulateMethodInfo
ResolveCompletionProviderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCompletionProviderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCompletionProviderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCompletionProviderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCompletionProviderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCompletionProviderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCompletionProviderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCompletionProviderMethod "updateInfo" o = CompletionProviderUpdateInfoMethodInfo
ResolveCompletionProviderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCompletionProviderMethod "getActivation" o = CompletionProviderGetActivationMethodInfo
ResolveCompletionProviderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCompletionProviderMethod "getGicon" o = CompletionProviderGetGiconMethodInfo
ResolveCompletionProviderMethod "getIcon" o = CompletionProviderGetIconMethodInfo
ResolveCompletionProviderMethod "getIconName" o = CompletionProviderGetIconNameMethodInfo
ResolveCompletionProviderMethod "getInfoWidget" o = CompletionProviderGetInfoWidgetMethodInfo
ResolveCompletionProviderMethod "getInteractiveDelay" o = CompletionProviderGetInteractiveDelayMethodInfo
ResolveCompletionProviderMethod "getName" o = CompletionProviderGetNameMethodInfo
ResolveCompletionProviderMethod "getPriority" o = CompletionProviderGetPriorityMethodInfo
ResolveCompletionProviderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCompletionProviderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCompletionProviderMethod "getStartIter" o = CompletionProviderGetStartIterMethodInfo
ResolveCompletionProviderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCompletionProviderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCompletionProviderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCompletionProviderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCompletionProviderMethod t CompletionProvider, O.OverloadedMethod info CompletionProvider p) => OL.IsLabel t (CompletionProvider -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveCompletionProviderMethod t CompletionProvider, O.OverloadedMethod info CompletionProvider p, R.HasField t CompletionProvider p) => R.HasField t CompletionProvider p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCompletionProviderMethod t CompletionProvider, O.OverloadedMethodInfo info CompletionProvider) => OL.IsLabel t (O.MethodProxy info CompletionProvider) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
foreign import ccall "gtk_source_completion_provider_activate_proposal" gtk_source_completion_provider_activate_proposal ::
Ptr CompletionProvider ->
Ptr GtkSource.CompletionProposal.CompletionProposal ->
Ptr Gtk.TextIter.TextIter ->
IO CInt
completionProviderActivateProposal ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a, GtkSource.CompletionProposal.IsCompletionProposal b) =>
a
-> b
-> Gtk.TextIter.TextIter
-> m Bool
completionProviderActivateProposal :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCompletionProvider a,
IsCompletionProposal b) =>
a -> b -> TextIter -> m Bool
completionProviderActivateProposal a
provider b
proposal TextIter
iter = IO Bool -> m Bool
forall a. IO a -> m a
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 CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Ptr CompletionProposal
proposal' <- b -> IO (Ptr CompletionProposal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
proposal
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr CompletionProvider
-> Ptr CompletionProposal -> Ptr TextIter -> IO CInt
gtk_source_completion_provider_activate_proposal Ptr CompletionProvider
provider' Ptr CompletionProposal
proposal' Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
proposal
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CompletionProviderActivateProposalMethodInfo
instance (signature ~ (b -> Gtk.TextIter.TextIter -> m Bool), MonadIO m, IsCompletionProvider a, GtkSource.CompletionProposal.IsCompletionProposal b) => O.OverloadedMethod CompletionProviderActivateProposalMethodInfo a signature where
overloadedMethod = completionProviderActivateProposal
instance O.OverloadedMethodInfo CompletionProviderActivateProposalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderActivateProposal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderActivateProposal"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_activation" gtk_source_completion_provider_get_activation ::
Ptr CompletionProvider ->
IO CUInt
completionProviderGetActivation ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a) =>
a
-> m [GtkSource.Flags.CompletionActivation]
completionProviderGetActivation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionProvider a) =>
a -> m [CompletionActivation]
completionProviderGetActivation a
provider = IO [CompletionActivation] -> m [CompletionActivation]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CompletionActivation] -> m [CompletionActivation])
-> IO [CompletionActivation] -> m [CompletionActivation]
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
CUInt
result <- Ptr CompletionProvider -> IO CUInt
gtk_source_completion_provider_get_activation Ptr CompletionProvider
provider'
let result' :: [CompletionActivation]
result' = CUInt -> [CompletionActivation]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
[CompletionActivation] -> IO [CompletionActivation]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [CompletionActivation]
result'
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetActivationMethodInfo
instance (signature ~ (m [GtkSource.Flags.CompletionActivation]), MonadIO m, IsCompletionProvider a) => O.OverloadedMethod CompletionProviderGetActivationMethodInfo a signature where
overloadedMethod = completionProviderGetActivation
instance O.OverloadedMethodInfo CompletionProviderGetActivationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetActivation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetActivation"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_gicon" gtk_source_completion_provider_get_gicon ::
Ptr CompletionProvider ->
IO (Ptr Gio.Icon.Icon)
completionProviderGetGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a) =>
a
-> m (Maybe Gio.Icon.Icon)
completionProviderGetGicon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionProvider a) =>
a -> m (Maybe Icon)
completionProviderGetGicon a
provider = IO (Maybe Icon) -> m (Maybe Icon)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Icon) -> m (Maybe Icon))
-> IO (Maybe Icon) -> m (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Ptr Icon
result <- Ptr CompletionProvider -> IO (Ptr Icon)
gtk_source_completion_provider_get_gicon Ptr CompletionProvider
provider'
Maybe Icon
maybeResult <- Ptr Icon -> (Ptr Icon -> IO Icon) -> IO (Maybe Icon)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Icon
result ((Ptr Icon -> IO Icon) -> IO (Maybe Icon))
-> (Ptr Icon -> IO Icon) -> IO (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ \Ptr Icon
result' -> do
Icon
result'' <- ((ManagedPtr Icon -> Icon) -> Ptr Icon -> IO Icon
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Icon -> Icon
Gio.Icon.Icon) Ptr Icon
result'
Icon -> IO Icon
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Icon
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
Maybe Icon -> IO (Maybe Icon)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Icon
maybeResult
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetGiconMethodInfo
instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m, IsCompletionProvider a) => O.OverloadedMethod CompletionProviderGetGiconMethodInfo a signature where
overloadedMethod = completionProviderGetGicon
instance O.OverloadedMethodInfo CompletionProviderGetGiconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetGicon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetGicon"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_icon" gtk_source_completion_provider_get_icon ::
Ptr CompletionProvider ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
completionProviderGetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a) =>
a
-> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
completionProviderGetIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionProvider a) =>
a -> m (Maybe Pixbuf)
completionProviderGetIcon a
provider = IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Pixbuf) -> m (Maybe Pixbuf))
-> IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Ptr Pixbuf
result <- Ptr CompletionProvider -> IO (Ptr Pixbuf)
gtk_source_completion_provider_get_icon Ptr CompletionProvider
provider'
Maybe Pixbuf
maybeResult <- Ptr Pixbuf -> (Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Pixbuf
result ((Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf))
-> (Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ \Ptr Pixbuf
result' -> do
Pixbuf
result'' <- ((ManagedPtr Pixbuf -> Pixbuf) -> Ptr Pixbuf -> IO Pixbuf
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result'
Pixbuf -> IO Pixbuf
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
Maybe Pixbuf -> IO (Maybe Pixbuf)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pixbuf
maybeResult
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetIconMethodInfo
instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsCompletionProvider a) => O.OverloadedMethod CompletionProviderGetIconMethodInfo a signature where
overloadedMethod = completionProviderGetIcon
instance O.OverloadedMethodInfo CompletionProviderGetIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetIcon"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_icon_name" gtk_source_completion_provider_get_icon_name ::
Ptr CompletionProvider ->
IO CString
completionProviderGetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a) =>
a
-> m (Maybe T.Text)
completionProviderGetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionProvider a) =>
a -> m (Maybe Text)
completionProviderGetIconName a
provider = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
CString
result <- Ptr CompletionProvider -> IO CString
gtk_source_completion_provider_get_icon_name Ptr CompletionProvider
provider'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetIconNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsCompletionProvider a) => O.OverloadedMethod CompletionProviderGetIconNameMethodInfo a signature where
overloadedMethod = completionProviderGetIconName
instance O.OverloadedMethodInfo CompletionProviderGetIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetIconName"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_info_widget" gtk_source_completion_provider_get_info_widget ::
Ptr CompletionProvider ->
Ptr GtkSource.CompletionProposal.CompletionProposal ->
IO (Ptr Gtk.Widget.Widget)
completionProviderGetInfoWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a, GtkSource.CompletionProposal.IsCompletionProposal b) =>
a
-> b
-> m (Maybe Gtk.Widget.Widget)
completionProviderGetInfoWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCompletionProvider a,
IsCompletionProposal b) =>
a -> b -> m (Maybe Widget)
completionProviderGetInfoWidget a
provider b
proposal = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Ptr CompletionProposal
proposal' <- b -> IO (Ptr CompletionProposal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
proposal
Ptr Widget
result <- Ptr CompletionProvider -> Ptr CompletionProposal -> IO (Ptr Widget)
gtk_source_completion_provider_get_info_widget Ptr CompletionProvider
provider' Ptr CompletionProposal
proposal'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
proposal
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetInfoWidgetMethodInfo
instance (signature ~ (b -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsCompletionProvider a, GtkSource.CompletionProposal.IsCompletionProposal b) => O.OverloadedMethod CompletionProviderGetInfoWidgetMethodInfo a signature where
overloadedMethod = completionProviderGetInfoWidget
instance O.OverloadedMethodInfo CompletionProviderGetInfoWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetInfoWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetInfoWidget"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_interactive_delay" gtk_source_completion_provider_get_interactive_delay ::
Ptr CompletionProvider ->
IO Int32
completionProviderGetInteractiveDelay ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a) =>
a
-> m Int32
completionProviderGetInteractiveDelay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionProvider a) =>
a -> m Int32
completionProviderGetInteractiveDelay a
provider = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Int32
result <- Ptr CompletionProvider -> IO Int32
gtk_source_completion_provider_get_interactive_delay Ptr CompletionProvider
provider'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetInteractiveDelayMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCompletionProvider a) => O.OverloadedMethod CompletionProviderGetInteractiveDelayMethodInfo a signature where
overloadedMethod = completionProviderGetInteractiveDelay
instance O.OverloadedMethodInfo CompletionProviderGetInteractiveDelayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetInteractiveDelay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetInteractiveDelay"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_name" gtk_source_completion_provider_get_name ::
Ptr CompletionProvider ->
IO CString
completionProviderGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a) =>
a
-> m T.Text
completionProviderGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionProvider a) =>
a -> m Text
completionProviderGetName a
provider = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
CString
result <- Ptr CompletionProvider -> IO CString
gtk_source_completion_provider_get_name Ptr CompletionProvider
provider'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"completionProviderGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsCompletionProvider a) => O.OverloadedMethod CompletionProviderGetNameMethodInfo a signature where
overloadedMethod = completionProviderGetName
instance O.OverloadedMethodInfo CompletionProviderGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetName"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_priority" gtk_source_completion_provider_get_priority ::
Ptr CompletionProvider ->
IO Int32
completionProviderGetPriority ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a) =>
a
-> m Int32
completionProviderGetPriority :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionProvider a) =>
a -> m Int32
completionProviderGetPriority a
provider = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Int32
result <- Ptr CompletionProvider -> IO Int32
gtk_source_completion_provider_get_priority Ptr CompletionProvider
provider'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetPriorityMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCompletionProvider a) => O.OverloadedMethod CompletionProviderGetPriorityMethodInfo a signature where
overloadedMethod = completionProviderGetPriority
instance O.OverloadedMethodInfo CompletionProviderGetPriorityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetPriority",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetPriority"
})
#endif
foreign import ccall "gtk_source_completion_provider_get_start_iter" gtk_source_completion_provider_get_start_iter ::
Ptr CompletionProvider ->
Ptr GtkSource.CompletionContext.CompletionContext ->
Ptr GtkSource.CompletionProposal.CompletionProposal ->
Ptr Gtk.TextIter.TextIter ->
IO CInt
completionProviderGetStartIter ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a, GtkSource.CompletionContext.IsCompletionContext b, GtkSource.CompletionProposal.IsCompletionProposal c) =>
a
-> b
-> c
-> m ((Bool, Gtk.TextIter.TextIter))
completionProviderGetStartIter :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCompletionProvider a,
IsCompletionContext b, IsCompletionProposal c) =>
a -> b -> c -> m (Bool, TextIter)
completionProviderGetStartIter a
provider b
context c
proposal = IO (Bool, TextIter) -> m (Bool, TextIter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TextIter) -> m (Bool, TextIter))
-> IO (Bool, TextIter) -> m (Bool, TextIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Ptr CompletionContext
context' <- b -> IO (Ptr CompletionContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr CompletionProposal
proposal' <- c -> IO (Ptr CompletionProposal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
proposal
Ptr TextIter
iter <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
CInt
result <- Ptr CompletionProvider
-> Ptr CompletionContext
-> Ptr CompletionProposal
-> Ptr TextIter
-> IO CInt
gtk_source_completion_provider_get_start_iter Ptr CompletionProvider
provider' Ptr CompletionContext
context' Ptr CompletionProposal
proposal' Ptr TextIter
iter
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter
iter' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
proposal
(Bool, TextIter) -> IO (Bool, TextIter)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextIter
iter')
#if defined(ENABLE_OVERLOADING)
data CompletionProviderGetStartIterMethodInfo
instance (signature ~ (b -> c -> m ((Bool, Gtk.TextIter.TextIter))), MonadIO m, IsCompletionProvider a, GtkSource.CompletionContext.IsCompletionContext b, GtkSource.CompletionProposal.IsCompletionProposal c) => O.OverloadedMethod CompletionProviderGetStartIterMethodInfo a signature where
overloadedMethod = completionProviderGetStartIter
instance O.OverloadedMethodInfo CompletionProviderGetStartIterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderGetStartIter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderGetStartIter"
})
#endif
foreign import ccall "gtk_source_completion_provider_match" gtk_source_completion_provider_match ::
Ptr CompletionProvider ->
Ptr GtkSource.CompletionContext.CompletionContext ->
IO CInt
completionProviderMatch ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a, GtkSource.CompletionContext.IsCompletionContext b) =>
a
-> b
-> m Bool
completionProviderMatch :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCompletionProvider a,
IsCompletionContext b) =>
a -> b -> m Bool
completionProviderMatch a
provider b
context = IO Bool -> m Bool
forall a. IO a -> m a
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 CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Ptr CompletionContext
context' <- b -> IO (Ptr CompletionContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
CInt
result <- Ptr CompletionProvider -> Ptr CompletionContext -> IO CInt
gtk_source_completion_provider_match Ptr CompletionProvider
provider' Ptr CompletionContext
context'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CompletionProviderMatchMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsCompletionProvider a, GtkSource.CompletionContext.IsCompletionContext b) => O.OverloadedMethod CompletionProviderMatchMethodInfo a signature where
overloadedMethod = completionProviderMatch
instance O.OverloadedMethodInfo CompletionProviderMatchMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderMatch",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderMatch"
})
#endif
foreign import ccall "gtk_source_completion_provider_populate" gtk_source_completion_provider_populate ::
Ptr CompletionProvider ->
Ptr GtkSource.CompletionContext.CompletionContext ->
IO ()
completionProviderPopulate ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a, GtkSource.CompletionContext.IsCompletionContext b) =>
a
-> b
-> m ()
completionProviderPopulate :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCompletionProvider a,
IsCompletionContext b) =>
a -> b -> m ()
completionProviderPopulate a
provider b
context = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Ptr CompletionContext
context' <- b -> IO (Ptr CompletionContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr CompletionProvider -> Ptr CompletionContext -> IO ()
gtk_source_completion_provider_populate Ptr CompletionProvider
provider' Ptr CompletionContext
context'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionProviderPopulateMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCompletionProvider a, GtkSource.CompletionContext.IsCompletionContext b) => O.OverloadedMethod CompletionProviderPopulateMethodInfo a signature where
overloadedMethod = completionProviderPopulate
instance O.OverloadedMethodInfo CompletionProviderPopulateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderPopulate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderPopulate"
})
#endif
foreign import ccall "gtk_source_completion_provider_update_info" gtk_source_completion_provider_update_info ::
Ptr CompletionProvider ->
Ptr GtkSource.CompletionProposal.CompletionProposal ->
Ptr GtkSource.CompletionInfo.CompletionInfo ->
IO ()
completionProviderUpdateInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionProvider a, GtkSource.CompletionProposal.IsCompletionProposal b, GtkSource.CompletionInfo.IsCompletionInfo c) =>
a
-> b
-> c
-> m ()
completionProviderUpdateInfo :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCompletionProvider a,
IsCompletionProposal b, IsCompletionInfo c) =>
a -> b -> c -> m ()
completionProviderUpdateInfo a
provider b
proposal c
info = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionProvider
provider' <- a -> IO (Ptr CompletionProvider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
provider
Ptr CompletionProposal
proposal' <- b -> IO (Ptr CompletionProposal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
proposal
Ptr CompletionInfo
info' <- c -> IO (Ptr CompletionInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
info
Ptr CompletionProvider
-> Ptr CompletionProposal -> Ptr CompletionInfo -> IO ()
gtk_source_completion_provider_update_info Ptr CompletionProvider
provider' Ptr CompletionProposal
proposal' Ptr CompletionInfo
info'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
provider
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
proposal
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
info
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionProviderUpdateInfoMethodInfo
instance (signature ~ (b -> c -> m ()), MonadIO m, IsCompletionProvider a, GtkSource.CompletionProposal.IsCompletionProposal b, GtkSource.CompletionInfo.IsCompletionInfo c) => O.OverloadedMethod CompletionProviderUpdateInfoMethodInfo a signature where
overloadedMethod = completionProviderUpdateInfo
instance O.OverloadedMethodInfo CompletionProviderUpdateInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Interfaces.CompletionProvider.completionProviderUpdateInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.28/docs/GI-GtkSource-Interfaces-CompletionProvider.html#v:completionProviderUpdateInfo"
})
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CompletionProvider = CompletionProviderSignalList
type CompletionProviderSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif