{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}

module GI.GtkSource.Objects.StyleScheme
    ( 

-- * Exported types
    StyleScheme(..)                         ,
    IsStyleScheme                           ,
    toStyleScheme                           ,
    noStyleScheme                           ,


 -- * Methods
-- ** getAuthors #method:getAuthors#
    StyleSchemeGetAuthorsMethodInfo         ,
    styleSchemeGetAuthors                   ,


-- ** getDescription #method:getDescription#
    StyleSchemeGetDescriptionMethodInfo     ,
    styleSchemeGetDescription               ,


-- ** getFilename #method:getFilename#
    StyleSchemeGetFilenameMethodInfo        ,
    styleSchemeGetFilename                  ,


-- ** getId #method:getId#
    StyleSchemeGetIdMethodInfo              ,
    styleSchemeGetId                        ,


-- ** getName #method:getName#
    StyleSchemeGetNameMethodInfo            ,
    styleSchemeGetName                      ,


-- ** getStyle #method:getStyle#
    StyleSchemeGetStyleMethodInfo           ,
    styleSchemeGetStyle                     ,




 -- * Properties
-- ** description #attr:description#
    StyleSchemeDescriptionPropertyInfo      ,
    getStyleSchemeDescription               ,
    styleSchemeDescription                  ,


-- ** filename #attr:filename#
    StyleSchemeFilenamePropertyInfo         ,
    getStyleSchemeFilename                  ,
    styleSchemeFilename                     ,


-- ** id #attr:id#
    StyleSchemeIdPropertyInfo               ,
    constructStyleSchemeId                  ,
    getStyleSchemeId                        ,
    styleSchemeId                           ,


-- ** name #attr:name#
    StyleSchemeNamePropertyInfo             ,
    getStyleSchemeName                      ,
    styleSchemeName                         ,




    ) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Style as GtkSource.Style

newtype StyleScheme = StyleScheme (ManagedPtr StyleScheme)
foreign import ccall "gtk_source_style_scheme_get_type"
    c_gtk_source_style_scheme_get_type :: IO GType

instance GObject StyleScheme where
    gobjectType _ = c_gtk_source_style_scheme_get_type
    

class GObject o => IsStyleScheme o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError StyleScheme a) =>
    IsStyleScheme a
#endif
instance IsStyleScheme StyleScheme
instance GObject.Object.IsObject StyleScheme

toStyleScheme :: IsStyleScheme o => o -> IO StyleScheme
toStyleScheme = unsafeCastTo StyleScheme

noStyleScheme :: Maybe StyleScheme
noStyleScheme = Nothing

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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
    ResolveStyleSchemeMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
    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 "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveStyleSchemeMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveStyleSchemeMethod t StyleScheme, O.MethodInfo info StyleScheme p) => O.IsLabelProxy t (StyleScheme -> p) where
    fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveStyleSchemeMethod t StyleScheme, O.MethodInfo info StyleScheme p) => O.IsLabel t (StyleScheme -> p) where
    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif

-- VVV Prop "description"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable]
   -- Nullable: (Just True,Nothing)

getStyleSchemeDescription :: (MonadIO m, IsStyleScheme o) => o -> m (Maybe T.Text)
getStyleSchemeDescription obj = liftIO $ getObjectPropertyString obj "description"

data StyleSchemeDescriptionPropertyInfo
instance AttrInfo StyleSchemeDescriptionPropertyInfo where
    type AttrAllowedOps StyleSchemeDescriptionPropertyInfo = '[ 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint StyleSchemeDescriptionPropertyInfo = (~) ()
    type AttrBaseTypeConstraint StyleSchemeDescriptionPropertyInfo = IsStyleScheme
    type AttrGetType StyleSchemeDescriptionPropertyInfo = (Maybe T.Text)
    type AttrLabel StyleSchemeDescriptionPropertyInfo = "description"
    type AttrOrigin StyleSchemeDescriptionPropertyInfo = StyleScheme
    attrGet _ = getStyleSchemeDescription
    attrSet _ = undefined
    attrConstruct _ = undefined
    attrClear _ = undefined

-- VVV Prop "filename"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable]
   -- Nullable: (Just True,Nothing)

getStyleSchemeFilename :: (MonadIO m, IsStyleScheme o) => o -> m (Maybe T.Text)
getStyleSchemeFilename obj = liftIO $ getObjectPropertyString obj "filename"

data StyleSchemeFilenamePropertyInfo
instance AttrInfo StyleSchemeFilenamePropertyInfo where
    type AttrAllowedOps StyleSchemeFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint StyleSchemeFilenamePropertyInfo = (~) ()
    type AttrBaseTypeConstraint StyleSchemeFilenamePropertyInfo = IsStyleScheme
    type AttrGetType StyleSchemeFilenamePropertyInfo = (Maybe T.Text)
    type AttrLabel StyleSchemeFilenamePropertyInfo = "filename"
    type AttrOrigin StyleSchemeFilenamePropertyInfo = StyleScheme
    attrGet _ = getStyleSchemeFilename
    attrSet _ = undefined
    attrConstruct _ = undefined
    attrClear _ = undefined

-- VVV Prop "id"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
   -- Nullable: (Just False,Nothing)

getStyleSchemeId :: (MonadIO m, IsStyleScheme o) => o -> m T.Text
getStyleSchemeId obj = liftIO $ checkUnexpectedNothing "getStyleSchemeId" $ getObjectPropertyString obj "id"

constructStyleSchemeId :: (IsStyleScheme o) => T.Text -> IO (GValueConstruct o)
constructStyleSchemeId val = constructObjectPropertyString "id" (Just val)

data StyleSchemeIdPropertyInfo
instance AttrInfo StyleSchemeIdPropertyInfo where
    type AttrAllowedOps StyleSchemeIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint StyleSchemeIdPropertyInfo = (~) T.Text
    type AttrBaseTypeConstraint StyleSchemeIdPropertyInfo = IsStyleScheme
    type AttrGetType StyleSchemeIdPropertyInfo = T.Text
    type AttrLabel StyleSchemeIdPropertyInfo = "id"
    type AttrOrigin StyleSchemeIdPropertyInfo = StyleScheme
    attrGet _ = getStyleSchemeId
    attrSet _ = undefined
    attrConstruct _ = constructStyleSchemeId
    attrClear _ = undefined

-- VVV Prop "name"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable]
   -- Nullable: (Just False,Nothing)

getStyleSchemeName :: (MonadIO m, IsStyleScheme o) => o -> m T.Text
getStyleSchemeName obj = liftIO $ checkUnexpectedNothing "getStyleSchemeName" $ getObjectPropertyString obj "name"

data StyleSchemeNamePropertyInfo
instance AttrInfo StyleSchemeNamePropertyInfo where
    type AttrAllowedOps StyleSchemeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint StyleSchemeNamePropertyInfo = (~) ()
    type AttrBaseTypeConstraint StyleSchemeNamePropertyInfo = IsStyleScheme
    type AttrGetType StyleSchemeNamePropertyInfo = T.Text
    type AttrLabel StyleSchemeNamePropertyInfo = "name"
    type AttrOrigin StyleSchemeNamePropertyInfo = StyleScheme
    attrGet _ = getStyleSchemeName
    attrSet _ = undefined
    attrConstruct _ = undefined
    attrClear _ = undefined

instance O.HasAttributeList StyleScheme
type instance O.AttributeList StyleScheme = StyleSchemeAttributeList
type StyleSchemeAttributeList = ('[ '("description", StyleSchemeDescriptionPropertyInfo), '("filename", StyleSchemeFilenamePropertyInfo), '("id", StyleSchemeIdPropertyInfo), '("name", StyleSchemeNamePropertyInfo)] :: [(Symbol, *)])

styleSchemeDescription :: AttrLabelProxy "description"
styleSchemeDescription = AttrLabelProxy

styleSchemeFilename :: AttrLabelProxy "filename"
styleSchemeFilename = AttrLabelProxy

styleSchemeId :: AttrLabelProxy "id"
styleSchemeId = AttrLabelProxy

styleSchemeName :: AttrLabelProxy "name"
styleSchemeName = AttrLabelProxy

type instance O.SignalList StyleScheme = StyleSchemeSignalList
type StyleSchemeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

-- method StyleScheme::get_authors
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "scheme", argType = TInterface (Name {namespace = "GtkSource", name = "StyleScheme"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSourceStyleScheme.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_style_scheme_get_authors" gtk_source_style_scheme_get_authors :: 
    Ptr StyleScheme ->                      -- scheme : TInterface (Name {namespace = "GtkSource", name = "StyleScheme"})
    IO (Ptr CString)

{- |
/No description available in the introspection data./

@since 2.0
-}
styleSchemeGetAuthors ::
    (B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
    a
    {- ^ /@scheme@/: a 'GI.GtkSource.Objects.StyleScheme.StyleScheme'. -}
    -> m (Maybe [T.Text])
    {- ^ __Returns:__ a
'Nothing'-terminated array containing the /@scheme@/ authors or 'Nothing' if
no author is specified by the style scheme. -}
styleSchemeGetAuthors scheme = liftIO $ do
    scheme' <- unsafeManagedPtrCastPtr scheme
    result <- gtk_source_style_scheme_get_authors scheme'
    maybeResult <- convertIfNonNull result $ \result' -> do
        result'' <- unpackZeroTerminatedUTF8CArray result'
        return result''
    touchManagedPtr scheme
    return maybeResult

data StyleSchemeGetAuthorsMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsStyleScheme a) => O.MethodInfo StyleSchemeGetAuthorsMethodInfo a signature where
    overloadedMethod _ = styleSchemeGetAuthors

-- method StyleScheme::get_description
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "scheme", argType = TInterface (Name {namespace = "GtkSource", name = "StyleScheme"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSourceStyleScheme.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_style_scheme_get_description" gtk_source_style_scheme_get_description :: 
    Ptr StyleScheme ->                      -- scheme : TInterface (Name {namespace = "GtkSource", name = "StyleScheme"})
    IO CString

{- |
/No description available in the introspection data./

@since 2.0
-}
styleSchemeGetDescription ::
    (B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
    a
    {- ^ /@scheme@/: a 'GI.GtkSource.Objects.StyleScheme.StyleScheme'. -}
    -> m (Maybe T.Text)
    {- ^ __Returns:__ /@scheme@/ description (if defined), or 'Nothing'. -}
styleSchemeGetDescription scheme = liftIO $ do
    scheme' <- unsafeManagedPtrCastPtr scheme
    result <- gtk_source_style_scheme_get_description scheme'
    maybeResult <- convertIfNonNull result $ \result' -> do
        result'' <- cstringToText result'
        return result''
    touchManagedPtr scheme
    return maybeResult

data StyleSchemeGetDescriptionMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStyleScheme a) => O.MethodInfo StyleSchemeGetDescriptionMethodInfo a signature where
    overloadedMethod _ = styleSchemeGetDescription

-- method StyleScheme::get_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "scheme", argType = TInterface (Name {namespace = "GtkSource", name = "StyleScheme"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSourceStyleScheme.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_style_scheme_get_filename" gtk_source_style_scheme_get_filename :: 
    Ptr StyleScheme ->                      -- scheme : TInterface (Name {namespace = "GtkSource", name = "StyleScheme"})
    IO CString

{- |
/No description available in the introspection data./

@since 2.0
-}
styleSchemeGetFilename ::
    (B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
    a
    {- ^ /@scheme@/: a 'GI.GtkSource.Objects.StyleScheme.StyleScheme'. -}
    -> m (Maybe T.Text)
    {- ^ __Returns:__ /@scheme@/ file name if the scheme was created
parsing a style scheme file or 'Nothing' in the other cases. -}
styleSchemeGetFilename scheme = liftIO $ do
    scheme' <- unsafeManagedPtrCastPtr scheme
    result <- gtk_source_style_scheme_get_filename scheme'
    maybeResult <- convertIfNonNull result $ \result' -> do
        result'' <- cstringToText result'
        return result''
    touchManagedPtr scheme
    return maybeResult

data StyleSchemeGetFilenameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStyleScheme a) => O.MethodInfo StyleSchemeGetFilenameMethodInfo a signature where
    overloadedMethod _ = styleSchemeGetFilename

-- method StyleScheme::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "scheme", argType = TInterface (Name {namespace = "GtkSource", name = "StyleScheme"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSourceStyleScheme.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_style_scheme_get_id" gtk_source_style_scheme_get_id :: 
    Ptr StyleScheme ->                      -- scheme : TInterface (Name {namespace = "GtkSource", name = "StyleScheme"})
    IO CString

{- |
/No description available in the introspection data./

@since 2.0
-}
styleSchemeGetId ::
    (B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
    a
    {- ^ /@scheme@/: a 'GI.GtkSource.Objects.StyleScheme.StyleScheme'. -}
    -> m T.Text
    {- ^ __Returns:__ /@scheme@/ id. -}
styleSchemeGetId scheme = liftIO $ do
    scheme' <- unsafeManagedPtrCastPtr scheme
    result <- gtk_source_style_scheme_get_id scheme'
    checkUnexpectedReturnNULL "styleSchemeGetId" result
    result' <- cstringToText result
    touchManagedPtr scheme
    return result'

data StyleSchemeGetIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStyleScheme a) => O.MethodInfo StyleSchemeGetIdMethodInfo a signature where
    overloadedMethod _ = styleSchemeGetId

-- method StyleScheme::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "scheme", argType = TInterface (Name {namespace = "GtkSource", name = "StyleScheme"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSourceStyleScheme.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_style_scheme_get_name" gtk_source_style_scheme_get_name :: 
    Ptr StyleScheme ->                      -- scheme : TInterface (Name {namespace = "GtkSource", name = "StyleScheme"})
    IO CString

{- |
/No description available in the introspection data./

@since 2.0
-}
styleSchemeGetName ::
    (B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
    a
    {- ^ /@scheme@/: a 'GI.GtkSource.Objects.StyleScheme.StyleScheme'. -}
    -> m T.Text
    {- ^ __Returns:__ /@scheme@/ name. -}
styleSchemeGetName scheme = liftIO $ do
    scheme' <- unsafeManagedPtrCastPtr scheme
    result <- gtk_source_style_scheme_get_name scheme'
    checkUnexpectedReturnNULL "styleSchemeGetName" result
    result' <- cstringToText result
    touchManagedPtr scheme
    return result'

data StyleSchemeGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStyleScheme a) => O.MethodInfo StyleSchemeGetNameMethodInfo a signature where
    overloadedMethod _ = styleSchemeGetName

-- method StyleScheme::get_style
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "scheme", argType = TInterface (Name {namespace = "GtkSource", name = "StyleScheme"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSourceStyleScheme.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "id of the style to retrieve.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "GtkSource", name = "Style"}))
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_style_scheme_get_style" gtk_source_style_scheme_get_style :: 
    Ptr StyleScheme ->                      -- scheme : TInterface (Name {namespace = "GtkSource", name = "StyleScheme"})
    CString ->                              -- style_id : TBasicType TUTF8
    IO (Ptr GtkSource.Style.Style)

{- |
/No description available in the introspection data./

@since 2.0
-}
styleSchemeGetStyle ::
    (B.CallStack.HasCallStack, MonadIO m, IsStyleScheme a) =>
    a
    {- ^ /@scheme@/: a 'GI.GtkSource.Objects.StyleScheme.StyleScheme'. -}
    -> T.Text
    {- ^ /@styleId@/: id of the style to retrieve. -}
    -> m (Maybe GtkSource.Style.Style)
    {- ^ __Returns:__ style which corresponds to /@styleId@/ in
the /@scheme@/, or 'Nothing' when no style with this name found.  It is owned by
/@scheme@/ and may not be unref\'ed. -}
styleSchemeGetStyle scheme styleId = liftIO $ do
    scheme' <- unsafeManagedPtrCastPtr scheme
    styleId' <- textToCString styleId
    result <- gtk_source_style_scheme_get_style scheme' styleId'
    maybeResult <- convertIfNonNull result $ \result' -> do
        result'' <- (newObject GtkSource.Style.Style) result'
        return result''
    touchManagedPtr scheme
    freeMem styleId'
    return maybeResult

data StyleSchemeGetStyleMethodInfo
instance (signature ~ (T.Text -> m (Maybe GtkSource.Style.Style)), MonadIO m, IsStyleScheme a) => O.MethodInfo StyleSchemeGetStyleMethodInfo a signature where
    overloadedMethod _ = styleSchemeGetStyle