module GI.Gio.Objects.MountOperation
(
MountOperation(..) ,
IsMountOperation ,
toMountOperation ,
noMountOperation ,
MountOperationGetAnonymousMethodInfo ,
mountOperationGetAnonymous ,
MountOperationGetChoiceMethodInfo ,
mountOperationGetChoice ,
MountOperationGetDomainMethodInfo ,
mountOperationGetDomain ,
MountOperationGetPasswordMethodInfo ,
mountOperationGetPassword ,
MountOperationGetPasswordSaveMethodInfo ,
mountOperationGetPasswordSave ,
MountOperationGetUsernameMethodInfo ,
mountOperationGetUsername ,
mountOperationNew ,
MountOperationReplyMethodInfo ,
mountOperationReply ,
MountOperationSetAnonymousMethodInfo ,
mountOperationSetAnonymous ,
MountOperationSetChoiceMethodInfo ,
mountOperationSetChoice ,
MountOperationSetDomainMethodInfo ,
mountOperationSetDomain ,
MountOperationSetPasswordMethodInfo ,
mountOperationSetPassword ,
MountOperationSetPasswordSaveMethodInfo ,
mountOperationSetPasswordSave ,
MountOperationSetUsernameMethodInfo ,
mountOperationSetUsername ,
MountOperationAnonymousPropertyInfo ,
constructMountOperationAnonymous ,
getMountOperationAnonymous ,
mountOperationAnonymous ,
setMountOperationAnonymous ,
MountOperationChoicePropertyInfo ,
constructMountOperationChoice ,
getMountOperationChoice ,
mountOperationChoice ,
setMountOperationChoice ,
MountOperationDomainPropertyInfo ,
constructMountOperationDomain ,
getMountOperationDomain ,
mountOperationDomain ,
setMountOperationDomain ,
MountOperationPasswordPropertyInfo ,
constructMountOperationPassword ,
getMountOperationPassword ,
mountOperationPassword ,
setMountOperationPassword ,
MountOperationPasswordSavePropertyInfo ,
constructMountOperationPasswordSave ,
getMountOperationPasswordSave ,
mountOperationPasswordSave ,
setMountOperationPasswordSave ,
MountOperationUsernamePropertyInfo ,
constructMountOperationUsername ,
getMountOperationUsername ,
mountOperationUsername ,
setMountOperationUsername ,
C_MountOperationAbortedCallback ,
MountOperationAbortedCallback ,
MountOperationAbortedSignalInfo ,
afterMountOperationAborted ,
genClosure_MountOperationAborted ,
mk_MountOperationAbortedCallback ,
noMountOperationAbortedCallback ,
onMountOperationAborted ,
wrap_MountOperationAbortedCallback ,
C_MountOperationAskPasswordCallback ,
MountOperationAskPasswordCallback ,
MountOperationAskPasswordSignalInfo ,
afterMountOperationAskPassword ,
genClosure_MountOperationAskPassword ,
mk_MountOperationAskPasswordCallback ,
noMountOperationAskPasswordCallback ,
onMountOperationAskPassword ,
wrap_MountOperationAskPasswordCallback ,
C_MountOperationAskQuestionCallback ,
MountOperationAskQuestionCallback ,
MountOperationAskQuestionSignalInfo ,
afterMountOperationAskQuestion ,
genClosure_MountOperationAskQuestion ,
mk_MountOperationAskQuestionCallback ,
noMountOperationAskQuestionCallback ,
onMountOperationAskQuestion ,
wrap_MountOperationAskQuestionCallback ,
C_MountOperationReplyCallback ,
MountOperationReplyCallback ,
MountOperationReplySignalInfo ,
afterMountOperationReply ,
genClosure_MountOperationReply ,
mk_MountOperationReplyCallback ,
noMountOperationReplyCallback ,
onMountOperationReply ,
wrap_MountOperationReplyCallback ,
C_MountOperationShowProcessesCallback ,
MountOperationShowProcessesCallback ,
MountOperationShowProcessesSignalInfo ,
afterMountOperationShowProcesses ,
genClosure_MountOperationShowProcesses ,
mk_MountOperationShowProcessesCallback ,
noMountOperationShowProcessesCallback ,
onMountOperationShowProcesses ,
wrap_MountOperationShowProcessesCallback,
C_MountOperationShowUnmountProgressCallback,
MountOperationShowUnmountProgressCallback,
MountOperationShowUnmountProgressSignalInfo,
afterMountOperationShowUnmountProgress ,
genClosure_MountOperationShowUnmountProgress,
mk_MountOperationShowUnmountProgressCallback,
noMountOperationShowUnmountProgressCallback,
onMountOperationShowUnmountProgress ,
wrap_MountOperationShowUnmountProgressCallback,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Enums as Gio.Enums
import qualified GI.Gio.Flags as Gio.Flags
newtype MountOperation = MountOperation (ManagedPtr MountOperation)
foreign import ccall "g_mount_operation_get_type"
c_g_mount_operation_get_type :: IO GType
instance GObject MountOperation where
gobjectType _ = c_g_mount_operation_get_type
class GObject o => IsMountOperation o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError MountOperation a) =>
IsMountOperation a
#endif
instance IsMountOperation MountOperation
instance GObject.Object.IsObject MountOperation
toMountOperation :: IsMountOperation o => o -> IO MountOperation
toMountOperation = unsafeCastTo MountOperation
noMountOperation :: Maybe MountOperation
noMountOperation = Nothing
type family ResolveMountOperationMethod (t :: Symbol) (o :: *) :: * where
ResolveMountOperationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMountOperationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMountOperationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMountOperationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMountOperationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMountOperationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMountOperationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMountOperationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMountOperationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMountOperationMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveMountOperationMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveMountOperationMethod "reply" o = MountOperationReplyMethodInfo
ResolveMountOperationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMountOperationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMountOperationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMountOperationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMountOperationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMountOperationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMountOperationMethod "getAnonymous" o = MountOperationGetAnonymousMethodInfo
ResolveMountOperationMethod "getChoice" o = MountOperationGetChoiceMethodInfo
ResolveMountOperationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMountOperationMethod "getDomain" o = MountOperationGetDomainMethodInfo
ResolveMountOperationMethod "getPassword" o = MountOperationGetPasswordMethodInfo
ResolveMountOperationMethod "getPasswordSave" o = MountOperationGetPasswordSaveMethodInfo
ResolveMountOperationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMountOperationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMountOperationMethod "getUsername" o = MountOperationGetUsernameMethodInfo
ResolveMountOperationMethod "setAnonymous" o = MountOperationSetAnonymousMethodInfo
ResolveMountOperationMethod "setChoice" o = MountOperationSetChoiceMethodInfo
ResolveMountOperationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMountOperationMethod "setDomain" o = MountOperationSetDomainMethodInfo
ResolveMountOperationMethod "setPassword" o = MountOperationSetPasswordMethodInfo
ResolveMountOperationMethod "setPasswordSave" o = MountOperationSetPasswordSaveMethodInfo
ResolveMountOperationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMountOperationMethod "setUsername" o = MountOperationSetUsernameMethodInfo
ResolveMountOperationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMountOperationMethod t MountOperation, O.MethodInfo info MountOperation p) => O.IsLabelProxy t (MountOperation -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveMountOperationMethod t MountOperation, O.MethodInfo info MountOperation p) => O.IsLabel t (MountOperation -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type MountOperationAbortedCallback =
IO ()
noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback
noMountOperationAbortedCallback = Nothing
type C_MountOperationAbortedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAbortedCallback :: C_MountOperationAbortedCallback -> IO (FunPtr C_MountOperationAbortedCallback)
genClosure_MountOperationAborted :: MountOperationAbortedCallback -> IO Closure
genClosure_MountOperationAborted cb = do
let cb' = wrap_MountOperationAbortedCallback cb
mk_MountOperationAbortedCallback cb' >>= newCClosure
wrap_MountOperationAbortedCallback ::
MountOperationAbortedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_MountOperationAbortedCallback _cb _ _ = do
_cb
onMountOperationAborted :: (GObject a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId
onMountOperationAborted obj cb = liftIO $ connectMountOperationAborted obj cb SignalConnectBefore
afterMountOperationAborted :: (GObject a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId
afterMountOperationAborted obj cb = connectMountOperationAborted obj cb SignalConnectAfter
connectMountOperationAborted :: (GObject a, MonadIO m) =>
a -> MountOperationAbortedCallback -> SignalConnectMode -> m SignalHandlerId
connectMountOperationAborted obj cb after = liftIO $ do
let cb' = wrap_MountOperationAbortedCallback cb
cb'' <- mk_MountOperationAbortedCallback cb'
connectSignalFunPtr obj "aborted" cb'' after
type MountOperationAskPasswordCallback =
T.Text ->
T.Text ->
T.Text ->
[Gio.Flags.AskPasswordFlags] ->
IO ()
noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback
noMountOperationAskPasswordCallback = Nothing
type C_MountOperationAskPasswordCallback =
Ptr () ->
CString ->
CString ->
CString ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAskPasswordCallback :: C_MountOperationAskPasswordCallback -> IO (FunPtr C_MountOperationAskPasswordCallback)
genClosure_MountOperationAskPassword :: MountOperationAskPasswordCallback -> IO Closure
genClosure_MountOperationAskPassword cb = do
let cb' = wrap_MountOperationAskPasswordCallback cb
mk_MountOperationAskPasswordCallback cb' >>= newCClosure
wrap_MountOperationAskPasswordCallback ::
MountOperationAskPasswordCallback ->
Ptr () ->
CString ->
CString ->
CString ->
CUInt ->
Ptr () ->
IO ()
wrap_MountOperationAskPasswordCallback _cb _ message defaultUser defaultDomain flags _ = do
message' <- cstringToText message
defaultUser' <- cstringToText defaultUser
defaultDomain' <- cstringToText defaultDomain
let flags' = wordToGFlags flags
_cb message' defaultUser' defaultDomain' flags'
onMountOperationAskPassword :: (GObject a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId
onMountOperationAskPassword obj cb = liftIO $ connectMountOperationAskPassword obj cb SignalConnectBefore
afterMountOperationAskPassword :: (GObject a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId
afterMountOperationAskPassword obj cb = connectMountOperationAskPassword obj cb SignalConnectAfter
connectMountOperationAskPassword :: (GObject a, MonadIO m) =>
a -> MountOperationAskPasswordCallback -> SignalConnectMode -> m SignalHandlerId
connectMountOperationAskPassword obj cb after = liftIO $ do
let cb' = wrap_MountOperationAskPasswordCallback cb
cb'' <- mk_MountOperationAskPasswordCallback cb'
connectSignalFunPtr obj "ask-password" cb'' after
type MountOperationAskQuestionCallback =
T.Text ->
[T.Text] ->
IO ()
noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback
noMountOperationAskQuestionCallback = Nothing
type C_MountOperationAskQuestionCallback =
Ptr () ->
CString ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAskQuestionCallback :: C_MountOperationAskQuestionCallback -> IO (FunPtr C_MountOperationAskQuestionCallback)
genClosure_MountOperationAskQuestion :: MountOperationAskQuestionCallback -> IO Closure
genClosure_MountOperationAskQuestion cb = do
let cb' = wrap_MountOperationAskQuestionCallback cb
mk_MountOperationAskQuestionCallback cb' >>= newCClosure
wrap_MountOperationAskQuestionCallback ::
MountOperationAskQuestionCallback ->
Ptr () ->
CString ->
Ptr CString ->
Ptr () ->
IO ()
wrap_MountOperationAskQuestionCallback _cb _ message choices _ = do
message' <- cstringToText message
choices' <- unpackZeroTerminatedUTF8CArray choices
_cb message' choices'
onMountOperationAskQuestion :: (GObject a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId
onMountOperationAskQuestion obj cb = liftIO $ connectMountOperationAskQuestion obj cb SignalConnectBefore
afterMountOperationAskQuestion :: (GObject a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId
afterMountOperationAskQuestion obj cb = connectMountOperationAskQuestion obj cb SignalConnectAfter
connectMountOperationAskQuestion :: (GObject a, MonadIO m) =>
a -> MountOperationAskQuestionCallback -> SignalConnectMode -> m SignalHandlerId
connectMountOperationAskQuestion obj cb after = liftIO $ do
let cb' = wrap_MountOperationAskQuestionCallback cb
cb'' <- mk_MountOperationAskQuestionCallback cb'
connectSignalFunPtr obj "ask-question" cb'' after
type MountOperationReplyCallback =
Gio.Enums.MountOperationResult ->
IO ()
noMountOperationReplyCallback :: Maybe MountOperationReplyCallback
noMountOperationReplyCallback = Nothing
type C_MountOperationReplyCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationReplyCallback :: C_MountOperationReplyCallback -> IO (FunPtr C_MountOperationReplyCallback)
genClosure_MountOperationReply :: MountOperationReplyCallback -> IO Closure
genClosure_MountOperationReply cb = do
let cb' = wrap_MountOperationReplyCallback cb
mk_MountOperationReplyCallback cb' >>= newCClosure
wrap_MountOperationReplyCallback ::
MountOperationReplyCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
wrap_MountOperationReplyCallback _cb _ result_ _ = do
let result_' = (toEnum . fromIntegral) result_
_cb result_'
onMountOperationReply :: (GObject a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId
onMountOperationReply obj cb = liftIO $ connectMountOperationReply obj cb SignalConnectBefore
afterMountOperationReply :: (GObject a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId
afterMountOperationReply obj cb = connectMountOperationReply obj cb SignalConnectAfter
connectMountOperationReply :: (GObject a, MonadIO m) =>
a -> MountOperationReplyCallback -> SignalConnectMode -> m SignalHandlerId
connectMountOperationReply obj cb after = liftIO $ do
let cb' = wrap_MountOperationReplyCallback cb
cb'' <- mk_MountOperationReplyCallback cb'
connectSignalFunPtr obj "reply" cb'' after
type MountOperationShowProcessesCallback =
T.Text ->
[Int32] ->
[T.Text] ->
IO ()
noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback
noMountOperationShowProcessesCallback = Nothing
type C_MountOperationShowProcessesCallback =
Ptr () ->
CString ->
Ptr (GArray Int32) ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationShowProcessesCallback :: C_MountOperationShowProcessesCallback -> IO (FunPtr C_MountOperationShowProcessesCallback)
genClosure_MountOperationShowProcesses :: MountOperationShowProcessesCallback -> IO Closure
genClosure_MountOperationShowProcesses cb = do
let cb' = wrap_MountOperationShowProcessesCallback cb
mk_MountOperationShowProcessesCallback cb' >>= newCClosure
wrap_MountOperationShowProcessesCallback ::
MountOperationShowProcessesCallback ->
Ptr () ->
CString ->
Ptr (GArray Int32) ->
Ptr CString ->
Ptr () ->
IO ()
wrap_MountOperationShowProcessesCallback _cb _ message processes choices _ = do
message' <- cstringToText message
processes' <- unpackGArray processes
choices' <- unpackZeroTerminatedUTF8CArray choices
_cb message' processes' choices'
onMountOperationShowProcesses :: (GObject a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId
onMountOperationShowProcesses obj cb = liftIO $ connectMountOperationShowProcesses obj cb SignalConnectBefore
afterMountOperationShowProcesses :: (GObject a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId
afterMountOperationShowProcesses obj cb = connectMountOperationShowProcesses obj cb SignalConnectAfter
connectMountOperationShowProcesses :: (GObject a, MonadIO m) =>
a -> MountOperationShowProcessesCallback -> SignalConnectMode -> m SignalHandlerId
connectMountOperationShowProcesses obj cb after = liftIO $ do
let cb' = wrap_MountOperationShowProcessesCallback cb
cb'' <- mk_MountOperationShowProcessesCallback cb'
connectSignalFunPtr obj "show-processes" cb'' after
type MountOperationShowUnmountProgressCallback =
T.Text ->
Int64 ->
Int64 ->
IO ()
noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback
noMountOperationShowUnmountProgressCallback = Nothing
type C_MountOperationShowUnmountProgressCallback =
Ptr () ->
CString ->
Int64 ->
Int64 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationShowUnmountProgressCallback :: C_MountOperationShowUnmountProgressCallback -> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
genClosure_MountOperationShowUnmountProgress :: MountOperationShowUnmountProgressCallback -> IO Closure
genClosure_MountOperationShowUnmountProgress cb = do
let cb' = wrap_MountOperationShowUnmountProgressCallback cb
mk_MountOperationShowUnmountProgressCallback cb' >>= newCClosure
wrap_MountOperationShowUnmountProgressCallback ::
MountOperationShowUnmountProgressCallback ->
Ptr () ->
CString ->
Int64 ->
Int64 ->
Ptr () ->
IO ()
wrap_MountOperationShowUnmountProgressCallback _cb _ message timeLeft bytesLeft _ = do
message' <- cstringToText message
_cb message' timeLeft bytesLeft
onMountOperationShowUnmountProgress :: (GObject a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId
onMountOperationShowUnmountProgress obj cb = liftIO $ connectMountOperationShowUnmountProgress obj cb SignalConnectBefore
afterMountOperationShowUnmountProgress :: (GObject a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId
afterMountOperationShowUnmountProgress obj cb = connectMountOperationShowUnmountProgress obj cb SignalConnectAfter
connectMountOperationShowUnmountProgress :: (GObject a, MonadIO m) =>
a -> MountOperationShowUnmountProgressCallback -> SignalConnectMode -> m SignalHandlerId
connectMountOperationShowUnmountProgress obj cb after = liftIO $ do
let cb' = wrap_MountOperationShowUnmountProgressCallback cb
cb'' <- mk_MountOperationShowUnmountProgressCallback cb'
connectSignalFunPtr obj "show-unmount-progress" cb'' after
getMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationAnonymous obj = liftIO $ getObjectPropertyBool obj "anonymous"
setMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationAnonymous obj val = liftIO $ setObjectPropertyBool obj "anonymous" val
constructMountOperationAnonymous :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)
constructMountOperationAnonymous val = constructObjectPropertyBool "anonymous" val
data MountOperationAnonymousPropertyInfo
instance AttrInfo MountOperationAnonymousPropertyInfo where
type AttrAllowedOps MountOperationAnonymousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool
type AttrBaseTypeConstraint MountOperationAnonymousPropertyInfo = IsMountOperation
type AttrGetType MountOperationAnonymousPropertyInfo = Bool
type AttrLabel MountOperationAnonymousPropertyInfo = "anonymous"
type AttrOrigin MountOperationAnonymousPropertyInfo = MountOperation
attrGet _ = getMountOperationAnonymous
attrSet _ = setMountOperationAnonymous
attrConstruct _ = constructMountOperationAnonymous
attrClear _ = undefined
getMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> m Int32
getMountOperationChoice obj = liftIO $ getObjectPropertyInt32 obj "choice"
setMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> Int32 -> m ()
setMountOperationChoice obj val = liftIO $ setObjectPropertyInt32 obj "choice" val
constructMountOperationChoice :: (IsMountOperation o) => Int32 -> IO (GValueConstruct o)
constructMountOperationChoice val = constructObjectPropertyInt32 "choice" val
data MountOperationChoicePropertyInfo
instance AttrInfo MountOperationChoicePropertyInfo where
type AttrAllowedOps MountOperationChoicePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationChoicePropertyInfo = (~) Int32
type AttrBaseTypeConstraint MountOperationChoicePropertyInfo = IsMountOperation
type AttrGetType MountOperationChoicePropertyInfo = Int32
type AttrLabel MountOperationChoicePropertyInfo = "choice"
type AttrOrigin MountOperationChoicePropertyInfo = MountOperation
attrGet _ = getMountOperationChoice
attrSet _ = setMountOperationChoice
attrConstruct _ = constructMountOperationChoice
attrClear _ = undefined
getMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationDomain obj = liftIO $ checkUnexpectedNothing "getMountOperationDomain" $ getObjectPropertyString obj "domain"
setMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationDomain obj val = liftIO $ setObjectPropertyString obj "domain" (Just val)
constructMountOperationDomain :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationDomain val = constructObjectPropertyString "domain" (Just val)
data MountOperationDomainPropertyInfo
instance AttrInfo MountOperationDomainPropertyInfo where
type AttrAllowedOps MountOperationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = IsMountOperation
type AttrGetType MountOperationDomainPropertyInfo = T.Text
type AttrLabel MountOperationDomainPropertyInfo = "domain"
type AttrOrigin MountOperationDomainPropertyInfo = MountOperation
attrGet _ = getMountOperationDomain
attrSet _ = setMountOperationDomain
attrConstruct _ = constructMountOperationDomain
attrClear _ = undefined
getMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationPassword obj = liftIO $ checkUnexpectedNothing "getMountOperationPassword" $ getObjectPropertyString obj "password"
setMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationPassword obj val = liftIO $ setObjectPropertyString obj "password" (Just val)
constructMountOperationPassword :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationPassword val = constructObjectPropertyString "password" (Just val)
data MountOperationPasswordPropertyInfo
instance AttrInfo MountOperationPasswordPropertyInfo where
type AttrAllowedOps MountOperationPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = IsMountOperation
type AttrGetType MountOperationPasswordPropertyInfo = T.Text
type AttrLabel MountOperationPasswordPropertyInfo = "password"
type AttrOrigin MountOperationPasswordPropertyInfo = MountOperation
attrGet _ = getMountOperationPassword
attrSet _ = setMountOperationPassword
attrConstruct _ = constructMountOperationPassword
attrClear _ = undefined
getMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> m Gio.Enums.PasswordSave
getMountOperationPasswordSave obj = liftIO $ getObjectPropertyEnum obj "password-save"
setMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> Gio.Enums.PasswordSave -> m ()
setMountOperationPasswordSave obj val = liftIO $ setObjectPropertyEnum obj "password-save" val
constructMountOperationPasswordSave :: (IsMountOperation o) => Gio.Enums.PasswordSave -> IO (GValueConstruct o)
constructMountOperationPasswordSave val = constructObjectPropertyEnum "password-save" val
data MountOperationPasswordSavePropertyInfo
instance AttrInfo MountOperationPasswordSavePropertyInfo where
type AttrAllowedOps MountOperationPasswordSavePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationPasswordSavePropertyInfo = (~) Gio.Enums.PasswordSave
type AttrBaseTypeConstraint MountOperationPasswordSavePropertyInfo = IsMountOperation
type AttrGetType MountOperationPasswordSavePropertyInfo = Gio.Enums.PasswordSave
type AttrLabel MountOperationPasswordSavePropertyInfo = "password-save"
type AttrOrigin MountOperationPasswordSavePropertyInfo = MountOperation
attrGet _ = getMountOperationPasswordSave
attrSet _ = setMountOperationPasswordSave
attrConstruct _ = constructMountOperationPasswordSave
attrClear _ = undefined
getMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationUsername obj = liftIO $ checkUnexpectedNothing "getMountOperationUsername" $ getObjectPropertyString obj "username"
setMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationUsername obj val = liftIO $ setObjectPropertyString obj "username" (Just val)
constructMountOperationUsername :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationUsername val = constructObjectPropertyString "username" (Just val)
data MountOperationUsernamePropertyInfo
instance AttrInfo MountOperationUsernamePropertyInfo where
type AttrAllowedOps MountOperationUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = IsMountOperation
type AttrGetType MountOperationUsernamePropertyInfo = T.Text
type AttrLabel MountOperationUsernamePropertyInfo = "username"
type AttrOrigin MountOperationUsernamePropertyInfo = MountOperation
attrGet _ = getMountOperationUsername
attrSet _ = setMountOperationUsername
attrConstruct _ = constructMountOperationUsername
attrClear _ = undefined
instance O.HasAttributeList MountOperation
type instance O.AttributeList MountOperation = MountOperationAttributeList
type MountOperationAttributeList = ('[ '("anonymous", MountOperationAnonymousPropertyInfo), '("choice", MountOperationChoicePropertyInfo), '("domain", MountOperationDomainPropertyInfo), '("password", MountOperationPasswordPropertyInfo), '("passwordSave", MountOperationPasswordSavePropertyInfo), '("username", MountOperationUsernamePropertyInfo)] :: [(Symbol, *)])
mountOperationAnonymous :: AttrLabelProxy "anonymous"
mountOperationAnonymous = AttrLabelProxy
mountOperationChoice :: AttrLabelProxy "choice"
mountOperationChoice = AttrLabelProxy
mountOperationDomain :: AttrLabelProxy "domain"
mountOperationDomain = AttrLabelProxy
mountOperationPassword :: AttrLabelProxy "password"
mountOperationPassword = AttrLabelProxy
mountOperationPasswordSave :: AttrLabelProxy "passwordSave"
mountOperationPasswordSave = AttrLabelProxy
mountOperationUsername :: AttrLabelProxy "username"
mountOperationUsername = AttrLabelProxy
data MountOperationAbortedSignalInfo
instance SignalInfo MountOperationAbortedSignalInfo where
type HaskellCallbackType MountOperationAbortedSignalInfo = MountOperationAbortedCallback
connectSignal _ = connectMountOperationAborted
data MountOperationAskPasswordSignalInfo
instance SignalInfo MountOperationAskPasswordSignalInfo where
type HaskellCallbackType MountOperationAskPasswordSignalInfo = MountOperationAskPasswordCallback
connectSignal _ = connectMountOperationAskPassword
data MountOperationAskQuestionSignalInfo
instance SignalInfo MountOperationAskQuestionSignalInfo where
type HaskellCallbackType MountOperationAskQuestionSignalInfo = MountOperationAskQuestionCallback
connectSignal _ = connectMountOperationAskQuestion
data MountOperationReplySignalInfo
instance SignalInfo MountOperationReplySignalInfo where
type HaskellCallbackType MountOperationReplySignalInfo = MountOperationReplyCallback
connectSignal _ = connectMountOperationReply
data MountOperationShowProcessesSignalInfo
instance SignalInfo MountOperationShowProcessesSignalInfo where
type HaskellCallbackType MountOperationShowProcessesSignalInfo = MountOperationShowProcessesCallback
connectSignal _ = connectMountOperationShowProcesses
data MountOperationShowUnmountProgressSignalInfo
instance SignalInfo MountOperationShowUnmountProgressSignalInfo where
type HaskellCallbackType MountOperationShowUnmountProgressSignalInfo = MountOperationShowUnmountProgressCallback
connectSignal _ = connectMountOperationShowUnmountProgress
type instance O.SignalList MountOperation = MountOperationSignalList
type MountOperationSignalList = ('[ '("aborted", MountOperationAbortedSignalInfo), '("askPassword", MountOperationAskPasswordSignalInfo), '("askQuestion", MountOperationAskQuestionSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("reply", MountOperationReplySignalInfo), '("showProcesses", MountOperationShowProcessesSignalInfo), '("showUnmountProgress", MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_mount_operation_new" g_mount_operation_new ::
IO (Ptr MountOperation)
mountOperationNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m MountOperation
mountOperationNew = liftIO $ do
result <- g_mount_operation_new
checkUnexpectedReturnNULL "mountOperationNew" result
result' <- (wrapObject MountOperation) result
return result'
foreign import ccall "g_mount_operation_get_anonymous" g_mount_operation_get_anonymous ::
Ptr MountOperation ->
IO CInt
mountOperationGetAnonymous ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Bool
mountOperationGetAnonymous op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_anonymous op'
let result' = (/= 0) result
touchManagedPtr op
return result'
data MountOperationGetAnonymousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetAnonymousMethodInfo a signature where
overloadedMethod _ = mountOperationGetAnonymous
foreign import ccall "g_mount_operation_get_choice" g_mount_operation_get_choice ::
Ptr MountOperation ->
IO Int32
mountOperationGetChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Int32
mountOperationGetChoice op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_choice op'
touchManagedPtr op
return result
data MountOperationGetChoiceMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetChoiceMethodInfo a signature where
overloadedMethod _ = mountOperationGetChoice
foreign import ccall "g_mount_operation_get_domain" g_mount_operation_get_domain ::
Ptr MountOperation ->
IO CString
mountOperationGetDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m T.Text
mountOperationGetDomain op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_domain op'
checkUnexpectedReturnNULL "mountOperationGetDomain" result
result' <- cstringToText result
touchManagedPtr op
return result'
data MountOperationGetDomainMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetDomainMethodInfo a signature where
overloadedMethod _ = mountOperationGetDomain
foreign import ccall "g_mount_operation_get_password" g_mount_operation_get_password ::
Ptr MountOperation ->
IO CString
mountOperationGetPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m T.Text
mountOperationGetPassword op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_password op'
checkUnexpectedReturnNULL "mountOperationGetPassword" result
result' <- cstringToText result
touchManagedPtr op
return result'
data MountOperationGetPasswordMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetPasswordMethodInfo a signature where
overloadedMethod _ = mountOperationGetPassword
foreign import ccall "g_mount_operation_get_password_save" g_mount_operation_get_password_save ::
Ptr MountOperation ->
IO CUInt
mountOperationGetPasswordSave ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Gio.Enums.PasswordSave
mountOperationGetPasswordSave op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_password_save op'
let result' = (toEnum . fromIntegral) result
touchManagedPtr op
return result'
data MountOperationGetPasswordSaveMethodInfo
instance (signature ~ (m Gio.Enums.PasswordSave), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetPasswordSaveMethodInfo a signature where
overloadedMethod _ = mountOperationGetPasswordSave
foreign import ccall "g_mount_operation_get_username" g_mount_operation_get_username ::
Ptr MountOperation ->
IO CString
mountOperationGetUsername ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m T.Text
mountOperationGetUsername op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_username op'
checkUnexpectedReturnNULL "mountOperationGetUsername" result
result' <- cstringToText result
touchManagedPtr op
return result'
data MountOperationGetUsernameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetUsernameMethodInfo a signature where
overloadedMethod _ = mountOperationGetUsername
foreign import ccall "g_mount_operation_reply" g_mount_operation_reply ::
Ptr MountOperation ->
CUInt ->
IO ()
mountOperationReply ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Gio.Enums.MountOperationResult
-> m ()
mountOperationReply op result_ = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
let result_' = (fromIntegral . fromEnum) result_
g_mount_operation_reply op' result_'
touchManagedPtr op
return ()
data MountOperationReplyMethodInfo
instance (signature ~ (Gio.Enums.MountOperationResult -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationReplyMethodInfo a signature where
overloadedMethod _ = mountOperationReply
foreign import ccall "g_mount_operation_set_anonymous" g_mount_operation_set_anonymous ::
Ptr MountOperation ->
CInt ->
IO ()
mountOperationSetAnonymous ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Bool
-> m ()
mountOperationSetAnonymous op anonymous = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
let anonymous' = (fromIntegral . fromEnum) anonymous
g_mount_operation_set_anonymous op' anonymous'
touchManagedPtr op
return ()
data MountOperationSetAnonymousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetAnonymousMethodInfo a signature where
overloadedMethod _ = mountOperationSetAnonymous
foreign import ccall "g_mount_operation_set_choice" g_mount_operation_set_choice ::
Ptr MountOperation ->
Int32 ->
IO ()
mountOperationSetChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Int32
-> m ()
mountOperationSetChoice op choice = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
g_mount_operation_set_choice op' choice
touchManagedPtr op
return ()
data MountOperationSetChoiceMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetChoiceMethodInfo a signature where
overloadedMethod _ = mountOperationSetChoice
foreign import ccall "g_mount_operation_set_domain" g_mount_operation_set_domain ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> T.Text
-> m ()
mountOperationSetDomain op domain = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
domain' <- textToCString domain
g_mount_operation_set_domain op' domain'
touchManagedPtr op
freeMem domain'
return ()
data MountOperationSetDomainMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetDomainMethodInfo a signature where
overloadedMethod _ = mountOperationSetDomain
foreign import ccall "g_mount_operation_set_password" g_mount_operation_set_password ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> T.Text
-> m ()
mountOperationSetPassword op password = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
password' <- textToCString password
g_mount_operation_set_password op' password'
touchManagedPtr op
freeMem password'
return ()
data MountOperationSetPasswordMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetPasswordMethodInfo a signature where
overloadedMethod _ = mountOperationSetPassword
foreign import ccall "g_mount_operation_set_password_save" g_mount_operation_set_password_save ::
Ptr MountOperation ->
CUInt ->
IO ()
mountOperationSetPasswordSave ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Gio.Enums.PasswordSave
-> m ()
mountOperationSetPasswordSave op save = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
let save' = (fromIntegral . fromEnum) save
g_mount_operation_set_password_save op' save'
touchManagedPtr op
return ()
data MountOperationSetPasswordSaveMethodInfo
instance (signature ~ (Gio.Enums.PasswordSave -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetPasswordSaveMethodInfo a signature where
overloadedMethod _ = mountOperationSetPasswordSave
foreign import ccall "g_mount_operation_set_username" g_mount_operation_set_username ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetUsername ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> T.Text
-> m ()
mountOperationSetUsername op username = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
username' <- textToCString username
g_mount_operation_set_username op' username'
touchManagedPtr op
freeMem username'
return ()
data MountOperationSetUsernameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetUsernameMethodInfo a signature where
overloadedMethod _ = mountOperationSetUsername