{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.StyleScheme
(
StyleScheme(..) ,
IsStyleScheme ,
toStyleScheme ,
#if defined(ENABLE_OVERLOADING)
ResolveStyleSchemeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleSchemeGetAuthorsMethodInfo ,
#endif
styleSchemeGetAuthors ,
#if defined(ENABLE_OVERLOADING)
StyleSchemeGetDescriptionMethodInfo ,
#endif
styleSchemeGetDescription ,
#if defined(ENABLE_OVERLOADING)
StyleSchemeGetFilenameMethodInfo ,
#endif
styleSchemeGetFilename ,
#if defined(ENABLE_OVERLOADING)
StyleSchemeGetIdMethodInfo ,
#endif
styleSchemeGetId ,
#if defined(ENABLE_OVERLOADING)
StyleSchemeGetMetadataMethodInfo ,
#endif
styleSchemeGetMetadata ,
#if defined(ENABLE_OVERLOADING)
StyleSchemeGetNameMethodInfo ,
#endif
styleSchemeGetName ,
#if defined(ENABLE_OVERLOADING)
StyleSchemeGetStyleMethodInfo ,
#endif
styleSchemeGetStyle ,
#if defined(ENABLE_OVERLOADING)
StyleSchemeDescriptionPropertyInfo ,
#endif
getStyleSchemeDescription ,
#if defined(ENABLE_OVERLOADING)
styleSchemeDescription ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleSchemeFilenamePropertyInfo ,
#endif
getStyleSchemeFilename ,
#if defined(ENABLE_OVERLOADING)
styleSchemeFilename ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleSchemeIdPropertyInfo ,
#endif
constructStyleSchemeId ,
getStyleSchemeId ,
#if defined(ENABLE_OVERLOADING)
styleSchemeId ,
#endif
#if defined(ENABLE_OVERLOADING)
StyleSchemeNamePropertyInfo ,
#endif
getStyleSchemeName ,
#if defined(ENABLE_OVERLOADING)
styleSchemeName ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Style as GtkSource.Style
newtype StyleScheme = StyleScheme (SP.ManagedPtr StyleScheme)
deriving (StyleScheme -> StyleScheme -> Bool
(StyleScheme -> StyleScheme -> Bool)
-> (StyleScheme -> StyleScheme -> Bool) -> Eq StyleScheme
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StyleScheme -> StyleScheme -> Bool
== :: StyleScheme -> StyleScheme -> Bool
$c/= :: StyleScheme -> StyleScheme -> Bool
/= :: StyleScheme -> StyleScheme -> Bool
Eq)
instance SP.ManagedPtrNewtype StyleScheme where
toManagedPtr :: StyleScheme -> ManagedPtr StyleScheme
toManagedPtr (StyleScheme ManagedPtr StyleScheme
p) = ManagedPtr StyleScheme
p
foreign import ccall "gtk_source_style_scheme_get_type"
c_gtk_source_style_scheme_get_type :: IO B.Types.GType
instance B.Types.TypedObject StyleScheme where
glibType :: IO GType
glibType = IO GType
c_gtk_source_style_scheme_get_type
instance B.Types.GObject StyleScheme
class (SP.GObject o, O.IsDescendantOf StyleScheme o) => IsStyleScheme o
instance (SP.GObject o, O.IsDescendantOf StyleScheme o) => IsStyleScheme o
instance O.HasParentTypes StyleScheme
type instance O.ParentTypes StyleScheme = '[GObject.Object.Object]
toStyleScheme :: (MIO.MonadIO m, IsStyleScheme o) => o -> m StyleScheme
toStyleScheme :: forall (m :: * -> *) o.
(MonadIO m, IsStyleScheme o) =>
o -> m StyleScheme
toStyleScheme = IO StyleScheme -> m StyleScheme
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO StyleScheme -> m StyleScheme)
-> (o -> IO StyleScheme) -> o -> m StyleScheme
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr StyleScheme -> StyleScheme) -> o -> IO StyleScheme
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr StyleScheme -> StyleScheme
StyleScheme
instance B.GValue.IsGValue (Maybe StyleScheme) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_style_scheme_get_type
gvalueSet_ :: Ptr GValue -> Maybe StyleScheme -> IO ()
gvalueSet_ Ptr GValue
gv Maybe StyleScheme
P.Nothing = Ptr GValue -> Ptr StyleScheme -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr StyleScheme
forall a. Ptr a
FP.nullPtr :: FP.Ptr StyleScheme)
gvalueSet_ Ptr GValue
gv (P.Just StyleScheme
obj) = StyleScheme -> (Ptr StyleScheme -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StyleScheme
obj (Ptr GValue -> Ptr StyleScheme -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe StyleScheme)
gvalueGet_ Ptr GValue
gv = do
Ptr StyleScheme
ptr <- Ptr GValue -> IO (Ptr StyleScheme)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr StyleScheme)
if Ptr StyleScheme
ptr Ptr StyleScheme -> Ptr StyleScheme -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr StyleScheme
forall a. Ptr a
FP.nullPtr
then StyleScheme -> Maybe StyleScheme
forall a. a -> Maybe a
P.Just (StyleScheme -> Maybe StyleScheme)
-> IO StyleScheme -> IO (Maybe StyleScheme)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr StyleScheme -> StyleScheme)
-> Ptr StyleScheme -> IO StyleScheme
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr StyleScheme -> StyleScheme
StyleScheme Ptr StyleScheme
ptr
else Maybe StyleScheme -> IO (Maybe StyleScheme)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe StyleScheme
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStyleSchemeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveStyleSchemeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStyleSchemeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStyleSchemeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStyleSchemeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStyleSchemeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStyleSchemeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStyleSchemeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStyleSchemeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStyleSchemeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStyleSchemeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStyleSchemeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStyleSchemeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStyleSchemeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStyleSchemeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStyleSchemeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStyleSchemeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStyleSchemeMethod "getAuthors" o = StyleSchemeGetAuthorsMethodInfo
ResolveStyleSchemeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStyleSchemeMethod "getDescription" o = StyleSchemeGetDescriptionMethodInfo
ResolveStyleSchemeMethod "getFilename" o = StyleSchemeGetFilenameMethodInfo
ResolveStyleSchemeMethod "getId" o = StyleSchemeGetIdMethodInfo
ResolveStyleSchemeMethod "getMetadata" o = StyleSchemeGetMetadataMethodInfo
ResolveStyleSchemeMethod "getName" o = StyleSchemeGetNameMethodInfo
ResolveStyleSchemeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStyleSchemeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStyleSchemeMethod "getStyle" o = StyleSchemeGetStyleMethodInfo
ResolveStyleSchemeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStyleSchemeMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStyleSchemeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStyleSchemeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStyleSchemeMethod t StyleScheme, O.OverloadedMethod info StyleScheme p) => OL.IsLabel t (StyleScheme -> 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 ~ ResolveStyleSchemeMethod t StyleScheme, O.OverloadedMethod info StyleScheme p, R.HasField t StyleScheme p) => R.HasField t StyleScheme p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStyleSchemeMethod t StyleScheme, O.OverloadedMethodInfo info StyleScheme) => OL.IsLabel t (O.MethodProxy info StyleScheme) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getStyleSchemeDescription :: (MonadIO m, IsStyleScheme o) => o -> m (Maybe T.Text)
getStyleSchemeDescription :: forall (m :: * -> *) o.
(MonadIO m, IsStyleScheme o) =>
o -> m (Maybe Text)
getStyleSchemeDescription 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
"description"
#if defined(ENABLE_OVERLOADING)
data StyleSchemeDescriptionPropertyInfo
instance AttrInfo StyleSchemeDescriptionPropertyInfo where
type AttrAllowedOps StyleSchemeDescriptionPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleSchemeDescriptionPropertyInfo = IsStyleScheme
type AttrSetTypeConstraint StyleSchemeDescriptionPropertyInfo = (~) ()
type AttrTransferTypeConstraint StyleSchemeDescriptionPropertyInfo = (~) ()
type AttrTransferType StyleSchemeDescriptionPropertyInfo = ()
type AttrGetType StyleSchemeDescriptionPropertyInfo = (Maybe T.Text)
type AttrLabel StyleSchemeDescriptionPropertyInfo = "description"
type AttrOrigin StyleSchemeDescriptionPropertyInfo = StyleScheme
attrGet = getStyleSchemeDescription
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.description"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#g:attr:description"
})
#endif
getStyleSchemeFilename :: (MonadIO m, IsStyleScheme o) => o -> m (Maybe T.Text)
getStyleSchemeFilename :: forall (m :: * -> *) o.
(MonadIO m, IsStyleScheme o) =>
o -> m (Maybe Text)
getStyleSchemeFilename 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
"filename"
#if defined(ENABLE_OVERLOADING)
data StyleSchemeFilenamePropertyInfo
instance AttrInfo StyleSchemeFilenamePropertyInfo where
type AttrAllowedOps StyleSchemeFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleSchemeFilenamePropertyInfo = IsStyleScheme
type AttrSetTypeConstraint StyleSchemeFilenamePropertyInfo = (~) ()
type AttrTransferTypeConstraint StyleSchemeFilenamePropertyInfo = (~) ()
type AttrTransferType StyleSchemeFilenamePropertyInfo = ()
type AttrGetType StyleSchemeFilenamePropertyInfo = (Maybe T.Text)
type AttrLabel StyleSchemeFilenamePropertyInfo = "filename"
type AttrOrigin StyleSchemeFilenamePropertyInfo = StyleScheme
attrGet = getStyleSchemeFilename
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.filename"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#g:attr:filename"
})
#endif
getStyleSchemeId :: (MonadIO m, IsStyleScheme o) => o -> m T.Text
getStyleSchemeId :: forall (m :: * -> *) o. (MonadIO m, IsStyleScheme o) => o -> m Text
getStyleSchemeId o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getStyleSchemeId" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"id"
constructStyleSchemeId :: (IsStyleScheme o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStyleSchemeId :: forall o (m :: * -> *).
(IsStyleScheme o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStyleSchemeId 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
"id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StyleSchemeIdPropertyInfo
instance AttrInfo StyleSchemeIdPropertyInfo where
type AttrAllowedOps StyleSchemeIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleSchemeIdPropertyInfo = IsStyleScheme
type AttrSetTypeConstraint StyleSchemeIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StyleSchemeIdPropertyInfo = (~) T.Text
type AttrTransferType StyleSchemeIdPropertyInfo = T.Text
type AttrGetType StyleSchemeIdPropertyInfo = T.Text
type AttrLabel StyleSchemeIdPropertyInfo = "id"
type AttrOrigin StyleSchemeIdPropertyInfo = StyleScheme
attrGet = getStyleSchemeId
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStyleSchemeId
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.id"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#g:attr:id"
})
#endif
getStyleSchemeName :: (MonadIO m, IsStyleScheme o) => o -> m T.Text
getStyleSchemeName :: forall (m :: * -> *) o. (MonadIO m, IsStyleScheme o) => o -> m Text
getStyleSchemeName o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getStyleSchemeName" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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"
#if defined(ENABLE_OVERLOADING)
data StyleSchemeNamePropertyInfo
instance AttrInfo StyleSchemeNamePropertyInfo where
type AttrAllowedOps StyleSchemeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StyleSchemeNamePropertyInfo = IsStyleScheme
type AttrSetTypeConstraint StyleSchemeNamePropertyInfo = (~) ()
type AttrTransferTypeConstraint StyleSchemeNamePropertyInfo = (~) ()
type AttrTransferType StyleSchemeNamePropertyInfo = ()
type AttrGetType StyleSchemeNamePropertyInfo = T.Text
type AttrLabel StyleSchemeNamePropertyInfo = "name"
type AttrOrigin StyleSchemeNamePropertyInfo = StyleScheme
attrGet = getStyleSchemeName
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.name"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#g:attr:name"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList StyleScheme
type instance O.AttributeList StyleScheme = StyleSchemeAttributeList
type StyleSchemeAttributeList = ('[ '("description", StyleSchemeDescriptionPropertyInfo), '("filename", StyleSchemeFilenamePropertyInfo), '("id", StyleSchemeIdPropertyInfo), '("name", StyleSchemeNamePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
styleSchemeDescription :: AttrLabelProxy "description"
styleSchemeDescription = AttrLabelProxy
styleSchemeFilename :: AttrLabelProxy "filename"
styleSchemeFilename = AttrLabelProxy
styleSchemeId :: AttrLabelProxy "id"
styleSchemeId = AttrLabelProxy
styleSchemeName :: AttrLabelProxy "name"
styleSchemeName = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList StyleScheme = StyleSchemeSignalList
type StyleSchemeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_source_style_scheme_get_authors" gtk_source_style_scheme_get_authors ::
Ptr StyleScheme ->
IO (Ptr CString)
styleSchemeGetAuthors ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
a
-> m (Maybe [T.Text])
styleSchemeGetAuthors :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleScheme a) =>
a -> m (Maybe [Text])
styleSchemeGetAuthors a
scheme = IO (Maybe [Text]) -> m (Maybe [Text])
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe [Text]) -> m (Maybe [Text]))
-> IO (Maybe [Text]) -> m (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ do
Ptr StyleScheme
scheme' <- a -> IO (Ptr StyleScheme)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scheme
Ptr CString
result <- Ptr StyleScheme -> IO (Ptr CString)
gtk_source_style_scheme_get_authors Ptr StyleScheme
scheme'
Maybe [Text]
maybeResult <- Ptr CString -> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CString
result ((Ptr CString -> IO [Text]) -> IO (Maybe [Text]))
-> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ \Ptr CString
result' -> do
[Text]
result'' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result'
[Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scheme
Maybe [Text] -> IO (Maybe [Text])
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe [Text]
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleSchemeGetAuthorsMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsStyleScheme a) => O.OverloadedMethod StyleSchemeGetAuthorsMethodInfo a signature where
overloadedMethod = styleSchemeGetAuthors
instance O.OverloadedMethodInfo StyleSchemeGetAuthorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.styleSchemeGetAuthors",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#v:styleSchemeGetAuthors"
})
#endif
foreign import ccall "gtk_source_style_scheme_get_description" gtk_source_style_scheme_get_description ::
Ptr StyleScheme ->
IO CString
styleSchemeGetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
a
-> m (Maybe T.Text)
styleSchemeGetDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleScheme a) =>
a -> m (Maybe Text)
styleSchemeGetDescription a
scheme = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr StyleScheme
scheme' <- a -> IO (Ptr StyleScheme)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scheme
CString
result <- Ptr StyleScheme -> IO CString
gtk_source_style_scheme_get_description Ptr StyleScheme
scheme'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scheme
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleSchemeGetDescriptionMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStyleScheme a) => O.OverloadedMethod StyleSchemeGetDescriptionMethodInfo a signature where
overloadedMethod = styleSchemeGetDescription
instance O.OverloadedMethodInfo StyleSchemeGetDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.styleSchemeGetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#v:styleSchemeGetDescription"
})
#endif
foreign import ccall "gtk_source_style_scheme_get_filename" gtk_source_style_scheme_get_filename ::
Ptr StyleScheme ->
IO CString
styleSchemeGetFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
a
-> m (Maybe T.Text)
styleSchemeGetFilename :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleScheme a) =>
a -> m (Maybe Text)
styleSchemeGetFilename a
scheme = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr StyleScheme
scheme' <- a -> IO (Ptr StyleScheme)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scheme
CString
result <- Ptr StyleScheme -> IO CString
gtk_source_style_scheme_get_filename Ptr StyleScheme
scheme'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scheme
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleSchemeGetFilenameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStyleScheme a) => O.OverloadedMethod StyleSchemeGetFilenameMethodInfo a signature where
overloadedMethod = styleSchemeGetFilename
instance O.OverloadedMethodInfo StyleSchemeGetFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.styleSchemeGetFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#v:styleSchemeGetFilename"
})
#endif
foreign import ccall "gtk_source_style_scheme_get_id" gtk_source_style_scheme_get_id ::
Ptr StyleScheme ->
IO CString
styleSchemeGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
a
-> m T.Text
styleSchemeGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleScheme a) =>
a -> m Text
styleSchemeGetId a
scheme = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StyleScheme
scheme' <- a -> IO (Ptr StyleScheme)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scheme
CString
result <- Ptr StyleScheme -> IO CString
gtk_source_style_scheme_get_id Ptr StyleScheme
scheme'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"styleSchemeGetId" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scheme
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StyleSchemeGetIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStyleScheme a) => O.OverloadedMethod StyleSchemeGetIdMethodInfo a signature where
overloadedMethod = styleSchemeGetId
instance O.OverloadedMethodInfo StyleSchemeGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.styleSchemeGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#v:styleSchemeGetId"
})
#endif
foreign import ccall "gtk_source_style_scheme_get_metadata" gtk_source_style_scheme_get_metadata ::
Ptr StyleScheme ->
CString ->
IO CString
styleSchemeGetMetadata ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
a
-> T.Text
-> m (Maybe T.Text)
styleSchemeGetMetadata :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleScheme a) =>
a -> Text -> m (Maybe Text)
styleSchemeGetMetadata a
scheme Text
name = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr StyleScheme
scheme' <- a -> IO (Ptr StyleScheme)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scheme
CString
name' <- Text -> IO CString
textToCString Text
name
CString
result <- Ptr StyleScheme -> CString -> IO CString
gtk_source_style_scheme_get_metadata Ptr StyleScheme
scheme' CString
name'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scheme
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleSchemeGetMetadataMethodInfo
instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsStyleScheme a) => O.OverloadedMethod StyleSchemeGetMetadataMethodInfo a signature where
overloadedMethod = styleSchemeGetMetadata
instance O.OverloadedMethodInfo StyleSchemeGetMetadataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.styleSchemeGetMetadata",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#v:styleSchemeGetMetadata"
})
#endif
foreign import ccall "gtk_source_style_scheme_get_name" gtk_source_style_scheme_get_name ::
Ptr StyleScheme ->
IO CString
styleSchemeGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
a
-> m T.Text
styleSchemeGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleScheme a) =>
a -> m Text
styleSchemeGetName a
scheme = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StyleScheme
scheme' <- a -> IO (Ptr StyleScheme)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scheme
CString
result <- Ptr StyleScheme -> IO CString
gtk_source_style_scheme_get_name Ptr StyleScheme
scheme'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"styleSchemeGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scheme
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StyleSchemeGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStyleScheme a) => O.OverloadedMethod StyleSchemeGetNameMethodInfo a signature where
overloadedMethod = styleSchemeGetName
instance O.OverloadedMethodInfo StyleSchemeGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.styleSchemeGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#v:styleSchemeGetName"
})
#endif
foreign import ccall "gtk_source_style_scheme_get_style" gtk_source_style_scheme_get_style ::
Ptr StyleScheme ->
CString ->
IO (Ptr GtkSource.Style.Style)
styleSchemeGetStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
a
-> T.Text
-> m (Maybe GtkSource.Style.Style)
styleSchemeGetStyle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStyleScheme a) =>
a -> Text -> m (Maybe Style)
styleSchemeGetStyle a
scheme Text
styleId = IO (Maybe Style) -> m (Maybe Style)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Style) -> m (Maybe Style))
-> IO (Maybe Style) -> m (Maybe Style)
forall a b. (a -> b) -> a -> b
$ do
Ptr StyleScheme
scheme' <- a -> IO (Ptr StyleScheme)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scheme
CString
styleId' <- Text -> IO CString
textToCString Text
styleId
Ptr Style
result <- Ptr StyleScheme -> CString -> IO (Ptr Style)
gtk_source_style_scheme_get_style Ptr StyleScheme
scheme' CString
styleId'
Maybe Style
maybeResult <- Ptr Style -> (Ptr Style -> IO Style) -> IO (Maybe Style)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Style
result ((Ptr Style -> IO Style) -> IO (Maybe Style))
-> (Ptr Style -> IO Style) -> IO (Maybe Style)
forall a b. (a -> b) -> a -> b
$ \Ptr Style
result' -> do
Style
result'' <- ((ManagedPtr Style -> Style) -> Ptr Style -> IO Style
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Style -> Style
GtkSource.Style.Style) Ptr Style
result'
Style -> IO Style
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Style
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scheme
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
styleId'
Maybe Style -> IO (Maybe Style)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Style
maybeResult
#if defined(ENABLE_OVERLOADING)
data StyleSchemeGetStyleMethodInfo
instance (signature ~ (T.Text -> m (Maybe GtkSource.Style.Style)), MonadIO m, IsStyleScheme a) => O.OverloadedMethod StyleSchemeGetStyleMethodInfo a signature where
overloadedMethod = styleSchemeGetStyle
instance O.OverloadedMethodInfo StyleSchemeGetStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.StyleScheme.styleSchemeGetStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-StyleScheme.html#v:styleSchemeGetStyle"
})
#endif