module GI.Gtk.Interfaces.FileChooser
(
FileChooser(..) ,
noFileChooser ,
IsFileChooser ,
toFileChooser ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserAddChoiceMethodInfo ,
#endif
fileChooserAddChoice ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserAddFilterMethodInfo ,
#endif
fileChooserAddFilter ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserAddShortcutFolderMethodInfo ,
#endif
fileChooserAddShortcutFolder ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserAddShortcutFolderUriMethodInfo,
#endif
fileChooserAddShortcutFolderUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetActionMethodInfo ,
#endif
fileChooserGetAction ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetChoiceMethodInfo ,
#endif
fileChooserGetChoice ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetCreateFoldersMethodInfo ,
#endif
fileChooserGetCreateFolders ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetCurrentFolderMethodInfo ,
#endif
fileChooserGetCurrentFolder ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetCurrentFolderFileMethodInfo,
#endif
fileChooserGetCurrentFolderFile ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetCurrentFolderUriMethodInfo,
#endif
fileChooserGetCurrentFolderUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetCurrentNameMethodInfo ,
#endif
fileChooserGetCurrentName ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetDoOverwriteConfirmationMethodInfo,
#endif
fileChooserGetDoOverwriteConfirmation ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetExtraWidgetMethodInfo ,
#endif
fileChooserGetExtraWidget ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetFileMethodInfo ,
#endif
fileChooserGetFile ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetFilenameMethodInfo ,
#endif
fileChooserGetFilename ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetFilenamesMethodInfo ,
#endif
fileChooserGetFilenames ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetFilesMethodInfo ,
#endif
fileChooserGetFiles ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetFilterMethodInfo ,
#endif
fileChooserGetFilter ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetLocalOnlyMethodInfo ,
#endif
fileChooserGetLocalOnly ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetPreviewFileMethodInfo ,
#endif
fileChooserGetPreviewFile ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetPreviewFilenameMethodInfo ,
#endif
fileChooserGetPreviewFilename ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetPreviewUriMethodInfo ,
#endif
fileChooserGetPreviewUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetPreviewWidgetMethodInfo ,
#endif
fileChooserGetPreviewWidget ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetPreviewWidgetActiveMethodInfo,
#endif
fileChooserGetPreviewWidgetActive ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetSelectMultipleMethodInfo ,
#endif
fileChooserGetSelectMultiple ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetShowHiddenMethodInfo ,
#endif
fileChooserGetShowHidden ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetUriMethodInfo ,
#endif
fileChooserGetUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetUrisMethodInfo ,
#endif
fileChooserGetUris ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserGetUsePreviewLabelMethodInfo ,
#endif
fileChooserGetUsePreviewLabel ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserListFiltersMethodInfo ,
#endif
fileChooserListFilters ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserListShortcutFolderUrisMethodInfo,
#endif
fileChooserListShortcutFolderUris ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserListShortcutFoldersMethodInfo,
#endif
fileChooserListShortcutFolders ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserRemoveChoiceMethodInfo ,
#endif
fileChooserRemoveChoice ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserRemoveFilterMethodInfo ,
#endif
fileChooserRemoveFilter ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserRemoveShortcutFolderMethodInfo,
#endif
fileChooserRemoveShortcutFolder ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserRemoveShortcutFolderUriMethodInfo,
#endif
fileChooserRemoveShortcutFolderUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSelectAllMethodInfo ,
#endif
fileChooserSelectAll ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSelectFileMethodInfo ,
#endif
fileChooserSelectFile ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSelectFilenameMethodInfo ,
#endif
fileChooserSelectFilename ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSelectUriMethodInfo ,
#endif
fileChooserSelectUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetActionMethodInfo ,
#endif
fileChooserSetAction ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetChoiceMethodInfo ,
#endif
fileChooserSetChoice ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetCreateFoldersMethodInfo ,
#endif
fileChooserSetCreateFolders ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetCurrentFolderMethodInfo ,
#endif
fileChooserSetCurrentFolder ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetCurrentFolderFileMethodInfo,
#endif
fileChooserSetCurrentFolderFile ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetCurrentFolderUriMethodInfo,
#endif
fileChooserSetCurrentFolderUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetCurrentNameMethodInfo ,
#endif
fileChooserSetCurrentName ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetDoOverwriteConfirmationMethodInfo,
#endif
fileChooserSetDoOverwriteConfirmation ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetExtraWidgetMethodInfo ,
#endif
fileChooserSetExtraWidget ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetFileMethodInfo ,
#endif
fileChooserSetFile ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetFilenameMethodInfo ,
#endif
fileChooserSetFilename ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetFilterMethodInfo ,
#endif
fileChooserSetFilter ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetLocalOnlyMethodInfo ,
#endif
fileChooserSetLocalOnly ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetPreviewWidgetMethodInfo ,
#endif
fileChooserSetPreviewWidget ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetPreviewWidgetActiveMethodInfo,
#endif
fileChooserSetPreviewWidgetActive ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetSelectMultipleMethodInfo ,
#endif
fileChooserSetSelectMultiple ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetShowHiddenMethodInfo ,
#endif
fileChooserSetShowHidden ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetUriMethodInfo ,
#endif
fileChooserSetUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSetUsePreviewLabelMethodInfo ,
#endif
fileChooserSetUsePreviewLabel ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserUnselectAllMethodInfo ,
#endif
fileChooserUnselectAll ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserUnselectFileMethodInfo ,
#endif
fileChooserUnselectFile ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserUnselectFilenameMethodInfo ,
#endif
fileChooserUnselectFilename ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserUnselectUriMethodInfo ,
#endif
fileChooserUnselectUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserActionPropertyInfo ,
#endif
constructFileChooserAction ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserAction ,
#endif
getFileChooserAction ,
setFileChooserAction ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserCreateFoldersPropertyInfo ,
#endif
constructFileChooserCreateFolders ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserCreateFolders ,
#endif
getFileChooserCreateFolders ,
setFileChooserCreateFolders ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserDoOverwriteConfirmationPropertyInfo,
#endif
constructFileChooserDoOverwriteConfirmation,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserDoOverwriteConfirmation ,
#endif
getFileChooserDoOverwriteConfirmation ,
setFileChooserDoOverwriteConfirmation ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserExtraWidgetPropertyInfo ,
#endif
constructFileChooserExtraWidget ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserExtraWidget ,
#endif
getFileChooserExtraWidget ,
setFileChooserExtraWidget ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserFilterPropertyInfo ,
#endif
constructFileChooserFilter ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserFilter ,
#endif
getFileChooserFilter ,
setFileChooserFilter ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserLocalOnlyPropertyInfo ,
#endif
constructFileChooserLocalOnly ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserLocalOnly ,
#endif
getFileChooserLocalOnly ,
setFileChooserLocalOnly ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserPreviewWidgetPropertyInfo ,
#endif
constructFileChooserPreviewWidget ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserPreviewWidget ,
#endif
getFileChooserPreviewWidget ,
setFileChooserPreviewWidget ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserPreviewWidgetActivePropertyInfo,
#endif
constructFileChooserPreviewWidgetActive ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserPreviewWidgetActive ,
#endif
getFileChooserPreviewWidgetActive ,
setFileChooserPreviewWidgetActive ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSelectMultiplePropertyInfo ,
#endif
constructFileChooserSelectMultiple ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserSelectMultiple ,
#endif
getFileChooserSelectMultiple ,
setFileChooserSelectMultiple ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserShowHiddenPropertyInfo ,
#endif
constructFileChooserShowHidden ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserShowHidden ,
#endif
getFileChooserShowHidden ,
setFileChooserShowHidden ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserUsePreviewLabelPropertyInfo ,
#endif
constructFileChooserUsePreviewLabel ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserUsePreviewLabel ,
#endif
getFileChooserUsePreviewLabel ,
setFileChooserUsePreviewLabel ,
C_FileChooserConfirmOverwriteCallback ,
FileChooserConfirmOverwriteCallback ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserConfirmOverwriteSignalInfo ,
#endif
afterFileChooserConfirmOverwrite ,
genClosure_FileChooserConfirmOverwrite ,
mk_FileChooserConfirmOverwriteCallback ,
noFileChooserConfirmOverwriteCallback ,
onFileChooserConfirmOverwrite ,
wrap_FileChooserConfirmOverwriteCallback,
C_FileChooserCurrentFolderChangedCallback,
FileChooserCurrentFolderChangedCallback ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserCurrentFolderChangedSignalInfo,
#endif
afterFileChooserCurrentFolderChanged ,
genClosure_FileChooserCurrentFolderChanged,
mk_FileChooserCurrentFolderChangedCallback,
noFileChooserCurrentFolderChangedCallback,
onFileChooserCurrentFolderChanged ,
wrap_FileChooserCurrentFolderChangedCallback,
C_FileChooserFileActivatedCallback ,
FileChooserFileActivatedCallback ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserFileActivatedSignalInfo ,
#endif
afterFileChooserFileActivated ,
genClosure_FileChooserFileActivated ,
mk_FileChooserFileActivatedCallback ,
noFileChooserFileActivatedCallback ,
onFileChooserFileActivated ,
wrap_FileChooserFileActivatedCallback ,
C_FileChooserSelectionChangedCallback ,
FileChooserSelectionChangedCallback ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserSelectionChangedSignalInfo ,
#endif
afterFileChooserSelectionChanged ,
genClosure_FileChooserSelectionChanged ,
mk_FileChooserSelectionChangedCallback ,
noFileChooserSelectionChangedCallback ,
onFileChooserSelectionChanged ,
wrap_FileChooserSelectionChangedCallback,
C_FileChooserUpdatePreviewCallback ,
FileChooserUpdatePreviewCallback ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
FileChooserUpdatePreviewSignalInfo ,
#endif
afterFileChooserUpdatePreview ,
genClosure_FileChooserUpdatePreview ,
mk_FileChooserUpdatePreviewCallback ,
noFileChooserUpdatePreviewCallback ,
onFileChooserUpdatePreview ,
wrap_FileChooserUpdatePreviewCallback ,
) 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.Interfaces.File as Gio.File
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Objects.FileFilter as Gtk.FileFilter
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype FileChooser = FileChooser (ManagedPtr FileChooser)
noFileChooser :: Maybe FileChooser
noFileChooser = Nothing
type FileChooserConfirmOverwriteCallback =
IO Gtk.Enums.FileChooserConfirmation
noFileChooserConfirmOverwriteCallback :: Maybe FileChooserConfirmOverwriteCallback
noFileChooserConfirmOverwriteCallback = Nothing
type C_FileChooserConfirmOverwriteCallback =
Ptr () ->
Ptr () ->
IO CUInt
foreign import ccall "wrapper"
mk_FileChooserConfirmOverwriteCallback :: C_FileChooserConfirmOverwriteCallback -> IO (FunPtr C_FileChooserConfirmOverwriteCallback)
genClosure_FileChooserConfirmOverwrite :: FileChooserConfirmOverwriteCallback -> IO Closure
genClosure_FileChooserConfirmOverwrite cb = do
let cb' = wrap_FileChooserConfirmOverwriteCallback cb
mk_FileChooserConfirmOverwriteCallback cb' >>= newCClosure
wrap_FileChooserConfirmOverwriteCallback ::
FileChooserConfirmOverwriteCallback ->
Ptr () ->
Ptr () ->
IO CUInt
wrap_FileChooserConfirmOverwriteCallback _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onFileChooserConfirmOverwrite :: (IsFileChooser a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId
onFileChooserConfirmOverwrite obj cb = liftIO $ do
let cb' = wrap_FileChooserConfirmOverwriteCallback cb
cb'' <- mk_FileChooserConfirmOverwriteCallback cb'
connectSignalFunPtr obj "confirm-overwrite" cb'' SignalConnectBefore
afterFileChooserConfirmOverwrite :: (IsFileChooser a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId
afterFileChooserConfirmOverwrite obj cb = liftIO $ do
let cb' = wrap_FileChooserConfirmOverwriteCallback cb
cb'' <- mk_FileChooserConfirmOverwriteCallback cb'
connectSignalFunPtr obj "confirm-overwrite" cb'' SignalConnectAfter
type FileChooserCurrentFolderChangedCallback =
IO ()
noFileChooserCurrentFolderChangedCallback :: Maybe FileChooserCurrentFolderChangedCallback
noFileChooserCurrentFolderChangedCallback = Nothing
type C_FileChooserCurrentFolderChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserCurrentFolderChangedCallback :: C_FileChooserCurrentFolderChangedCallback -> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
genClosure_FileChooserCurrentFolderChanged :: FileChooserCurrentFolderChangedCallback -> IO Closure
genClosure_FileChooserCurrentFolderChanged cb = do
let cb' = wrap_FileChooserCurrentFolderChangedCallback cb
mk_FileChooserCurrentFolderChangedCallback cb' >>= newCClosure
wrap_FileChooserCurrentFolderChangedCallback ::
FileChooserCurrentFolderChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FileChooserCurrentFolderChangedCallback _cb _ _ = do
_cb
onFileChooserCurrentFolderChanged :: (IsFileChooser a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId
onFileChooserCurrentFolderChanged obj cb = liftIO $ do
let cb' = wrap_FileChooserCurrentFolderChangedCallback cb
cb'' <- mk_FileChooserCurrentFolderChangedCallback cb'
connectSignalFunPtr obj "current-folder-changed" cb'' SignalConnectBefore
afterFileChooserCurrentFolderChanged :: (IsFileChooser a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId
afterFileChooserCurrentFolderChanged obj cb = liftIO $ do
let cb' = wrap_FileChooserCurrentFolderChangedCallback cb
cb'' <- mk_FileChooserCurrentFolderChangedCallback cb'
connectSignalFunPtr obj "current-folder-changed" cb'' SignalConnectAfter
type FileChooserFileActivatedCallback =
IO ()
noFileChooserFileActivatedCallback :: Maybe FileChooserFileActivatedCallback
noFileChooserFileActivatedCallback = Nothing
type C_FileChooserFileActivatedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserFileActivatedCallback :: C_FileChooserFileActivatedCallback -> IO (FunPtr C_FileChooserFileActivatedCallback)
genClosure_FileChooserFileActivated :: FileChooserFileActivatedCallback -> IO Closure
genClosure_FileChooserFileActivated cb = do
let cb' = wrap_FileChooserFileActivatedCallback cb
mk_FileChooserFileActivatedCallback cb' >>= newCClosure
wrap_FileChooserFileActivatedCallback ::
FileChooserFileActivatedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FileChooserFileActivatedCallback _cb _ _ = do
_cb
onFileChooserFileActivated :: (IsFileChooser a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId
onFileChooserFileActivated obj cb = liftIO $ do
let cb' = wrap_FileChooserFileActivatedCallback cb
cb'' <- mk_FileChooserFileActivatedCallback cb'
connectSignalFunPtr obj "file-activated" cb'' SignalConnectBefore
afterFileChooserFileActivated :: (IsFileChooser a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId
afterFileChooserFileActivated obj cb = liftIO $ do
let cb' = wrap_FileChooserFileActivatedCallback cb
cb'' <- mk_FileChooserFileActivatedCallback cb'
connectSignalFunPtr obj "file-activated" cb'' SignalConnectAfter
type FileChooserSelectionChangedCallback =
IO ()
noFileChooserSelectionChangedCallback :: Maybe FileChooserSelectionChangedCallback
noFileChooserSelectionChangedCallback = Nothing
type C_FileChooserSelectionChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserSelectionChangedCallback :: C_FileChooserSelectionChangedCallback -> IO (FunPtr C_FileChooserSelectionChangedCallback)
genClosure_FileChooserSelectionChanged :: FileChooserSelectionChangedCallback -> IO Closure
genClosure_FileChooserSelectionChanged cb = do
let cb' = wrap_FileChooserSelectionChangedCallback cb
mk_FileChooserSelectionChangedCallback cb' >>= newCClosure
wrap_FileChooserSelectionChangedCallback ::
FileChooserSelectionChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FileChooserSelectionChangedCallback _cb _ _ = do
_cb
onFileChooserSelectionChanged :: (IsFileChooser a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId
onFileChooserSelectionChanged obj cb = liftIO $ do
let cb' = wrap_FileChooserSelectionChangedCallback cb
cb'' <- mk_FileChooserSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' SignalConnectBefore
afterFileChooserSelectionChanged :: (IsFileChooser a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId
afterFileChooserSelectionChanged obj cb = liftIO $ do
let cb' = wrap_FileChooserSelectionChangedCallback cb
cb'' <- mk_FileChooserSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' SignalConnectAfter
type FileChooserUpdatePreviewCallback =
IO ()
noFileChooserUpdatePreviewCallback :: Maybe FileChooserUpdatePreviewCallback
noFileChooserUpdatePreviewCallback = Nothing
type C_FileChooserUpdatePreviewCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserUpdatePreviewCallback :: C_FileChooserUpdatePreviewCallback -> IO (FunPtr C_FileChooserUpdatePreviewCallback)
genClosure_FileChooserUpdatePreview :: FileChooserUpdatePreviewCallback -> IO Closure
genClosure_FileChooserUpdatePreview cb = do
let cb' = wrap_FileChooserUpdatePreviewCallback cb
mk_FileChooserUpdatePreviewCallback cb' >>= newCClosure
wrap_FileChooserUpdatePreviewCallback ::
FileChooserUpdatePreviewCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FileChooserUpdatePreviewCallback _cb _ _ = do
_cb
onFileChooserUpdatePreview :: (IsFileChooser a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId
onFileChooserUpdatePreview obj cb = liftIO $ do
let cb' = wrap_FileChooserUpdatePreviewCallback cb
cb'' <- mk_FileChooserUpdatePreviewCallback cb'
connectSignalFunPtr obj "update-preview" cb'' SignalConnectBefore
afterFileChooserUpdatePreview :: (IsFileChooser a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId
afterFileChooserUpdatePreview obj cb = liftIO $ do
let cb' = wrap_FileChooserUpdatePreviewCallback cb
cb'' <- mk_FileChooserUpdatePreviewCallback cb'
connectSignalFunPtr obj "update-preview" cb'' SignalConnectAfter
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserConfirmOverwriteSignalInfo
instance SignalInfo FileChooserConfirmOverwriteSignalInfo where
type HaskellCallbackType FileChooserConfirmOverwriteSignalInfo = FileChooserConfirmOverwriteCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FileChooserConfirmOverwriteCallback cb
cb'' <- mk_FileChooserConfirmOverwriteCallback cb'
connectSignalFunPtr obj "confirm-overwrite" cb'' connectMode
data FileChooserCurrentFolderChangedSignalInfo
instance SignalInfo FileChooserCurrentFolderChangedSignalInfo where
type HaskellCallbackType FileChooserCurrentFolderChangedSignalInfo = FileChooserCurrentFolderChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FileChooserCurrentFolderChangedCallback cb
cb'' <- mk_FileChooserCurrentFolderChangedCallback cb'
connectSignalFunPtr obj "current-folder-changed" cb'' connectMode
data FileChooserFileActivatedSignalInfo
instance SignalInfo FileChooserFileActivatedSignalInfo where
type HaskellCallbackType FileChooserFileActivatedSignalInfo = FileChooserFileActivatedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FileChooserFileActivatedCallback cb
cb'' <- mk_FileChooserFileActivatedCallback cb'
connectSignalFunPtr obj "file-activated" cb'' connectMode
data FileChooserSelectionChangedSignalInfo
instance SignalInfo FileChooserSelectionChangedSignalInfo where
type HaskellCallbackType FileChooserSelectionChangedSignalInfo = FileChooserSelectionChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FileChooserSelectionChangedCallback cb
cb'' <- mk_FileChooserSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' connectMode
data FileChooserUpdatePreviewSignalInfo
instance SignalInfo FileChooserUpdatePreviewSignalInfo where
type HaskellCallbackType FileChooserUpdatePreviewSignalInfo = FileChooserUpdatePreviewCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FileChooserUpdatePreviewCallback cb
cb'' <- mk_FileChooserUpdatePreviewCallback cb'
connectSignalFunPtr obj "update-preview" cb'' connectMode
type instance O.SignalList FileChooser = FileChooserSignalList
type FileChooserSignalList = ('[ '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_file_chooser_get_type"
c_gtk_file_chooser_get_type :: IO GType
instance GObject FileChooser where
gobjectType _ = c_gtk_file_chooser_get_type
class GObject o => IsFileChooser o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError FileChooser a) =>
IsFileChooser a
#endif
instance IsFileChooser FileChooser
instance GObject.Object.IsObject FileChooser
toFileChooser :: (MonadIO m, IsFileChooser o) => o -> m FileChooser
toFileChooser = liftIO . unsafeCastTo FileChooser
getFileChooserAction :: (MonadIO m, IsFileChooser o) => o -> m Gtk.Enums.FileChooserAction
getFileChooserAction obj = liftIO $ getObjectPropertyEnum obj "action"
setFileChooserAction :: (MonadIO m, IsFileChooser o) => o -> Gtk.Enums.FileChooserAction -> m ()
setFileChooserAction obj val = liftIO $ setObjectPropertyEnum obj "action" val
constructFileChooserAction :: (IsFileChooser o) => Gtk.Enums.FileChooserAction -> IO (GValueConstruct o)
constructFileChooserAction val = constructObjectPropertyEnum "action" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserActionPropertyInfo
instance AttrInfo FileChooserActionPropertyInfo where
type AttrAllowedOps FileChooserActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserActionPropertyInfo = (~) Gtk.Enums.FileChooserAction
type AttrBaseTypeConstraint FileChooserActionPropertyInfo = IsFileChooser
type AttrGetType FileChooserActionPropertyInfo = Gtk.Enums.FileChooserAction
type AttrLabel FileChooserActionPropertyInfo = "action"
type AttrOrigin FileChooserActionPropertyInfo = FileChooser
attrGet _ = getFileChooserAction
attrSet _ = setFileChooserAction
attrConstruct _ = constructFileChooserAction
attrClear _ = undefined
#endif
getFileChooserCreateFolders :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserCreateFolders obj = liftIO $ getObjectPropertyBool obj "create-folders"
setFileChooserCreateFolders :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserCreateFolders obj val = liftIO $ setObjectPropertyBool obj "create-folders" val
constructFileChooserCreateFolders :: (IsFileChooser o) => Bool -> IO (GValueConstruct o)
constructFileChooserCreateFolders val = constructObjectPropertyBool "create-folders" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserCreateFoldersPropertyInfo
instance AttrInfo FileChooserCreateFoldersPropertyInfo where
type AttrAllowedOps FileChooserCreateFoldersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserCreateFoldersPropertyInfo = (~) Bool
type AttrBaseTypeConstraint FileChooserCreateFoldersPropertyInfo = IsFileChooser
type AttrGetType FileChooserCreateFoldersPropertyInfo = Bool
type AttrLabel FileChooserCreateFoldersPropertyInfo = "create-folders"
type AttrOrigin FileChooserCreateFoldersPropertyInfo = FileChooser
attrGet _ = getFileChooserCreateFolders
attrSet _ = setFileChooserCreateFolders
attrConstruct _ = constructFileChooserCreateFolders
attrClear _ = undefined
#endif
getFileChooserDoOverwriteConfirmation :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserDoOverwriteConfirmation obj = liftIO $ getObjectPropertyBool obj "do-overwrite-confirmation"
setFileChooserDoOverwriteConfirmation :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserDoOverwriteConfirmation obj val = liftIO $ setObjectPropertyBool obj "do-overwrite-confirmation" val
constructFileChooserDoOverwriteConfirmation :: (IsFileChooser o) => Bool -> IO (GValueConstruct o)
constructFileChooserDoOverwriteConfirmation val = constructObjectPropertyBool "do-overwrite-confirmation" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserDoOverwriteConfirmationPropertyInfo
instance AttrInfo FileChooserDoOverwriteConfirmationPropertyInfo where
type AttrAllowedOps FileChooserDoOverwriteConfirmationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = (~) Bool
type AttrBaseTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = IsFileChooser
type AttrGetType FileChooserDoOverwriteConfirmationPropertyInfo = Bool
type AttrLabel FileChooserDoOverwriteConfirmationPropertyInfo = "do-overwrite-confirmation"
type AttrOrigin FileChooserDoOverwriteConfirmationPropertyInfo = FileChooser
attrGet _ = getFileChooserDoOverwriteConfirmation
attrSet _ = setFileChooserDoOverwriteConfirmation
attrConstruct _ = constructFileChooserDoOverwriteConfirmation
attrClear _ = undefined
#endif
getFileChooserExtraWidget :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.Widget.Widget)
getFileChooserExtraWidget obj = liftIO $ getObjectPropertyObject obj "extra-widget" Gtk.Widget.Widget
setFileChooserExtraWidget :: (MonadIO m, IsFileChooser o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" (Just val)
constructFileChooserExtraWidget :: (IsFileChooser o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" (Just val)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserExtraWidgetPropertyInfo
instance AttrInfo FileChooserExtraWidgetPropertyInfo where
type AttrAllowedOps FileChooserExtraWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserExtraWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrBaseTypeConstraint FileChooserExtraWidgetPropertyInfo = IsFileChooser
type AttrGetType FileChooserExtraWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel FileChooserExtraWidgetPropertyInfo = "extra-widget"
type AttrOrigin FileChooserExtraWidgetPropertyInfo = FileChooser
attrGet _ = getFileChooserExtraWidget
attrSet _ = setFileChooserExtraWidget
attrConstruct _ = constructFileChooserExtraWidget
attrClear _ = undefined
#endif
getFileChooserFilter :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.FileFilter.FileFilter)
getFileChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter.FileFilter
setFileChooserFilter :: (MonadIO m, IsFileChooser o, Gtk.FileFilter.IsFileFilter a) => o -> a -> m ()
setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" (Just val)
constructFileChooserFilter :: (IsFileChooser o, Gtk.FileFilter.IsFileFilter a) => a -> IO (GValueConstruct o)
constructFileChooserFilter val = constructObjectPropertyObject "filter" (Just val)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserFilterPropertyInfo
instance AttrInfo FileChooserFilterPropertyInfo where
type AttrAllowedOps FileChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserFilterPropertyInfo = Gtk.FileFilter.IsFileFilter
type AttrBaseTypeConstraint FileChooserFilterPropertyInfo = IsFileChooser
type AttrGetType FileChooserFilterPropertyInfo = (Maybe Gtk.FileFilter.FileFilter)
type AttrLabel FileChooserFilterPropertyInfo = "filter"
type AttrOrigin FileChooserFilterPropertyInfo = FileChooser
attrGet _ = getFileChooserFilter
attrSet _ = setFileChooserFilter
attrConstruct _ = constructFileChooserFilter
attrClear _ = undefined
#endif
getFileChooserLocalOnly :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only"
setFileChooserLocalOnly :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserLocalOnly obj val = liftIO $ setObjectPropertyBool obj "local-only" val
constructFileChooserLocalOnly :: (IsFileChooser o) => Bool -> IO (GValueConstruct o)
constructFileChooserLocalOnly val = constructObjectPropertyBool "local-only" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserLocalOnlyPropertyInfo
instance AttrInfo FileChooserLocalOnlyPropertyInfo where
type AttrAllowedOps FileChooserLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserLocalOnlyPropertyInfo = (~) Bool
type AttrBaseTypeConstraint FileChooserLocalOnlyPropertyInfo = IsFileChooser
type AttrGetType FileChooserLocalOnlyPropertyInfo = Bool
type AttrLabel FileChooserLocalOnlyPropertyInfo = "local-only"
type AttrOrigin FileChooserLocalOnlyPropertyInfo = FileChooser
attrGet _ = getFileChooserLocalOnly
attrSet _ = setFileChooserLocalOnly
attrConstruct _ = constructFileChooserLocalOnly
attrClear _ = undefined
#endif
getFileChooserPreviewWidget :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.Widget.Widget)
getFileChooserPreviewWidget obj = liftIO $ getObjectPropertyObject obj "preview-widget" Gtk.Widget.Widget
setFileChooserPreviewWidget :: (MonadIO m, IsFileChooser o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" (Just val)
constructFileChooserPreviewWidget :: (IsFileChooser o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" (Just val)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserPreviewWidgetPropertyInfo
instance AttrInfo FileChooserPreviewWidgetPropertyInfo where
type AttrAllowedOps FileChooserPreviewWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserPreviewWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrBaseTypeConstraint FileChooserPreviewWidgetPropertyInfo = IsFileChooser
type AttrGetType FileChooserPreviewWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel FileChooserPreviewWidgetPropertyInfo = "preview-widget"
type AttrOrigin FileChooserPreviewWidgetPropertyInfo = FileChooser
attrGet _ = getFileChooserPreviewWidget
attrSet _ = setFileChooserPreviewWidget
attrConstruct _ = constructFileChooserPreviewWidget
attrClear _ = undefined
#endif
getFileChooserPreviewWidgetActive :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserPreviewWidgetActive obj = liftIO $ getObjectPropertyBool obj "preview-widget-active"
setFileChooserPreviewWidgetActive :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserPreviewWidgetActive obj val = liftIO $ setObjectPropertyBool obj "preview-widget-active" val
constructFileChooserPreviewWidgetActive :: (IsFileChooser o) => Bool -> IO (GValueConstruct o)
constructFileChooserPreviewWidgetActive val = constructObjectPropertyBool "preview-widget-active" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserPreviewWidgetActivePropertyInfo
instance AttrInfo FileChooserPreviewWidgetActivePropertyInfo where
type AttrAllowedOps FileChooserPreviewWidgetActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = IsFileChooser
type AttrGetType FileChooserPreviewWidgetActivePropertyInfo = Bool
type AttrLabel FileChooserPreviewWidgetActivePropertyInfo = "preview-widget-active"
type AttrOrigin FileChooserPreviewWidgetActivePropertyInfo = FileChooser
attrGet _ = getFileChooserPreviewWidgetActive
attrSet _ = setFileChooserPreviewWidgetActive
attrConstruct _ = constructFileChooserPreviewWidgetActive
attrClear _ = undefined
#endif
getFileChooserSelectMultiple :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple"
setFileChooserSelectMultiple :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserSelectMultiple obj val = liftIO $ setObjectPropertyBool obj "select-multiple" val
constructFileChooserSelectMultiple :: (IsFileChooser o) => Bool -> IO (GValueConstruct o)
constructFileChooserSelectMultiple val = constructObjectPropertyBool "select-multiple" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSelectMultiplePropertyInfo
instance AttrInfo FileChooserSelectMultiplePropertyInfo where
type AttrAllowedOps FileChooserSelectMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserSelectMultiplePropertyInfo = (~) Bool
type AttrBaseTypeConstraint FileChooserSelectMultiplePropertyInfo = IsFileChooser
type AttrGetType FileChooserSelectMultiplePropertyInfo = Bool
type AttrLabel FileChooserSelectMultiplePropertyInfo = "select-multiple"
type AttrOrigin FileChooserSelectMultiplePropertyInfo = FileChooser
attrGet _ = getFileChooserSelectMultiple
attrSet _ = setFileChooserSelectMultiple
attrConstruct _ = constructFileChooserSelectMultiple
attrClear _ = undefined
#endif
getFileChooserShowHidden :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserShowHidden obj = liftIO $ getObjectPropertyBool obj "show-hidden"
setFileChooserShowHidden :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserShowHidden obj val = liftIO $ setObjectPropertyBool obj "show-hidden" val
constructFileChooserShowHidden :: (IsFileChooser o) => Bool -> IO (GValueConstruct o)
constructFileChooserShowHidden val = constructObjectPropertyBool "show-hidden" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserShowHiddenPropertyInfo
instance AttrInfo FileChooserShowHiddenPropertyInfo where
type AttrAllowedOps FileChooserShowHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserShowHiddenPropertyInfo = (~) Bool
type AttrBaseTypeConstraint FileChooserShowHiddenPropertyInfo = IsFileChooser
type AttrGetType FileChooserShowHiddenPropertyInfo = Bool
type AttrLabel FileChooserShowHiddenPropertyInfo = "show-hidden"
type AttrOrigin FileChooserShowHiddenPropertyInfo = FileChooser
attrGet _ = getFileChooserShowHidden
attrSet _ = setFileChooserShowHidden
attrConstruct _ = constructFileChooserShowHidden
attrClear _ = undefined
#endif
getFileChooserUsePreviewLabel :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserUsePreviewLabel obj = liftIO $ getObjectPropertyBool obj "use-preview-label"
setFileChooserUsePreviewLabel :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserUsePreviewLabel obj val = liftIO $ setObjectPropertyBool obj "use-preview-label" val
constructFileChooserUsePreviewLabel :: (IsFileChooser o) => Bool -> IO (GValueConstruct o)
constructFileChooserUsePreviewLabel val = constructObjectPropertyBool "use-preview-label" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserUsePreviewLabelPropertyInfo
instance AttrInfo FileChooserUsePreviewLabelPropertyInfo where
type AttrAllowedOps FileChooserUsePreviewLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FileChooserUsePreviewLabelPropertyInfo = (~) Bool
type AttrBaseTypeConstraint FileChooserUsePreviewLabelPropertyInfo = IsFileChooser
type AttrGetType FileChooserUsePreviewLabelPropertyInfo = Bool
type AttrLabel FileChooserUsePreviewLabelPropertyInfo = "use-preview-label"
type AttrOrigin FileChooserUsePreviewLabelPropertyInfo = FileChooser
attrGet _ = getFileChooserUsePreviewLabel
attrSet _ = setFileChooserUsePreviewLabel
attrConstruct _ = constructFileChooserUsePreviewLabel
attrClear _ = undefined
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList FileChooser
type instance O.AttributeList FileChooser = FileChooserAttributeList
type FileChooserAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
fileChooserAction :: AttrLabelProxy "action"
fileChooserAction = AttrLabelProxy
fileChooserCreateFolders :: AttrLabelProxy "createFolders"
fileChooserCreateFolders = AttrLabelProxy
fileChooserDoOverwriteConfirmation :: AttrLabelProxy "doOverwriteConfirmation"
fileChooserDoOverwriteConfirmation = AttrLabelProxy
fileChooserExtraWidget :: AttrLabelProxy "extraWidget"
fileChooserExtraWidget = AttrLabelProxy
fileChooserFilter :: AttrLabelProxy "filter"
fileChooserFilter = AttrLabelProxy
fileChooserLocalOnly :: AttrLabelProxy "localOnly"
fileChooserLocalOnly = AttrLabelProxy
fileChooserPreviewWidget :: AttrLabelProxy "previewWidget"
fileChooserPreviewWidget = AttrLabelProxy
fileChooserPreviewWidgetActive :: AttrLabelProxy "previewWidgetActive"
fileChooserPreviewWidgetActive = AttrLabelProxy
fileChooserSelectMultiple :: AttrLabelProxy "selectMultiple"
fileChooserSelectMultiple = AttrLabelProxy
fileChooserShowHidden :: AttrLabelProxy "showHidden"
fileChooserShowHidden = AttrLabelProxy
fileChooserUsePreviewLabel :: AttrLabelProxy "usePreviewLabel"
fileChooserUsePreviewLabel = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveFileChooserMethod (t :: Symbol) (o :: *) :: * where
ResolveFileChooserMethod "addChoice" o = FileChooserAddChoiceMethodInfo
ResolveFileChooserMethod "addFilter" o = FileChooserAddFilterMethodInfo
ResolveFileChooserMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo
ResolveFileChooserMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo
ResolveFileChooserMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFileChooserMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFileChooserMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFileChooserMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFileChooserMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFileChooserMethod "listFilters" o = FileChooserListFiltersMethodInfo
ResolveFileChooserMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo
ResolveFileChooserMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo
ResolveFileChooserMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFileChooserMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFileChooserMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFileChooserMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFileChooserMethod "removeChoice" o = FileChooserRemoveChoiceMethodInfo
ResolveFileChooserMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo
ResolveFileChooserMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo
ResolveFileChooserMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo
ResolveFileChooserMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveFileChooserMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveFileChooserMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFileChooserMethod "selectAll" o = FileChooserSelectAllMethodInfo
ResolveFileChooserMethod "selectFile" o = FileChooserSelectFileMethodInfo
ResolveFileChooserMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo
ResolveFileChooserMethod "selectUri" o = FileChooserSelectUriMethodInfo
ResolveFileChooserMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFileChooserMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFileChooserMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFileChooserMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFileChooserMethod "unselectAll" o = FileChooserUnselectAllMethodInfo
ResolveFileChooserMethod "unselectFile" o = FileChooserUnselectFileMethodInfo
ResolveFileChooserMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo
ResolveFileChooserMethod "unselectUri" o = FileChooserUnselectUriMethodInfo
ResolveFileChooserMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFileChooserMethod "getAction" o = FileChooserGetActionMethodInfo
ResolveFileChooserMethod "getChoice" o = FileChooserGetChoiceMethodInfo
ResolveFileChooserMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo
ResolveFileChooserMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo
ResolveFileChooserMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo
ResolveFileChooserMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo
ResolveFileChooserMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo
ResolveFileChooserMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFileChooserMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo
ResolveFileChooserMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo
ResolveFileChooserMethod "getFile" o = FileChooserGetFileMethodInfo
ResolveFileChooserMethod "getFilename" o = FileChooserGetFilenameMethodInfo
ResolveFileChooserMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo
ResolveFileChooserMethod "getFiles" o = FileChooserGetFilesMethodInfo
ResolveFileChooserMethod "getFilter" o = FileChooserGetFilterMethodInfo
ResolveFileChooserMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo
ResolveFileChooserMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo
ResolveFileChooserMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo
ResolveFileChooserMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo
ResolveFileChooserMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo
ResolveFileChooserMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo
ResolveFileChooserMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFileChooserMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFileChooserMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo
ResolveFileChooserMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo
ResolveFileChooserMethod "getUri" o = FileChooserGetUriMethodInfo
ResolveFileChooserMethod "getUris" o = FileChooserGetUrisMethodInfo
ResolveFileChooserMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo
ResolveFileChooserMethod "setAction" o = FileChooserSetActionMethodInfo
ResolveFileChooserMethod "setChoice" o = FileChooserSetChoiceMethodInfo
ResolveFileChooserMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo
ResolveFileChooserMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo
ResolveFileChooserMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo
ResolveFileChooserMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo
ResolveFileChooserMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo
ResolveFileChooserMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFileChooserMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo
ResolveFileChooserMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo
ResolveFileChooserMethod "setFile" o = FileChooserSetFileMethodInfo
ResolveFileChooserMethod "setFilename" o = FileChooserSetFilenameMethodInfo
ResolveFileChooserMethod "setFilter" o = FileChooserSetFilterMethodInfo
ResolveFileChooserMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo
ResolveFileChooserMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo
ResolveFileChooserMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo
ResolveFileChooserMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFileChooserMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo
ResolveFileChooserMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo
ResolveFileChooserMethod "setUri" o = FileChooserSetUriMethodInfo
ResolveFileChooserMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo
ResolveFileChooserMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFileChooserMethod t FileChooser, O.MethodInfo info FileChooser p) => O.IsLabelProxy t (FileChooser -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveFileChooserMethod t FileChooser, O.MethodInfo info FileChooser p) => O.IsLabel t (FileChooser -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
foreign import ccall "gtk_file_chooser_add_choice" gtk_file_chooser_add_choice ::
Ptr FileChooser ->
CString ->
CString ->
CString ->
CString ->
IO ()
fileChooserAddChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> T.Text
-> T.Text
-> T.Text
-> m ()
fileChooserAddChoice chooser id label options optionLabels = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
id' <- textToCString id
label' <- textToCString label
options' <- textToCString options
optionLabels' <- textToCString optionLabels
gtk_file_chooser_add_choice chooser' id' label' options' optionLabels'
touchManagedPtr chooser
freeMem id'
freeMem label'
freeMem options'
freeMem optionLabels'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserAddChoiceMethodInfo
instance (signature ~ (T.Text -> T.Text -> T.Text -> T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserAddChoiceMethodInfo a signature where
overloadedMethod _ = fileChooserAddChoice
#endif
foreign import ccall "gtk_file_chooser_add_filter" gtk_file_chooser_add_filter ::
Ptr FileChooser ->
Ptr Gtk.FileFilter.FileFilter ->
IO ()
fileChooserAddFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) =>
a
-> b
-> m ()
fileChooserAddFilter chooser filter = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
filter' <- B.ManagedPtr.disownObject filter
gtk_file_chooser_add_filter chooser' filter'
touchManagedPtr chooser
touchManagedPtr filter
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserAddFilterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.MethodInfo FileChooserAddFilterMethodInfo a signature where
overloadedMethod _ = fileChooserAddFilter
#endif
foreign import ccall "gtk_file_chooser_add_shortcut_folder" gtk_file_chooser_add_shortcut_folder ::
Ptr FileChooser ->
CString ->
Ptr (Ptr GError) ->
IO CInt
fileChooserAddShortcutFolder ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> [Char]
-> m ()
fileChooserAddShortcutFolder chooser folder = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
folder' <- stringToCString folder
onException (do
_ <- propagateGError $ gtk_file_chooser_add_shortcut_folder chooser' folder'
touchManagedPtr chooser
freeMem folder'
return ()
) (do
freeMem folder'
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserAddShortcutFolderMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserAddShortcutFolderMethodInfo a signature where
overloadedMethod _ = fileChooserAddShortcutFolder
#endif
foreign import ccall "gtk_file_chooser_add_shortcut_folder_uri" gtk_file_chooser_add_shortcut_folder_uri ::
Ptr FileChooser ->
CString ->
Ptr (Ptr GError) ->
IO CInt
fileChooserAddShortcutFolderUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> m ()
fileChooserAddShortcutFolderUri chooser uri = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_file_chooser_add_shortcut_folder_uri chooser' uri'
touchManagedPtr chooser
freeMem uri'
return ()
) (do
freeMem uri'
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserAddShortcutFolderUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserAddShortcutFolderUriMethodInfo a signature where
overloadedMethod _ = fileChooserAddShortcutFolderUri
#endif
foreign import ccall "gtk_file_chooser_get_action" gtk_file_chooser_get_action ::
Ptr FileChooser ->
IO CUInt
fileChooserGetAction ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Gtk.Enums.FileChooserAction
fileChooserGetAction chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_action chooser'
let result' = (toEnum . fromIntegral) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetActionMethodInfo
instance (signature ~ (m Gtk.Enums.FileChooserAction), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetActionMethodInfo a signature where
overloadedMethod _ = fileChooserGetAction
#endif
foreign import ccall "gtk_file_chooser_get_choice" gtk_file_chooser_get_choice ::
Ptr FileChooser ->
CString ->
IO CString
fileChooserGetChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> m T.Text
fileChooserGetChoice chooser id = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
id' <- textToCString id
result <- gtk_file_chooser_get_choice chooser' id'
checkUnexpectedReturnNULL "fileChooserGetChoice" result
result' <- cstringToText result
touchManagedPtr chooser
freeMem id'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetChoiceMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetChoiceMethodInfo a signature where
overloadedMethod _ = fileChooserGetChoice
#endif
foreign import ccall "gtk_file_chooser_get_create_folders" gtk_file_chooser_get_create_folders ::
Ptr FileChooser ->
IO CInt
fileChooserGetCreateFolders ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Bool
fileChooserGetCreateFolders chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_create_folders chooser'
let result' = (/= 0) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetCreateFoldersMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCreateFoldersMethodInfo a signature where
overloadedMethod _ = fileChooserGetCreateFolders
#endif
foreign import ccall "gtk_file_chooser_get_current_folder" gtk_file_chooser_get_current_folder ::
Ptr FileChooser ->
IO CString
fileChooserGetCurrentFolder ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe [Char])
fileChooserGetCurrentFolder chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_current_folder chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToString result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetCurrentFolderMethodInfo
instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCurrentFolderMethodInfo a signature where
overloadedMethod _ = fileChooserGetCurrentFolder
#endif
foreign import ccall "gtk_file_chooser_get_current_folder_file" gtk_file_chooser_get_current_folder_file ::
Ptr FileChooser ->
IO (Ptr Gio.File.File)
fileChooserGetCurrentFolderFile ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Gio.File.File
fileChooserGetCurrentFolderFile chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_current_folder_file chooser'
checkUnexpectedReturnNULL "fileChooserGetCurrentFolderFile" result
result' <- (wrapObject Gio.File.File) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetCurrentFolderFileMethodInfo
instance (signature ~ (m Gio.File.File), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCurrentFolderFileMethodInfo a signature where
overloadedMethod _ = fileChooserGetCurrentFolderFile
#endif
foreign import ccall "gtk_file_chooser_get_current_folder_uri" gtk_file_chooser_get_current_folder_uri ::
Ptr FileChooser ->
IO CString
fileChooserGetCurrentFolderUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe T.Text)
fileChooserGetCurrentFolderUri chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_current_folder_uri chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetCurrentFolderUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCurrentFolderUriMethodInfo a signature where
overloadedMethod _ = fileChooserGetCurrentFolderUri
#endif
foreign import ccall "gtk_file_chooser_get_current_name" gtk_file_chooser_get_current_name ::
Ptr FileChooser ->
IO CString
fileChooserGetCurrentName ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m T.Text
fileChooserGetCurrentName chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_current_name chooser'
checkUnexpectedReturnNULL "fileChooserGetCurrentName" result
result' <- cstringToText result
freeMem result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetCurrentNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCurrentNameMethodInfo a signature where
overloadedMethod _ = fileChooserGetCurrentName
#endif
foreign import ccall "gtk_file_chooser_get_do_overwrite_confirmation" gtk_file_chooser_get_do_overwrite_confirmation ::
Ptr FileChooser ->
IO CInt
fileChooserGetDoOverwriteConfirmation ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Bool
fileChooserGetDoOverwriteConfirmation chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_do_overwrite_confirmation chooser'
let result' = (/= 0) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetDoOverwriteConfirmationMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetDoOverwriteConfirmationMethodInfo a signature where
overloadedMethod _ = fileChooserGetDoOverwriteConfirmation
#endif
foreign import ccall "gtk_file_chooser_get_extra_widget" gtk_file_chooser_get_extra_widget ::
Ptr FileChooser ->
IO (Ptr Gtk.Widget.Widget)
fileChooserGetExtraWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe Gtk.Widget.Widget)
fileChooserGetExtraWidget chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_extra_widget chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Widget.Widget) result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetExtraWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetExtraWidgetMethodInfo a signature where
overloadedMethod _ = fileChooserGetExtraWidget
#endif
foreign import ccall "gtk_file_chooser_get_file" gtk_file_chooser_get_file ::
Ptr FileChooser ->
IO (Ptr Gio.File.File)
fileChooserGetFile ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Gio.File.File
fileChooserGetFile chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_file chooser'
checkUnexpectedReturnNULL "fileChooserGetFile" result
result' <- (wrapObject Gio.File.File) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetFileMethodInfo
instance (signature ~ (m Gio.File.File), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFileMethodInfo a signature where
overloadedMethod _ = fileChooserGetFile
#endif
foreign import ccall "gtk_file_chooser_get_filename" gtk_file_chooser_get_filename ::
Ptr FileChooser ->
IO CString
fileChooserGetFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe [Char])
fileChooserGetFilename chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_filename chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToString result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetFilenameMethodInfo
instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFilenameMethodInfo a signature where
overloadedMethod _ = fileChooserGetFilename
#endif
foreign import ccall "gtk_file_chooser_get_filenames" gtk_file_chooser_get_filenames ::
Ptr FileChooser ->
IO (Ptr (GSList CString))
fileChooserGetFilenames ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m [[Char]]
fileChooserGetFilenames chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_filenames chooser'
result' <- unpackGSList result
result'' <- mapM cstringToString result'
mapGSList freeMem result
g_slist_free result
touchManagedPtr chooser
return result''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetFilenamesMethodInfo
instance (signature ~ (m [[Char]]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFilenamesMethodInfo a signature where
overloadedMethod _ = fileChooserGetFilenames
#endif
foreign import ccall "gtk_file_chooser_get_files" gtk_file_chooser_get_files ::
Ptr FileChooser ->
IO (Ptr (GSList (Ptr Gio.File.File)))
fileChooserGetFiles ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m [Gio.File.File]
fileChooserGetFiles chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_files chooser'
result' <- unpackGSList result
result'' <- mapM (wrapObject Gio.File.File) result'
g_slist_free result
touchManagedPtr chooser
return result''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetFilesMethodInfo
instance (signature ~ (m [Gio.File.File]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFilesMethodInfo a signature where
overloadedMethod _ = fileChooserGetFiles
#endif
foreign import ccall "gtk_file_chooser_get_filter" gtk_file_chooser_get_filter ::
Ptr FileChooser ->
IO (Ptr Gtk.FileFilter.FileFilter)
fileChooserGetFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe Gtk.FileFilter.FileFilter)
fileChooserGetFilter chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_filter chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.FileFilter.FileFilter) result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetFilterMethodInfo
instance (signature ~ (m (Maybe Gtk.FileFilter.FileFilter)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFilterMethodInfo a signature where
overloadedMethod _ = fileChooserGetFilter
#endif
foreign import ccall "gtk_file_chooser_get_local_only" gtk_file_chooser_get_local_only ::
Ptr FileChooser ->
IO CInt
fileChooserGetLocalOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Bool
fileChooserGetLocalOnly chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_local_only chooser'
let result' = (/= 0) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetLocalOnlyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetLocalOnlyMethodInfo a signature where
overloadedMethod _ = fileChooserGetLocalOnly
#endif
foreign import ccall "gtk_file_chooser_get_preview_file" gtk_file_chooser_get_preview_file ::
Ptr FileChooser ->
IO (Ptr Gio.File.File)
fileChooserGetPreviewFile ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe Gio.File.File)
fileChooserGetPreviewFile chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_preview_file chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapObject Gio.File.File) result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetPreviewFileMethodInfo
instance (signature ~ (m (Maybe Gio.File.File)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewFileMethodInfo a signature where
overloadedMethod _ = fileChooserGetPreviewFile
#endif
foreign import ccall "gtk_file_chooser_get_preview_filename" gtk_file_chooser_get_preview_filename ::
Ptr FileChooser ->
IO CString
fileChooserGetPreviewFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe [Char])
fileChooserGetPreviewFilename chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_preview_filename chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToString result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetPreviewFilenameMethodInfo
instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewFilenameMethodInfo a signature where
overloadedMethod _ = fileChooserGetPreviewFilename
#endif
foreign import ccall "gtk_file_chooser_get_preview_uri" gtk_file_chooser_get_preview_uri ::
Ptr FileChooser ->
IO CString
fileChooserGetPreviewUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe T.Text)
fileChooserGetPreviewUri chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_preview_uri chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetPreviewUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewUriMethodInfo a signature where
overloadedMethod _ = fileChooserGetPreviewUri
#endif
foreign import ccall "gtk_file_chooser_get_preview_widget" gtk_file_chooser_get_preview_widget ::
Ptr FileChooser ->
IO (Ptr Gtk.Widget.Widget)
fileChooserGetPreviewWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe Gtk.Widget.Widget)
fileChooserGetPreviewWidget chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_preview_widget chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Widget.Widget) result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetPreviewWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewWidgetMethodInfo a signature where
overloadedMethod _ = fileChooserGetPreviewWidget
#endif
foreign import ccall "gtk_file_chooser_get_preview_widget_active" gtk_file_chooser_get_preview_widget_active ::
Ptr FileChooser ->
IO CInt
fileChooserGetPreviewWidgetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Bool
fileChooserGetPreviewWidgetActive chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_preview_widget_active chooser'
let result' = (/= 0) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetPreviewWidgetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewWidgetActiveMethodInfo a signature where
overloadedMethod _ = fileChooserGetPreviewWidgetActive
#endif
foreign import ccall "gtk_file_chooser_get_select_multiple" gtk_file_chooser_get_select_multiple ::
Ptr FileChooser ->
IO CInt
fileChooserGetSelectMultiple ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Bool
fileChooserGetSelectMultiple chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_select_multiple chooser'
let result' = (/= 0) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetSelectMultipleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetSelectMultipleMethodInfo a signature where
overloadedMethod _ = fileChooserGetSelectMultiple
#endif
foreign import ccall "gtk_file_chooser_get_show_hidden" gtk_file_chooser_get_show_hidden ::
Ptr FileChooser ->
IO CInt
fileChooserGetShowHidden ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Bool
fileChooserGetShowHidden chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_show_hidden chooser'
let result' = (/= 0) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetShowHiddenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetShowHiddenMethodInfo a signature where
overloadedMethod _ = fileChooserGetShowHidden
#endif
foreign import ccall "gtk_file_chooser_get_uri" gtk_file_chooser_get_uri ::
Ptr FileChooser ->
IO CString
fileChooserGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m (Maybe T.Text)
fileChooserGetUri chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_uri chooser'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetUriMethodInfo a signature where
overloadedMethod _ = fileChooserGetUri
#endif
foreign import ccall "gtk_file_chooser_get_uris" gtk_file_chooser_get_uris ::
Ptr FileChooser ->
IO (Ptr (GSList CString))
fileChooserGetUris ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m [T.Text]
fileChooserGetUris chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_uris chooser'
result' <- unpackGSList result
result'' <- mapM cstringToText result'
mapGSList freeMem result
g_slist_free result
touchManagedPtr chooser
return result''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetUrisMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetUrisMethodInfo a signature where
overloadedMethod _ = fileChooserGetUris
#endif
foreign import ccall "gtk_file_chooser_get_use_preview_label" gtk_file_chooser_get_use_preview_label ::
Ptr FileChooser ->
IO CInt
fileChooserGetUsePreviewLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m Bool
fileChooserGetUsePreviewLabel chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_get_use_preview_label chooser'
let result' = (/= 0) result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserGetUsePreviewLabelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetUsePreviewLabelMethodInfo a signature where
overloadedMethod _ = fileChooserGetUsePreviewLabel
#endif
foreign import ccall "gtk_file_chooser_list_filters" gtk_file_chooser_list_filters ::
Ptr FileChooser ->
IO (Ptr (GSList (Ptr Gtk.FileFilter.FileFilter)))
fileChooserListFilters ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m [Gtk.FileFilter.FileFilter]
fileChooserListFilters chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_list_filters chooser'
result' <- unpackGSList result
result'' <- mapM (newObject Gtk.FileFilter.FileFilter) result'
g_slist_free result
touchManagedPtr chooser
return result''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserListFiltersMethodInfo
instance (signature ~ (m [Gtk.FileFilter.FileFilter]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserListFiltersMethodInfo a signature where
overloadedMethod _ = fileChooserListFilters
#endif
foreign import ccall "gtk_file_chooser_list_shortcut_folder_uris" gtk_file_chooser_list_shortcut_folder_uris ::
Ptr FileChooser ->
IO (Ptr (GSList CString))
fileChooserListShortcutFolderUris ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m [T.Text]
fileChooserListShortcutFolderUris chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_list_shortcut_folder_uris chooser'
result' <- unpackGSList result
result'' <- mapM cstringToText result'
mapGSList freeMem result
g_slist_free result
touchManagedPtr chooser
return result''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserListShortcutFolderUrisMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserListShortcutFolderUrisMethodInfo a signature where
overloadedMethod _ = fileChooserListShortcutFolderUris
#endif
foreign import ccall "gtk_file_chooser_list_shortcut_folders" gtk_file_chooser_list_shortcut_folders ::
Ptr FileChooser ->
IO (Ptr (GSList CString))
fileChooserListShortcutFolders ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m [[Char]]
fileChooserListShortcutFolders chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
result <- gtk_file_chooser_list_shortcut_folders chooser'
result' <- unpackGSList result
result'' <- mapM cstringToString result'
mapGSList freeMem result
g_slist_free result
touchManagedPtr chooser
return result''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserListShortcutFoldersMethodInfo
instance (signature ~ (m [[Char]]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserListShortcutFoldersMethodInfo a signature where
overloadedMethod _ = fileChooserListShortcutFolders
#endif
foreign import ccall "gtk_file_chooser_remove_choice" gtk_file_chooser_remove_choice ::
Ptr FileChooser ->
CString ->
IO ()
fileChooserRemoveChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> m ()
fileChooserRemoveChoice chooser id = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
id' <- textToCString id
gtk_file_chooser_remove_choice chooser' id'
touchManagedPtr chooser
freeMem id'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserRemoveChoiceMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserRemoveChoiceMethodInfo a signature where
overloadedMethod _ = fileChooserRemoveChoice
#endif
foreign import ccall "gtk_file_chooser_remove_filter" gtk_file_chooser_remove_filter ::
Ptr FileChooser ->
Ptr Gtk.FileFilter.FileFilter ->
IO ()
fileChooserRemoveFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) =>
a
-> b
-> m ()
fileChooserRemoveFilter chooser filter = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
filter' <- unsafeManagedPtrCastPtr filter
gtk_file_chooser_remove_filter chooser' filter'
touchManagedPtr chooser
touchManagedPtr filter
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserRemoveFilterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.MethodInfo FileChooserRemoveFilterMethodInfo a signature where
overloadedMethod _ = fileChooserRemoveFilter
#endif
foreign import ccall "gtk_file_chooser_remove_shortcut_folder" gtk_file_chooser_remove_shortcut_folder ::
Ptr FileChooser ->
CString ->
Ptr (Ptr GError) ->
IO CInt
fileChooserRemoveShortcutFolder ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> [Char]
-> m ()
fileChooserRemoveShortcutFolder chooser folder = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
folder' <- stringToCString folder
onException (do
_ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder chooser' folder'
touchManagedPtr chooser
freeMem folder'
return ()
) (do
freeMem folder'
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserRemoveShortcutFolderMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserRemoveShortcutFolderMethodInfo a signature where
overloadedMethod _ = fileChooserRemoveShortcutFolder
#endif
foreign import ccall "gtk_file_chooser_remove_shortcut_folder_uri" gtk_file_chooser_remove_shortcut_folder_uri ::
Ptr FileChooser ->
CString ->
Ptr (Ptr GError) ->
IO CInt
fileChooserRemoveShortcutFolderUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> m ()
fileChooserRemoveShortcutFolderUri chooser uri = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder_uri chooser' uri'
touchManagedPtr chooser
freeMem uri'
return ()
) (do
freeMem uri'
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserRemoveShortcutFolderUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserRemoveShortcutFolderUriMethodInfo a signature where
overloadedMethod _ = fileChooserRemoveShortcutFolderUri
#endif
foreign import ccall "gtk_file_chooser_select_all" gtk_file_chooser_select_all ::
Ptr FileChooser ->
IO ()
fileChooserSelectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m ()
fileChooserSelectAll chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
gtk_file_chooser_select_all chooser'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSelectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSelectAllMethodInfo a signature where
overloadedMethod _ = fileChooserSelectAll
#endif
foreign import ccall "gtk_file_chooser_select_file" gtk_file_chooser_select_file ::
Ptr FileChooser ->
Ptr Gio.File.File ->
Ptr (Ptr GError) ->
IO CInt
fileChooserSelectFile ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gio.File.IsFile b) =>
a
-> b
-> m ()
fileChooserSelectFile chooser file = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
file' <- unsafeManagedPtrCastPtr file
onException (do
_ <- propagateGError $ gtk_file_chooser_select_file chooser' file'
touchManagedPtr chooser
touchManagedPtr file
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSelectFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.MethodInfo FileChooserSelectFileMethodInfo a signature where
overloadedMethod _ = fileChooserSelectFile
#endif
foreign import ccall "gtk_file_chooser_select_filename" gtk_file_chooser_select_filename ::
Ptr FileChooser ->
CString ->
IO CInt
fileChooserSelectFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> [Char]
-> m Bool
fileChooserSelectFilename chooser filename = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
filename' <- stringToCString filename
result <- gtk_file_chooser_select_filename chooser' filename'
let result' = (/= 0) result
touchManagedPtr chooser
freeMem filename'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSelectFilenameMethodInfo
instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSelectFilenameMethodInfo a signature where
overloadedMethod _ = fileChooserSelectFilename
#endif
foreign import ccall "gtk_file_chooser_select_uri" gtk_file_chooser_select_uri ::
Ptr FileChooser ->
CString ->
IO CInt
fileChooserSelectUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> m Bool
fileChooserSelectUri chooser uri = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
uri' <- textToCString uri
result <- gtk_file_chooser_select_uri chooser' uri'
let result' = (/= 0) result
touchManagedPtr chooser
freeMem uri'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSelectUriMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSelectUriMethodInfo a signature where
overloadedMethod _ = fileChooserSelectUri
#endif
foreign import ccall "gtk_file_chooser_set_action" gtk_file_chooser_set_action ::
Ptr FileChooser ->
CUInt ->
IO ()
fileChooserSetAction ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> Gtk.Enums.FileChooserAction
-> m ()
fileChooserSetAction chooser action = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
let action' = (fromIntegral . fromEnum) action
gtk_file_chooser_set_action chooser' action'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetActionMethodInfo
instance (signature ~ (Gtk.Enums.FileChooserAction -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetActionMethodInfo a signature where
overloadedMethod _ = fileChooserSetAction
#endif
foreign import ccall "gtk_file_chooser_set_choice" gtk_file_chooser_set_choice ::
Ptr FileChooser ->
CString ->
CString ->
IO ()
fileChooserSetChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> T.Text
-> m ()
fileChooserSetChoice chooser id option = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
id' <- textToCString id
option' <- textToCString option
gtk_file_chooser_set_choice chooser' id' option'
touchManagedPtr chooser
freeMem id'
freeMem option'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetChoiceMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetChoiceMethodInfo a signature where
overloadedMethod _ = fileChooserSetChoice
#endif
foreign import ccall "gtk_file_chooser_set_create_folders" gtk_file_chooser_set_create_folders ::
Ptr FileChooser ->
CInt ->
IO ()
fileChooserSetCreateFolders ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> Bool
-> m ()
fileChooserSetCreateFolders chooser createFolders = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
let createFolders' = (fromIntegral . fromEnum) createFolders
gtk_file_chooser_set_create_folders chooser' createFolders'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetCreateFoldersMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetCreateFoldersMethodInfo a signature where
overloadedMethod _ = fileChooserSetCreateFolders
#endif
foreign import ccall "gtk_file_chooser_set_current_folder" gtk_file_chooser_set_current_folder ::
Ptr FileChooser ->
CString ->
IO CInt
fileChooserSetCurrentFolder ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> [Char]
-> m Bool
fileChooserSetCurrentFolder chooser filename = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
filename' <- stringToCString filename
result <- gtk_file_chooser_set_current_folder chooser' filename'
let result' = (/= 0) result
touchManagedPtr chooser
freeMem filename'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetCurrentFolderMethodInfo
instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetCurrentFolderMethodInfo a signature where
overloadedMethod _ = fileChooserSetCurrentFolder
#endif
foreign import ccall "gtk_file_chooser_set_current_folder_file" gtk_file_chooser_set_current_folder_file ::
Ptr FileChooser ->
Ptr Gio.File.File ->
Ptr (Ptr GError) ->
IO CInt
fileChooserSetCurrentFolderFile ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gio.File.IsFile b) =>
a
-> b
-> m ()
fileChooserSetCurrentFolderFile chooser file = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
file' <- unsafeManagedPtrCastPtr file
onException (do
_ <- propagateGError $ gtk_file_chooser_set_current_folder_file chooser' file'
touchManagedPtr chooser
touchManagedPtr file
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetCurrentFolderFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.MethodInfo FileChooserSetCurrentFolderFileMethodInfo a signature where
overloadedMethod _ = fileChooserSetCurrentFolderFile
#endif
foreign import ccall "gtk_file_chooser_set_current_folder_uri" gtk_file_chooser_set_current_folder_uri ::
Ptr FileChooser ->
CString ->
IO CInt
fileChooserSetCurrentFolderUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> m Bool
fileChooserSetCurrentFolderUri chooser uri = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
uri' <- textToCString uri
result <- gtk_file_chooser_set_current_folder_uri chooser' uri'
let result' = (/= 0) result
touchManagedPtr chooser
freeMem uri'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetCurrentFolderUriMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetCurrentFolderUriMethodInfo a signature where
overloadedMethod _ = fileChooserSetCurrentFolderUri
#endif
foreign import ccall "gtk_file_chooser_set_current_name" gtk_file_chooser_set_current_name ::
Ptr FileChooser ->
CString ->
IO ()
fileChooserSetCurrentName ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> [Char]
-> m ()
fileChooserSetCurrentName chooser name = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
name' <- stringToCString name
gtk_file_chooser_set_current_name chooser' name'
touchManagedPtr chooser
freeMem name'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetCurrentNameMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetCurrentNameMethodInfo a signature where
overloadedMethod _ = fileChooserSetCurrentName
#endif
foreign import ccall "gtk_file_chooser_set_do_overwrite_confirmation" gtk_file_chooser_set_do_overwrite_confirmation ::
Ptr FileChooser ->
CInt ->
IO ()
fileChooserSetDoOverwriteConfirmation ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> Bool
-> m ()
fileChooserSetDoOverwriteConfirmation chooser doOverwriteConfirmation = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
let doOverwriteConfirmation' = (fromIntegral . fromEnum) doOverwriteConfirmation
gtk_file_chooser_set_do_overwrite_confirmation chooser' doOverwriteConfirmation'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetDoOverwriteConfirmationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetDoOverwriteConfirmationMethodInfo a signature where
overloadedMethod _ = fileChooserSetDoOverwriteConfirmation
#endif
foreign import ccall "gtk_file_chooser_set_extra_widget" gtk_file_chooser_set_extra_widget ::
Ptr FileChooser ->
Ptr Gtk.Widget.Widget ->
IO ()
fileChooserSetExtraWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
fileChooserSetExtraWidget chooser extraWidget = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
extraWidget' <- unsafeManagedPtrCastPtr extraWidget
gtk_file_chooser_set_extra_widget chooser' extraWidget'
touchManagedPtr chooser
touchManagedPtr extraWidget
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetExtraWidgetMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) => O.MethodInfo FileChooserSetExtraWidgetMethodInfo a signature where
overloadedMethod _ = fileChooserSetExtraWidget
#endif
foreign import ccall "gtk_file_chooser_set_file" gtk_file_chooser_set_file ::
Ptr FileChooser ->
Ptr Gio.File.File ->
Ptr (Ptr GError) ->
IO CInt
fileChooserSetFile ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gio.File.IsFile b) =>
a
-> b
-> m ()
fileChooserSetFile chooser file = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
file' <- unsafeManagedPtrCastPtr file
onException (do
_ <- propagateGError $ gtk_file_chooser_set_file chooser' file'
touchManagedPtr chooser
touchManagedPtr file
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.MethodInfo FileChooserSetFileMethodInfo a signature where
overloadedMethod _ = fileChooserSetFile
#endif
foreign import ccall "gtk_file_chooser_set_filename" gtk_file_chooser_set_filename ::
Ptr FileChooser ->
CString ->
IO CInt
fileChooserSetFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> [Char]
-> m Bool
fileChooserSetFilename chooser filename = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
filename' <- stringToCString filename
result <- gtk_file_chooser_set_filename chooser' filename'
let result' = (/= 0) result
touchManagedPtr chooser
freeMem filename'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetFilenameMethodInfo
instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetFilenameMethodInfo a signature where
overloadedMethod _ = fileChooserSetFilename
#endif
foreign import ccall "gtk_file_chooser_set_filter" gtk_file_chooser_set_filter ::
Ptr FileChooser ->
Ptr Gtk.FileFilter.FileFilter ->
IO ()
fileChooserSetFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) =>
a
-> b
-> m ()
fileChooserSetFilter chooser filter = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
filter' <- unsafeManagedPtrCastPtr filter
gtk_file_chooser_set_filter chooser' filter'
touchManagedPtr chooser
touchManagedPtr filter
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetFilterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.MethodInfo FileChooserSetFilterMethodInfo a signature where
overloadedMethod _ = fileChooserSetFilter
#endif
foreign import ccall "gtk_file_chooser_set_local_only" gtk_file_chooser_set_local_only ::
Ptr FileChooser ->
CInt ->
IO ()
fileChooserSetLocalOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> Bool
-> m ()
fileChooserSetLocalOnly chooser localOnly = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
let localOnly' = (fromIntegral . fromEnum) localOnly
gtk_file_chooser_set_local_only chooser' localOnly'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetLocalOnlyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetLocalOnlyMethodInfo a signature where
overloadedMethod _ = fileChooserSetLocalOnly
#endif
foreign import ccall "gtk_file_chooser_set_preview_widget" gtk_file_chooser_set_preview_widget ::
Ptr FileChooser ->
Ptr Gtk.Widget.Widget ->
IO ()
fileChooserSetPreviewWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
fileChooserSetPreviewWidget chooser previewWidget = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
previewWidget' <- unsafeManagedPtrCastPtr previewWidget
gtk_file_chooser_set_preview_widget chooser' previewWidget'
touchManagedPtr chooser
touchManagedPtr previewWidget
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetPreviewWidgetMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) => O.MethodInfo FileChooserSetPreviewWidgetMethodInfo a signature where
overloadedMethod _ = fileChooserSetPreviewWidget
#endif
foreign import ccall "gtk_file_chooser_set_preview_widget_active" gtk_file_chooser_set_preview_widget_active ::
Ptr FileChooser ->
CInt ->
IO ()
fileChooserSetPreviewWidgetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> Bool
-> m ()
fileChooserSetPreviewWidgetActive chooser active = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
let active' = (fromIntegral . fromEnum) active
gtk_file_chooser_set_preview_widget_active chooser' active'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetPreviewWidgetActiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetPreviewWidgetActiveMethodInfo a signature where
overloadedMethod _ = fileChooserSetPreviewWidgetActive
#endif
foreign import ccall "gtk_file_chooser_set_select_multiple" gtk_file_chooser_set_select_multiple ::
Ptr FileChooser ->
CInt ->
IO ()
fileChooserSetSelectMultiple ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> Bool
-> m ()
fileChooserSetSelectMultiple chooser selectMultiple = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
let selectMultiple' = (fromIntegral . fromEnum) selectMultiple
gtk_file_chooser_set_select_multiple chooser' selectMultiple'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetSelectMultipleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetSelectMultipleMethodInfo a signature where
overloadedMethod _ = fileChooserSetSelectMultiple
#endif
foreign import ccall "gtk_file_chooser_set_show_hidden" gtk_file_chooser_set_show_hidden ::
Ptr FileChooser ->
CInt ->
IO ()
fileChooserSetShowHidden ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> Bool
-> m ()
fileChooserSetShowHidden chooser showHidden = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
let showHidden' = (fromIntegral . fromEnum) showHidden
gtk_file_chooser_set_show_hidden chooser' showHidden'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetShowHiddenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetShowHiddenMethodInfo a signature where
overloadedMethod _ = fileChooserSetShowHidden
#endif
foreign import ccall "gtk_file_chooser_set_uri" gtk_file_chooser_set_uri ::
Ptr FileChooser ->
CString ->
IO CInt
fileChooserSetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> m Bool
fileChooserSetUri chooser uri = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
uri' <- textToCString uri
result <- gtk_file_chooser_set_uri chooser' uri'
let result' = (/= 0) result
touchManagedPtr chooser
freeMem uri'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetUriMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetUriMethodInfo a signature where
overloadedMethod _ = fileChooserSetUri
#endif
foreign import ccall "gtk_file_chooser_set_use_preview_label" gtk_file_chooser_set_use_preview_label ::
Ptr FileChooser ->
CInt ->
IO ()
fileChooserSetUsePreviewLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> Bool
-> m ()
fileChooserSetUsePreviewLabel chooser useLabel = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
let useLabel' = (fromIntegral . fromEnum) useLabel
gtk_file_chooser_set_use_preview_label chooser' useLabel'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserSetUsePreviewLabelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetUsePreviewLabelMethodInfo a signature where
overloadedMethod _ = fileChooserSetUsePreviewLabel
#endif
foreign import ccall "gtk_file_chooser_unselect_all" gtk_file_chooser_unselect_all ::
Ptr FileChooser ->
IO ()
fileChooserUnselectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> m ()
fileChooserUnselectAll chooser = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
gtk_file_chooser_unselect_all chooser'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserUnselectAllMethodInfo a signature where
overloadedMethod _ = fileChooserUnselectAll
#endif
foreign import ccall "gtk_file_chooser_unselect_file" gtk_file_chooser_unselect_file ::
Ptr FileChooser ->
Ptr Gio.File.File ->
IO ()
fileChooserUnselectFile ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gio.File.IsFile b) =>
a
-> b
-> m ()
fileChooserUnselectFile chooser file = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
file' <- unsafeManagedPtrCastPtr file
gtk_file_chooser_unselect_file chooser' file'
touchManagedPtr chooser
touchManagedPtr file
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserUnselectFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.MethodInfo FileChooserUnselectFileMethodInfo a signature where
overloadedMethod _ = fileChooserUnselectFile
#endif
foreign import ccall "gtk_file_chooser_unselect_filename" gtk_file_chooser_unselect_filename ::
Ptr FileChooser ->
CString ->
IO ()
fileChooserUnselectFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> [Char]
-> m ()
fileChooserUnselectFilename chooser filename = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
filename' <- stringToCString filename
gtk_file_chooser_unselect_filename chooser' filename'
touchManagedPtr chooser
freeMem filename'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserUnselectFilenameMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserUnselectFilenameMethodInfo a signature where
overloadedMethod _ = fileChooserUnselectFilename
#endif
foreign import ccall "gtk_file_chooser_unselect_uri" gtk_file_chooser_unselect_uri ::
Ptr FileChooser ->
CString ->
IO ()
fileChooserUnselectUri ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> m ()
fileChooserUnselectUri chooser uri = liftIO $ do
chooser' <- unsafeManagedPtrCastPtr chooser
uri' <- textToCString uri
gtk_file_chooser_unselect_uri chooser' uri'
touchManagedPtr chooser
freeMem uri'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data FileChooserUnselectUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserUnselectUriMethodInfo a signature where
overloadedMethod _ = fileChooserUnselectUri
#endif