gi-gio-0.2.44.12: GI/Gio/Objects/Settings.hs
{- |
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.Gio.Objects.Settings
(
-- * Exported types
Settings(..) ,
SettingsK ,
toSettings ,
noSettings ,
-- * Methods
-- ** settingsApply
settingsApply ,
-- ** settingsBind
settingsBind ,
-- ** settingsBindWritable
settingsBindWritable ,
-- ** settingsCreateAction
settingsCreateAction ,
-- ** settingsDelay
settingsDelay ,
-- ** settingsGetBoolean
settingsGetBoolean ,
-- ** settingsGetChild
settingsGetChild ,
-- ** settingsGetDefaultValue
settingsGetDefaultValue ,
-- ** settingsGetDouble
settingsGetDouble ,
-- ** settingsGetEnum
settingsGetEnum ,
-- ** settingsGetFlags
settingsGetFlags ,
-- ** settingsGetHasUnapplied
settingsGetHasUnapplied ,
-- ** settingsGetInt
settingsGetInt ,
-- ** settingsGetMapped
settingsGetMapped ,
-- ** settingsGetRange
settingsGetRange ,
-- ** settingsGetString
settingsGetString ,
-- ** settingsGetStrv
settingsGetStrv ,
-- ** settingsGetUint
settingsGetUint ,
-- ** settingsGetUserValue
settingsGetUserValue ,
-- ** settingsGetValue
settingsGetValue ,
-- ** settingsIsWritable
settingsIsWritable ,
-- ** settingsListChildren
settingsListChildren ,
-- ** settingsListKeys
settingsListKeys ,
-- ** settingsListRelocatableSchemas
settingsListRelocatableSchemas ,
-- ** settingsListSchemas
settingsListSchemas ,
-- ** settingsNew
settingsNew ,
-- ** settingsNewFull
settingsNewFull ,
-- ** settingsNewWithBackend
settingsNewWithBackend ,
-- ** settingsNewWithBackendAndPath
settingsNewWithBackendAndPath ,
-- ** settingsNewWithPath
settingsNewWithPath ,
-- ** settingsRangeCheck
settingsRangeCheck ,
-- ** settingsReset
settingsReset ,
-- ** settingsRevert
settingsRevert ,
-- ** settingsSetBoolean
settingsSetBoolean ,
-- ** settingsSetDouble
settingsSetDouble ,
-- ** settingsSetEnum
settingsSetEnum ,
-- ** settingsSetFlags
settingsSetFlags ,
-- ** settingsSetInt
settingsSetInt ,
-- ** settingsSetString
settingsSetString ,
-- ** settingsSetStrv
settingsSetStrv ,
-- ** settingsSetUint
settingsSetUint ,
-- ** settingsSetValue
settingsSetValue ,
-- ** settingsSync
settingsSync ,
-- ** settingsUnbind
settingsUnbind ,
-- * Properties
-- ** DelayApply
SettingsDelayApplyPropertyInfo ,
getSettingsDelayApply ,
-- ** HasUnapplied
SettingsHasUnappliedPropertyInfo ,
getSettingsHasUnapplied ,
-- ** Path
SettingsPathPropertyInfo ,
constructSettingsPath ,
getSettingsPath ,
-- ** Schema
SettingsSchemaPropertyInfo ,
constructSettingsSchema ,
getSettingsSchema ,
-- ** SchemaId
SettingsSchemaIdPropertyInfo ,
constructSettingsSchemaId ,
getSettingsSchemaId ,
-- ** SettingsSchema
SettingsSettingsSchemaPropertyInfo ,
constructSettingsSettingsSchema ,
getSettingsSettingsSchema ,
-- * Signals
-- ** ChangeEvent
SettingsChangeEventCallback ,
SettingsChangeEventCallbackC ,
SettingsChangeEventSignalInfo ,
afterSettingsChangeEvent ,
mkSettingsChangeEventCallback ,
noSettingsChangeEventCallback ,
onSettingsChangeEvent ,
settingsChangeEventCallbackWrapper ,
settingsChangeEventClosure ,
-- ** Changed
SettingsChangedCallback ,
SettingsChangedCallbackC ,
SettingsChangedSignalInfo ,
afterSettingsChanged ,
mkSettingsChangedCallback ,
noSettingsChangedCallback ,
onSettingsChanged ,
settingsChangedCallbackWrapper ,
settingsChangedClosure ,
-- ** WritableChangeEvent
SettingsWritableChangeEventCallback ,
SettingsWritableChangeEventCallbackC ,
SettingsWritableChangeEventSignalInfo ,
afterSettingsWritableChangeEvent ,
mkSettingsWritableChangeEventCallback ,
noSettingsWritableChangeEventCallback ,
onSettingsWritableChangeEvent ,
settingsWritableChangeEventCallbackWrapper,
settingsWritableChangeEventClosure ,
-- ** WritableChanged
SettingsWritableChangedCallback ,
SettingsWritableChangedCallbackC ,
SettingsWritableChangedSignalInfo ,
afterSettingsWritableChanged ,
mkSettingsWritableChangedCallback ,
noSettingsWritableChangedCallback ,
onSettingsWritableChanged ,
settingsWritableChangedCallbackWrapper ,
settingsWritableChangedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype Settings = Settings (ForeignPtr Settings)
foreign import ccall "g_settings_get_type"
c_g_settings_get_type :: IO GType
type instance ParentTypes Settings = SettingsParentTypes
type SettingsParentTypes = '[GObject.Object]
instance GObject Settings where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_settings_get_type
class GObject o => SettingsK o
instance (GObject o, IsDescendantOf Settings o) => SettingsK o
toSettings :: SettingsK o => o -> IO Settings
toSettings = unsafeCastTo Settings
noSettings :: Maybe Settings
noSettings = Nothing
-- signal Settings::change-event
type SettingsChangeEventCallback =
Maybe [Word32] ->
IO Bool
noSettingsChangeEventCallback :: Maybe SettingsChangeEventCallback
noSettingsChangeEventCallback = Nothing
type SettingsChangeEventCallbackC =
Ptr () -> -- object
Ptr Word32 ->
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkSettingsChangeEventCallback :: SettingsChangeEventCallbackC -> IO (FunPtr SettingsChangeEventCallbackC)
settingsChangeEventClosure :: SettingsChangeEventCallback -> IO Closure
settingsChangeEventClosure cb = newCClosure =<< mkSettingsChangeEventCallback wrapped
where wrapped = settingsChangeEventCallbackWrapper cb
settingsChangeEventCallbackWrapper ::
SettingsChangeEventCallback ->
Ptr () ->
Ptr Word32 ->
Int32 ->
Ptr () ->
IO CInt
settingsChangeEventCallbackWrapper _cb _ keys n_keys _ = do
maybeKeys <-
if keys == nullPtr
then return Nothing
else do
keys' <- (unpackStorableArrayWithLength n_keys) keys
return $ Just keys'
result <- _cb maybeKeys
let result' = (fromIntegral . fromEnum) result
return result'
onSettingsChangeEvent :: (GObject a, MonadIO m) => a -> SettingsChangeEventCallback -> m SignalHandlerId
onSettingsChangeEvent obj cb = liftIO $ connectSettingsChangeEvent obj cb SignalConnectBefore
afterSettingsChangeEvent :: (GObject a, MonadIO m) => a -> SettingsChangeEventCallback -> m SignalHandlerId
afterSettingsChangeEvent obj cb = connectSettingsChangeEvent obj cb SignalConnectAfter
connectSettingsChangeEvent :: (GObject a, MonadIO m) =>
a -> SettingsChangeEventCallback -> SignalConnectMode -> m SignalHandlerId
connectSettingsChangeEvent obj cb after = liftIO $ do
cb' <- mkSettingsChangeEventCallback (settingsChangeEventCallbackWrapper cb)
connectSignalFunPtr obj "change-event" cb' after
-- signal Settings::changed
type SettingsChangedCallback =
T.Text ->
IO ()
noSettingsChangedCallback :: Maybe SettingsChangedCallback
noSettingsChangedCallback = Nothing
type SettingsChangedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSettingsChangedCallback :: SettingsChangedCallbackC -> IO (FunPtr SettingsChangedCallbackC)
settingsChangedClosure :: SettingsChangedCallback -> IO Closure
settingsChangedClosure cb = newCClosure =<< mkSettingsChangedCallback wrapped
where wrapped = settingsChangedCallbackWrapper cb
settingsChangedCallbackWrapper ::
SettingsChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
settingsChangedCallbackWrapper _cb _ key _ = do
key' <- cstringToText key
_cb key'
onSettingsChanged :: (GObject a, MonadIO m) => a -> SettingsChangedCallback -> m SignalHandlerId
onSettingsChanged obj cb = liftIO $ connectSettingsChanged obj cb SignalConnectBefore
afterSettingsChanged :: (GObject a, MonadIO m) => a -> SettingsChangedCallback -> m SignalHandlerId
afterSettingsChanged obj cb = connectSettingsChanged obj cb SignalConnectAfter
connectSettingsChanged :: (GObject a, MonadIO m) =>
a -> SettingsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectSettingsChanged obj cb after = liftIO $ do
cb' <- mkSettingsChangedCallback (settingsChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- signal Settings::writable-change-event
type SettingsWritableChangeEventCallback =
Word32 ->
IO Bool
noSettingsWritableChangeEventCallback :: Maybe SettingsWritableChangeEventCallback
noSettingsWritableChangeEventCallback = Nothing
type SettingsWritableChangeEventCallbackC =
Ptr () -> -- object
Word32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkSettingsWritableChangeEventCallback :: SettingsWritableChangeEventCallbackC -> IO (FunPtr SettingsWritableChangeEventCallbackC)
settingsWritableChangeEventClosure :: SettingsWritableChangeEventCallback -> IO Closure
settingsWritableChangeEventClosure cb = newCClosure =<< mkSettingsWritableChangeEventCallback wrapped
where wrapped = settingsWritableChangeEventCallbackWrapper cb
settingsWritableChangeEventCallbackWrapper ::
SettingsWritableChangeEventCallback ->
Ptr () ->
Word32 ->
Ptr () ->
IO CInt
settingsWritableChangeEventCallbackWrapper _cb _ key _ = do
result <- _cb key
let result' = (fromIntegral . fromEnum) result
return result'
onSettingsWritableChangeEvent :: (GObject a, MonadIO m) => a -> SettingsWritableChangeEventCallback -> m SignalHandlerId
onSettingsWritableChangeEvent obj cb = liftIO $ connectSettingsWritableChangeEvent obj cb SignalConnectBefore
afterSettingsWritableChangeEvent :: (GObject a, MonadIO m) => a -> SettingsWritableChangeEventCallback -> m SignalHandlerId
afterSettingsWritableChangeEvent obj cb = connectSettingsWritableChangeEvent obj cb SignalConnectAfter
connectSettingsWritableChangeEvent :: (GObject a, MonadIO m) =>
a -> SettingsWritableChangeEventCallback -> SignalConnectMode -> m SignalHandlerId
connectSettingsWritableChangeEvent obj cb after = liftIO $ do
cb' <- mkSettingsWritableChangeEventCallback (settingsWritableChangeEventCallbackWrapper cb)
connectSignalFunPtr obj "writable-change-event" cb' after
-- signal Settings::writable-changed
type SettingsWritableChangedCallback =
T.Text ->
IO ()
noSettingsWritableChangedCallback :: Maybe SettingsWritableChangedCallback
noSettingsWritableChangedCallback = Nothing
type SettingsWritableChangedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSettingsWritableChangedCallback :: SettingsWritableChangedCallbackC -> IO (FunPtr SettingsWritableChangedCallbackC)
settingsWritableChangedClosure :: SettingsWritableChangedCallback -> IO Closure
settingsWritableChangedClosure cb = newCClosure =<< mkSettingsWritableChangedCallback wrapped
where wrapped = settingsWritableChangedCallbackWrapper cb
settingsWritableChangedCallbackWrapper ::
SettingsWritableChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
settingsWritableChangedCallbackWrapper _cb _ key _ = do
key' <- cstringToText key
_cb key'
onSettingsWritableChanged :: (GObject a, MonadIO m) => a -> SettingsWritableChangedCallback -> m SignalHandlerId
onSettingsWritableChanged obj cb = liftIO $ connectSettingsWritableChanged obj cb SignalConnectBefore
afterSettingsWritableChanged :: (GObject a, MonadIO m) => a -> SettingsWritableChangedCallback -> m SignalHandlerId
afterSettingsWritableChanged obj cb = connectSettingsWritableChanged obj cb SignalConnectAfter
connectSettingsWritableChanged :: (GObject a, MonadIO m) =>
a -> SettingsWritableChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectSettingsWritableChanged obj cb after = liftIO $ do
cb' <- mkSettingsWritableChangedCallback (settingsWritableChangedCallbackWrapper cb)
connectSignalFunPtr obj "writable-changed" cb' after
-- VVV Prop "delay-apply"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable]
getSettingsDelayApply :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsDelayApply obj = liftIO $ getObjectPropertyBool obj "delay-apply"
data SettingsDelayApplyPropertyInfo
instance AttrInfo SettingsDelayApplyPropertyInfo where
type AttrAllowedOps SettingsDelayApplyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint SettingsDelayApplyPropertyInfo = (~) ()
type AttrBaseTypeConstraint SettingsDelayApplyPropertyInfo = SettingsK
type AttrGetType SettingsDelayApplyPropertyInfo = Bool
type AttrLabel SettingsDelayApplyPropertyInfo = "Settings::delay-apply"
attrGet _ = getSettingsDelayApply
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "has-unapplied"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable]
getSettingsHasUnapplied :: (MonadIO m, SettingsK o) => o -> m Bool
getSettingsHasUnapplied obj = liftIO $ getObjectPropertyBool obj "has-unapplied"
data SettingsHasUnappliedPropertyInfo
instance AttrInfo SettingsHasUnappliedPropertyInfo where
type AttrAllowedOps SettingsHasUnappliedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint SettingsHasUnappliedPropertyInfo = (~) ()
type AttrBaseTypeConstraint SettingsHasUnappliedPropertyInfo = SettingsK
type AttrGetType SettingsHasUnappliedPropertyInfo = Bool
type AttrLabel SettingsHasUnappliedPropertyInfo = "Settings::has-unapplied"
attrGet _ = getSettingsHasUnapplied
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "path"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getSettingsPath :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsPath obj = liftIO $ getObjectPropertyString obj "path"
constructSettingsPath :: T.Text -> IO ([Char], GValue)
constructSettingsPath val = constructObjectPropertyString "path" val
data SettingsPathPropertyInfo
instance AttrInfo SettingsPathPropertyInfo where
type AttrAllowedOps SettingsPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsPathPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsPathPropertyInfo = SettingsK
type AttrGetType SettingsPathPropertyInfo = T.Text
type AttrLabel SettingsPathPropertyInfo = "Settings::path"
attrGet _ = getSettingsPath
attrSet _ = undefined
attrConstruct _ = constructSettingsPath
-- VVV Prop "schema"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getSettingsSchema :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsSchema obj = liftIO $ getObjectPropertyString obj "schema"
constructSettingsSchema :: T.Text -> IO ([Char], GValue)
constructSettingsSchema val = constructObjectPropertyString "schema" val
data SettingsSchemaPropertyInfo
instance AttrInfo SettingsSchemaPropertyInfo where
type AttrAllowedOps SettingsSchemaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsSchemaPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsSchemaPropertyInfo = SettingsK
type AttrGetType SettingsSchemaPropertyInfo = T.Text
type AttrLabel SettingsSchemaPropertyInfo = "Settings::schema"
attrGet _ = getSettingsSchema
attrSet _ = undefined
attrConstruct _ = constructSettingsSchema
-- VVV Prop "schema-id"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getSettingsSchemaId :: (MonadIO m, SettingsK o) => o -> m T.Text
getSettingsSchemaId obj = liftIO $ getObjectPropertyString obj "schema-id"
constructSettingsSchemaId :: T.Text -> IO ([Char], GValue)
constructSettingsSchemaId val = constructObjectPropertyString "schema-id" val
data SettingsSchemaIdPropertyInfo
instance AttrInfo SettingsSchemaIdPropertyInfo where
type AttrAllowedOps SettingsSchemaIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsSchemaIdPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SettingsSchemaIdPropertyInfo = SettingsK
type AttrGetType SettingsSchemaIdPropertyInfo = T.Text
type AttrLabel SettingsSchemaIdPropertyInfo = "Settings::schema-id"
attrGet _ = getSettingsSchemaId
attrSet _ = undefined
attrConstruct _ = constructSettingsSchemaId
-- VVV Prop "settings-schema"
-- Type: TInterface "Gio" "SettingsSchema"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getSettingsSettingsSchema :: (MonadIO m, SettingsK o) => o -> m SettingsSchema
getSettingsSettingsSchema obj = liftIO $ getObjectPropertyBoxed obj "settings-schema" SettingsSchema
constructSettingsSettingsSchema :: SettingsSchema -> IO ([Char], GValue)
constructSettingsSettingsSchema val = constructObjectPropertyBoxed "settings-schema" val
data SettingsSettingsSchemaPropertyInfo
instance AttrInfo SettingsSettingsSchemaPropertyInfo where
type AttrAllowedOps SettingsSettingsSchemaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SettingsSettingsSchemaPropertyInfo = (~) SettingsSchema
type AttrBaseTypeConstraint SettingsSettingsSchemaPropertyInfo = SettingsK
type AttrGetType SettingsSettingsSchemaPropertyInfo = SettingsSchema
type AttrLabel SettingsSettingsSchemaPropertyInfo = "Settings::settings-schema"
attrGet _ = getSettingsSettingsSchema
attrSet _ = undefined
attrConstruct _ = constructSettingsSettingsSchema
type instance AttributeList Settings = SettingsAttributeList
type SettingsAttributeList = ('[ '("delay-apply", SettingsDelayApplyPropertyInfo), '("has-unapplied", SettingsHasUnappliedPropertyInfo), '("path", SettingsPathPropertyInfo), '("schema", SettingsSchemaPropertyInfo), '("schema-id", SettingsSchemaIdPropertyInfo), '("settings-schema", SettingsSettingsSchemaPropertyInfo)] :: [(Symbol, *)])
data SettingsChangeEventSignalInfo
instance SignalInfo SettingsChangeEventSignalInfo where
type HaskellCallbackType SettingsChangeEventSignalInfo = SettingsChangeEventCallback
connectSignal _ = connectSettingsChangeEvent
data SettingsChangedSignalInfo
instance SignalInfo SettingsChangedSignalInfo where
type HaskellCallbackType SettingsChangedSignalInfo = SettingsChangedCallback
connectSignal _ = connectSettingsChanged
data SettingsWritableChangeEventSignalInfo
instance SignalInfo SettingsWritableChangeEventSignalInfo where
type HaskellCallbackType SettingsWritableChangeEventSignalInfo = SettingsWritableChangeEventCallback
connectSignal _ = connectSettingsWritableChangeEvent
data SettingsWritableChangedSignalInfo
instance SignalInfo SettingsWritableChangedSignalInfo where
type HaskellCallbackType SettingsWritableChangedSignalInfo = SettingsWritableChangedCallback
connectSignal _ = connectSettingsWritableChanged
type instance SignalList Settings = SettingsSignalList
type SettingsSignalList = ('[ '("change-event", SettingsChangeEventSignalInfo), '("changed", SettingsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("writable-change-event", SettingsWritableChangeEventSignalInfo), '("writable-changed", SettingsWritableChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method Settings::new
-- method type : Constructor
-- Args : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_new" g_settings_new ::
CString -> -- schema_id : TBasicType TUTF8
IO (Ptr Settings)
settingsNew ::
(MonadIO m) =>
T.Text -> -- schema_id
m Settings
settingsNew schema_id = liftIO $ do
schema_id' <- textToCString schema_id
result <- g_settings_new schema_id'
checkUnexpectedReturnNULL "g_settings_new" result
result' <- (wrapObject Settings) result
freeMem schema_id'
return result'
-- method Settings::new_full
-- method type : Constructor
-- Args : [Arg {argName = "schema", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "schema", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_new_full" g_settings_new_full ::
Ptr SettingsSchema -> -- schema : TInterface "Gio" "SettingsSchema"
Ptr SettingsBackend -> -- backend : TInterface "Gio" "SettingsBackend"
CString -> -- path : TBasicType TUTF8
IO (Ptr Settings)
settingsNewFull ::
(MonadIO m) =>
SettingsSchema -> -- schema
Maybe (SettingsBackend) -> -- backend
Maybe (T.Text) -> -- path
m Settings
settingsNewFull schema backend path = liftIO $ do
let schema' = unsafeManagedPtrGetPtr schema
maybeBackend <- case backend of
Nothing -> return nullPtr
Just jBackend -> do
let jBackend' = unsafeManagedPtrGetPtr jBackend
return jBackend'
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
jPath' <- textToCString jPath
return jPath'
result <- g_settings_new_full schema' maybeBackend maybePath
checkUnexpectedReturnNULL "g_settings_new_full" result
result' <- (wrapObject Settings) result
touchManagedPtr schema
whenJust backend touchManagedPtr
freeMem maybePath
return result'
-- method Settings::new_with_backend
-- method type : Constructor
-- Args : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_new_with_backend" g_settings_new_with_backend ::
CString -> -- schema_id : TBasicType TUTF8
Ptr SettingsBackend -> -- backend : TInterface "Gio" "SettingsBackend"
IO (Ptr Settings)
settingsNewWithBackend ::
(MonadIO m) =>
T.Text -> -- schema_id
SettingsBackend -> -- backend
m Settings
settingsNewWithBackend schema_id backend = liftIO $ do
schema_id' <- textToCString schema_id
let backend' = unsafeManagedPtrGetPtr backend
result <- g_settings_new_with_backend schema_id' backend'
checkUnexpectedReturnNULL "g_settings_new_with_backend" result
result' <- (wrapObject Settings) result
touchManagedPtr backend
freeMem schema_id'
return result'
-- method Settings::new_with_backend_and_path
-- method type : Constructor
-- Args : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_new_with_backend_and_path" g_settings_new_with_backend_and_path ::
CString -> -- schema_id : TBasicType TUTF8
Ptr SettingsBackend -> -- backend : TInterface "Gio" "SettingsBackend"
CString -> -- path : TBasicType TUTF8
IO (Ptr Settings)
settingsNewWithBackendAndPath ::
(MonadIO m) =>
T.Text -> -- schema_id
SettingsBackend -> -- backend
T.Text -> -- path
m Settings
settingsNewWithBackendAndPath schema_id backend path = liftIO $ do
schema_id' <- textToCString schema_id
let backend' = unsafeManagedPtrGetPtr backend
path' <- textToCString path
result <- g_settings_new_with_backend_and_path schema_id' backend' path'
checkUnexpectedReturnNULL "g_settings_new_with_backend_and_path" result
result' <- (wrapObject Settings) result
touchManagedPtr backend
freeMem schema_id'
freeMem path'
return result'
-- method Settings::new_with_path
-- method type : Constructor
-- Args : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_new_with_path" g_settings_new_with_path ::
CString -> -- schema_id : TBasicType TUTF8
CString -> -- path : TBasicType TUTF8
IO (Ptr Settings)
settingsNewWithPath ::
(MonadIO m) =>
T.Text -> -- schema_id
T.Text -> -- path
m Settings
settingsNewWithPath schema_id path = liftIO $ do
schema_id' <- textToCString schema_id
path' <- textToCString path
result <- g_settings_new_with_path schema_id' path'
checkUnexpectedReturnNULL "g_settings_new_with_path" result
result' <- (wrapObject Settings) result
freeMem schema_id'
freeMem path'
return result'
-- method Settings::apply
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_apply" g_settings_apply ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
IO ()
settingsApply ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
m ()
settingsApply _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_settings_apply _obj'
touchManagedPtr _obj
return ()
-- method Settings::bind
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "SettingsBindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "SettingsBindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_bind" g_settings_bind ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
CString -> -- property : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gio" "SettingsBindFlags"
IO ()
settingsBind ::
(MonadIO m, SettingsK a, GObject.ObjectK b) =>
a -> -- _obj
T.Text -> -- key
b -> -- object
T.Text -> -- property
[SettingsBindFlags] -> -- flags
m ()
settingsBind _obj key object property flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let object' = unsafeManagedPtrCastPtr object
property' <- textToCString property
let flags' = gflagsToWord flags
g_settings_bind _obj' key' object' property' flags'
touchManagedPtr _obj
touchManagedPtr object
freeMem key'
freeMem property'
return ()
-- method Settings::bind_writable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_bind_writable" g_settings_bind_writable ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
CString -> -- property : TBasicType TUTF8
CInt -> -- inverted : TBasicType TBoolean
IO ()
settingsBindWritable ::
(MonadIO m, SettingsK a, GObject.ObjectK b) =>
a -> -- _obj
T.Text -> -- key
b -> -- object
T.Text -> -- property
Bool -> -- inverted
m ()
settingsBindWritable _obj key object property inverted = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let object' = unsafeManagedPtrCastPtr object
property' <- textToCString property
let inverted' = (fromIntegral . fromEnum) inverted
g_settings_bind_writable _obj' key' object' property' inverted'
touchManagedPtr _obj
touchManagedPtr object
freeMem key'
freeMem property'
return ()
-- method Settings::create_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Action"
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_create_action" g_settings_create_action ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO (Ptr Action)
settingsCreateAction ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Action
settingsCreateAction _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_create_action _obj' key'
checkUnexpectedReturnNULL "g_settings_create_action" result
result' <- (wrapObject Action) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::delay
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_delay" g_settings_delay ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
IO ()
settingsDelay ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
m ()
settingsDelay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_settings_delay _obj'
touchManagedPtr _obj
return ()
-- method Settings::get_boolean
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_boolean" g_settings_get_boolean ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO CInt
settingsGetBoolean ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Bool
settingsGetBoolean _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_boolean _obj' key'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::get_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_child" g_settings_get_child ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- name : TBasicType TUTF8
IO (Ptr Settings)
settingsGetChild ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- name
m Settings
settingsGetChild _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- g_settings_get_child _obj' name'
checkUnexpectedReturnNULL "g_settings_get_child" result
result' <- (wrapObject Settings) result
touchManagedPtr _obj
freeMem name'
return result'
-- method Settings::get_default_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TVariant
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_default_value" g_settings_get_default_value ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO (Ptr GVariant)
settingsGetDefaultValue ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m GVariant
settingsGetDefaultValue _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_default_value _obj' key'
checkUnexpectedReturnNULL "g_settings_get_default_value" result
result' <- wrapGVariantPtr result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::get_double
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_double" g_settings_get_double ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO CDouble
settingsGetDouble ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Double
settingsGetDouble _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_double _obj' key'
let result' = realToFrac result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::get_enum
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_enum" g_settings_get_enum ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO Int32
settingsGetEnum ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Int32
settingsGetEnum _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_enum _obj' key'
touchManagedPtr _obj
freeMem key'
return result
-- method Settings::get_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_flags" g_settings_get_flags ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO Word32
settingsGetFlags ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Word32
settingsGetFlags _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_flags _obj' key'
touchManagedPtr _obj
freeMem key'
return result
-- method Settings::get_has_unapplied
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_has_unapplied" g_settings_get_has_unapplied ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
IO CInt
settingsGetHasUnapplied ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
m Bool
settingsGetHasUnapplied _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_settings_get_has_unapplied _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Settings::get_int
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_int" g_settings_get_int ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO Int32
settingsGetInt ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Int32
settingsGetInt _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_int _obj' key'
touchManagedPtr _obj
freeMem key'
return result
-- method Settings::get_mapped
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapping", argType = TInterface "Gio" "SettingsGetMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapping", argType = TInterface "Gio" "SettingsGetMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_mapped" g_settings_get_mapped ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
FunPtr SettingsGetMappingC -> -- mapping : TInterface "Gio" "SettingsGetMapping"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
settingsGetMapped ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
SettingsGetMapping -> -- mapping
m ()
settingsGetMapped _obj key mapping = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
mapping' <- mkSettingsGetMapping (settingsGetMappingWrapper Nothing mapping)
let user_data = nullPtr
g_settings_get_mapped _obj' key' mapping' user_data
safeFreeFunPtr $ castFunPtrToPtr mapping'
touchManagedPtr _obj
freeMem key'
return ()
-- method Settings::get_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TVariant
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_range" g_settings_get_range ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO (Ptr GVariant)
{-# DEPRECATED settingsGetRange ["(Since version 2.40)","Use g_settings_schema_key_get_range() instead."]#-}
settingsGetRange ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m GVariant
settingsGetRange _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_range _obj' key'
checkUnexpectedReturnNULL "g_settings_get_range" result
result' <- wrapGVariantPtr result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::get_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_string" g_settings_get_string ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO CString
settingsGetString ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m T.Text
settingsGetString _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_string _obj' key'
checkUnexpectedReturnNULL "g_settings_get_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::get_strv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_strv" g_settings_get_strv ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO (Ptr CString)
settingsGetStrv ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m [T.Text]
settingsGetStrv _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_strv _obj' key'
checkUnexpectedReturnNULL "g_settings_get_strv" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::get_uint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_uint" g_settings_get_uint ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO Word32
settingsGetUint ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Word32
settingsGetUint _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_uint _obj' key'
touchManagedPtr _obj
freeMem key'
return result
-- method Settings::get_user_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TVariant
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_user_value" g_settings_get_user_value ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO (Ptr GVariant)
settingsGetUserValue ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m GVariant
settingsGetUserValue _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_user_value _obj' key'
checkUnexpectedReturnNULL "g_settings_get_user_value" result
result' <- wrapGVariantPtr result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TVariant
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_get_value" g_settings_get_value ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO (Ptr GVariant)
settingsGetValue ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m GVariant
settingsGetValue _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_get_value _obj' key'
checkUnexpectedReturnNULL "g_settings_get_value" result
result' <- wrapGVariantPtr result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::is_writable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_is_writable" g_settings_is_writable ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- name : TBasicType TUTF8
IO CInt
settingsIsWritable ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- name
m Bool
settingsIsWritable _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- g_settings_is_writable _obj' name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name'
return result'
-- method Settings::list_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_list_children" g_settings_list_children ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
IO (Ptr CString)
settingsListChildren ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
m [T.Text]
settingsListChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_settings_list_children _obj'
checkUnexpectedReturnNULL "g_settings_list_children" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
return result'
-- method Settings::list_keys
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_list_keys" g_settings_list_keys ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
IO (Ptr CString)
settingsListKeys ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
m [T.Text]
settingsListKeys _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_settings_list_keys _obj'
checkUnexpectedReturnNULL "g_settings_list_keys" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
return result'
-- method Settings::range_check
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_range_check" g_settings_range_check ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Ptr GVariant -> -- value : TVariant
IO CInt
{-# DEPRECATED settingsRangeCheck ["(Since version 2.40)","Use g_settings_schema_key_range_check() instead."]#-}
settingsRangeCheck ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
GVariant -> -- value
m Bool
settingsRangeCheck _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = unsafeManagedPtrGetPtr value
result <- g_settings_range_check _obj' key' value'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::reset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_reset" g_settings_reset ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
IO ()
settingsReset ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
m ()
settingsReset _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
g_settings_reset _obj' key'
touchManagedPtr _obj
freeMem key'
return ()
-- method Settings::revert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_revert" g_settings_revert ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
IO ()
settingsRevert ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
m ()
settingsRevert _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_settings_revert _obj'
touchManagedPtr _obj
return ()
-- method Settings::set_boolean
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_boolean" g_settings_set_boolean ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
CInt -> -- value : TBasicType TBoolean
IO CInt
settingsSetBoolean ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
Bool -> -- value
m Bool
settingsSetBoolean _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = (fromIntegral . fromEnum) value
result <- g_settings_set_boolean _obj' key' value'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::set_double
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_double" g_settings_set_double ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
CDouble -> -- value : TBasicType TDouble
IO CInt
settingsSetDouble ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
Double -> -- value
m Bool
settingsSetDouble _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = realToFrac value
result <- g_settings_set_double _obj' key' value'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::set_enum
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_enum" g_settings_set_enum ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Int32 -> -- value : TBasicType TInt32
IO CInt
settingsSetEnum ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
Int32 -> -- value
m Bool
settingsSetEnum _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_set_enum _obj' key' value
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::set_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_flags" g_settings_set_flags ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Word32 -> -- value : TBasicType TUInt32
IO CInt
settingsSetFlags ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
Word32 -> -- value
m Bool
settingsSetFlags _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_set_flags _obj' key' value
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::set_int
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_int" g_settings_set_int ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Int32 -> -- value : TBasicType TInt32
IO CInt
settingsSetInt ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
Int32 -> -- value
m Bool
settingsSetInt _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_set_int _obj' key' value
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::set_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_string" g_settings_set_string ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
IO CInt
settingsSetString ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
T.Text -> -- value
m Bool
settingsSetString _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
value' <- textToCString value
result <- g_settings_set_string _obj' key' value'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
freeMem value'
return result'
-- method Settings::set_strv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_strv" g_settings_set_strv ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Ptr CString -> -- value : TCArray True (-1) (-1) (TBasicType TUTF8)
IO CInt
settingsSetStrv ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
Maybe ([T.Text]) -> -- value
m Bool
settingsSetStrv _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
maybeValue <- case value of
Nothing -> return nullPtr
Just jValue -> do
jValue' <- packZeroTerminatedUTF8CArray jValue
return jValue'
result <- g_settings_set_strv _obj' key' maybeValue
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
mapZeroTerminatedCArray freeMem maybeValue
freeMem maybeValue
return result'
-- method Settings::set_uint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_uint" g_settings_set_uint ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Word32 -> -- value : TBasicType TUInt32
IO CInt
settingsSetUint ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
Word32 -> -- value
m Bool
settingsSetUint _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- g_settings_set_uint _obj' key' value
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_set_value" g_settings_set_value ::
Ptr Settings -> -- _obj : TInterface "Gio" "Settings"
CString -> -- key : TBasicType TUTF8
Ptr GVariant -> -- value : TVariant
IO CInt
settingsSetValue ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- key
GVariant -> -- value
m Bool
settingsSetValue _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = unsafeManagedPtrGetPtr value
result <- g_settings_set_value _obj' key' value'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method Settings::list_relocatable_schemas
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_list_relocatable_schemas" g_settings_list_relocatable_schemas ::
IO (Ptr CString)
{-# DEPRECATED settingsListRelocatableSchemas ["(Since version 2.40)","Use g_settings_schema_source_list_schemas() instead"]#-}
settingsListRelocatableSchemas ::
(MonadIO m) =>
m [T.Text]
settingsListRelocatableSchemas = liftIO $ do
result <- g_settings_list_relocatable_schemas
checkUnexpectedReturnNULL "g_settings_list_relocatable_schemas" result
result' <- unpackZeroTerminatedUTF8CArray result
return result'
-- method Settings::list_schemas
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_list_schemas" g_settings_list_schemas ::
IO (Ptr CString)
{-# DEPRECATED settingsListSchemas ["(Since version 2.40)","Use g_settings_schema_source_list_schemas() instead.","If you used g_settings_list_schemas() to check for the presence of","a particular schema, use g_settings_schema_source_lookup() instead","of your whole loop."]#-}
settingsListSchemas ::
(MonadIO m) =>
m [T.Text]
settingsListSchemas = liftIO $ do
result <- g_settings_list_schemas
checkUnexpectedReturnNULL "g_settings_list_schemas" result
result' <- unpackZeroTerminatedUTF8CArray result
return result'
-- method Settings::sync
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_sync" g_settings_sync ::
IO ()
settingsSync ::
(MonadIO m) =>
m ()
settingsSync = liftIO $ do
g_settings_sync
return ()
-- method Settings::unbind
-- method type : MemberFunction
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_settings_unbind" g_settings_unbind ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
CString -> -- property : TBasicType TUTF8
IO ()
settingsUnbind ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
T.Text -> -- property
m ()
settingsUnbind object property = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
property' <- textToCString property
g_settings_unbind object' property'
touchManagedPtr object
freeMem property'
return ()