{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.CompletionWords
(
CompletionWords(..) ,
IsCompletionWords ,
toCompletionWords ,
#if defined(ENABLE_OVERLOADING)
ResolveCompletionWordsMethod ,
#endif
completionWordsNew ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsRegisterMethodInfo ,
#endif
completionWordsRegister ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsUnregisterMethodInfo ,
#endif
completionWordsUnregister ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsActivationPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionWordsActivation ,
#endif
constructCompletionWordsActivation ,
getCompletionWordsActivation ,
setCompletionWordsActivation ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsIconPropertyInfo ,
#endif
clearCompletionWordsIcon ,
#if defined(ENABLE_OVERLOADING)
completionWordsIcon ,
#endif
constructCompletionWordsIcon ,
getCompletionWordsIcon ,
setCompletionWordsIcon ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsInteractiveDelayPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
completionWordsInteractiveDelay ,
#endif
constructCompletionWordsInteractiveDelay,
getCompletionWordsInteractiveDelay ,
setCompletionWordsInteractiveDelay ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsMinimumWordSizePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
completionWordsMinimumWordSize ,
#endif
constructCompletionWordsMinimumWordSize ,
getCompletionWordsMinimumWordSize ,
setCompletionWordsMinimumWordSize ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsNamePropertyInfo ,
#endif
clearCompletionWordsName ,
#if defined(ENABLE_OVERLOADING)
completionWordsName ,
#endif
constructCompletionWordsName ,
getCompletionWordsName ,
setCompletionWordsName ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsPriorityPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
completionWordsPriority ,
#endif
constructCompletionWordsPriority ,
getCompletionWordsPriority ,
setCompletionWordsPriority ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsProposalsBatchSizePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
completionWordsProposalsBatchSize ,
#endif
constructCompletionWordsProposalsBatchSize,
getCompletionWordsProposalsBatchSize ,
setCompletionWordsProposalsBatchSize ,
#if defined(ENABLE_OVERLOADING)
CompletionWordsScanBatchSizePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
completionWordsScanBatchSize ,
#endif
constructCompletionWordsScanBatchSize ,
getCompletionWordsScanBatchSize ,
setCompletionWordsScanBatchSize ,
) 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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Window as Gdk.Window
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Objects.Settings as Gio.Settings
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.Scrollable as Gtk.Scrollable
import qualified GI.Gtk.Objects.Bin as Gtk.Bin
import qualified GI.Gtk.Objects.Container as Gtk.Container
import qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer
import qualified GI.Gtk.Objects.TextMark as Gtk.TextMark
import qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
import qualified GI.Gtk.Objects.TextTagTable as Gtk.TextTagTable
import qualified GI.Gtk.Objects.TextView as Gtk.TextView
import qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import qualified GI.Gtk.Objects.Window as Gtk.Window
import qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.GtkSource.Enums as GtkSource.Enums
import {-# SOURCE #-} qualified GI.GtkSource.Flags as GtkSource.Flags
import {-# SOURCE #-} qualified GI.GtkSource.Interfaces.CompletionProposal as GtkSource.CompletionProposal
import {-# SOURCE #-} qualified GI.GtkSource.Interfaces.CompletionProvider as GtkSource.CompletionProvider
import {-# SOURCE #-} qualified GI.GtkSource.Interfaces.UndoManager as GtkSource.UndoManager
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Buffer as GtkSource.Buffer
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Completion as GtkSource.Completion
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.Gutter as GtkSource.Gutter
import {-# SOURCE #-} qualified GI.GtkSource.Objects.GutterRenderer as GtkSource.GutterRenderer
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Language as GtkSource.Language
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Mark as GtkSource.Mark
import {-# SOURCE #-} qualified GI.GtkSource.Objects.MarkAttributes as GtkSource.MarkAttributes
import {-# SOURCE #-} qualified GI.GtkSource.Objects.SpaceDrawer as GtkSource.SpaceDrawer
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Style as GtkSource.Style
import {-# SOURCE #-} qualified GI.GtkSource.Objects.StyleScheme as GtkSource.StyleScheme
import {-# SOURCE #-} qualified GI.GtkSource.Objects.View as GtkSource.View
import qualified GI.Pango.Enums as Pango.Enums
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer
import {-# SOURCE #-} qualified GI.GtkSource.Flags as GtkSource.Flags
import {-# SOURCE #-} qualified GI.GtkSource.Interfaces.CompletionProvider as GtkSource.CompletionProvider
#endif
newtype CompletionWords = CompletionWords (SP.ManagedPtr CompletionWords)
deriving (CompletionWords -> CompletionWords -> Bool
(CompletionWords -> CompletionWords -> Bool)
-> (CompletionWords -> CompletionWords -> Bool)
-> Eq CompletionWords
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompletionWords -> CompletionWords -> Bool
== :: CompletionWords -> CompletionWords -> Bool
$c/= :: CompletionWords -> CompletionWords -> Bool
/= :: CompletionWords -> CompletionWords -> Bool
Eq)
instance SP.ManagedPtrNewtype CompletionWords where
toManagedPtr :: CompletionWords -> ManagedPtr CompletionWords
toManagedPtr (CompletionWords ManagedPtr CompletionWords
p) = ManagedPtr CompletionWords
p
foreign import ccall "gtk_source_completion_words_get_type"
c_gtk_source_completion_words_get_type :: IO B.Types.GType
instance B.Types.TypedObject CompletionWords where
glibType :: IO GType
glibType = IO GType
c_gtk_source_completion_words_get_type
instance B.Types.GObject CompletionWords
class (SP.GObject o, O.IsDescendantOf CompletionWords o) => IsCompletionWords o
instance (SP.GObject o, O.IsDescendantOf CompletionWords o) => IsCompletionWords o
instance O.HasParentTypes CompletionWords
type instance O.ParentTypes CompletionWords = '[GObject.Object.Object, GtkSource.CompletionProvider.CompletionProvider]
toCompletionWords :: (MIO.MonadIO m, IsCompletionWords o) => o -> m CompletionWords
toCompletionWords :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m CompletionWords
toCompletionWords = IO CompletionWords -> m CompletionWords
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CompletionWords -> m CompletionWords)
-> (o -> IO CompletionWords) -> o -> m CompletionWords
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CompletionWords -> CompletionWords)
-> o -> IO CompletionWords
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CompletionWords -> CompletionWords
CompletionWords
instance B.GValue.IsGValue (Maybe CompletionWords) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_completion_words_get_type
gvalueSet_ :: Ptr GValue -> Maybe CompletionWords -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CompletionWords
P.Nothing = Ptr GValue -> Ptr CompletionWords -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CompletionWords
forall a. Ptr a
FP.nullPtr :: FP.Ptr CompletionWords)
gvalueSet_ Ptr GValue
gv (P.Just CompletionWords
obj) = CompletionWords -> (Ptr CompletionWords -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CompletionWords
obj (Ptr GValue -> Ptr CompletionWords -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CompletionWords)
gvalueGet_ Ptr GValue
gv = do
Ptr CompletionWords
ptr <- Ptr GValue -> IO (Ptr CompletionWords)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CompletionWords)
if Ptr CompletionWords
ptr Ptr CompletionWords -> Ptr CompletionWords -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CompletionWords
forall a. Ptr a
FP.nullPtr
then CompletionWords -> Maybe CompletionWords
forall a. a -> Maybe a
P.Just (CompletionWords -> Maybe CompletionWords)
-> IO CompletionWords -> IO (Maybe CompletionWords)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CompletionWords -> CompletionWords)
-> Ptr CompletionWords -> IO CompletionWords
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CompletionWords -> CompletionWords
CompletionWords Ptr CompletionWords
ptr
else Maybe CompletionWords -> IO (Maybe CompletionWords)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CompletionWords
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCompletionWordsMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCompletionWordsMethod "activateProposal" o = GtkSource.CompletionProvider.CompletionProviderActivateProposalMethodInfo
ResolveCompletionWordsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCompletionWordsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCompletionWordsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCompletionWordsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCompletionWordsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCompletionWordsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCompletionWordsMethod "match" o = GtkSource.CompletionProvider.CompletionProviderMatchMethodInfo
ResolveCompletionWordsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCompletionWordsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCompletionWordsMethod "populate" o = GtkSource.CompletionProvider.CompletionProviderPopulateMethodInfo
ResolveCompletionWordsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCompletionWordsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCompletionWordsMethod "register" o = CompletionWordsRegisterMethodInfo
ResolveCompletionWordsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCompletionWordsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCompletionWordsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCompletionWordsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCompletionWordsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCompletionWordsMethod "unregister" o = CompletionWordsUnregisterMethodInfo
ResolveCompletionWordsMethod "updateInfo" o = GtkSource.CompletionProvider.CompletionProviderUpdateInfoMethodInfo
ResolveCompletionWordsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCompletionWordsMethod "getActivation" o = GtkSource.CompletionProvider.CompletionProviderGetActivationMethodInfo
ResolveCompletionWordsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCompletionWordsMethod "getGicon" o = GtkSource.CompletionProvider.CompletionProviderGetGiconMethodInfo
ResolveCompletionWordsMethod "getIcon" o = GtkSource.CompletionProvider.CompletionProviderGetIconMethodInfo
ResolveCompletionWordsMethod "getIconName" o = GtkSource.CompletionProvider.CompletionProviderGetIconNameMethodInfo
ResolveCompletionWordsMethod "getInfoWidget" o = GtkSource.CompletionProvider.CompletionProviderGetInfoWidgetMethodInfo
ResolveCompletionWordsMethod "getInteractiveDelay" o = GtkSource.CompletionProvider.CompletionProviderGetInteractiveDelayMethodInfo
ResolveCompletionWordsMethod "getName" o = GtkSource.CompletionProvider.CompletionProviderGetNameMethodInfo
ResolveCompletionWordsMethod "getPriority" o = GtkSource.CompletionProvider.CompletionProviderGetPriorityMethodInfo
ResolveCompletionWordsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCompletionWordsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCompletionWordsMethod "getStartIter" o = GtkSource.CompletionProvider.CompletionProviderGetStartIterMethodInfo
ResolveCompletionWordsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCompletionWordsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCompletionWordsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCompletionWordsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCompletionWordsMethod t CompletionWords, O.OverloadedMethod info CompletionWords p) => OL.IsLabel t (CompletionWords -> 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 ~ ResolveCompletionWordsMethod t CompletionWords, O.OverloadedMethod info CompletionWords p, R.HasField t CompletionWords p) => R.HasField t CompletionWords p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCompletionWordsMethod t CompletionWords, O.OverloadedMethodInfo info CompletionWords) => OL.IsLabel t (O.MethodProxy info CompletionWords) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getCompletionWordsActivation :: (MonadIO m, IsCompletionWords o) => o -> m [GtkSource.Flags.CompletionActivation]
getCompletionWordsActivation :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m [CompletionActivation]
getCompletionWordsActivation o
obj = IO [CompletionActivation] -> m [CompletionActivation]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [CompletionActivation] -> m [CompletionActivation])
-> IO [CompletionActivation] -> m [CompletionActivation]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [CompletionActivation]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"activation"
setCompletionWordsActivation :: (MonadIO m, IsCompletionWords o) => o -> [GtkSource.Flags.CompletionActivation] -> m ()
setCompletionWordsActivation :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> [CompletionActivation] -> m ()
setCompletionWordsActivation o
obj [CompletionActivation]
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> [CompletionActivation] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"activation" [CompletionActivation]
val
constructCompletionWordsActivation :: (IsCompletionWords o, MIO.MonadIO m) => [GtkSource.Flags.CompletionActivation] -> m (GValueConstruct o)
constructCompletionWordsActivation :: forall o (m :: * -> *).
(IsCompletionWords o, MonadIO m) =>
[CompletionActivation] -> m (GValueConstruct o)
constructCompletionWordsActivation [CompletionActivation]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> [CompletionActivation] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"activation" [CompletionActivation]
val
#if defined(ENABLE_OVERLOADING)
data CompletionWordsActivationPropertyInfo
instance AttrInfo CompletionWordsActivationPropertyInfo where
type AttrAllowedOps CompletionWordsActivationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionWordsActivationPropertyInfo = IsCompletionWords
type AttrSetTypeConstraint CompletionWordsActivationPropertyInfo = (~) [GtkSource.Flags.CompletionActivation]
type AttrTransferTypeConstraint CompletionWordsActivationPropertyInfo = (~) [GtkSource.Flags.CompletionActivation]
type AttrTransferType CompletionWordsActivationPropertyInfo = [GtkSource.Flags.CompletionActivation]
type AttrGetType CompletionWordsActivationPropertyInfo = [GtkSource.Flags.CompletionActivation]
type AttrLabel CompletionWordsActivationPropertyInfo = "activation"
type AttrOrigin CompletionWordsActivationPropertyInfo = CompletionWords
attrGet = getCompletionWordsActivation
attrSet = setCompletionWordsActivation
attrTransfer _ v = do
return v
attrConstruct = constructCompletionWordsActivation
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.activation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#g:attr:activation"
})
#endif
getCompletionWordsIcon :: (MonadIO m, IsCompletionWords o) => o -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
getCompletionWordsIcon :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m (Maybe Pixbuf)
getCompletionWordsIcon o
obj = IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Pixbuf) -> m (Maybe Pixbuf))
-> IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Pixbuf -> Pixbuf) -> IO (Maybe Pixbuf)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"icon" ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf
setCompletionWordsIcon :: (MonadIO m, IsCompletionWords o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m ()
setCompletionWordsIcon :: forall (m :: * -> *) o a.
(MonadIO m, IsCompletionWords o, IsPixbuf a) =>
o -> a -> m ()
setCompletionWordsIcon o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"icon" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructCompletionWordsIcon :: (IsCompletionWords o, MIO.MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> m (GValueConstruct o)
constructCompletionWordsIcon :: forall o (m :: * -> *) a.
(IsCompletionWords o, MonadIO m, IsPixbuf a) =>
a -> m (GValueConstruct o)
constructCompletionWordsIcon a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"icon" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearCompletionWordsIcon :: (MonadIO m, IsCompletionWords o) => o -> m ()
clearCompletionWordsIcon :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m ()
clearCompletionWordsIcon o
obj = 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
$ o -> String -> Maybe Pixbuf -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"icon" (Maybe Pixbuf
forall a. Maybe a
Nothing :: Maybe GdkPixbuf.Pixbuf.Pixbuf)
#if defined(ENABLE_OVERLOADING)
data CompletionWordsIconPropertyInfo
instance AttrInfo CompletionWordsIconPropertyInfo where
type AttrAllowedOps CompletionWordsIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionWordsIconPropertyInfo = IsCompletionWords
type AttrSetTypeConstraint CompletionWordsIconPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrTransferTypeConstraint CompletionWordsIconPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrTransferType CompletionWordsIconPropertyInfo = GdkPixbuf.Pixbuf.Pixbuf
type AttrGetType CompletionWordsIconPropertyInfo = (Maybe GdkPixbuf.Pixbuf.Pixbuf)
type AttrLabel CompletionWordsIconPropertyInfo = "icon"
type AttrOrigin CompletionWordsIconPropertyInfo = CompletionWords
attrGet = getCompletionWordsIcon
attrSet = setCompletionWordsIcon
attrTransfer _ v = do
unsafeCastTo GdkPixbuf.Pixbuf.Pixbuf v
attrConstruct = constructCompletionWordsIcon
attrClear = clearCompletionWordsIcon
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.icon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#g:attr:icon"
})
#endif
getCompletionWordsInteractiveDelay :: (MonadIO m, IsCompletionWords o) => o -> m Int32
getCompletionWordsInteractiveDelay :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m Int32
getCompletionWordsInteractiveDelay o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"interactive-delay"
setCompletionWordsInteractiveDelay :: (MonadIO m, IsCompletionWords o) => o -> Int32 -> m ()
setCompletionWordsInteractiveDelay :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> Int32 -> m ()
setCompletionWordsInteractiveDelay o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"interactive-delay" Int32
val
constructCompletionWordsInteractiveDelay :: (IsCompletionWords o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCompletionWordsInteractiveDelay :: forall o (m :: * -> *).
(IsCompletionWords o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCompletionWordsInteractiveDelay Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"interactive-delay" Int32
val
#if defined(ENABLE_OVERLOADING)
data CompletionWordsInteractiveDelayPropertyInfo
instance AttrInfo CompletionWordsInteractiveDelayPropertyInfo where
type AttrAllowedOps CompletionWordsInteractiveDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionWordsInteractiveDelayPropertyInfo = IsCompletionWords
type AttrSetTypeConstraint CompletionWordsInteractiveDelayPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CompletionWordsInteractiveDelayPropertyInfo = (~) Int32
type AttrTransferType CompletionWordsInteractiveDelayPropertyInfo = Int32
type AttrGetType CompletionWordsInteractiveDelayPropertyInfo = Int32
type AttrLabel CompletionWordsInteractiveDelayPropertyInfo = "interactive-delay"
type AttrOrigin CompletionWordsInteractiveDelayPropertyInfo = CompletionWords
attrGet = getCompletionWordsInteractiveDelay
attrSet = setCompletionWordsInteractiveDelay
attrTransfer _ v = do
return v
attrConstruct = constructCompletionWordsInteractiveDelay
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.interactiveDelay"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#g:attr:interactiveDelay"
})
#endif
getCompletionWordsMinimumWordSize :: (MonadIO m, IsCompletionWords o) => o -> m Word32
getCompletionWordsMinimumWordSize :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m Word32
getCompletionWordsMinimumWordSize o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"minimum-word-size"
setCompletionWordsMinimumWordSize :: (MonadIO m, IsCompletionWords o) => o -> Word32 -> m ()
setCompletionWordsMinimumWordSize :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> Word32 -> m ()
setCompletionWordsMinimumWordSize o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"minimum-word-size" Word32
val
constructCompletionWordsMinimumWordSize :: (IsCompletionWords o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCompletionWordsMinimumWordSize :: forall o (m :: * -> *).
(IsCompletionWords o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructCompletionWordsMinimumWordSize Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"minimum-word-size" Word32
val
#if defined(ENABLE_OVERLOADING)
data CompletionWordsMinimumWordSizePropertyInfo
instance AttrInfo CompletionWordsMinimumWordSizePropertyInfo where
type AttrAllowedOps CompletionWordsMinimumWordSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionWordsMinimumWordSizePropertyInfo = IsCompletionWords
type AttrSetTypeConstraint CompletionWordsMinimumWordSizePropertyInfo = (~) Word32
type AttrTransferTypeConstraint CompletionWordsMinimumWordSizePropertyInfo = (~) Word32
type AttrTransferType CompletionWordsMinimumWordSizePropertyInfo = Word32
type AttrGetType CompletionWordsMinimumWordSizePropertyInfo = Word32
type AttrLabel CompletionWordsMinimumWordSizePropertyInfo = "minimum-word-size"
type AttrOrigin CompletionWordsMinimumWordSizePropertyInfo = CompletionWords
attrGet = getCompletionWordsMinimumWordSize
attrSet = setCompletionWordsMinimumWordSize
attrTransfer _ v = do
return v
attrConstruct = constructCompletionWordsMinimumWordSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.minimumWordSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#g:attr:minimumWordSize"
})
#endif
getCompletionWordsName :: (MonadIO m, IsCompletionWords o) => o -> m (Maybe T.Text)
getCompletionWordsName :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m (Maybe Text)
getCompletionWordsName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"name"
setCompletionWordsName :: (MonadIO m, IsCompletionWords o) => o -> T.Text -> m ()
setCompletionWordsName :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> Text -> m ()
setCompletionWordsName o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCompletionWordsName :: (IsCompletionWords o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCompletionWordsName :: forall o (m :: * -> *).
(IsCompletionWords o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCompletionWordsName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCompletionWordsName :: (MonadIO m, IsCompletionWords o) => o -> m ()
clearCompletionWordsName :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m ()
clearCompletionWordsName o
obj = 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
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CompletionWordsNamePropertyInfo
instance AttrInfo CompletionWordsNamePropertyInfo where
type AttrAllowedOps CompletionWordsNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionWordsNamePropertyInfo = IsCompletionWords
type AttrSetTypeConstraint CompletionWordsNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CompletionWordsNamePropertyInfo = (~) T.Text
type AttrTransferType CompletionWordsNamePropertyInfo = T.Text
type AttrGetType CompletionWordsNamePropertyInfo = (Maybe T.Text)
type AttrLabel CompletionWordsNamePropertyInfo = "name"
type AttrOrigin CompletionWordsNamePropertyInfo = CompletionWords
attrGet = getCompletionWordsName
attrSet = setCompletionWordsName
attrTransfer _ v = do
return v
attrConstruct = constructCompletionWordsName
attrClear = clearCompletionWordsName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.name"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#g:attr:name"
})
#endif
getCompletionWordsPriority :: (MonadIO m, IsCompletionWords o) => o -> m Int32
getCompletionWordsPriority :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m Int32
getCompletionWordsPriority o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"priority"
setCompletionWordsPriority :: (MonadIO m, IsCompletionWords o) => o -> Int32 -> m ()
setCompletionWordsPriority :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> Int32 -> m ()
setCompletionWordsPriority o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"priority" Int32
val
constructCompletionWordsPriority :: (IsCompletionWords o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCompletionWordsPriority :: forall o (m :: * -> *).
(IsCompletionWords o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCompletionWordsPriority Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"priority" Int32
val
#if defined(ENABLE_OVERLOADING)
data CompletionWordsPriorityPropertyInfo
instance AttrInfo CompletionWordsPriorityPropertyInfo where
type AttrAllowedOps CompletionWordsPriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionWordsPriorityPropertyInfo = IsCompletionWords
type AttrSetTypeConstraint CompletionWordsPriorityPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CompletionWordsPriorityPropertyInfo = (~) Int32
type AttrTransferType CompletionWordsPriorityPropertyInfo = Int32
type AttrGetType CompletionWordsPriorityPropertyInfo = Int32
type AttrLabel CompletionWordsPriorityPropertyInfo = "priority"
type AttrOrigin CompletionWordsPriorityPropertyInfo = CompletionWords
attrGet = getCompletionWordsPriority
attrSet = setCompletionWordsPriority
attrTransfer _ v = do
return v
attrConstruct = constructCompletionWordsPriority
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.priority"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#g:attr:priority"
})
#endif
getCompletionWordsProposalsBatchSize :: (MonadIO m, IsCompletionWords o) => o -> m Word32
getCompletionWordsProposalsBatchSize :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m Word32
getCompletionWordsProposalsBatchSize o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"proposals-batch-size"
setCompletionWordsProposalsBatchSize :: (MonadIO m, IsCompletionWords o) => o -> Word32 -> m ()
setCompletionWordsProposalsBatchSize :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> Word32 -> m ()
setCompletionWordsProposalsBatchSize o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"proposals-batch-size" Word32
val
constructCompletionWordsProposalsBatchSize :: (IsCompletionWords o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCompletionWordsProposalsBatchSize :: forall o (m :: * -> *).
(IsCompletionWords o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructCompletionWordsProposalsBatchSize Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"proposals-batch-size" Word32
val
#if defined(ENABLE_OVERLOADING)
data CompletionWordsProposalsBatchSizePropertyInfo
instance AttrInfo CompletionWordsProposalsBatchSizePropertyInfo where
type AttrAllowedOps CompletionWordsProposalsBatchSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionWordsProposalsBatchSizePropertyInfo = IsCompletionWords
type AttrSetTypeConstraint CompletionWordsProposalsBatchSizePropertyInfo = (~) Word32
type AttrTransferTypeConstraint CompletionWordsProposalsBatchSizePropertyInfo = (~) Word32
type AttrTransferType CompletionWordsProposalsBatchSizePropertyInfo = Word32
type AttrGetType CompletionWordsProposalsBatchSizePropertyInfo = Word32
type AttrLabel CompletionWordsProposalsBatchSizePropertyInfo = "proposals-batch-size"
type AttrOrigin CompletionWordsProposalsBatchSizePropertyInfo = CompletionWords
attrGet = getCompletionWordsProposalsBatchSize
attrSet = setCompletionWordsProposalsBatchSize
attrTransfer _ v = do
return v
attrConstruct = constructCompletionWordsProposalsBatchSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.proposalsBatchSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#g:attr:proposalsBatchSize"
})
#endif
getCompletionWordsScanBatchSize :: (MonadIO m, IsCompletionWords o) => o -> m Word32
getCompletionWordsScanBatchSize :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> m Word32
getCompletionWordsScanBatchSize o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"scan-batch-size"
setCompletionWordsScanBatchSize :: (MonadIO m, IsCompletionWords o) => o -> Word32 -> m ()
setCompletionWordsScanBatchSize :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionWords o) =>
o -> Word32 -> m ()
setCompletionWordsScanBatchSize o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"scan-batch-size" Word32
val
constructCompletionWordsScanBatchSize :: (IsCompletionWords o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCompletionWordsScanBatchSize :: forall o (m :: * -> *).
(IsCompletionWords o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructCompletionWordsScanBatchSize Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"scan-batch-size" Word32
val
#if defined(ENABLE_OVERLOADING)
data CompletionWordsScanBatchSizePropertyInfo
instance AttrInfo CompletionWordsScanBatchSizePropertyInfo where
type AttrAllowedOps CompletionWordsScanBatchSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CompletionWordsScanBatchSizePropertyInfo = IsCompletionWords
type AttrSetTypeConstraint CompletionWordsScanBatchSizePropertyInfo = (~) Word32
type AttrTransferTypeConstraint CompletionWordsScanBatchSizePropertyInfo = (~) Word32
type AttrTransferType CompletionWordsScanBatchSizePropertyInfo = Word32
type AttrGetType CompletionWordsScanBatchSizePropertyInfo = Word32
type AttrLabel CompletionWordsScanBatchSizePropertyInfo = "scan-batch-size"
type AttrOrigin CompletionWordsScanBatchSizePropertyInfo = CompletionWords
attrGet = getCompletionWordsScanBatchSize
attrSet = setCompletionWordsScanBatchSize
attrTransfer _ v = do
return v
attrConstruct = constructCompletionWordsScanBatchSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.scanBatchSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#g:attr:scanBatchSize"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CompletionWords
type instance O.AttributeList CompletionWords = CompletionWordsAttributeList
type CompletionWordsAttributeList = ('[ '("activation", CompletionWordsActivationPropertyInfo), '("icon", CompletionWordsIconPropertyInfo), '("interactiveDelay", CompletionWordsInteractiveDelayPropertyInfo), '("minimumWordSize", CompletionWordsMinimumWordSizePropertyInfo), '("name", CompletionWordsNamePropertyInfo), '("priority", CompletionWordsPriorityPropertyInfo), '("proposalsBatchSize", CompletionWordsProposalsBatchSizePropertyInfo), '("scanBatchSize", CompletionWordsScanBatchSizePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
completionWordsActivation :: AttrLabelProxy "activation"
completionWordsActivation = AttrLabelProxy
completionWordsIcon :: AttrLabelProxy "icon"
completionWordsIcon = AttrLabelProxy
completionWordsInteractiveDelay :: AttrLabelProxy "interactiveDelay"
completionWordsInteractiveDelay = AttrLabelProxy
completionWordsMinimumWordSize :: AttrLabelProxy "minimumWordSize"
completionWordsMinimumWordSize = AttrLabelProxy
completionWordsName :: AttrLabelProxy "name"
completionWordsName = AttrLabelProxy
completionWordsPriority :: AttrLabelProxy "priority"
completionWordsPriority = AttrLabelProxy
completionWordsProposalsBatchSize :: AttrLabelProxy "proposalsBatchSize"
completionWordsProposalsBatchSize = AttrLabelProxy
completionWordsScanBatchSize :: AttrLabelProxy "scanBatchSize"
completionWordsScanBatchSize = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CompletionWords = CompletionWordsSignalList
type CompletionWordsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_source_completion_words_new" gtk_source_completion_words_new ::
CString ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO (Ptr CompletionWords)
completionWordsNew ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
Maybe (T.Text)
-> Maybe (a)
-> m CompletionWords
completionWordsNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
Maybe Text -> Maybe a -> m CompletionWords
completionWordsNew Maybe Text
name Maybe a
icon = IO CompletionWords -> m CompletionWords
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CompletionWords -> m CompletionWords)
-> IO CompletionWords -> m CompletionWords
forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jName -> do
Ptr CChar
jName' <- Text -> IO (Ptr CChar)
textToCString Text
jName
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jName'
Ptr Pixbuf
maybeIcon <- case Maybe a
icon of
Maybe a
Nothing -> Ptr Pixbuf -> IO (Ptr Pixbuf)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
forall a. Ptr a
nullPtr
Just a
jIcon -> do
Ptr Pixbuf
jIcon' <- a -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jIcon
Ptr Pixbuf -> IO (Ptr Pixbuf)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
jIcon'
Ptr CompletionWords
result <- Ptr CChar -> Ptr Pixbuf -> IO (Ptr CompletionWords)
gtk_source_completion_words_new Ptr CChar
maybeName Ptr Pixbuf
maybeIcon
Text -> Ptr CompletionWords -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"completionWordsNew" Ptr CompletionWords
result
CompletionWords
result' <- ((ManagedPtr CompletionWords -> CompletionWords)
-> Ptr CompletionWords -> IO CompletionWords
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CompletionWords -> CompletionWords
CompletionWords) Ptr CompletionWords
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
icon a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeName
CompletionWords -> IO CompletionWords
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CompletionWords
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_completion_words_register" gtk_source_completion_words_register ::
Ptr CompletionWords ->
Ptr Gtk.TextBuffer.TextBuffer ->
IO ()
completionWordsRegister ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionWords a, Gtk.TextBuffer.IsTextBuffer b) =>
a
-> b
-> m ()
completionWordsRegister :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCompletionWords a, IsTextBuffer b) =>
a -> b -> m ()
completionWordsRegister a
words b
buffer = 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 CompletionWords
words' <- a -> IO (Ptr CompletionWords)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
words
Ptr TextBuffer
buffer' <- b -> IO (Ptr TextBuffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
buffer
Ptr CompletionWords -> Ptr TextBuffer -> IO ()
gtk_source_completion_words_register Ptr CompletionWords
words' Ptr TextBuffer
buffer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
words
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
buffer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionWordsRegisterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCompletionWords a, Gtk.TextBuffer.IsTextBuffer b) => O.OverloadedMethod CompletionWordsRegisterMethodInfo a signature where
overloadedMethod = completionWordsRegister
instance O.OverloadedMethodInfo CompletionWordsRegisterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.completionWordsRegister",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#v:completionWordsRegister"
})
#endif
foreign import ccall "gtk_source_completion_words_unregister" gtk_source_completion_words_unregister ::
Ptr CompletionWords ->
Ptr Gtk.TextBuffer.TextBuffer ->
IO ()
completionWordsUnregister ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionWords a, Gtk.TextBuffer.IsTextBuffer b) =>
a
-> b
-> m ()
completionWordsUnregister :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCompletionWords a, IsTextBuffer b) =>
a -> b -> m ()
completionWordsUnregister a
words b
buffer = 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 CompletionWords
words' <- a -> IO (Ptr CompletionWords)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
words
Ptr TextBuffer
buffer' <- b -> IO (Ptr TextBuffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
buffer
Ptr CompletionWords -> Ptr TextBuffer -> IO ()
gtk_source_completion_words_unregister Ptr CompletionWords
words' Ptr TextBuffer
buffer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
words
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
buffer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionWordsUnregisterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCompletionWords a, Gtk.TextBuffer.IsTextBuffer b) => O.OverloadedMethod CompletionWordsUnregisterMethodInfo a signature where
overloadedMethod = completionWordsUnregister
instance O.OverloadedMethodInfo CompletionWordsUnregisterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.CompletionWords.completionWordsUnregister",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.29/docs/GI-GtkSource-Objects-CompletionWords.html#v:completionWordsUnregister"
})
#endif