{-# 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)
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.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 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
/= :: StyleScheme -> StyleScheme -> Bool
$c/= :: StyleScheme -> StyleScheme -> Bool
== :: StyleScheme -> StyleScheme -> Bool
$c== :: 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
instance B.GValue.IsGValue StyleScheme where
toGValue :: StyleScheme -> IO GValue
toGValue StyleScheme
o = do
GType
gtype <- IO GType
c_gtk_source_style_scheme_get_type
StyleScheme -> (Ptr StyleScheme -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StyleScheme
o (GType
-> (GValue -> Ptr StyleScheme -> IO ())
-> Ptr StyleScheme
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr StyleScheme -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO StyleScheme
fromGValue GValue
gv = do
Ptr StyleScheme
ptr <- GValue -> IO (Ptr StyleScheme)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr StyleScheme)
(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
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 :: (MonadIO m, IsStyleScheme o) => o -> m StyleScheme
toStyleScheme :: o -> m StyleScheme
toStyleScheme = IO StyleScheme -> m StyleScheme
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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'
unsafeCastTo ManagedPtr StyleScheme -> StyleScheme
StyleScheme
#if defined(ENABLE_OVERLOADING)
type family ResolveStyleSchemeMethod (t :: Symbol) (o :: *) :: * 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 "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.MethodInfo 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
#endif
getStyleSchemeDescription :: (MonadIO m, IsStyleScheme o) => o -> m (Maybe T.Text)
getStyleSchemeDescription :: o -> m (Maybe Text)
getStyleSchemeDescription o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ 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
#endif
getStyleSchemeFilename :: (MonadIO m, IsStyleScheme o) => o -> m (Maybe T.Text)
getStyleSchemeFilename :: o -> m (Maybe Text)
getStyleSchemeFilename o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ 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
#endif
getStyleSchemeId :: (MonadIO m, IsStyleScheme o) => o -> m T.Text
getStyleSchemeId :: o -> m Text
getStyleSchemeId o
obj = IO Text -> m Text
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
$ 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 :: Text -> m (GValueConstruct o)
constructStyleSchemeId 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
$ 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
#endif
getStyleSchemeName :: (MonadIO m, IsStyleScheme o) => o -> m T.Text
getStyleSchemeName :: o -> m Text
getStyleSchemeName o
obj = IO Text -> m Text
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
$ 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
#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, *)])
#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, *)])
#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 :: a -> m (Maybe [Text])
styleSchemeGetAuthors a
scheme = IO (Maybe [Text]) -> m (Maybe [Text])
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 (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 (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.MethodInfo StyleSchemeGetAuthorsMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Text)
styleSchemeGetDescription a
scheme = IO (Maybe Text) -> m (Maybe Text)
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 (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 (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.MethodInfo StyleSchemeGetDescriptionMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Text)
styleSchemeGetFilename a
scheme = IO (Maybe Text) -> m (Maybe Text)
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 (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 (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.MethodInfo StyleSchemeGetFilenameMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
styleSchemeGetId a
scheme = IO Text -> m Text
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 (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.MethodInfo StyleSchemeGetIdMethodInfo a signature where
overloadedMethod = styleSchemeGetId
#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 :: a -> m Text
styleSchemeGetName a
scheme = IO Text -> m Text
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 (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.MethodInfo StyleSchemeGetNameMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m (Maybe Style)
styleSchemeGetStyle a
scheme Text
styleId = IO (Maybe Style) -> m (Maybe Style)
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 (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 (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.MethodInfo StyleSchemeGetStyleMethodInfo a signature where
overloadedMethod = styleSchemeGetStyle
#endif