{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.CompletionItem
(
CompletionItem(..) ,
IsCompletionItem ,
toCompletionItem ,
#if defined(ENABLE_OVERLOADING)
ResolveCompletionItemMethod ,
#endif
completionItemNew ,
completionItemNew2 ,
completionItemNewFromStock ,
completionItemNewWithMarkup ,
#if defined(ENABLE_OVERLOADING)
CompletionItemSetGiconMethodInfo ,
#endif
completionItemSetGicon ,
#if defined(ENABLE_OVERLOADING)
CompletionItemSetIconMethodInfo ,
#endif
completionItemSetIcon ,
#if defined(ENABLE_OVERLOADING)
CompletionItemSetIconNameMethodInfo ,
#endif
completionItemSetIconName ,
#if defined(ENABLE_OVERLOADING)
CompletionItemSetInfoMethodInfo ,
#endif
completionItemSetInfo ,
#if defined(ENABLE_OVERLOADING)
CompletionItemSetLabelMethodInfo ,
#endif
completionItemSetLabel ,
#if defined(ENABLE_OVERLOADING)
CompletionItemSetMarkupMethodInfo ,
#endif
completionItemSetMarkup ,
#if defined(ENABLE_OVERLOADING)
CompletionItemSetTextMethodInfo ,
#endif
completionItemSetText ,
#if defined(ENABLE_OVERLOADING)
CompletionItemGiconPropertyInfo ,
#endif
clearCompletionItemGicon ,
#if defined(ENABLE_OVERLOADING)
completionItemGicon ,
#endif
constructCompletionItemGicon ,
getCompletionItemGicon ,
setCompletionItemGicon ,
#if defined(ENABLE_OVERLOADING)
CompletionItemIconPropertyInfo ,
#endif
clearCompletionItemIcon ,
#if defined(ENABLE_OVERLOADING)
completionItemIcon ,
#endif
constructCompletionItemIcon ,
getCompletionItemIcon ,
setCompletionItemIcon ,
#if defined(ENABLE_OVERLOADING)
CompletionItemIconNamePropertyInfo ,
#endif
clearCompletionItemIconName ,
#if defined(ENABLE_OVERLOADING)
completionItemIconName ,
#endif
constructCompletionItemIconName ,
getCompletionItemIconName ,
setCompletionItemIconName ,
#if defined(ENABLE_OVERLOADING)
CompletionItemInfoPropertyInfo ,
#endif
clearCompletionItemInfo ,
#if defined(ENABLE_OVERLOADING)
completionItemInfo ,
#endif
constructCompletionItemInfo ,
getCompletionItemInfo ,
setCompletionItemInfo ,
#if defined(ENABLE_OVERLOADING)
CompletionItemLabelPropertyInfo ,
#endif
clearCompletionItemLabel ,
#if defined(ENABLE_OVERLOADING)
completionItemLabel ,
#endif
constructCompletionItemLabel ,
getCompletionItemLabel ,
setCompletionItemLabel ,
#if defined(ENABLE_OVERLOADING)
CompletionItemMarkupPropertyInfo ,
#endif
clearCompletionItemMarkup ,
#if defined(ENABLE_OVERLOADING)
completionItemMarkup ,
#endif
constructCompletionItemMarkup ,
getCompletionItemMarkup ,
setCompletionItemMarkup ,
#if defined(ENABLE_OVERLOADING)
CompletionItemTextPropertyInfo ,
#endif
clearCompletionItemText ,
#if defined(ENABLE_OVERLOADING)
completionItemText ,
#endif
constructCompletionItemText ,
getCompletionItemText ,
setCompletionItemText ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified 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 {-# SOURCE #-} qualified GI.GtkSource.Interfaces.CompletionProposal as GtkSource.CompletionProposal
newtype CompletionItem = CompletionItem (SP.ManagedPtr CompletionItem)
deriving (CompletionItem -> CompletionItem -> Bool
(CompletionItem -> CompletionItem -> Bool)
-> (CompletionItem -> CompletionItem -> Bool) -> Eq CompletionItem
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CompletionItem -> CompletionItem -> Bool
$c/= :: CompletionItem -> CompletionItem -> Bool
== :: CompletionItem -> CompletionItem -> Bool
$c== :: CompletionItem -> CompletionItem -> Bool
Eq)
instance SP.ManagedPtrNewtype CompletionItem where
toManagedPtr :: CompletionItem -> ManagedPtr CompletionItem
toManagedPtr (CompletionItem ManagedPtr CompletionItem
p) = ManagedPtr CompletionItem
p
foreign import ccall "gtk_source_completion_item_get_type"
c_gtk_source_completion_item_get_type :: IO B.Types.GType
instance B.Types.TypedObject CompletionItem where
glibType :: IO GType
glibType = IO GType
c_gtk_source_completion_item_get_type
instance B.Types.GObject CompletionItem
class (SP.GObject o, O.IsDescendantOf CompletionItem o) => IsCompletionItem o
instance (SP.GObject o, O.IsDescendantOf CompletionItem o) => IsCompletionItem o
instance O.HasParentTypes CompletionItem
type instance O.ParentTypes CompletionItem = '[GObject.Object.Object, GtkSource.CompletionProposal.CompletionProposal]
toCompletionItem :: (MIO.MonadIO m, IsCompletionItem o) => o -> m CompletionItem
toCompletionItem :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m CompletionItem
toCompletionItem = IO CompletionItem -> m CompletionItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CompletionItem -> m CompletionItem)
-> (o -> IO CompletionItem) -> o -> m CompletionItem
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CompletionItem -> CompletionItem)
-> o -> IO CompletionItem
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CompletionItem -> CompletionItem
CompletionItem
instance B.GValue.IsGValue (Maybe CompletionItem) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_completion_item_get_type
gvalueSet_ :: Ptr GValue -> Maybe CompletionItem -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CompletionItem
P.Nothing = Ptr GValue -> Ptr CompletionItem -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CompletionItem
forall a. Ptr a
FP.nullPtr :: FP.Ptr CompletionItem)
gvalueSet_ Ptr GValue
gv (P.Just CompletionItem
obj) = CompletionItem -> (Ptr CompletionItem -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CompletionItem
obj (Ptr GValue -> Ptr CompletionItem -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CompletionItem)
gvalueGet_ Ptr GValue
gv = do
Ptr CompletionItem
ptr <- Ptr GValue -> IO (Ptr CompletionItem)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CompletionItem)
if Ptr CompletionItem
ptr Ptr CompletionItem -> Ptr CompletionItem -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CompletionItem
forall a. Ptr a
FP.nullPtr
then CompletionItem -> Maybe CompletionItem
forall a. a -> Maybe a
P.Just (CompletionItem -> Maybe CompletionItem)
-> IO CompletionItem -> IO (Maybe CompletionItem)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CompletionItem -> CompletionItem)
-> Ptr CompletionItem -> IO CompletionItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CompletionItem -> CompletionItem
CompletionItem Ptr CompletionItem
ptr
else Maybe CompletionItem -> IO (Maybe CompletionItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CompletionItem
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCompletionItemMethod (t :: Symbol) (o :: *) :: * where
ResolveCompletionItemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCompletionItemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCompletionItemMethod "changed" o = GtkSource.CompletionProposal.CompletionProposalChangedMethodInfo
ResolveCompletionItemMethod "equal" o = GtkSource.CompletionProposal.CompletionProposalEqualMethodInfo
ResolveCompletionItemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCompletionItemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCompletionItemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCompletionItemMethod "hash" o = GtkSource.CompletionProposal.CompletionProposalHashMethodInfo
ResolveCompletionItemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCompletionItemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCompletionItemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCompletionItemMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCompletionItemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCompletionItemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCompletionItemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCompletionItemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCompletionItemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCompletionItemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCompletionItemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCompletionItemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCompletionItemMethod "getGicon" o = GtkSource.CompletionProposal.CompletionProposalGetGiconMethodInfo
ResolveCompletionItemMethod "getIcon" o = GtkSource.CompletionProposal.CompletionProposalGetIconMethodInfo
ResolveCompletionItemMethod "getIconName" o = GtkSource.CompletionProposal.CompletionProposalGetIconNameMethodInfo
ResolveCompletionItemMethod "getInfo" o = GtkSource.CompletionProposal.CompletionProposalGetInfoMethodInfo
ResolveCompletionItemMethod "getLabel" o = GtkSource.CompletionProposal.CompletionProposalGetLabelMethodInfo
ResolveCompletionItemMethod "getMarkup" o = GtkSource.CompletionProposal.CompletionProposalGetMarkupMethodInfo
ResolveCompletionItemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCompletionItemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCompletionItemMethod "getText" o = GtkSource.CompletionProposal.CompletionProposalGetTextMethodInfo
ResolveCompletionItemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCompletionItemMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCompletionItemMethod "setGicon" o = CompletionItemSetGiconMethodInfo
ResolveCompletionItemMethod "setIcon" o = CompletionItemSetIconMethodInfo
ResolveCompletionItemMethod "setIconName" o = CompletionItemSetIconNameMethodInfo
ResolveCompletionItemMethod "setInfo" o = CompletionItemSetInfoMethodInfo
ResolveCompletionItemMethod "setLabel" o = CompletionItemSetLabelMethodInfo
ResolveCompletionItemMethod "setMarkup" o = CompletionItemSetMarkupMethodInfo
ResolveCompletionItemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCompletionItemMethod "setText" o = CompletionItemSetTextMethodInfo
ResolveCompletionItemMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCompletionItemMethod t CompletionItem, O.OverloadedMethod info CompletionItem p) => OL.IsLabel t (CompletionItem -> 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 ~ ResolveCompletionItemMethod t CompletionItem, O.OverloadedMethod info CompletionItem p, R.HasField t CompletionItem p) => R.HasField t CompletionItem p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCompletionItemMethod t CompletionItem, O.OverloadedMethodInfo info CompletionItem) => OL.IsLabel t (O.MethodProxy info CompletionItem) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getCompletionItemGicon :: (MonadIO m, IsCompletionItem o) => o -> m (Maybe Gio.Icon.Icon)
getCompletionItemGicon :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m (Maybe Icon)
getCompletionItemGicon o
obj = IO (Maybe Icon) -> m (Maybe Icon)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Icon) -> m (Maybe Icon))
-> IO (Maybe Icon) -> m (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Icon -> Icon) -> IO (Maybe Icon)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"gicon" ManagedPtr Icon -> Icon
Gio.Icon.Icon
setCompletionItemGicon :: (MonadIO m, IsCompletionItem o, Gio.Icon.IsIcon a) => o -> a -> m ()
setCompletionItemGicon :: forall (m :: * -> *) o a.
(MonadIO m, IsCompletionItem o, IsIcon a) =>
o -> a -> m ()
setCompletionItemGicon o
obj a
val = IO () -> m ()
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
"gicon" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructCompletionItemGicon :: (IsCompletionItem o, MIO.MonadIO m, Gio.Icon.IsIcon a) => a -> m (GValueConstruct o)
constructCompletionItemGicon :: forall o (m :: * -> *) a.
(IsCompletionItem o, MonadIO m, IsIcon a) =>
a -> m (GValueConstruct o)
constructCompletionItemGicon a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"gicon" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearCompletionItemGicon :: (MonadIO m, IsCompletionItem o) => o -> m ()
clearCompletionItemGicon :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m ()
clearCompletionItemGicon o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Icon -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"gicon" (Maybe Icon
forall a. Maybe a
Nothing :: Maybe Gio.Icon.Icon)
#if defined(ENABLE_OVERLOADING)
data CompletionItemGiconPropertyInfo
instance AttrInfo CompletionItemGiconPropertyInfo where
type AttrAllowedOps CompletionItemGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionItemGiconPropertyInfo = IsCompletionItem
type AttrSetTypeConstraint CompletionItemGiconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferTypeConstraint CompletionItemGiconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferType CompletionItemGiconPropertyInfo = Gio.Icon.Icon
type AttrGetType CompletionItemGiconPropertyInfo = (Maybe Gio.Icon.Icon)
type AttrLabel CompletionItemGiconPropertyInfo = "gicon"
type AttrOrigin CompletionItemGiconPropertyInfo = CompletionItem
attrGet = getCompletionItemGicon
attrSet = setCompletionItemGicon
attrTransfer _ v = do
unsafeCastTo Gio.Icon.Icon v
attrConstruct = constructCompletionItemGicon
attrClear = clearCompletionItemGicon
#endif
getCompletionItemIcon :: (MonadIO m, IsCompletionItem o) => o -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
getCompletionItemIcon :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m (Maybe Pixbuf)
getCompletionItemIcon o
obj = IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
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
setCompletionItemIcon :: (MonadIO m, IsCompletionItem o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m ()
setCompletionItemIcon :: forall (m :: * -> *) o a.
(MonadIO m, IsCompletionItem o, IsPixbuf a) =>
o -> a -> m ()
setCompletionItemIcon o
obj a
val = IO () -> m ()
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)
constructCompletionItemIcon :: (IsCompletionItem o, MIO.MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> m (GValueConstruct o)
constructCompletionItemIcon :: forall o (m :: * -> *) a.
(IsCompletionItem o, MonadIO m, IsPixbuf a) =>
a -> m (GValueConstruct o)
constructCompletionItemIcon a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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)
clearCompletionItemIcon :: (MonadIO m, IsCompletionItem o) => o -> m ()
clearCompletionItemIcon :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m ()
clearCompletionItemIcon o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 CompletionItemIconPropertyInfo
instance AttrInfo CompletionItemIconPropertyInfo where
type AttrAllowedOps CompletionItemIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionItemIconPropertyInfo = IsCompletionItem
type AttrSetTypeConstraint CompletionItemIconPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrTransferTypeConstraint CompletionItemIconPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrTransferType CompletionItemIconPropertyInfo = GdkPixbuf.Pixbuf.Pixbuf
type AttrGetType CompletionItemIconPropertyInfo = (Maybe GdkPixbuf.Pixbuf.Pixbuf)
type AttrLabel CompletionItemIconPropertyInfo = "icon"
type AttrOrigin CompletionItemIconPropertyInfo = CompletionItem
attrGet = getCompletionItemIcon
attrSet = setCompletionItemIcon
attrTransfer _ v = do
unsafeCastTo GdkPixbuf.Pixbuf.Pixbuf v
attrConstruct = constructCompletionItemIcon
attrClear = clearCompletionItemIcon
#endif
getCompletionItemIconName :: (MonadIO m, IsCompletionItem o) => o -> m (Maybe T.Text)
getCompletionItemIconName :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m (Maybe Text)
getCompletionItemIconName o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"icon-name"
setCompletionItemIconName :: (MonadIO m, IsCompletionItem o) => o -> T.Text -> m ()
setCompletionItemIconName :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> Text -> m ()
setCompletionItemIconName o
obj Text
val = IO () -> m ()
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
"icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCompletionItemIconName :: (IsCompletionItem o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCompletionItemIconName :: forall o (m :: * -> *).
(IsCompletionItem o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCompletionItemIconName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCompletionItemIconName :: (MonadIO m, IsCompletionItem o) => o -> m ()
clearCompletionItemIconName :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m ()
clearCompletionItemIconName o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CompletionItemIconNamePropertyInfo
instance AttrInfo CompletionItemIconNamePropertyInfo where
type AttrAllowedOps CompletionItemIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionItemIconNamePropertyInfo = IsCompletionItem
type AttrSetTypeConstraint CompletionItemIconNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CompletionItemIconNamePropertyInfo = (~) T.Text
type AttrTransferType CompletionItemIconNamePropertyInfo = T.Text
type AttrGetType CompletionItemIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel CompletionItemIconNamePropertyInfo = "icon-name"
type AttrOrigin CompletionItemIconNamePropertyInfo = CompletionItem
attrGet = getCompletionItemIconName
attrSet = setCompletionItemIconName
attrTransfer _ v = do
return v
attrConstruct = constructCompletionItemIconName
attrClear = clearCompletionItemIconName
#endif
getCompletionItemInfo :: (MonadIO m, IsCompletionItem o) => o -> m (Maybe T.Text)
getCompletionItemInfo :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m (Maybe Text)
getCompletionItemInfo o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"info"
setCompletionItemInfo :: (MonadIO m, IsCompletionItem o) => o -> T.Text -> m ()
setCompletionItemInfo :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> Text -> m ()
setCompletionItemInfo o
obj Text
val = IO () -> m ()
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
"info" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCompletionItemInfo :: (IsCompletionItem o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCompletionItemInfo :: forall o (m :: * -> *).
(IsCompletionItem o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCompletionItemInfo Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"info" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCompletionItemInfo :: (MonadIO m, IsCompletionItem o) => o -> m ()
clearCompletionItemInfo :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m ()
clearCompletionItemInfo o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"info" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CompletionItemInfoPropertyInfo
instance AttrInfo CompletionItemInfoPropertyInfo where
type AttrAllowedOps CompletionItemInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionItemInfoPropertyInfo = IsCompletionItem
type AttrSetTypeConstraint CompletionItemInfoPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CompletionItemInfoPropertyInfo = (~) T.Text
type AttrTransferType CompletionItemInfoPropertyInfo = T.Text
type AttrGetType CompletionItemInfoPropertyInfo = (Maybe T.Text)
type AttrLabel CompletionItemInfoPropertyInfo = "info"
type AttrOrigin CompletionItemInfoPropertyInfo = CompletionItem
attrGet = getCompletionItemInfo
attrSet = setCompletionItemInfo
attrTransfer _ v = do
return v
attrConstruct = constructCompletionItemInfo
attrClear = clearCompletionItemInfo
#endif
getCompletionItemLabel :: (MonadIO m, IsCompletionItem o) => o -> m (Maybe T.Text)
getCompletionItemLabel :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m (Maybe Text)
getCompletionItemLabel o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"label"
setCompletionItemLabel :: (MonadIO m, IsCompletionItem o) => o -> T.Text -> m ()
setCompletionItemLabel :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> Text -> m ()
setCompletionItemLabel o
obj Text
val = IO () -> m ()
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
"label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCompletionItemLabel :: (IsCompletionItem o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCompletionItemLabel :: forall o (m :: * -> *).
(IsCompletionItem o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCompletionItemLabel Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCompletionItemLabel :: (MonadIO m, IsCompletionItem o) => o -> m ()
clearCompletionItemLabel :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m ()
clearCompletionItemLabel o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CompletionItemLabelPropertyInfo
instance AttrInfo CompletionItemLabelPropertyInfo where
type AttrAllowedOps CompletionItemLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionItemLabelPropertyInfo = IsCompletionItem
type AttrSetTypeConstraint CompletionItemLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CompletionItemLabelPropertyInfo = (~) T.Text
type AttrTransferType CompletionItemLabelPropertyInfo = T.Text
type AttrGetType CompletionItemLabelPropertyInfo = (Maybe T.Text)
type AttrLabel CompletionItemLabelPropertyInfo = "label"
type AttrOrigin CompletionItemLabelPropertyInfo = CompletionItem
attrGet = getCompletionItemLabel
attrSet = setCompletionItemLabel
attrTransfer _ v = do
return v
attrConstruct = constructCompletionItemLabel
attrClear = clearCompletionItemLabel
#endif
getCompletionItemMarkup :: (MonadIO m, IsCompletionItem o) => o -> m (Maybe T.Text)
getCompletionItemMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m (Maybe Text)
getCompletionItemMarkup o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"markup"
setCompletionItemMarkup :: (MonadIO m, IsCompletionItem o) => o -> T.Text -> m ()
setCompletionItemMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> Text -> m ()
setCompletionItemMarkup o
obj Text
val = IO () -> m ()
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
"markup" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCompletionItemMarkup :: (IsCompletionItem o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCompletionItemMarkup :: forall o (m :: * -> *).
(IsCompletionItem o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCompletionItemMarkup Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"markup" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCompletionItemMarkup :: (MonadIO m, IsCompletionItem o) => o -> m ()
clearCompletionItemMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m ()
clearCompletionItemMarkup o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"markup" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CompletionItemMarkupPropertyInfo
instance AttrInfo CompletionItemMarkupPropertyInfo where
type AttrAllowedOps CompletionItemMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionItemMarkupPropertyInfo = IsCompletionItem
type AttrSetTypeConstraint CompletionItemMarkupPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CompletionItemMarkupPropertyInfo = (~) T.Text
type AttrTransferType CompletionItemMarkupPropertyInfo = T.Text
type AttrGetType CompletionItemMarkupPropertyInfo = (Maybe T.Text)
type AttrLabel CompletionItemMarkupPropertyInfo = "markup"
type AttrOrigin CompletionItemMarkupPropertyInfo = CompletionItem
attrGet = getCompletionItemMarkup
attrSet = setCompletionItemMarkup
attrTransfer _ v = do
return v
attrConstruct = constructCompletionItemMarkup
attrClear = clearCompletionItemMarkup
#endif
getCompletionItemText :: (MonadIO m, IsCompletionItem o) => o -> m (Maybe T.Text)
getCompletionItemText :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m (Maybe Text)
getCompletionItemText o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"text"
setCompletionItemText :: (MonadIO m, IsCompletionItem o) => o -> T.Text -> m ()
setCompletionItemText :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> Text -> m ()
setCompletionItemText o
obj Text
val = IO () -> m ()
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
"text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCompletionItemText :: (IsCompletionItem o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCompletionItemText :: forall o (m :: * -> *).
(IsCompletionItem o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCompletionItemText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCompletionItemText :: (MonadIO m, IsCompletionItem o) => o -> m ()
clearCompletionItemText :: forall (m :: * -> *) o.
(MonadIO m, IsCompletionItem o) =>
o -> m ()
clearCompletionItemText o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CompletionItemTextPropertyInfo
instance AttrInfo CompletionItemTextPropertyInfo where
type AttrAllowedOps CompletionItemTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CompletionItemTextPropertyInfo = IsCompletionItem
type AttrSetTypeConstraint CompletionItemTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CompletionItemTextPropertyInfo = (~) T.Text
type AttrTransferType CompletionItemTextPropertyInfo = T.Text
type AttrGetType CompletionItemTextPropertyInfo = (Maybe T.Text)
type AttrLabel CompletionItemTextPropertyInfo = "text"
type AttrOrigin CompletionItemTextPropertyInfo = CompletionItem
attrGet = getCompletionItemText
attrSet = setCompletionItemText
attrTransfer _ v = do
return v
attrConstruct = constructCompletionItemText
attrClear = clearCompletionItemText
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CompletionItem
type instance O.AttributeList CompletionItem = CompletionItemAttributeList
type CompletionItemAttributeList = ('[ '("gicon", CompletionItemGiconPropertyInfo), '("icon", CompletionItemIconPropertyInfo), '("iconName", CompletionItemIconNamePropertyInfo), '("info", CompletionItemInfoPropertyInfo), '("label", CompletionItemLabelPropertyInfo), '("markup", CompletionItemMarkupPropertyInfo), '("text", CompletionItemTextPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
completionItemGicon :: AttrLabelProxy "gicon"
completionItemGicon = AttrLabelProxy
completionItemIcon :: AttrLabelProxy "icon"
completionItemIcon = AttrLabelProxy
completionItemIconName :: AttrLabelProxy "iconName"
completionItemIconName = AttrLabelProxy
completionItemInfo :: AttrLabelProxy "info"
completionItemInfo = AttrLabelProxy
completionItemLabel :: AttrLabelProxy "label"
completionItemLabel = AttrLabelProxy
completionItemMarkup :: AttrLabelProxy "markup"
completionItemMarkup = AttrLabelProxy
completionItemText :: AttrLabelProxy "text"
completionItemText = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CompletionItem = CompletionItemSignalList
type CompletionItemSignalList = ('[ '("changed", GtkSource.CompletionProposal.CompletionProposalChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_completion_item_new" gtk_source_completion_item_new ::
CString ->
CString ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
CString ->
IO (Ptr CompletionItem)
{-# DEPRECATED completionItemNew ["(Since version 3.24)","Use 'GI.GtkSource.Objects.CompletionItem.completionItemNew2' instead."] #-}
completionItemNew ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
T.Text
-> T.Text
-> Maybe (a)
-> Maybe (T.Text)
-> m CompletionItem
completionItemNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
Text -> Text -> Maybe a -> Maybe Text -> m CompletionItem
completionItemNew Text
label Text
text Maybe a
icon Maybe Text
info = IO CompletionItem -> m CompletionItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CompletionItem -> m CompletionItem)
-> IO CompletionItem -> m CompletionItem
forall a b. (a -> b) -> a -> b
$ do
CString
label' <- Text -> IO CString
textToCString Text
label
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr Pixbuf
maybeIcon <- case Maybe a
icon of
Maybe a
Nothing -> Ptr Pixbuf -> IO (Ptr Pixbuf)
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
jIcon'
CString
maybeInfo <- case Maybe Text
info of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jInfo -> do
CString
jInfo' <- Text -> IO CString
textToCString Text
jInfo
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jInfo'
Ptr CompletionItem
result <- CString
-> CString -> Ptr Pixbuf -> CString -> IO (Ptr CompletionItem)
gtk_source_completion_item_new CString
label' CString
text' Ptr Pixbuf
maybeIcon CString
maybeInfo
Text -> Ptr CompletionItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"completionItemNew" Ptr CompletionItem
result
CompletionItem
result' <- ((ManagedPtr CompletionItem -> CompletionItem)
-> Ptr CompletionItem -> IO CompletionItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CompletionItem -> CompletionItem
CompletionItem) Ptr CompletionItem
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
label'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeInfo
CompletionItem -> IO CompletionItem
forall (m :: * -> *) a. Monad m => a -> m a
return CompletionItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_completion_item_new_from_stock" gtk_source_completion_item_new_from_stock ::
CString ->
CString ->
CString ->
CString ->
IO (Ptr CompletionItem)
{-# DEPRECATED completionItemNewFromStock ["(Since version 3.10)","Use 'GI.GtkSource.Objects.CompletionItem.completionItemNew2' instead."] #-}
completionItemNewFromStock ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> T.Text
-> T.Text
-> Maybe (T.Text)
-> m CompletionItem
completionItemNewFromStock :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> Text -> Text -> Maybe Text -> m CompletionItem
completionItemNewFromStock Maybe Text
label Text
text Text
stock Maybe Text
info = IO CompletionItem -> m CompletionItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CompletionItem -> m CompletionItem)
-> IO CompletionItem -> m CompletionItem
forall a b. (a -> b) -> a -> b
$ do
CString
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
CString
text' <- Text -> IO CString
textToCString Text
text
CString
stock' <- Text -> IO CString
textToCString Text
stock
CString
maybeInfo <- case Maybe Text
info of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jInfo -> do
CString
jInfo' <- Text -> IO CString
textToCString Text
jInfo
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jInfo'
Ptr CompletionItem
result <- CString -> CString -> CString -> CString -> IO (Ptr CompletionItem)
gtk_source_completion_item_new_from_stock CString
maybeLabel CString
text' CString
stock' CString
maybeInfo
Text -> Ptr CompletionItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"completionItemNewFromStock" Ptr CompletionItem
result
CompletionItem
result' <- ((ManagedPtr CompletionItem -> CompletionItem)
-> Ptr CompletionItem -> IO CompletionItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CompletionItem -> CompletionItem
CompletionItem) Ptr CompletionItem
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
stock'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeInfo
CompletionItem -> IO CompletionItem
forall (m :: * -> *) a. Monad m => a -> m a
return CompletionItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_completion_item_new_with_markup" gtk_source_completion_item_new_with_markup ::
CString ->
CString ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
CString ->
IO (Ptr CompletionItem)
{-# DEPRECATED completionItemNewWithMarkup ["(Since version 3.24)","Use 'GI.GtkSource.Objects.CompletionItem.completionItemNew2' instead."] #-}
completionItemNewWithMarkup ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
T.Text
-> T.Text
-> Maybe (a)
-> Maybe (T.Text)
-> m CompletionItem
completionItemNewWithMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
Text -> Text -> Maybe a -> Maybe Text -> m CompletionItem
completionItemNewWithMarkup Text
markup Text
text Maybe a
icon Maybe Text
info = IO CompletionItem -> m CompletionItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CompletionItem -> m CompletionItem)
-> IO CompletionItem -> m CompletionItem
forall a b. (a -> b) -> a -> b
$ do
CString
markup' <- Text -> IO CString
textToCString Text
markup
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr Pixbuf
maybeIcon <- case Maybe a
icon of
Maybe a
Nothing -> Ptr Pixbuf -> IO (Ptr Pixbuf)
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
jIcon'
CString
maybeInfo <- case Maybe Text
info of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jInfo -> do
CString
jInfo' <- Text -> IO CString
textToCString Text
jInfo
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jInfo'
Ptr CompletionItem
result <- CString
-> CString -> Ptr Pixbuf -> CString -> IO (Ptr CompletionItem)
gtk_source_completion_item_new_with_markup CString
markup' CString
text' Ptr Pixbuf
maybeIcon CString
maybeInfo
Text -> Ptr CompletionItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"completionItemNewWithMarkup" Ptr CompletionItem
result
CompletionItem
result' <- ((ManagedPtr CompletionItem -> CompletionItem)
-> Ptr CompletionItem -> IO CompletionItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CompletionItem -> CompletionItem
CompletionItem) Ptr CompletionItem
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
markup'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeInfo
CompletionItem -> IO CompletionItem
forall (m :: * -> *) a. Monad m => a -> m a
return CompletionItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_completion_item_set_gicon" gtk_source_completion_item_set_gicon ::
Ptr CompletionItem ->
Ptr Gio.Icon.Icon ->
IO ()
completionItemSetGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionItem a, Gio.Icon.IsIcon b) =>
a
-> Maybe (b)
-> m ()
completionItemSetGicon :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCompletionItem a, IsIcon b) =>
a -> Maybe b -> m ()
completionItemSetGicon a
item Maybe b
gicon = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionItem
item' <- a -> IO (Ptr CompletionItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
Ptr Icon
maybeGicon <- case Maybe b
gicon of
Maybe b
Nothing -> Ptr Icon -> IO (Ptr Icon)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Icon
forall a. Ptr a
nullPtr
Just b
jGicon -> do
Ptr Icon
jGicon' <- b -> IO (Ptr Icon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jGicon
Ptr Icon -> IO (Ptr Icon)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Icon
jGicon'
Ptr CompletionItem -> Ptr Icon -> IO ()
gtk_source_completion_item_set_gicon Ptr CompletionItem
item' Ptr Icon
maybeGicon
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
gicon b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionItemSetGiconMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCompletionItem a, Gio.Icon.IsIcon b) => O.OverloadedMethod CompletionItemSetGiconMethodInfo a signature where
overloadedMethod = completionItemSetGicon
instance O.OverloadedMethodInfo CompletionItemSetGiconMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.CompletionItem.completionItemSetGicon",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-CompletionItem.html#v:completionItemSetGicon"
}
#endif
foreign import ccall "gtk_source_completion_item_set_icon" gtk_source_completion_item_set_icon ::
Ptr CompletionItem ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO ()
completionItemSetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionItem a, GdkPixbuf.Pixbuf.IsPixbuf b) =>
a
-> Maybe (b)
-> m ()
completionItemSetIcon :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCompletionItem a, IsPixbuf b) =>
a -> Maybe b -> m ()
completionItemSetIcon a
item Maybe b
icon = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionItem
item' <- a -> IO (Ptr CompletionItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
Ptr Pixbuf
maybeIcon <- case Maybe b
icon of
Maybe b
Nothing -> Ptr Pixbuf -> IO (Ptr Pixbuf)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
forall a. Ptr a
nullPtr
Just b
jIcon -> do
Ptr Pixbuf
jIcon' <- b -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jIcon
Ptr Pixbuf -> IO (Ptr Pixbuf)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
jIcon'
Ptr CompletionItem -> Ptr Pixbuf -> IO ()
gtk_source_completion_item_set_icon Ptr CompletionItem
item' Ptr Pixbuf
maybeIcon
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
icon b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionItemSetIconMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCompletionItem a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.OverloadedMethod CompletionItemSetIconMethodInfo a signature where
overloadedMethod = completionItemSetIcon
instance O.OverloadedMethodInfo CompletionItemSetIconMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.CompletionItem.completionItemSetIcon",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-CompletionItem.html#v:completionItemSetIcon"
}
#endif
foreign import ccall "gtk_source_completion_item_set_icon_name" gtk_source_completion_item_set_icon_name ::
Ptr CompletionItem ->
CString ->
IO ()
completionItemSetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionItem a) =>
a
-> Maybe (T.Text)
-> m ()
completionItemSetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionItem a) =>
a -> Maybe Text -> m ()
completionItemSetIconName a
item Maybe Text
iconName = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionItem
item' <- a -> IO (Ptr CompletionItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
CString
maybeIconName <- case Maybe Text
iconName of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jIconName -> do
CString
jIconName' <- Text -> IO CString
textToCString Text
jIconName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jIconName'
Ptr CompletionItem -> CString -> IO ()
gtk_source_completion_item_set_icon_name Ptr CompletionItem
item' CString
maybeIconName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeIconName
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionItemSetIconNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCompletionItem a) => O.OverloadedMethod CompletionItemSetIconNameMethodInfo a signature where
overloadedMethod = completionItemSetIconName
instance O.OverloadedMethodInfo CompletionItemSetIconNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.CompletionItem.completionItemSetIconName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-CompletionItem.html#v:completionItemSetIconName"
}
#endif
foreign import ccall "gtk_source_completion_item_set_info" gtk_source_completion_item_set_info ::
Ptr CompletionItem ->
CString ->
IO ()
completionItemSetInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionItem a) =>
a
-> Maybe (T.Text)
-> m ()
completionItemSetInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionItem a) =>
a -> Maybe Text -> m ()
completionItemSetInfo a
item Maybe Text
info = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionItem
item' <- a -> IO (Ptr CompletionItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
CString
maybeInfo <- case Maybe Text
info of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jInfo -> do
CString
jInfo' <- Text -> IO CString
textToCString Text
jInfo
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jInfo'
Ptr CompletionItem -> CString -> IO ()
gtk_source_completion_item_set_info Ptr CompletionItem
item' CString
maybeInfo
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeInfo
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionItemSetInfoMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCompletionItem a) => O.OverloadedMethod CompletionItemSetInfoMethodInfo a signature where
overloadedMethod = completionItemSetInfo
instance O.OverloadedMethodInfo CompletionItemSetInfoMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.CompletionItem.completionItemSetInfo",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-CompletionItem.html#v:completionItemSetInfo"
}
#endif
foreign import ccall "gtk_source_completion_item_set_label" gtk_source_completion_item_set_label ::
Ptr CompletionItem ->
CString ->
IO ()
completionItemSetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionItem a) =>
a
-> Maybe (T.Text)
-> m ()
completionItemSetLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionItem a) =>
a -> Maybe Text -> m ()
completionItemSetLabel a
item Maybe Text
label = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionItem
item' <- a -> IO (Ptr CompletionItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
CString
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr CompletionItem -> CString -> IO ()
gtk_source_completion_item_set_label Ptr CompletionItem
item' CString
maybeLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionItemSetLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCompletionItem a) => O.OverloadedMethod CompletionItemSetLabelMethodInfo a signature where
overloadedMethod = completionItemSetLabel
instance O.OverloadedMethodInfo CompletionItemSetLabelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.CompletionItem.completionItemSetLabel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-CompletionItem.html#v:completionItemSetLabel"
}
#endif
foreign import ccall "gtk_source_completion_item_set_markup" gtk_source_completion_item_set_markup ::
Ptr CompletionItem ->
CString ->
IO ()
completionItemSetMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionItem a) =>
a
-> Maybe (T.Text)
-> m ()
completionItemSetMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionItem a) =>
a -> Maybe Text -> m ()
completionItemSetMarkup a
item Maybe Text
markup = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionItem
item' <- a -> IO (Ptr CompletionItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
CString
maybeMarkup <- case Maybe Text
markup of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jMarkup -> do
CString
jMarkup' <- Text -> IO CString
textToCString Text
jMarkup
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jMarkup'
Ptr CompletionItem -> CString -> IO ()
gtk_source_completion_item_set_markup Ptr CompletionItem
item' CString
maybeMarkup
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeMarkup
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionItemSetMarkupMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCompletionItem a) => O.OverloadedMethod CompletionItemSetMarkupMethodInfo a signature where
overloadedMethod = completionItemSetMarkup
instance O.OverloadedMethodInfo CompletionItemSetMarkupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.CompletionItem.completionItemSetMarkup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-CompletionItem.html#v:completionItemSetMarkup"
}
#endif
foreign import ccall "gtk_source_completion_item_set_text" gtk_source_completion_item_set_text ::
Ptr CompletionItem ->
CString ->
IO ()
completionItemSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsCompletionItem a) =>
a
-> Maybe (T.Text)
-> m ()
completionItemSetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompletionItem a) =>
a -> Maybe Text -> m ()
completionItemSetText a
item Maybe Text
text = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionItem
item' <- a -> IO (Ptr CompletionItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
CString
maybeText <- case Maybe Text
text of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jText -> do
CString
jText' <- Text -> IO CString
textToCString Text
jText
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jText'
Ptr CompletionItem -> CString -> IO ()
gtk_source_completion_item_set_text Ptr CompletionItem
item' CString
maybeText
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeText
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CompletionItemSetTextMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCompletionItem a) => O.OverloadedMethod CompletionItemSetTextMethodInfo a signature where
overloadedMethod = completionItemSetText
instance O.OverloadedMethodInfo CompletionItemSetTextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.CompletionItem.completionItemSetText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-CompletionItem.html#v:completionItemSetText"
}
#endif
foreign import ccall "gtk_source_completion_item_new2" gtk_source_completion_item_new2 ::
IO (Ptr CompletionItem)
completionItemNew2 ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CompletionItem
completionItemNew2 :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m CompletionItem
completionItemNew2 = IO CompletionItem -> m CompletionItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CompletionItem -> m CompletionItem)
-> IO CompletionItem -> m CompletionItem
forall a b. (a -> b) -> a -> b
$ do
Ptr CompletionItem
result <- IO (Ptr CompletionItem)
gtk_source_completion_item_new2
Text -> Ptr CompletionItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"completionItemNew2" Ptr CompletionItem
result
CompletionItem
result' <- ((ManagedPtr CompletionItem -> CompletionItem)
-> Ptr CompletionItem -> IO CompletionItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CompletionItem -> CompletionItem
CompletionItem) Ptr CompletionItem
result
CompletionItem -> IO CompletionItem
forall (m :: * -> *) a. Monad m => a -> m a
return CompletionItem
result'
#if defined(ENABLE_OVERLOADING)
#endif