{- | 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.MountOperation ( -- * Exported types MountOperation(..) , MountOperationK , toMountOperation , noMountOperation , -- * Methods -- ** mountOperationGetAnonymous mountOperationGetAnonymous , -- ** mountOperationGetChoice mountOperationGetChoice , -- ** mountOperationGetDomain mountOperationGetDomain , -- ** mountOperationGetPassword mountOperationGetPassword , -- ** mountOperationGetPasswordSave mountOperationGetPasswordSave , -- ** mountOperationGetUsername mountOperationGetUsername , -- ** mountOperationNew mountOperationNew , -- ** mountOperationReply mountOperationReply , -- ** mountOperationSetAnonymous mountOperationSetAnonymous , -- ** mountOperationSetChoice mountOperationSetChoice , -- ** mountOperationSetDomain mountOperationSetDomain , -- ** mountOperationSetPassword mountOperationSetPassword , -- ** mountOperationSetPasswordSave mountOperationSetPasswordSave , -- ** mountOperationSetUsername mountOperationSetUsername , -- * Properties -- ** Anonymous MountOperationAnonymousPropertyInfo , constructMountOperationAnonymous , getMountOperationAnonymous , setMountOperationAnonymous , -- ** Choice MountOperationChoicePropertyInfo , constructMountOperationChoice , getMountOperationChoice , setMountOperationChoice , -- ** Domain MountOperationDomainPropertyInfo , constructMountOperationDomain , getMountOperationDomain , setMountOperationDomain , -- ** Password MountOperationPasswordPropertyInfo , constructMountOperationPassword , getMountOperationPassword , setMountOperationPassword , -- ** PasswordSave MountOperationPasswordSavePropertyInfo , constructMountOperationPasswordSave , getMountOperationPasswordSave , setMountOperationPasswordSave , -- ** Username MountOperationUsernamePropertyInfo , constructMountOperationUsername , getMountOperationUsername , setMountOperationUsername , -- * Signals -- ** Aborted MountOperationAbortedCallback , MountOperationAbortedCallbackC , MountOperationAbortedSignalInfo , afterMountOperationAborted , mkMountOperationAbortedCallback , mountOperationAbortedCallbackWrapper , mountOperationAbortedClosure , noMountOperationAbortedCallback , onMountOperationAborted , -- ** AskPassword MountOperationAskPasswordCallback , MountOperationAskPasswordCallbackC , MountOperationAskPasswordSignalInfo , afterMountOperationAskPassword , mkMountOperationAskPasswordCallback , mountOperationAskPasswordCallbackWrapper, mountOperationAskPasswordClosure , noMountOperationAskPasswordCallback , onMountOperationAskPassword , -- ** AskQuestion MountOperationAskQuestionCallback , MountOperationAskQuestionCallbackC , MountOperationAskQuestionSignalInfo , afterMountOperationAskQuestion , mkMountOperationAskQuestionCallback , mountOperationAskQuestionCallbackWrapper, mountOperationAskQuestionClosure , noMountOperationAskQuestionCallback , onMountOperationAskQuestion , -- ** Reply MountOperationReplyCallback , MountOperationReplyCallbackC , MountOperationReplySignalInfo , afterMountOperationReply , mkMountOperationReplyCallback , mountOperationReplyCallbackWrapper , mountOperationReplyClosure , noMountOperationReplyCallback , onMountOperationReply , -- ** ShowProcesses MountOperationShowProcessesCallback , MountOperationShowProcessesCallbackC , MountOperationShowProcessesSignalInfo , afterMountOperationShowProcesses , mkMountOperationShowProcessesCallback , mountOperationShowProcessesCallbackWrapper, mountOperationShowProcessesClosure , noMountOperationShowProcessesCallback , onMountOperationShowProcesses , -- ** ShowUnmountProgress 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 -- signal MountOperation::aborted type MountOperationAbortedCallback = IO () noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback noMountOperationAbortedCallback = Nothing type MountOperationAbortedCallbackC = Ptr () -> -- object Ptr () -> -- user_data 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 -- signal MountOperation::ask-password type MountOperationAskPasswordCallback = T.Text -> T.Text -> T.Text -> [AskPasswordFlags] -> IO () noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback noMountOperationAskPasswordCallback = Nothing type MountOperationAskPasswordCallbackC = Ptr () -> -- object CString -> CString -> CString -> CUInt -> Ptr () -> -- user_data 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 -- signal MountOperation::ask-question type MountOperationAskQuestionCallback = T.Text -> [T.Text] -> IO () noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback noMountOperationAskQuestionCallback = Nothing type MountOperationAskQuestionCallbackC = Ptr () -> -- object CString -> Ptr CString -> Ptr () -> -- user_data 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 -- signal MountOperation::reply type MountOperationReplyCallback = MountOperationResult -> IO () noMountOperationReplyCallback :: Maybe MountOperationReplyCallback noMountOperationReplyCallback = Nothing type MountOperationReplyCallbackC = Ptr () -> -- object CUInt -> Ptr () -> -- user_data 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 -- signal MountOperation::show-processes type MountOperationShowProcessesCallback = T.Text -> [Int32] -> [T.Text] -> IO () noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback noMountOperationShowProcessesCallback = Nothing type MountOperationShowProcessesCallbackC = Ptr () -> -- object CString -> Ptr (GArray Int32) -> Ptr CString -> Ptr () -> -- user_data 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 -- signal MountOperation::show-unmount-progress type MountOperationShowUnmountProgressCallback = T.Text -> Int64 -> Int64 -> IO () noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback noMountOperationShowUnmountProgressCallback = Nothing type MountOperationShowUnmountProgressCallbackC = Ptr () -> -- object CString -> Int64 -> Int64 -> Ptr () -> -- user_data 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 -- VVV Prop "anonymous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "choice" -- Type: TBasicType TInt32 -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "domain" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "password" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "password-save" -- Type: TInterface "Gio" "PasswordSave" -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "username" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] 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, *)]) -- method MountOperation::new -- method type : Constructor -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gio" "MountOperation" -- throws : False -- Skip return : False 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' -- method MountOperation::get_anonymous -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_get_anonymous" g_mount_operation_get_anonymous :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" IO CInt mountOperationGetAnonymous :: (MonadIO m, MountOperationK a) => a -> -- _obj 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' -- method MountOperation::get_choice -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_get_choice" g_mount_operation_get_choice :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" IO Int32 mountOperationGetChoice :: (MonadIO m, MountOperationK a) => a -> -- _obj m Int32 mountOperationGetChoice _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_operation_get_choice _obj' touchManagedPtr _obj return result -- method MountOperation::get_domain -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_get_domain" g_mount_operation_get_domain :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" IO CString mountOperationGetDomain :: (MonadIO m, MountOperationK a) => a -> -- _obj 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' -- method MountOperation::get_password -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_get_password" g_mount_operation_get_password :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" IO CString mountOperationGetPassword :: (MonadIO m, MountOperationK a) => a -> -- _obj 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' -- method MountOperation::get_password_save -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "PasswordSave" -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_get_password_save" g_mount_operation_get_password_save :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" IO CUInt mountOperationGetPasswordSave :: (MonadIO m, MountOperationK a) => a -> -- _obj 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' -- method MountOperation::get_username -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_get_username" g_mount_operation_get_username :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" IO CString mountOperationGetUsername :: (MonadIO m, MountOperationK a) => a -> -- _obj 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' -- method MountOperation::reply -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "MountOperationResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "MountOperationResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_reply" g_mount_operation_reply :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" CUInt -> -- result : TInterface "Gio" "MountOperationResult" IO () mountOperationReply :: (MonadIO m, MountOperationK a) => a -> -- _obj MountOperationResult -> -- result m () mountOperationReply _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = (fromIntegral . fromEnum) result_ g_mount_operation_reply _obj' result_' touchManagedPtr _obj return () -- method MountOperation::set_anonymous -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anonymous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anonymous", 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_mount_operation_set_anonymous" g_mount_operation_set_anonymous :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" CInt -> -- anonymous : TBasicType TBoolean IO () mountOperationSetAnonymous :: (MonadIO m, MountOperationK a) => a -> -- _obj Bool -> -- anonymous 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 () -- method MountOperation::set_choice -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "choice", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "choice", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_set_choice" g_mount_operation_set_choice :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" Int32 -> -- choice : TBasicType TInt32 IO () mountOperationSetChoice :: (MonadIO m, MountOperationK a) => a -> -- _obj Int32 -> -- choice m () mountOperationSetChoice _obj choice = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj g_mount_operation_set_choice _obj' choice touchManagedPtr _obj return () -- method MountOperation::set_domain -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", 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_mount_operation_set_domain" g_mount_operation_set_domain :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" CString -> -- domain : TBasicType TUTF8 IO () mountOperationSetDomain :: (MonadIO m, MountOperationK a) => a -> -- _obj T.Text -> -- domain 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 () -- method MountOperation::set_password -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_mount_operation_set_password" g_mount_operation_set_password :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" CString -> -- password : TBasicType TUTF8 IO () mountOperationSetPassword :: (MonadIO m, MountOperationK a) => a -> -- _obj T.Text -> -- password 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 () -- method MountOperation::set_password_save -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save", argType = TInterface "Gio" "PasswordSave", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save", argType = TInterface "Gio" "PasswordSave", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_mount_operation_set_password_save" g_mount_operation_set_password_save :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" CUInt -> -- save : TInterface "Gio" "PasswordSave" IO () mountOperationSetPasswordSave :: (MonadIO m, MountOperationK a) => a -> -- _obj PasswordSave -> -- save 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 () -- method MountOperation::set_username -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", 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_mount_operation_set_username" g_mount_operation_set_username :: Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" CString -> -- username : TBasicType TUTF8 IO () mountOperationSetUsername :: (MonadIO m, MountOperationK a) => a -> -- _obj T.Text -> -- username 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 ()