#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.StyleScheme
(
StyleScheme(..) ,
IsStyleScheme ,
toStyleScheme ,
noStyleScheme ,
#if ENABLE_OVERLOADING
StyleSchemeGetAuthorsMethodInfo ,
#endif
styleSchemeGetAuthors ,
#if ENABLE_OVERLOADING
StyleSchemeGetDescriptionMethodInfo ,
#endif
styleSchemeGetDescription ,
#if ENABLE_OVERLOADING
StyleSchemeGetFilenameMethodInfo ,
#endif
styleSchemeGetFilename ,
#if ENABLE_OVERLOADING
StyleSchemeGetIdMethodInfo ,
#endif
styleSchemeGetId ,
#if ENABLE_OVERLOADING
StyleSchemeGetNameMethodInfo ,
#endif
styleSchemeGetName ,
#if ENABLE_OVERLOADING
StyleSchemeGetStyleMethodInfo ,
#endif
styleSchemeGetStyle ,
#if ENABLE_OVERLOADING
StyleSchemeDescriptionPropertyInfo ,
#endif
getStyleSchemeDescription ,
#if ENABLE_OVERLOADING
styleSchemeDescription ,
#endif
#if ENABLE_OVERLOADING
StyleSchemeFilenamePropertyInfo ,
#endif
getStyleSchemeFilename ,
#if ENABLE_OVERLOADING
styleSchemeFilename ,
#endif
#if ENABLE_OVERLOADING
StyleSchemeIdPropertyInfo ,
#endif
constructStyleSchemeId ,
getStyleSchemeId ,
#if ENABLE_OVERLOADING
styleSchemeId ,
#endif
#if ENABLE_OVERLOADING
StyleSchemeNamePropertyInfo ,
#endif
getStyleSchemeName ,
#if 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.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.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 (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, O.IsDescendantOf StyleScheme o) => IsStyleScheme o
instance (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 = liftIO . unsafeCastTo StyleScheme
noStyleScheme :: Maybe StyleScheme
noStyleScheme = Nothing
#if 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 "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 (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getStyleSchemeDescription :: (MonadIO m, IsStyleScheme o) => o -> m (Maybe T.Text)
getStyleSchemeDescription obj = liftIO $ B.Properties.getObjectPropertyString obj "description"
#if ENABLE_OVERLOADING
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
#endif
getStyleSchemeFilename :: (MonadIO m, IsStyleScheme o) => o -> m (Maybe T.Text)
getStyleSchemeFilename obj = liftIO $ B.Properties.getObjectPropertyString obj "filename"
#if ENABLE_OVERLOADING
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
#endif
getStyleSchemeId :: (MonadIO m, IsStyleScheme o) => o -> m T.Text
getStyleSchemeId obj = liftIO $ checkUnexpectedNothing "getStyleSchemeId" $ B.Properties.getObjectPropertyString obj "id"
constructStyleSchemeId :: (IsStyleScheme o) => T.Text -> IO (GValueConstruct o)
constructStyleSchemeId val = B.Properties.constructObjectPropertyString "id" (Just val)
#if ENABLE_OVERLOADING
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
#endif
getStyleSchemeName :: (MonadIO m, IsStyleScheme o) => o -> m T.Text
getStyleSchemeName obj = liftIO $ checkUnexpectedNothing "getStyleSchemeName" $ B.Properties.getObjectPropertyString obj "name"
#if ENABLE_OVERLOADING
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
#endif
#if 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 ENABLE_OVERLOADING
styleSchemeDescription :: AttrLabelProxy "description"
styleSchemeDescription = AttrLabelProxy
styleSchemeFilename :: AttrLabelProxy "filename"
styleSchemeFilename = AttrLabelProxy
styleSchemeId :: AttrLabelProxy "id"
styleSchemeId = AttrLabelProxy
styleSchemeName :: AttrLabelProxy "name"
styleSchemeName = AttrLabelProxy
#endif
#if 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 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
#if 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 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
#if 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 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
#if 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 scheme = liftIO $ do
scheme' <- unsafeManagedPtrCastPtr scheme
result <- gtk_source_style_scheme_get_id scheme'
checkUnexpectedReturnNULL "styleSchemeGetId" result
result' <- cstringToText result
touchManagedPtr scheme
return result'
#if 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 scheme = liftIO $ do
scheme' <- unsafeManagedPtrCastPtr scheme
result <- gtk_source_style_scheme_get_name scheme'
checkUnexpectedReturnNULL "styleSchemeGetName" result
result' <- cstringToText result
touchManagedPtr scheme
return result'
#if 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 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
#if 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