#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.StyleSchemeManager
(
StyleSchemeManager(..) ,
IsStyleSchemeManager ,
toStyleSchemeManager ,
noStyleSchemeManager ,
#if ENABLE_OVERLOADING
StyleSchemeManagerAppendSearchPathMethodInfo,
#endif
styleSchemeManagerAppendSearchPath ,
#if ENABLE_OVERLOADING
StyleSchemeManagerForceRescanMethodInfo ,
#endif
styleSchemeManagerForceRescan ,
styleSchemeManagerGetDefault ,
#if ENABLE_OVERLOADING
StyleSchemeManagerGetSchemeMethodInfo ,
#endif
styleSchemeManagerGetScheme ,
#if ENABLE_OVERLOADING
StyleSchemeManagerGetSchemeIdsMethodInfo,
#endif
styleSchemeManagerGetSchemeIds ,
#if ENABLE_OVERLOADING
StyleSchemeManagerGetSearchPathMethodInfo,
#endif
styleSchemeManagerGetSearchPath ,
styleSchemeManagerNew ,
#if ENABLE_OVERLOADING
StyleSchemeManagerPrependSearchPathMethodInfo,
#endif
styleSchemeManagerPrependSearchPath ,
#if ENABLE_OVERLOADING
StyleSchemeManagerSetSearchPathMethodInfo,
#endif
styleSchemeManagerSetSearchPath ,
#if ENABLE_OVERLOADING
StyleSchemeManagerSchemeIdsPropertyInfo ,
#endif
getStyleSchemeManagerSchemeIds ,
#if ENABLE_OVERLOADING
styleSchemeManagerSchemeIds ,
#endif
#if ENABLE_OVERLOADING
StyleSchemeManagerSearchPathPropertyInfo,
#endif
clearStyleSchemeManagerSearchPath ,
constructStyleSchemeManagerSearchPath ,
getStyleSchemeManagerSearchPath ,
setStyleSchemeManagerSearchPath ,
#if ENABLE_OVERLOADING
styleSchemeManagerSearchPath ,
#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.StyleScheme as GtkSource.StyleScheme
newtype StyleSchemeManager = StyleSchemeManager (ManagedPtr StyleSchemeManager)
foreign import ccall "gtk_source_style_scheme_manager_get_type"
c_gtk_source_style_scheme_manager_get_type :: IO GType
instance GObject StyleSchemeManager where
gobjectType = c_gtk_source_style_scheme_manager_get_type
class (GObject o, O.IsDescendantOf StyleSchemeManager o) => IsStyleSchemeManager o
instance (GObject o, O.IsDescendantOf StyleSchemeManager o) => IsStyleSchemeManager o
instance O.HasParentTypes StyleSchemeManager
type instance O.ParentTypes StyleSchemeManager = '[GObject.Object.Object]
toStyleSchemeManager :: (MonadIO m, IsStyleSchemeManager o) => o -> m StyleSchemeManager
toStyleSchemeManager = liftIO . unsafeCastTo StyleSchemeManager
noStyleSchemeManager :: Maybe StyleSchemeManager
noStyleSchemeManager = Nothing
#if ENABLE_OVERLOADING
type family ResolveStyleSchemeManagerMethod (t :: Symbol) (o :: *) :: * where
ResolveStyleSchemeManagerMethod "appendSearchPath" o = StyleSchemeManagerAppendSearchPathMethodInfo
ResolveStyleSchemeManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStyleSchemeManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStyleSchemeManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStyleSchemeManagerMethod "forceRescan" o = StyleSchemeManagerForceRescanMethodInfo
ResolveStyleSchemeManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStyleSchemeManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStyleSchemeManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStyleSchemeManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStyleSchemeManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStyleSchemeManagerMethod "prependSearchPath" o = StyleSchemeManagerPrependSearchPathMethodInfo
ResolveStyleSchemeManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStyleSchemeManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStyleSchemeManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStyleSchemeManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStyleSchemeManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStyleSchemeManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStyleSchemeManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStyleSchemeManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStyleSchemeManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStyleSchemeManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStyleSchemeManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStyleSchemeManagerMethod "getScheme" o = StyleSchemeManagerGetSchemeMethodInfo
ResolveStyleSchemeManagerMethod "getSchemeIds" o = StyleSchemeManagerGetSchemeIdsMethodInfo
ResolveStyleSchemeManagerMethod "getSearchPath" o = StyleSchemeManagerGetSearchPathMethodInfo
ResolveStyleSchemeManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStyleSchemeManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStyleSchemeManagerMethod "setSearchPath" o = StyleSchemeManagerSetSearchPathMethodInfo
ResolveStyleSchemeManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStyleSchemeManagerMethod t StyleSchemeManager, O.MethodInfo info StyleSchemeManager p) => OL.IsLabel t (StyleSchemeManager -> 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
getStyleSchemeManagerSchemeIds :: (MonadIO m, IsStyleSchemeManager o) => o -> m (Maybe [T.Text])
getStyleSchemeManagerSchemeIds obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "scheme-ids"
#if ENABLE_OVERLOADING
data StyleSchemeManagerSchemeIdsPropertyInfo
instance AttrInfo StyleSchemeManagerSchemeIdsPropertyInfo where
type AttrAllowedOps StyleSchemeManagerSchemeIdsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint StyleSchemeManagerSchemeIdsPropertyInfo = (~) ()
type AttrBaseTypeConstraint StyleSchemeManagerSchemeIdsPropertyInfo = IsStyleSchemeManager
type AttrGetType StyleSchemeManagerSchemeIdsPropertyInfo = (Maybe [T.Text])
type AttrLabel StyleSchemeManagerSchemeIdsPropertyInfo = "scheme-ids"
type AttrOrigin StyleSchemeManagerSchemeIdsPropertyInfo = StyleSchemeManager
attrGet _ = getStyleSchemeManagerSchemeIds
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getStyleSchemeManagerSearchPath :: (MonadIO m, IsStyleSchemeManager o) => o -> m [T.Text]
getStyleSchemeManagerSearchPath obj = liftIO $ checkUnexpectedNothing "getStyleSchemeManagerSearchPath" $ B.Properties.getObjectPropertyStringArray obj "search-path"
setStyleSchemeManagerSearchPath :: (MonadIO m, IsStyleSchemeManager o) => o -> [T.Text] -> m ()
setStyleSchemeManagerSearchPath obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "search-path" (Just val)
constructStyleSchemeManagerSearchPath :: (IsStyleSchemeManager o) => [T.Text] -> IO (GValueConstruct o)
constructStyleSchemeManagerSearchPath val = B.Properties.constructObjectPropertyStringArray "search-path" (Just val)
clearStyleSchemeManagerSearchPath :: (MonadIO m, IsStyleSchemeManager o) => o -> m ()
clearStyleSchemeManagerSearchPath obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "search-path" (Nothing :: Maybe [T.Text])
#if ENABLE_OVERLOADING
data StyleSchemeManagerSearchPathPropertyInfo
instance AttrInfo StyleSchemeManagerSearchPathPropertyInfo where
type AttrAllowedOps StyleSchemeManagerSearchPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint StyleSchemeManagerSearchPathPropertyInfo = (~) [T.Text]
type AttrBaseTypeConstraint StyleSchemeManagerSearchPathPropertyInfo = IsStyleSchemeManager
type AttrGetType StyleSchemeManagerSearchPathPropertyInfo = [T.Text]
type AttrLabel StyleSchemeManagerSearchPathPropertyInfo = "search-path"
type AttrOrigin StyleSchemeManagerSearchPathPropertyInfo = StyleSchemeManager
attrGet _ = getStyleSchemeManagerSearchPath
attrSet _ = setStyleSchemeManagerSearchPath
attrConstruct _ = constructStyleSchemeManagerSearchPath
attrClear _ = clearStyleSchemeManagerSearchPath
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList StyleSchemeManager
type instance O.AttributeList StyleSchemeManager = StyleSchemeManagerAttributeList
type StyleSchemeManagerAttributeList = ('[ '("schemeIds", StyleSchemeManagerSchemeIdsPropertyInfo), '("searchPath", StyleSchemeManagerSearchPathPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
styleSchemeManagerSchemeIds :: AttrLabelProxy "schemeIds"
styleSchemeManagerSchemeIds = AttrLabelProxy
styleSchemeManagerSearchPath :: AttrLabelProxy "searchPath"
styleSchemeManagerSearchPath = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList StyleSchemeManager = StyleSchemeManagerSignalList
type StyleSchemeManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_style_scheme_manager_new" gtk_source_style_scheme_manager_new ::
IO (Ptr StyleSchemeManager)
styleSchemeManagerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m StyleSchemeManager
styleSchemeManagerNew = liftIO $ do
result <- gtk_source_style_scheme_manager_new
checkUnexpectedReturnNULL "styleSchemeManagerNew" result
result' <- (wrapObject StyleSchemeManager) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_source_style_scheme_manager_append_search_path" gtk_source_style_scheme_manager_append_search_path ::
Ptr StyleSchemeManager ->
CString ->
IO ()
styleSchemeManagerAppendSearchPath ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleSchemeManager a) =>
a
-> T.Text
-> m ()
styleSchemeManagerAppendSearchPath manager path = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
path' <- textToCString path
gtk_source_style_scheme_manager_append_search_path manager' path'
touchManagedPtr manager
freeMem path'
return ()
#if ENABLE_OVERLOADING
data StyleSchemeManagerAppendSearchPathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStyleSchemeManager a) => O.MethodInfo StyleSchemeManagerAppendSearchPathMethodInfo a signature where
overloadedMethod _ = styleSchemeManagerAppendSearchPath
#endif
foreign import ccall "gtk_source_style_scheme_manager_force_rescan" gtk_source_style_scheme_manager_force_rescan ::
Ptr StyleSchemeManager ->
IO ()
styleSchemeManagerForceRescan ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleSchemeManager a) =>
a
-> m ()
styleSchemeManagerForceRescan manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
gtk_source_style_scheme_manager_force_rescan manager'
touchManagedPtr manager
return ()
#if ENABLE_OVERLOADING
data StyleSchemeManagerForceRescanMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStyleSchemeManager a) => O.MethodInfo StyleSchemeManagerForceRescanMethodInfo a signature where
overloadedMethod _ = styleSchemeManagerForceRescan
#endif
foreign import ccall "gtk_source_style_scheme_manager_get_scheme" gtk_source_style_scheme_manager_get_scheme ::
Ptr StyleSchemeManager ->
CString ->
IO (Ptr GtkSource.StyleScheme.StyleScheme)
styleSchemeManagerGetScheme ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleSchemeManager a) =>
a
-> T.Text
-> m GtkSource.StyleScheme.StyleScheme
styleSchemeManagerGetScheme manager schemeId = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
schemeId' <- textToCString schemeId
result <- gtk_source_style_scheme_manager_get_scheme manager' schemeId'
checkUnexpectedReturnNULL "styleSchemeManagerGetScheme" result
result' <- (newObject GtkSource.StyleScheme.StyleScheme) result
touchManagedPtr manager
freeMem schemeId'
return result'
#if ENABLE_OVERLOADING
data StyleSchemeManagerGetSchemeMethodInfo
instance (signature ~ (T.Text -> m GtkSource.StyleScheme.StyleScheme), MonadIO m, IsStyleSchemeManager a) => O.MethodInfo StyleSchemeManagerGetSchemeMethodInfo a signature where
overloadedMethod _ = styleSchemeManagerGetScheme
#endif
foreign import ccall "gtk_source_style_scheme_manager_get_scheme_ids" gtk_source_style_scheme_manager_get_scheme_ids ::
Ptr StyleSchemeManager ->
IO (Ptr CString)
styleSchemeManagerGetSchemeIds ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleSchemeManager a) =>
a
-> m (Maybe [T.Text])
styleSchemeManagerGetSchemeIds manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- gtk_source_style_scheme_manager_get_scheme_ids manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- unpackZeroTerminatedUTF8CArray result'
return result''
touchManagedPtr manager
return maybeResult
#if ENABLE_OVERLOADING
data StyleSchemeManagerGetSchemeIdsMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsStyleSchemeManager a) => O.MethodInfo StyleSchemeManagerGetSchemeIdsMethodInfo a signature where
overloadedMethod _ = styleSchemeManagerGetSchemeIds
#endif
foreign import ccall "gtk_source_style_scheme_manager_get_search_path" gtk_source_style_scheme_manager_get_search_path ::
Ptr StyleSchemeManager ->
IO (Ptr CString)
styleSchemeManagerGetSearchPath ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleSchemeManager a) =>
a
-> m [T.Text]
styleSchemeManagerGetSearchPath manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- gtk_source_style_scheme_manager_get_search_path manager'
checkUnexpectedReturnNULL "styleSchemeManagerGetSearchPath" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr manager
return result'
#if ENABLE_OVERLOADING
data StyleSchemeManagerGetSearchPathMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsStyleSchemeManager a) => O.MethodInfo StyleSchemeManagerGetSearchPathMethodInfo a signature where
overloadedMethod _ = styleSchemeManagerGetSearchPath
#endif
foreign import ccall "gtk_source_style_scheme_manager_prepend_search_path" gtk_source_style_scheme_manager_prepend_search_path ::
Ptr StyleSchemeManager ->
CString ->
IO ()
styleSchemeManagerPrependSearchPath ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleSchemeManager a) =>
a
-> T.Text
-> m ()
styleSchemeManagerPrependSearchPath manager path = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
path' <- textToCString path
gtk_source_style_scheme_manager_prepend_search_path manager' path'
touchManagedPtr manager
freeMem path'
return ()
#if ENABLE_OVERLOADING
data StyleSchemeManagerPrependSearchPathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStyleSchemeManager a) => O.MethodInfo StyleSchemeManagerPrependSearchPathMethodInfo a signature where
overloadedMethod _ = styleSchemeManagerPrependSearchPath
#endif
foreign import ccall "gtk_source_style_scheme_manager_set_search_path" gtk_source_style_scheme_manager_set_search_path ::
Ptr StyleSchemeManager ->
Ptr CString ->
IO ()
styleSchemeManagerSetSearchPath ::
(B.CallStack.HasCallStack, MonadIO m, IsStyleSchemeManager a) =>
a
-> Maybe ([T.Text])
-> m ()
styleSchemeManagerSetSearchPath manager path = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
jPath' <- packZeroTerminatedUTF8CArray jPath
return jPath'
gtk_source_style_scheme_manager_set_search_path manager' maybePath
touchManagedPtr manager
mapZeroTerminatedCArray freeMem maybePath
freeMem maybePath
return ()
#if ENABLE_OVERLOADING
data StyleSchemeManagerSetSearchPathMethodInfo
instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsStyleSchemeManager a) => O.MethodInfo StyleSchemeManagerSetSearchPathMethodInfo a signature where
overloadedMethod _ = styleSchemeManagerSetSearchPath
#endif
foreign import ccall "gtk_source_style_scheme_manager_get_default" gtk_source_style_scheme_manager_get_default ::
IO (Ptr StyleSchemeManager)
styleSchemeManagerGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m StyleSchemeManager
styleSchemeManagerGetDefault = liftIO $ do
result <- gtk_source_style_scheme_manager_get_default
checkUnexpectedReturnNULL "styleSchemeManagerGetDefault" result
result' <- (newObject StyleSchemeManager) result
return result'
#if ENABLE_OVERLOADING
#endif