{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-} ---------- GENERATED FILE, EDITS WILL BE LOST ---------- module Graphics.UI.Qtah.Generated.Widgets.QFileDialog ( castQFileDialogToQDialog, castQDialogToQFileDialog, castQFileDialogToQWidget, castQWidgetToQFileDialog, castQFileDialogToQObject, castQObjectToQFileDialog, QFileDialogValue (..), QFileDialogConstPtr (..), acceptMode, defaultSuffix, directory, fileMode, filter, history, labelText, mimeTypeFilters, nameFilters, options, selectedFiles, selectedNameFilter, viewMode, QFileDialogPtr (..), setAcceptMode, setDefaultSuffix, setFileMode, setFilter, setHistory, setMimeTypeFilters, setNameFilters, setOptions, selectFile, selectNameFilter, setDirectory, setDirectoryPath, setLabelText, setNameFilter, setOption, setViewMode, emitCurrentChanged, emitDirectoryEntered, emitFileSelected, emitFilterSelected, getExistingDirectory, getExistingDirectoryWithOptions, getOpenFileName, getOpenFileNameWithOptions, getOpenFileNames, getOpenFileNamesWithOptions, getSaveFileName, getSaveFileNameWithOptions, QFileDialogConst (..), castQFileDialogToConst, QFileDialog (..), castQFileDialogToNonconst, new, newWithParent, newWithParentAndFlags, newWithParentAndCaption, newWithParentAndCaptionAndDirectory, newWithParentAndCaptionAndDirectoryAndFilter, QFileDialogSuper (..), QFileDialogSuperConst (..), QFileDialogAcceptMode (..), QFileDialogDialogLabel (..), QFileDialogFileMode (..), QFileDialogOption (..), QFileDialogOptions, IsQFileDialogOptions (..), dontConfirmOverwrite, dontResolveSymlinks, dontUseCustomDirectoryIcons, dontUseNativeDialog, dontUseSheet, hideNameFilterDetails, readOnly, showDirsOnly, QFileDialogViewMode (..), ) where import Data.Bits ((.&.), (.|.)) import qualified Data.Bits as QtahDB import qualified Foreign as HoppyF import qualified Foreign.C as HoppyFC import qualified Foreign.Hoppy.Runtime as HoppyFHR import qualified Foreign.Hoppy.Runtime as QtahFHR import qualified Graphics.UI.Qtah.Flags as QtahFlags import qualified Graphics.UI.Qtah.Generated.Core.QDir as M30 import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94 import qualified Graphics.UI.Qtah.Generated.Core.QString as M142 import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144 import qualified Graphics.UI.Qtah.Generated.Core.Types as M190 import qualified Graphics.UI.Qtah.Generated.Widgets.QDialog as M388 import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506 import Prelude (($), (.), (=<<), (==), (>>=)) import qualified Prelude as HoppyP import qualified Prelude as QtahP foreign import ccall "genpop__QFileDialog_new" new' :: HoppyP.IO (HoppyF.Ptr QFileDialog) foreign import ccall "genpop__QFileDialog_newWithParent" newWithParent' :: HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QFileDialog) foreign import ccall "genpop__QFileDialog_newWithParentAndFlags" newWithParentAndFlags' :: HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QFileDialog) foreign import ccall "genpop__QFileDialog_newWithParentAndCaption" newWithParentAndCaption' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QFileDialog) foreign import ccall "genpop__QFileDialog_newWithParentAndCaptionAndDirectory" newWithParentAndCaptionAndDirectory' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QFileDialog) foreign import ccall "genpop__QFileDialog_newWithParentAndCaptionAndDirectoryAndFilter" newWithParentAndCaptionAndDirectoryAndFilter' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QFileDialog) foreign import ccall "genpop__QFileDialog_acceptMode" acceptMode' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt foreign import ccall "genpop__QFileDialog_setAcceptMode" setAcceptMode' :: HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_defaultSuffix" defaultSuffix' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_setDefaultSuffix" setDefaultSuffix' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_directory" directory' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M30.QDirConst) foreign import ccall "genpop__QFileDialog_fileMode" fileMode' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt foreign import ccall "genpop__QFileDialog_setFileMode" setFileMode' :: HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_filter" filter' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt foreign import ccall "genpop__QFileDialog_setFilter" setFilter' :: HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_getExistingDirectory" getExistingDirectory' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_getExistingDirectoryWithOptions" getExistingDirectoryWithOptions' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_getOpenFileName" getOpenFileName' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_getOpenFileNameWithOptions" getOpenFileNameWithOptions' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_getOpenFileNames" getOpenFileNames' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst) foreign import ccall "genpop__QFileDialog_getOpenFileNamesWithOptions" getOpenFileNamesWithOptions' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst) foreign import ccall "genpop__QFileDialog_getSaveFileName" getSaveFileName' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_getSaveFileNameWithOptions" getSaveFileNameWithOptions' :: HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_history" history' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst) foreign import ccall "genpop__QFileDialog_setHistory" setHistory' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_labelText" labelText' :: HoppyF.Ptr QFileDialogConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_mimeTypeFilters" mimeTypeFilters' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst) foreign import ccall "genpop__QFileDialog_setMimeTypeFilters" setMimeTypeFilters' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_nameFilters" nameFilters' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst) foreign import ccall "genpop__QFileDialog_setNameFilters" setNameFilters' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_options" options' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt foreign import ccall "genpop__QFileDialog_setOptions" setOptions' :: HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_selectFile" selectFile' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_selectNameFilter" selectNameFilter' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_selectedFiles" selectedFiles' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst) foreign import ccall "genpop__QFileDialog_selectedNameFilter" selectedNameFilter' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst) foreign import ccall "genpop__QFileDialog_setDirectory" setDirectory' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M30.QDirConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_setDirectoryPath" setDirectoryPath' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_setLabelText" setLabelText' :: HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_setNameFilter" setNameFilter' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_setOption" setOption' :: HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_viewMode" viewMode' :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt foreign import ccall "genpop__QFileDialog_setViewMode" setViewMode' :: HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_emitCurrentChanged" emitCurrentChanged' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_emitDirectoryEntered" emitDirectoryEntered' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_emitFileSelected" emitFileSelected' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "genpop__QFileDialog_emitFilterSelected" emitFilterSelected' :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO () foreign import ccall "gencast__QFileDialog__QDialog" castQFileDialogToQDialog :: HoppyF.Ptr QFileDialogConst -> HoppyF.Ptr M388.QDialogConst foreign import ccall "gencast__QDialog__QFileDialog" castQDialogToQFileDialog :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr QFileDialogConst foreign import ccall "gencast__QFileDialog__QWidget" castQFileDialogToQWidget :: HoppyF.Ptr QFileDialogConst -> HoppyF.Ptr M506.QWidgetConst foreign import ccall "gencast__QWidget__QFileDialog" castQWidgetToQFileDialog :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QFileDialogConst foreign import ccall "gencast__QFileDialog__QObject" castQFileDialogToQObject :: HoppyF.Ptr QFileDialogConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__QFileDialog" castQObjectToQFileDialog :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QFileDialogConst foreign import ccall "gendel__QFileDialog" delete'QFileDialog :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO () foreign import ccall "&gendel__QFileDialog" deletePtr'QFileDialog :: HoppyF.FunPtr (HoppyF.Ptr QFileDialogConst -> HoppyP.IO ()) class QFileDialogValue a where withQFileDialogPtr :: a -> (QFileDialogConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} QFileDialogConstPtr a => QFileDialogValue a where withQFileDialogPtr = HoppyP.flip ($) . toQFileDialogConst class (M388.QDialogConstPtr this) => QFileDialogConstPtr this where toQFileDialogConst :: this -> QFileDialogConst acceptMode :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDialogAcceptMode) acceptMode arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( HoppyP.return . HoppyFHR.toCppEnum ) =<< (acceptMode' arg'1') defaultSuffix :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String) defaultSuffix arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (defaultSuffix' arg'1') directory :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO M30.QDir) directory arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> (HoppyFHR.decodeAndDelete . M30.QDirConst) =<< (directory' arg'1') fileMode :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDialogFileMode) fileMode arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( HoppyP.return . HoppyFHR.toCppEnum ) =<< (fileMode' arg'1') filter :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO M30.QDirFilters) filter arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( QtahP.return . QtahFlags.numToFlags ) =<< (filter' arg'1') history :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String]) history arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<< (history' arg'1') labelText :: (QFileDialogValue this) => (this) {- ^ this -} -> (QFileDialogDialogLabel) -> (HoppyP.IO QtahP.String) labelText arg'1 arg'2 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( HoppyP.return . HoppyFHR.fromCppEnum ) arg'2 >>= \arg'2' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (labelText' arg'1' arg'2') mimeTypeFilters :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String]) mimeTypeFilters arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<< (mimeTypeFilters' arg'1') nameFilters :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String]) nameFilters arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<< (nameFilters' arg'1') options :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDialogOptions) options arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( QtahP.return . QtahFlags.numToFlags ) =<< (options' arg'1') selectedFiles :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String]) selectedFiles arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<< (selectedFiles' arg'1') selectedNameFilter :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String) selectedNameFilter arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (selectedNameFilter' arg'1') viewMode :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDialogViewMode) viewMode arg'1 = withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( HoppyP.return . HoppyFHR.toCppEnum ) =<< (viewMode' arg'1') class (QFileDialogConstPtr this, M388.QDialogPtr this) => QFileDialogPtr this where toQFileDialog :: this -> QFileDialog setAcceptMode :: (QFileDialogPtr this) => (this) {- ^ this -} -> (QFileDialogAcceptMode) -> (HoppyP.IO ()) setAcceptMode arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> ( HoppyP.return . HoppyFHR.fromCppEnum ) arg'2 >>= \arg'2' -> (setAcceptMode' arg'1' arg'2') setDefaultSuffix :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setDefaultSuffix arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (setDefaultSuffix' arg'1' arg'2') setFileMode :: (QFileDialogPtr this) => (this) {- ^ this -} -> (QFileDialogFileMode) -> (HoppyP.IO ()) setFileMode arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> ( HoppyP.return . HoppyFHR.fromCppEnum ) arg'2 >>= \arg'2' -> (setFileMode' arg'1' arg'2') setFilter :: (QFileDialogPtr this, M30.IsQDirFilters arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setFilter arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> ( QtahP.return . QtahFlags.flagsToNum . M30.toQDirFilters ) arg'2 >>= \arg'2' -> (setFilter' arg'1' arg'2') setHistory :: (QFileDialogPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setHistory arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (setHistory' arg'1' arg'2') setMimeTypeFilters :: (QFileDialogPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setMimeTypeFilters arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (setMimeTypeFilters' arg'1' arg'2') setNameFilters :: (QFileDialogPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setNameFilters arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (setNameFilters' arg'1' arg'2') setOptions :: (QFileDialogPtr this, IsQFileDialogOptions arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setOptions arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> ( QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions ) arg'2 >>= \arg'2' -> (setOptions' arg'1' arg'2') selectFile :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) selectFile arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (selectFile' arg'1' arg'2') selectNameFilter :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) selectNameFilter arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (selectNameFilter' arg'1' arg'2') setDirectory :: (QFileDialogPtr this, M30.QDirValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setDirectory arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M30.withQDirPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (setDirectory' arg'1' arg'2') setDirectoryPath :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setDirectoryPath arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (setDirectoryPath' arg'1' arg'2') setLabelText :: (QFileDialogPtr this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (QFileDialogDialogLabel) -> (arg'3) -> (HoppyP.IO ()) setLabelText arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> ( HoppyP.return . HoppyFHR.fromCppEnum ) arg'2 >>= \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> (setLabelText' arg'1' arg'2' arg'3') setNameFilter :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) setNameFilter arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (setNameFilter' arg'1' arg'2') setOption :: (QFileDialogPtr this) => (this) {- ^ this -} -> (QFileDialogOption) -> (HoppyP.Bool) -> (HoppyP.IO ()) setOption arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> ( HoppyP.return . HoppyFHR.fromCppEnum ) arg'2 >>= \arg'2' -> ( \x -> HoppyP.return $ if x then 1 else 0 ) arg'3 >>= \arg'3' -> (setOption' arg'1' arg'2' arg'3') setViewMode :: (QFileDialogPtr this) => (this) {- ^ this -} -> (QFileDialogViewMode) -> (HoppyP.IO ()) setViewMode arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> ( HoppyP.return . HoppyFHR.fromCppEnum ) arg'2 >>= \arg'2' -> (setViewMode' arg'1' arg'2') emitCurrentChanged :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) emitCurrentChanged arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (emitCurrentChanged' arg'1' arg'2') emitDirectoryEntered :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) emitDirectoryEntered arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (emitDirectoryEntered' arg'1' arg'2') emitFileSelected :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) emitFileSelected arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (emitFileSelected' arg'1' arg'2') emitFilterSelected :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ()) emitFilterSelected arg'1 arg'2 = HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> (emitFilterSelected' arg'1' arg'2') getExistingDirectory :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QtahP.String) getExistingDirectory arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (getExistingDirectory' arg'1' arg'2' arg'3') getExistingDirectoryWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, IsQFileDialogOptions arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QtahP.String) getExistingDirectoryWithOptions arg'1 arg'2 arg'3 arg'4 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> ( QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions ) arg'4 >>= \arg'4' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (getExistingDirectoryWithOptions' arg'1' arg'2' arg'3' arg'4') getOpenFileName :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QtahP.String) getOpenFileName arg'1 arg'2 arg'3 arg'4 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (getOpenFileName' arg'1' arg'2' arg'3' arg'4') getOpenFileNameWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4, M142.QStringPtr arg'5, IsQFileDialogOptions arg'6) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (HoppyP.IO QtahP.String) getOpenFileNameWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' -> HoppyFHR.withCppPtr (M142.toQString arg'5) $ \arg'5' -> ( QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions ) arg'6 >>= \arg'6' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (getOpenFileNameWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6') getOpenFileNames :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO [QtahP.String]) getOpenFileNames arg'1 arg'2 arg'3 arg'4 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' -> (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<< (getOpenFileNames' arg'1' arg'2' arg'3' arg'4') getOpenFileNamesWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4, M142.QStringPtr arg'5, IsQFileDialogOptions arg'6) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (HoppyP.IO [QtahP.String]) getOpenFileNamesWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' -> HoppyFHR.withCppPtr (M142.toQString arg'5) $ \arg'5' -> ( QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions ) arg'6 >>= \arg'6' -> (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<< (getOpenFileNamesWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6') getSaveFileName :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QtahP.String) getSaveFileName arg'1 arg'2 arg'3 arg'4 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (getSaveFileName' arg'1' arg'2' arg'3' arg'4') getSaveFileNameWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4, M142.QStringPtr arg'5, IsQFileDialogOptions arg'6) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (HoppyP.IO QtahP.String) getSaveFileNameWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' -> HoppyFHR.withCppPtr (M142.toQString arg'5) $ \arg'5' -> ( QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions ) arg'6 >>= \arg'6' -> (HoppyFHR.decodeAndDelete . M142.QStringConst) =<< (getSaveFileNameWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6') data QFileDialogConst = QFileDialogConst (HoppyF.Ptr QFileDialogConst) | QFileDialogConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileDialogConst) deriving (HoppyP.Show) instance HoppyP.Eq QFileDialogConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord QFileDialogConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castQFileDialogToConst :: QFileDialog -> QFileDialogConst castQFileDialogToConst (QFileDialog ptr') = QFileDialogConst $ HoppyF.castPtr ptr' castQFileDialogToConst (QFileDialogGc fptr' ptr') = QFileDialogConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr QFileDialogConst where nullptr = QFileDialogConst HoppyF.nullPtr withCppPtr (QFileDialogConst ptr') f' = f' ptr' withCppPtr (QFileDialogConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (QFileDialogConst ptr') = ptr' toPtr (QFileDialogConstGc _ ptr') = ptr' touchCppPtr (QFileDialogConst _) = HoppyP.return () touchCppPtr (QFileDialogConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable QFileDialogConst where delete (QFileDialogConst ptr') = delete'QFileDialog ptr' delete (QFileDialogConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileDialogConst", " object."] toGc this'@(QFileDialogConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileDialogConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileDialog :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(QFileDialogConstGc {}) = HoppyP.return this' instance QFileDialogConstPtr QFileDialogConst where toQFileDialogConst = HoppyP.id instance M388.QDialogConstPtr QFileDialogConst where toQDialogConst (QFileDialogConst ptr') = M388.QDialogConst $ castQFileDialogToQDialog ptr' toQDialogConst (QFileDialogConstGc fptr' ptr') = M388.QDialogConstGc fptr' $ castQFileDialogToQDialog ptr' instance M506.QWidgetConstPtr QFileDialogConst where toQWidgetConst (QFileDialogConst ptr') = M506.QWidgetConst $ castQFileDialogToQWidget ptr' toQWidgetConst (QFileDialogConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQFileDialogToQWidget ptr' instance M94.QObjectConstPtr QFileDialogConst where toQObjectConst (QFileDialogConst ptr') = M94.QObjectConst $ castQFileDialogToQObject ptr' toQObjectConst (QFileDialogConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileDialogToQObject ptr' data QFileDialog = QFileDialog (HoppyF.Ptr QFileDialog) | QFileDialogGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileDialog) deriving (HoppyP.Show) instance HoppyP.Eq QFileDialog where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord QFileDialog where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castQFileDialogToNonconst :: QFileDialogConst -> QFileDialog castQFileDialogToNonconst (QFileDialogConst ptr') = QFileDialog $ HoppyF.castPtr ptr' castQFileDialogToNonconst (QFileDialogConstGc fptr' ptr') = QFileDialogGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr QFileDialog where nullptr = QFileDialog HoppyF.nullPtr withCppPtr (QFileDialog ptr') f' = f' ptr' withCppPtr (QFileDialogGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (QFileDialog ptr') = ptr' toPtr (QFileDialogGc _ ptr') = ptr' touchCppPtr (QFileDialog _) = HoppyP.return () touchCppPtr (QFileDialogGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable QFileDialog where delete (QFileDialog ptr') = delete'QFileDialog $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFileDialogConst) delete (QFileDialogGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileDialog", " object."] toGc this'@(QFileDialog ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileDialogGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileDialog :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(QFileDialogGc {}) = HoppyP.return this' instance QFileDialogConstPtr QFileDialog where toQFileDialogConst (QFileDialog ptr') = QFileDialogConst $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' toQFileDialogConst (QFileDialogGc fptr' ptr') = QFileDialogConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' instance QFileDialogPtr QFileDialog where toQFileDialog = HoppyP.id instance M388.QDialogConstPtr QFileDialog where toQDialogConst (QFileDialog ptr') = M388.QDialogConst $ castQFileDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' toQDialogConst (QFileDialogGc fptr' ptr') = M388.QDialogConstGc fptr' $ castQFileDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' instance M388.QDialogPtr QFileDialog where toQDialog (QFileDialog ptr') = M388.QDialog $ (HoppyF.castPtr :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr M388.QDialog) $ castQFileDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' toQDialog (QFileDialogGc fptr' ptr') = M388.QDialogGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr M388.QDialog) $ castQFileDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' instance M506.QWidgetConstPtr QFileDialog where toQWidgetConst (QFileDialog ptr') = M506.QWidgetConst $ castQFileDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' toQWidgetConst (QFileDialogGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQFileDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' instance M506.QWidgetPtr QFileDialog where toQWidget (QFileDialog ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQFileDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' toQWidget (QFileDialogGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQFileDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' instance M94.QObjectConstPtr QFileDialog where toQObjectConst (QFileDialog ptr') = M94.QObjectConst $ castQFileDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' toQObjectConst (QFileDialogGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' instance M94.QObjectPtr QFileDialog where toQObject (QFileDialog ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' toQObject (QFileDialogGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr' new :: (HoppyP.IO QFileDialog) new = HoppyP.fmap QFileDialog (new') newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QFileDialog) newWithParent arg'1 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> HoppyP.fmap QFileDialog (newWithParent' arg'1') newWithParentAndFlags :: (M506.QWidgetPtr arg'1, M190.IsQtWindowFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFileDialog) newWithParentAndFlags arg'1 arg'2 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> ( QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags ) arg'2 >>= \arg'2' -> HoppyP.fmap QFileDialog (newWithParentAndFlags' arg'1' arg'2') newWithParentAndCaption :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFileDialog) newWithParentAndCaption arg'1 arg'2 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> HoppyP.fmap QFileDialog (newWithParentAndCaption' arg'1' arg'2') newWithParentAndCaptionAndDirectory :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QFileDialog) newWithParentAndCaptionAndDirectory arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> HoppyP.fmap QFileDialog (newWithParentAndCaptionAndDirectory' arg'1' arg'2' arg'3') newWithParentAndCaptionAndDirectoryAndFilter :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QFileDialog) newWithParentAndCaptionAndDirectoryAndFilter arg'1 arg'2 arg'3 arg'4 = HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' -> M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' -> M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' -> HoppyP.fmap QFileDialog (newWithParentAndCaptionAndDirectoryAndFilter' arg'1' arg'2' arg'3' arg'4') class QFileDialogSuper a where downToQFileDialog :: a -> QFileDialog instance QFileDialogSuper M388.QDialog where downToQFileDialog = castQFileDialogToNonconst . cast' . M388.castQDialogToConst where cast' (M388.QDialogConst ptr') = QFileDialogConst $ castQDialogToQFileDialog ptr' cast' (M388.QDialogConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQDialogToQFileDialog ptr' instance QFileDialogSuper M506.QWidget where downToQFileDialog = castQFileDialogToNonconst . cast' . M506.castQWidgetToConst where cast' (M506.QWidgetConst ptr') = QFileDialogConst $ castQWidgetToQFileDialog ptr' cast' (M506.QWidgetConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQWidgetToQFileDialog ptr' instance QFileDialogSuper M94.QObject where downToQFileDialog = castQFileDialogToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = QFileDialogConst $ castQObjectToQFileDialog ptr' cast' (M94.QObjectConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQObjectToQFileDialog ptr' class QFileDialogSuperConst a where downToQFileDialogConst :: a -> QFileDialogConst instance QFileDialogSuperConst M388.QDialogConst where downToQFileDialogConst = cast' where cast' (M388.QDialogConst ptr') = QFileDialogConst $ castQDialogToQFileDialog ptr' cast' (M388.QDialogConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQDialogToQFileDialog ptr' instance QFileDialogSuperConst M506.QWidgetConst where downToQFileDialogConst = cast' where cast' (M506.QWidgetConst ptr') = QFileDialogConst $ castQWidgetToQFileDialog ptr' cast' (M506.QWidgetConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQWidgetToQFileDialog ptr' instance QFileDialogSuperConst M94.QObjectConst where downToQFileDialogConst = cast' where cast' (M94.QObjectConst ptr') = QFileDialogConst $ castQObjectToQFileDialog ptr' cast' (M94.QObjectConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQObjectToQFileDialog ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFileDialog)) QFileDialog where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFileDialog)) QFileDialog where decode = HoppyP.fmap QFileDialog . HoppyF.peek data QFileDialogAcceptMode = AcceptOpen | AcceptSave | UnknownQFileDialogAcceptMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogAcceptMode where fromCppEnum AcceptOpen = 0 fromCppEnum AcceptSave = 1 fromCppEnum (UnknownQFileDialogAcceptMode n) = n toCppEnum (0) = AcceptOpen toCppEnum (1) = AcceptSave toCppEnum n = UnknownQFileDialogAcceptMode n instance HoppyP.Eq QFileDialogAcceptMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QFileDialogAcceptMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QFileDialogDialogLabel = LookIn | FileName | FileType | Accept | Reject | UnknownQFileDialogDialogLabel (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogDialogLabel where fromCppEnum LookIn = 0 fromCppEnum FileName = 1 fromCppEnum FileType = 2 fromCppEnum Accept = 3 fromCppEnum Reject = 4 fromCppEnum (UnknownQFileDialogDialogLabel n) = n toCppEnum (0) = LookIn toCppEnum (1) = FileName toCppEnum (2) = FileType toCppEnum (3) = Accept toCppEnum (4) = Reject toCppEnum n = UnknownQFileDialogDialogLabel n instance HoppyP.Eq QFileDialogDialogLabel where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QFileDialogDialogLabel where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QFileDialogFileMode = AnyFile | ExistingFile | Directory | ExistingFiles | UnknownQFileDialogFileMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogFileMode where fromCppEnum AnyFile = 0 fromCppEnum ExistingFile = 1 fromCppEnum Directory = 2 fromCppEnum ExistingFiles = 3 fromCppEnum (UnknownQFileDialogFileMode n) = n toCppEnum (0) = AnyFile toCppEnum (1) = ExistingFile toCppEnum (2) = Directory toCppEnum (3) = ExistingFiles toCppEnum n = UnknownQFileDialogFileMode n instance HoppyP.Eq QFileDialogFileMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QFileDialogFileMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) data QFileDialogOption = ShowDirsOnly | DontResolveSymlinks | DontConfirmOverwrite | DontUseSheet | DontUseNativeDialog | ReadOnly | HideNameFilterDetails | DontUseCustomDirectoryIcons | UnknownQFileDialogOption (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogOption where fromCppEnum ShowDirsOnly = 1 fromCppEnum DontResolveSymlinks = 2 fromCppEnum DontConfirmOverwrite = 4 fromCppEnum DontUseSheet = 8 fromCppEnum DontUseNativeDialog = 16 fromCppEnum ReadOnly = 32 fromCppEnum HideNameFilterDetails = 64 fromCppEnum DontUseCustomDirectoryIcons = 128 fromCppEnum (UnknownQFileDialogOption n) = n toCppEnum (1) = ShowDirsOnly toCppEnum (2) = DontResolveSymlinks toCppEnum (4) = DontConfirmOverwrite toCppEnum (8) = DontUseSheet toCppEnum (16) = DontUseNativeDialog toCppEnum (32) = ReadOnly toCppEnum (64) = HideNameFilterDetails toCppEnum (128) = DontUseCustomDirectoryIcons toCppEnum n = UnknownQFileDialogOption n instance HoppyP.Eq QFileDialogOption where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QFileDialogOption where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y) newtype QFileDialogOptions = QFileDialogOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show) instance QtahFlags.Flags (HoppyFC.CInt) QFileDialogOption QFileDialogOptions where enumToFlags = QFileDialogOptions . QtahFHR.fromCppEnum flagsToEnum (QFileDialogOptions x') = QtahFHR.toCppEnum x' class IsQFileDialogOptions a where toQFileDialogOptions :: a -> QFileDialogOptions instance IsQFileDialogOptions QFileDialogOptions where toQFileDialogOptions = QtahP.id instance IsQFileDialogOptions QFileDialogOption where toQFileDialogOptions = QtahFlags.enumToFlags instance IsQFileDialogOptions (HoppyFC.CInt) where toQFileDialogOptions = QtahFlags.numToFlags dontConfirmOverwrite :: QFileDialogOptions dontConfirmOverwrite = QFileDialogOptions (4) dontResolveSymlinks :: QFileDialogOptions dontResolveSymlinks = QFileDialogOptions (2) dontUseCustomDirectoryIcons :: QFileDialogOptions dontUseCustomDirectoryIcons = QFileDialogOptions (128) dontUseNativeDialog :: QFileDialogOptions dontUseNativeDialog = QFileDialogOptions (16) dontUseSheet :: QFileDialogOptions dontUseSheet = QFileDialogOptions (8) hideNameFilterDetails :: QFileDialogOptions hideNameFilterDetails = QFileDialogOptions (64) readOnly :: QFileDialogOptions readOnly = QFileDialogOptions (32) showDirsOnly :: QFileDialogOptions showDirsOnly = QFileDialogOptions (1) instance QtahDB.Bits QFileDialogOptions where x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y) x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y) xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y) complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i bitSize x = case QtahDB.bitSizeMaybe x of QtahP.Just n -> n QtahP.Nothing -> QtahP.error "bitSize is undefined" bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum isSigned = QtahDB.isSigned . QtahFlags.flagsToNum testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i bit = QtahFlags.numToFlags . QtahDB.bit popCount = QtahDB.popCount . QtahFlags.flagsToNum data QFileDialogViewMode = Detail | List | UnknownQFileDialogViewMode (HoppyFC.CInt) deriving (HoppyP.Show) instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogViewMode where fromCppEnum Detail = 0 fromCppEnum List = 1 fromCppEnum (UnknownQFileDialogViewMode n) = n toCppEnum (0) = Detail toCppEnum (1) = List toCppEnum n = UnknownQFileDialogViewMode n instance HoppyP.Eq QFileDialogViewMode where x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y instance HoppyP.Ord QFileDialogViewMode where compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)