module GI.Gio.Objects.MountOperation
(
MountOperation(..) ,
MountOperationK ,
toMountOperation ,
noMountOperation ,
mountOperationGetAnonymous ,
mountOperationGetChoice ,
mountOperationGetDomain ,
mountOperationGetPassword ,
mountOperationGetPasswordSave ,
mountOperationGetUsername ,
mountOperationNew ,
mountOperationReply ,
mountOperationSetAnonymous ,
mountOperationSetChoice ,
mountOperationSetDomain ,
mountOperationSetPassword ,
mountOperationSetPasswordSave ,
mountOperationSetUsername ,
MountOperationAnonymousPropertyInfo ,
constructMountOperationAnonymous ,
getMountOperationAnonymous ,
setMountOperationAnonymous ,
MountOperationChoicePropertyInfo ,
constructMountOperationChoice ,
getMountOperationChoice ,
setMountOperationChoice ,
MountOperationDomainPropertyInfo ,
constructMountOperationDomain ,
getMountOperationDomain ,
setMountOperationDomain ,
MountOperationPasswordPropertyInfo ,
constructMountOperationPassword ,
getMountOperationPassword ,
setMountOperationPassword ,
MountOperationPasswordSavePropertyInfo ,
constructMountOperationPasswordSave ,
getMountOperationPasswordSave ,
setMountOperationPasswordSave ,
MountOperationUsernamePropertyInfo ,
constructMountOperationUsername ,
getMountOperationUsername ,
setMountOperationUsername ,
MountOperationAbortedCallback ,
MountOperationAbortedCallbackC ,
MountOperationAbortedSignalInfo ,
afterMountOperationAborted ,
mkMountOperationAbortedCallback ,
mountOperationAbortedCallbackWrapper ,
mountOperationAbortedClosure ,
noMountOperationAbortedCallback ,
onMountOperationAborted ,
MountOperationAskPasswordCallback ,
MountOperationAskPasswordCallbackC ,
MountOperationAskPasswordSignalInfo ,
afterMountOperationAskPassword ,
mkMountOperationAskPasswordCallback ,
mountOperationAskPasswordCallbackWrapper,
mountOperationAskPasswordClosure ,
noMountOperationAskPasswordCallback ,
onMountOperationAskPassword ,
MountOperationAskQuestionCallback ,
MountOperationAskQuestionCallbackC ,
MountOperationAskQuestionSignalInfo ,
afterMountOperationAskQuestion ,
mkMountOperationAskQuestionCallback ,
mountOperationAskQuestionCallbackWrapper,
mountOperationAskQuestionClosure ,
noMountOperationAskQuestionCallback ,
onMountOperationAskQuestion ,
MountOperationReplyCallback ,
MountOperationReplyCallbackC ,
MountOperationReplySignalInfo ,
afterMountOperationReply ,
mkMountOperationReplyCallback ,
mountOperationReplyCallbackWrapper ,
mountOperationReplyClosure ,
noMountOperationReplyCallback ,
onMountOperationReply ,
MountOperationShowProcessesCallback ,
MountOperationShowProcessesCallbackC ,
MountOperationShowProcessesSignalInfo ,
afterMountOperationShowProcesses ,
mkMountOperationShowProcessesCallback ,
mountOperationShowProcessesCallbackWrapper,
mountOperationShowProcessesClosure ,
noMountOperationShowProcessesCallback ,
onMountOperationShowProcesses ,
MountOperationShowUnmountProgressCallback,
MountOperationShowUnmountProgressCallbackC,
MountOperationShowUnmountProgressSignalInfo,
afterMountOperationShowUnmountProgress ,
mkMountOperationShowUnmountProgressCallback,
mountOperationShowUnmountProgressCallbackWrapper,
mountOperationShowUnmountProgressClosure,
noMountOperationShowUnmountProgressCallback,
onMountOperationShowUnmountProgress ,
) 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 MountOperation = MountOperation (ForeignPtr MountOperation)
foreign import ccall "g_mount_operation_get_type"
c_g_mount_operation_get_type :: IO GType
type instance ParentTypes MountOperation = MountOperationParentTypes
type MountOperationParentTypes = '[GObject.Object]
instance GObject MountOperation where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_mount_operation_get_type
class GObject o => MountOperationK o
instance (GObject o, IsDescendantOf MountOperation o) => MountOperationK o
toMountOperation :: MountOperationK o => o -> IO MountOperation
toMountOperation = unsafeCastTo MountOperation
noMountOperation :: Maybe MountOperation
noMountOperation = Nothing
type MountOperationAbortedCallback =
IO ()
noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback
noMountOperationAbortedCallback = Nothing
type MountOperationAbortedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkMountOperationAbortedCallback :: MountOperationAbortedCallbackC -> IO (FunPtr MountOperationAbortedCallbackC)
mountOperationAbortedClosure :: MountOperationAbortedCallback -> IO Closure
mountOperationAbortedClosure cb = newCClosure =<< mkMountOperationAbortedCallback wrapped
where wrapped = mountOperationAbortedCallbackWrapper cb
mountOperationAbortedCallbackWrapper ::
MountOperationAbortedCallback ->
Ptr () ->
Ptr () ->
IO ()
mountOperationAbortedCallbackWrapper _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
cb' <- mkMountOperationAbortedCallback (mountOperationAbortedCallbackWrapper cb)
connectSignalFunPtr obj "aborted" cb' after
type MountOperationAskPasswordCallback =
T.Text ->
T.Text ->
T.Text ->
[AskPasswordFlags] ->
IO ()
noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback
noMountOperationAskPasswordCallback = Nothing
type MountOperationAskPasswordCallbackC =
Ptr () ->
CString ->
CString ->
CString ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkMountOperationAskPasswordCallback :: MountOperationAskPasswordCallbackC -> IO (FunPtr MountOperationAskPasswordCallbackC)
mountOperationAskPasswordClosure :: MountOperationAskPasswordCallback -> IO Closure
mountOperationAskPasswordClosure cb = newCClosure =<< mkMountOperationAskPasswordCallback wrapped
where wrapped = mountOperationAskPasswordCallbackWrapper cb
mountOperationAskPasswordCallbackWrapper ::
MountOperationAskPasswordCallback ->
Ptr () ->
CString ->
CString ->
CString ->
CUInt ->
Ptr () ->
IO ()
mountOperationAskPasswordCallbackWrapper _cb _ message default_user default_domain flags _ = do
message' <- cstringToText message
default_user' <- cstringToText default_user
default_domain' <- cstringToText default_domain
let flags' = wordToGFlags flags
_cb message' default_user' default_domain' 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
cb' <- mkMountOperationAskPasswordCallback (mountOperationAskPasswordCallbackWrapper cb)
connectSignalFunPtr obj "ask-password" cb' after
type MountOperationAskQuestionCallback =
T.Text ->
[T.Text] ->
IO ()
noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback
noMountOperationAskQuestionCallback = Nothing
type MountOperationAskQuestionCallbackC =
Ptr () ->
CString ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkMountOperationAskQuestionCallback :: MountOperationAskQuestionCallbackC -> IO (FunPtr MountOperationAskQuestionCallbackC)
mountOperationAskQuestionClosure :: MountOperationAskQuestionCallback -> IO Closure
mountOperationAskQuestionClosure cb = newCClosure =<< mkMountOperationAskQuestionCallback wrapped
where wrapped = mountOperationAskQuestionCallbackWrapper cb
mountOperationAskQuestionCallbackWrapper ::
MountOperationAskQuestionCallback ->
Ptr () ->
CString ->
Ptr CString ->
Ptr () ->
IO ()
mountOperationAskQuestionCallbackWrapper _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
cb' <- mkMountOperationAskQuestionCallback (mountOperationAskQuestionCallbackWrapper cb)
connectSignalFunPtr obj "ask-question" cb' after
type MountOperationReplyCallback =
MountOperationResult ->
IO ()
noMountOperationReplyCallback :: Maybe MountOperationReplyCallback
noMountOperationReplyCallback = Nothing
type MountOperationReplyCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkMountOperationReplyCallback :: MountOperationReplyCallbackC -> IO (FunPtr MountOperationReplyCallbackC)
mountOperationReplyClosure :: MountOperationReplyCallback -> IO Closure
mountOperationReplyClosure cb = newCClosure =<< mkMountOperationReplyCallback wrapped
where wrapped = mountOperationReplyCallbackWrapper cb
mountOperationReplyCallbackWrapper ::
MountOperationReplyCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
mountOperationReplyCallbackWrapper _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
cb' <- mkMountOperationReplyCallback (mountOperationReplyCallbackWrapper cb)
connectSignalFunPtr obj "reply" cb' after
type MountOperationShowProcessesCallback =
T.Text ->
[Int32] ->
[T.Text] ->
IO ()
noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback
noMountOperationShowProcessesCallback = Nothing
type MountOperationShowProcessesCallbackC =
Ptr () ->
CString ->
Ptr (GArray Int32) ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkMountOperationShowProcessesCallback :: MountOperationShowProcessesCallbackC -> IO (FunPtr MountOperationShowProcessesCallbackC)
mountOperationShowProcessesClosure :: MountOperationShowProcessesCallback -> IO Closure
mountOperationShowProcessesClosure cb = newCClosure =<< mkMountOperationShowProcessesCallback wrapped
where wrapped = mountOperationShowProcessesCallbackWrapper cb
mountOperationShowProcessesCallbackWrapper ::
MountOperationShowProcessesCallback ->
Ptr () ->
CString ->
Ptr (GArray Int32) ->
Ptr CString ->
Ptr () ->
IO ()
mountOperationShowProcessesCallbackWrapper _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
cb' <- mkMountOperationShowProcessesCallback (mountOperationShowProcessesCallbackWrapper cb)
connectSignalFunPtr obj "show-processes" cb' after
type MountOperationShowUnmountProgressCallback =
T.Text ->
Int64 ->
Int64 ->
IO ()
noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback
noMountOperationShowUnmountProgressCallback = Nothing
type MountOperationShowUnmountProgressCallbackC =
Ptr () ->
CString ->
Int64 ->
Int64 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkMountOperationShowUnmountProgressCallback :: MountOperationShowUnmountProgressCallbackC -> IO (FunPtr MountOperationShowUnmountProgressCallbackC)
mountOperationShowUnmountProgressClosure :: MountOperationShowUnmountProgressCallback -> IO Closure
mountOperationShowUnmountProgressClosure cb = newCClosure =<< mkMountOperationShowUnmountProgressCallback wrapped
where wrapped = mountOperationShowUnmountProgressCallbackWrapper cb
mountOperationShowUnmountProgressCallbackWrapper ::
MountOperationShowUnmountProgressCallback ->
Ptr () ->
CString ->
Int64 ->
Int64 ->
Ptr () ->
IO ()
mountOperationShowUnmountProgressCallbackWrapper _cb _ message time_left bytes_left _ = do
message' <- cstringToText message
_cb message' time_left bytes_left
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
cb' <- mkMountOperationShowUnmountProgressCallback (mountOperationShowUnmountProgressCallbackWrapper cb)
connectSignalFunPtr obj "show-unmount-progress" cb' after
getMountOperationAnonymous :: (MonadIO m, MountOperationK o) => o -> m Bool
getMountOperationAnonymous obj = liftIO $ getObjectPropertyBool obj "anonymous"
setMountOperationAnonymous :: (MonadIO m, MountOperationK o) => o -> Bool -> m ()
setMountOperationAnonymous obj val = liftIO $ setObjectPropertyBool obj "anonymous" val
constructMountOperationAnonymous :: Bool -> IO ([Char], GValue)
constructMountOperationAnonymous val = constructObjectPropertyBool "anonymous" val
data MountOperationAnonymousPropertyInfo
instance AttrInfo MountOperationAnonymousPropertyInfo where
type AttrAllowedOps MountOperationAnonymousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool
type AttrBaseTypeConstraint MountOperationAnonymousPropertyInfo = MountOperationK
type AttrGetType MountOperationAnonymousPropertyInfo = Bool
type AttrLabel MountOperationAnonymousPropertyInfo = "MountOperation::anonymous"
attrGet _ = getMountOperationAnonymous
attrSet _ = setMountOperationAnonymous
attrConstruct _ = constructMountOperationAnonymous
getMountOperationChoice :: (MonadIO m, MountOperationK o) => o -> m Int32
getMountOperationChoice obj = liftIO $ getObjectPropertyCInt obj "choice"
setMountOperationChoice :: (MonadIO m, MountOperationK o) => o -> Int32 -> m ()
setMountOperationChoice obj val = liftIO $ setObjectPropertyCInt obj "choice" val
constructMountOperationChoice :: Int32 -> IO ([Char], GValue)
constructMountOperationChoice val = constructObjectPropertyCInt "choice" val
data MountOperationChoicePropertyInfo
instance AttrInfo MountOperationChoicePropertyInfo where
type AttrAllowedOps MountOperationChoicePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationChoicePropertyInfo = (~) Int32
type AttrBaseTypeConstraint MountOperationChoicePropertyInfo = MountOperationK
type AttrGetType MountOperationChoicePropertyInfo = Int32
type AttrLabel MountOperationChoicePropertyInfo = "MountOperation::choice"
attrGet _ = getMountOperationChoice
attrSet _ = setMountOperationChoice
attrConstruct _ = constructMountOperationChoice
getMountOperationDomain :: (MonadIO m, MountOperationK o) => o -> m T.Text
getMountOperationDomain obj = liftIO $ getObjectPropertyString obj "domain"
setMountOperationDomain :: (MonadIO m, MountOperationK o) => o -> T.Text -> m ()
setMountOperationDomain obj val = liftIO $ setObjectPropertyString obj "domain" val
constructMountOperationDomain :: T.Text -> IO ([Char], GValue)
constructMountOperationDomain val = constructObjectPropertyString "domain" val
data MountOperationDomainPropertyInfo
instance AttrInfo MountOperationDomainPropertyInfo where
type AttrAllowedOps MountOperationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = MountOperationK
type AttrGetType MountOperationDomainPropertyInfo = T.Text
type AttrLabel MountOperationDomainPropertyInfo = "MountOperation::domain"
attrGet _ = getMountOperationDomain
attrSet _ = setMountOperationDomain
attrConstruct _ = constructMountOperationDomain
getMountOperationPassword :: (MonadIO m, MountOperationK o) => o -> m T.Text
getMountOperationPassword obj = liftIO $ getObjectPropertyString obj "password"
setMountOperationPassword :: (MonadIO m, MountOperationK o) => o -> T.Text -> m ()
setMountOperationPassword obj val = liftIO $ setObjectPropertyString obj "password" val
constructMountOperationPassword :: T.Text -> IO ([Char], GValue)
constructMountOperationPassword val = constructObjectPropertyString "password" val
data MountOperationPasswordPropertyInfo
instance AttrInfo MountOperationPasswordPropertyInfo where
type AttrAllowedOps MountOperationPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = MountOperationK
type AttrGetType MountOperationPasswordPropertyInfo = T.Text
type AttrLabel MountOperationPasswordPropertyInfo = "MountOperation::password"
attrGet _ = getMountOperationPassword
attrSet _ = setMountOperationPassword
attrConstruct _ = constructMountOperationPassword
getMountOperationPasswordSave :: (MonadIO m, MountOperationK o) => o -> m PasswordSave
getMountOperationPasswordSave obj = liftIO $ getObjectPropertyEnum obj "password-save"
setMountOperationPasswordSave :: (MonadIO m, MountOperationK o) => o -> PasswordSave -> m ()
setMountOperationPasswordSave obj val = liftIO $ setObjectPropertyEnum obj "password-save" val
constructMountOperationPasswordSave :: PasswordSave -> IO ([Char], GValue)
constructMountOperationPasswordSave val = constructObjectPropertyEnum "password-save" val
data MountOperationPasswordSavePropertyInfo
instance AttrInfo MountOperationPasswordSavePropertyInfo where
type AttrAllowedOps MountOperationPasswordSavePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationPasswordSavePropertyInfo = (~) PasswordSave
type AttrBaseTypeConstraint MountOperationPasswordSavePropertyInfo = MountOperationK
type AttrGetType MountOperationPasswordSavePropertyInfo = PasswordSave
type AttrLabel MountOperationPasswordSavePropertyInfo = "MountOperation::password-save"
attrGet _ = getMountOperationPasswordSave
attrSet _ = setMountOperationPasswordSave
attrConstruct _ = constructMountOperationPasswordSave
getMountOperationUsername :: (MonadIO m, MountOperationK o) => o -> m T.Text
getMountOperationUsername obj = liftIO $ getObjectPropertyString obj "username"
setMountOperationUsername :: (MonadIO m, MountOperationK o) => o -> T.Text -> m ()
setMountOperationUsername obj val = liftIO $ setObjectPropertyString obj "username" val
constructMountOperationUsername :: T.Text -> IO ([Char], GValue)
constructMountOperationUsername val = constructObjectPropertyString "username" val
data MountOperationUsernamePropertyInfo
instance AttrInfo MountOperationUsernamePropertyInfo where
type AttrAllowedOps MountOperationUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = MountOperationK
type AttrGetType MountOperationUsernamePropertyInfo = T.Text
type AttrLabel MountOperationUsernamePropertyInfo = "MountOperation::username"
attrGet _ = getMountOperationUsername
attrSet _ = setMountOperationUsername
attrConstruct _ = constructMountOperationUsername
type instance AttributeList MountOperation = MountOperationAttributeList
type MountOperationAttributeList = ('[ '("anonymous", MountOperationAnonymousPropertyInfo), '("choice", MountOperationChoicePropertyInfo), '("domain", MountOperationDomainPropertyInfo), '("password", MountOperationPasswordPropertyInfo), '("password-save", MountOperationPasswordSavePropertyInfo), '("username", MountOperationUsernamePropertyInfo)] :: [(Symbol, *)])
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 SignalList MountOperation = MountOperationSignalList
type MountOperationSignalList = ('[ '("aborted", MountOperationAbortedSignalInfo), '("ask-password", MountOperationAskPasswordSignalInfo), '("ask-question", MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", MountOperationReplySignalInfo), '("show-processes", MountOperationShowProcessesSignalInfo), '("show-unmount-progress", MountOperationShowUnmountProgressSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_mount_operation_new" g_mount_operation_new ::
IO (Ptr MountOperation)
mountOperationNew ::
(MonadIO m) =>
m MountOperation
mountOperationNew = liftIO $ do
result <- g_mount_operation_new
checkUnexpectedReturnNULL "g_mount_operation_new" 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 ::
(MonadIO m, MountOperationK a) =>
a ->
m Bool
mountOperationGetAnonymous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_mount_operation_get_anonymous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "g_mount_operation_get_choice" g_mount_operation_get_choice ::
Ptr MountOperation ->
IO Int32
mountOperationGetChoice ::
(MonadIO m, MountOperationK a) =>
a ->
m Int32
mountOperationGetChoice _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_mount_operation_get_choice _obj'
touchManagedPtr _obj
return result
foreign import ccall "g_mount_operation_get_domain" g_mount_operation_get_domain ::
Ptr MountOperation ->
IO CString
mountOperationGetDomain ::
(MonadIO m, MountOperationK a) =>
a ->
m T.Text
mountOperationGetDomain _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_mount_operation_get_domain _obj'
checkUnexpectedReturnNULL "g_mount_operation_get_domain" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "g_mount_operation_get_password" g_mount_operation_get_password ::
Ptr MountOperation ->
IO CString
mountOperationGetPassword ::
(MonadIO m, MountOperationK a) =>
a ->
m T.Text
mountOperationGetPassword _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_mount_operation_get_password _obj'
checkUnexpectedReturnNULL "g_mount_operation_get_password" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "g_mount_operation_get_password_save" g_mount_operation_get_password_save ::
Ptr MountOperation ->
IO CUInt
mountOperationGetPasswordSave ::
(MonadIO m, MountOperationK a) =>
a ->
m PasswordSave
mountOperationGetPasswordSave _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_mount_operation_get_password_save _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "g_mount_operation_get_username" g_mount_operation_get_username ::
Ptr MountOperation ->
IO CString
mountOperationGetUsername ::
(MonadIO m, MountOperationK a) =>
a ->
m T.Text
mountOperationGetUsername _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_mount_operation_get_username _obj'
checkUnexpectedReturnNULL "g_mount_operation_get_username" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "g_mount_operation_reply" g_mount_operation_reply ::
Ptr MountOperation ->
CUInt ->
IO ()
mountOperationReply ::
(MonadIO m, MountOperationK a) =>
a ->
MountOperationResult ->
m ()
mountOperationReply _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = (fromIntegral . fromEnum) result_
g_mount_operation_reply _obj' result_'
touchManagedPtr _obj
return ()
foreign import ccall "g_mount_operation_set_anonymous" g_mount_operation_set_anonymous ::
Ptr MountOperation ->
CInt ->
IO ()
mountOperationSetAnonymous ::
(MonadIO m, MountOperationK a) =>
a ->
Bool ->
m ()
mountOperationSetAnonymous _obj anonymous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let anonymous' = (fromIntegral . fromEnum) anonymous
g_mount_operation_set_anonymous _obj' anonymous'
touchManagedPtr _obj
return ()
foreign import ccall "g_mount_operation_set_choice" g_mount_operation_set_choice ::
Ptr MountOperation ->
Int32 ->
IO ()
mountOperationSetChoice ::
(MonadIO m, MountOperationK a) =>
a ->
Int32 ->
m ()
mountOperationSetChoice _obj choice = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_mount_operation_set_choice _obj' choice
touchManagedPtr _obj
return ()
foreign import ccall "g_mount_operation_set_domain" g_mount_operation_set_domain ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetDomain ::
(MonadIO m, MountOperationK a) =>
a ->
T.Text ->
m ()
mountOperationSetDomain _obj domain = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
domain' <- textToCString domain
g_mount_operation_set_domain _obj' domain'
touchManagedPtr _obj
freeMem domain'
return ()
foreign import ccall "g_mount_operation_set_password" g_mount_operation_set_password ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetPassword ::
(MonadIO m, MountOperationK a) =>
a ->
T.Text ->
m ()
mountOperationSetPassword _obj password = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
password' <- textToCString password
g_mount_operation_set_password _obj' password'
touchManagedPtr _obj
freeMem password'
return ()
foreign import ccall "g_mount_operation_set_password_save" g_mount_operation_set_password_save ::
Ptr MountOperation ->
CUInt ->
IO ()
mountOperationSetPasswordSave ::
(MonadIO m, MountOperationK a) =>
a ->
PasswordSave ->
m ()
mountOperationSetPasswordSave _obj save = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let save' = (fromIntegral . fromEnum) save
g_mount_operation_set_password_save _obj' save'
touchManagedPtr _obj
return ()
foreign import ccall "g_mount_operation_set_username" g_mount_operation_set_username ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetUsername ::
(MonadIO m, MountOperationK a) =>
a ->
T.Text ->
m ()
mountOperationSetUsername _obj username = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
username' <- textToCString username
g_mount_operation_set_username _obj' username'
touchManagedPtr _obj
freeMem username'
return ()