module GI.WebKit2.Objects.FileChooserRequest
(
FileChooserRequest(..) ,
IsFileChooserRequest ,
toFileChooserRequest ,
noFileChooserRequest ,
FileChooserRequestCancelMethodInfo ,
fileChooserRequestCancel ,
FileChooserRequestGetMimeTypesMethodInfo,
fileChooserRequestGetMimeTypes ,
FileChooserRequestGetMimeTypesFilterMethodInfo,
fileChooserRequestGetMimeTypesFilter ,
FileChooserRequestGetSelectMultipleMethodInfo,
fileChooserRequestGetSelectMultiple ,
FileChooserRequestGetSelectedFilesMethodInfo,
fileChooserRequestGetSelectedFiles ,
FileChooserRequestSelectFilesMethodInfo ,
fileChooserRequestSelectFiles ,
FileChooserRequestFilterPropertyInfo ,
fileChooserRequestFilter ,
getFileChooserRequestFilter ,
FileChooserRequestMimeTypesPropertyInfo ,
fileChooserRequestMimeTypes ,
getFileChooserRequestMimeTypes ,
FileChooserRequestSelectMultiplePropertyInfo,
fileChooserRequestSelectMultiple ,
getFileChooserRequestSelectMultiple ,
FileChooserRequestSelectedFilesPropertyInfo,
fileChooserRequestSelectedFiles ,
getFileChooserRequestSelectedFiles ,
) 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.Gtk.Objects.FileFilter as Gtk.FileFilter
newtype FileChooserRequest = FileChooserRequest (ManagedPtr FileChooserRequest)
foreign import ccall "webkit_file_chooser_request_get_type"
c_webkit_file_chooser_request_get_type :: IO GType
instance GObject FileChooserRequest where
gobjectType _ = c_webkit_file_chooser_request_get_type
class GObject o => IsFileChooserRequest o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError FileChooserRequest a) =>
IsFileChooserRequest a
#endif
instance IsFileChooserRequest FileChooserRequest
instance GObject.Object.IsObject FileChooserRequest
toFileChooserRequest :: IsFileChooserRequest o => o -> IO FileChooserRequest
toFileChooserRequest = unsafeCastTo FileChooserRequest
noFileChooserRequest :: Maybe FileChooserRequest
noFileChooserRequest = Nothing
type family ResolveFileChooserRequestMethod (t :: Symbol) (o :: *) :: * where
ResolveFileChooserRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFileChooserRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFileChooserRequestMethod "cancel" o = FileChooserRequestCancelMethodInfo
ResolveFileChooserRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFileChooserRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFileChooserRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFileChooserRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFileChooserRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFileChooserRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFileChooserRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFileChooserRequestMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveFileChooserRequestMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveFileChooserRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFileChooserRequestMethod "selectFiles" o = FileChooserRequestSelectFilesMethodInfo
ResolveFileChooserRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFileChooserRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFileChooserRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFileChooserRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFileChooserRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFileChooserRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFileChooserRequestMethod "getMimeTypes" o = FileChooserRequestGetMimeTypesMethodInfo
ResolveFileChooserRequestMethod "getMimeTypesFilter" o = FileChooserRequestGetMimeTypesFilterMethodInfo
ResolveFileChooserRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFileChooserRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFileChooserRequestMethod "getSelectMultiple" o = FileChooserRequestGetSelectMultipleMethodInfo
ResolveFileChooserRequestMethod "getSelectedFiles" o = FileChooserRequestGetSelectedFilesMethodInfo
ResolveFileChooserRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFileChooserRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFileChooserRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, O.MethodInfo info FileChooserRequest p) => O.IsLabelProxy t (FileChooserRequest -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, O.MethodInfo info FileChooserRequest p) => O.IsLabel t (FileChooserRequest -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getFileChooserRequestFilter :: (MonadIO m, IsFileChooserRequest o) => o -> m (Maybe Gtk.FileFilter.FileFilter)
getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter.FileFilter
data FileChooserRequestFilterPropertyInfo
instance AttrInfo FileChooserRequestFilterPropertyInfo where
type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) ()
type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = IsFileChooserRequest
type AttrGetType FileChooserRequestFilterPropertyInfo = (Maybe Gtk.FileFilter.FileFilter)
type AttrLabel FileChooserRequestFilterPropertyInfo = "filter"
type AttrOrigin FileChooserRequestFilterPropertyInfo = FileChooserRequest
attrGet _ = getFileChooserRequestFilter
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getFileChooserRequestMimeTypes :: (MonadIO m, IsFileChooserRequest o) => o -> m [T.Text]
getFileChooserRequestMimeTypes obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestMimeTypes" $ getObjectPropertyStringArray obj "mime-types"
data FileChooserRequestMimeTypesPropertyInfo
instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where
type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) ()
type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = IsFileChooserRequest
type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text]
type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "mime-types"
type AttrOrigin FileChooserRequestMimeTypesPropertyInfo = FileChooserRequest
attrGet _ = getFileChooserRequestMimeTypes
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getFileChooserRequestSelectMultiple :: (MonadIO m, IsFileChooserRequest o) => o -> m Bool
getFileChooserRequestSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple"
data FileChooserRequestSelectMultiplePropertyInfo
instance AttrInfo FileChooserRequestSelectMultiplePropertyInfo where
type AttrAllowedOps FileChooserRequestSelectMultiplePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) ()
type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = IsFileChooserRequest
type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool
type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "select-multiple"
type AttrOrigin FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequest
attrGet _ = getFileChooserRequestSelectMultiple
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getFileChooserRequestSelectedFiles :: (MonadIO m, IsFileChooserRequest o) => o -> m [T.Text]
getFileChooserRequestSelectedFiles obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestSelectedFiles" $ getObjectPropertyStringArray obj "selected-files"
data FileChooserRequestSelectedFilesPropertyInfo
instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where
type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) ()
type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = IsFileChooserRequest
type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text]
type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "selected-files"
type AttrOrigin FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequest
attrGet _ = getFileChooserRequestSelectedFiles
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
instance O.HasAttributeList FileChooserRequest
type instance O.AttributeList FileChooserRequest = FileChooserRequestAttributeList
type FileChooserRequestAttributeList = ('[ '("filter", FileChooserRequestFilterPropertyInfo), '("mimeTypes", FileChooserRequestMimeTypesPropertyInfo), '("selectMultiple", FileChooserRequestSelectMultiplePropertyInfo), '("selectedFiles", FileChooserRequestSelectedFilesPropertyInfo)] :: [(Symbol, *)])
fileChooserRequestFilter :: AttrLabelProxy "filter"
fileChooserRequestFilter = AttrLabelProxy
fileChooserRequestMimeTypes :: AttrLabelProxy "mimeTypes"
fileChooserRequestMimeTypes = AttrLabelProxy
fileChooserRequestSelectMultiple :: AttrLabelProxy "selectMultiple"
fileChooserRequestSelectMultiple = AttrLabelProxy
fileChooserRequestSelectedFiles :: AttrLabelProxy "selectedFiles"
fileChooserRequestSelectedFiles = AttrLabelProxy
type instance O.SignalList FileChooserRequest = FileChooserRequestSignalList
type FileChooserRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_file_chooser_request_cancel" webkit_file_chooser_request_cancel ::
Ptr FileChooserRequest ->
IO ()
fileChooserRequestCancel ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>
a
-> m ()
fileChooserRequestCancel request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
webkit_file_chooser_request_cancel request'
touchManagedPtr request
return ()
data FileChooserRequestCancelMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestCancelMethodInfo a signature where
overloadedMethod _ = fileChooserRequestCancel
foreign import ccall "webkit_file_chooser_request_get_mime_types" webkit_file_chooser_request_get_mime_types ::
Ptr FileChooserRequest ->
IO (Ptr CString)
fileChooserRequestGetMimeTypes ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>
a
-> m [T.Text]
fileChooserRequestGetMimeTypes request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
result <- webkit_file_chooser_request_get_mime_types request'
checkUnexpectedReturnNULL "fileChooserRequestGetMimeTypes" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr request
return result'
data FileChooserRequestGetMimeTypesMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestGetMimeTypesMethodInfo a signature where
overloadedMethod _ = fileChooserRequestGetMimeTypes
foreign import ccall "webkit_file_chooser_request_get_mime_types_filter" webkit_file_chooser_request_get_mime_types_filter ::
Ptr FileChooserRequest ->
IO (Ptr Gtk.FileFilter.FileFilter)
fileChooserRequestGetMimeTypesFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>
a
-> m Gtk.FileFilter.FileFilter
fileChooserRequestGetMimeTypesFilter request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
result <- webkit_file_chooser_request_get_mime_types_filter request'
checkUnexpectedReturnNULL "fileChooserRequestGetMimeTypesFilter" result
result' <- (newObject Gtk.FileFilter.FileFilter) result
touchManagedPtr request
return result'
data FileChooserRequestGetMimeTypesFilterMethodInfo
instance (signature ~ (m Gtk.FileFilter.FileFilter), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestGetMimeTypesFilterMethodInfo a signature where
overloadedMethod _ = fileChooserRequestGetMimeTypesFilter
foreign import ccall "webkit_file_chooser_request_get_select_multiple" webkit_file_chooser_request_get_select_multiple ::
Ptr FileChooserRequest ->
IO CInt
fileChooserRequestGetSelectMultiple ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>
a
-> m Bool
fileChooserRequestGetSelectMultiple request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
result <- webkit_file_chooser_request_get_select_multiple request'
let result' = (/= 0) result
touchManagedPtr request
return result'
data FileChooserRequestGetSelectMultipleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestGetSelectMultipleMethodInfo a signature where
overloadedMethod _ = fileChooserRequestGetSelectMultiple
foreign import ccall "webkit_file_chooser_request_get_selected_files" webkit_file_chooser_request_get_selected_files ::
Ptr FileChooserRequest ->
IO (Ptr CString)
fileChooserRequestGetSelectedFiles ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>
a
-> m [T.Text]
fileChooserRequestGetSelectedFiles request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
result <- webkit_file_chooser_request_get_selected_files request'
checkUnexpectedReturnNULL "fileChooserRequestGetSelectedFiles" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr request
return result'
data FileChooserRequestGetSelectedFilesMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestGetSelectedFilesMethodInfo a signature where
overloadedMethod _ = fileChooserRequestGetSelectedFiles
foreign import ccall "webkit_file_chooser_request_select_files" webkit_file_chooser_request_select_files ::
Ptr FileChooserRequest ->
Ptr CString ->
IO ()
fileChooserRequestSelectFiles ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooserRequest a) =>
a
-> [T.Text]
-> m ()
fileChooserRequestSelectFiles request files = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
files' <- packZeroTerminatedUTF8CArray files
webkit_file_chooser_request_select_files request' files'
touchManagedPtr request
mapZeroTerminatedCArray freeMem files'
freeMem files'
return ()
data FileChooserRequestSelectFilesMethodInfo
instance (signature ~ ([T.Text] -> m ()), MonadIO m, IsFileChooserRequest a) => O.MethodInfo FileChooserRequestSelectFilesMethodInfo a signature where
overloadedMethod _ = fileChooserRequestSelectFiles