{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Interfaces.FileChooser
(
FileChooser(..) ,
IsFileChooser ,
toFileChooser ,
#if defined(ENABLE_OVERLOADING)
ResolveFileChooserMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
FileChooserAddChoiceMethodInfo ,
#endif
fileChooserAddChoice ,
#if defined(ENABLE_OVERLOADING)
FileChooserAddFilterMethodInfo ,
#endif
fileChooserAddFilter ,
#if defined(ENABLE_OVERLOADING)
FileChooserAddShortcutFolderMethodInfo ,
#endif
fileChooserAddShortcutFolder ,
#if defined(ENABLE_OVERLOADING)
FileChooserAddShortcutFolderUriMethodInfo,
#endif
fileChooserAddShortcutFolderUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetActionMethodInfo ,
#endif
fileChooserGetAction ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetChoiceMethodInfo ,
#endif
fileChooserGetChoice ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetCreateFoldersMethodInfo ,
#endif
fileChooserGetCreateFolders ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetCurrentFolderMethodInfo ,
#endif
fileChooserGetCurrentFolder ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetCurrentFolderFileMethodInfo,
#endif
fileChooserGetCurrentFolderFile ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetCurrentFolderUriMethodInfo,
#endif
fileChooserGetCurrentFolderUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetCurrentNameMethodInfo ,
#endif
fileChooserGetCurrentName ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetDoOverwriteConfirmationMethodInfo,
#endif
fileChooserGetDoOverwriteConfirmation ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetExtraWidgetMethodInfo ,
#endif
fileChooserGetExtraWidget ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetFileMethodInfo ,
#endif
fileChooserGetFile ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetFilenameMethodInfo ,
#endif
fileChooserGetFilename ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetFilenamesMethodInfo ,
#endif
fileChooserGetFilenames ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetFilesMethodInfo ,
#endif
fileChooserGetFiles ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetFilterMethodInfo ,
#endif
fileChooserGetFilter ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetLocalOnlyMethodInfo ,
#endif
fileChooserGetLocalOnly ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetPreviewFileMethodInfo ,
#endif
fileChooserGetPreviewFile ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetPreviewFilenameMethodInfo ,
#endif
fileChooserGetPreviewFilename ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetPreviewUriMethodInfo ,
#endif
fileChooserGetPreviewUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetPreviewWidgetMethodInfo ,
#endif
fileChooserGetPreviewWidget ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetPreviewWidgetActiveMethodInfo,
#endif
fileChooserGetPreviewWidgetActive ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetSelectMultipleMethodInfo ,
#endif
fileChooserGetSelectMultiple ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetShowHiddenMethodInfo ,
#endif
fileChooserGetShowHidden ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetUriMethodInfo ,
#endif
fileChooserGetUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetUrisMethodInfo ,
#endif
fileChooserGetUris ,
#if defined(ENABLE_OVERLOADING)
FileChooserGetUsePreviewLabelMethodInfo ,
#endif
fileChooserGetUsePreviewLabel ,
#if defined(ENABLE_OVERLOADING)
FileChooserListFiltersMethodInfo ,
#endif
fileChooserListFilters ,
#if defined(ENABLE_OVERLOADING)
FileChooserListShortcutFolderUrisMethodInfo,
#endif
fileChooserListShortcutFolderUris ,
#if defined(ENABLE_OVERLOADING)
FileChooserListShortcutFoldersMethodInfo,
#endif
fileChooserListShortcutFolders ,
#if defined(ENABLE_OVERLOADING)
FileChooserRemoveChoiceMethodInfo ,
#endif
fileChooserRemoveChoice ,
#if defined(ENABLE_OVERLOADING)
FileChooserRemoveFilterMethodInfo ,
#endif
fileChooserRemoveFilter ,
#if defined(ENABLE_OVERLOADING)
FileChooserRemoveShortcutFolderMethodInfo,
#endif
fileChooserRemoveShortcutFolder ,
#if defined(ENABLE_OVERLOADING)
FileChooserRemoveShortcutFolderUriMethodInfo,
#endif
fileChooserRemoveShortcutFolderUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserSelectAllMethodInfo ,
#endif
fileChooserSelectAll ,
#if defined(ENABLE_OVERLOADING)
FileChooserSelectFileMethodInfo ,
#endif
fileChooserSelectFile ,
#if defined(ENABLE_OVERLOADING)
FileChooserSelectFilenameMethodInfo ,
#endif
fileChooserSelectFilename ,
#if defined(ENABLE_OVERLOADING)
FileChooserSelectUriMethodInfo ,
#endif
fileChooserSelectUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetActionMethodInfo ,
#endif
fileChooserSetAction ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetChoiceMethodInfo ,
#endif
fileChooserSetChoice ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetCreateFoldersMethodInfo ,
#endif
fileChooserSetCreateFolders ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetCurrentFolderMethodInfo ,
#endif
fileChooserSetCurrentFolder ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetCurrentFolderFileMethodInfo,
#endif
fileChooserSetCurrentFolderFile ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetCurrentFolderUriMethodInfo,
#endif
fileChooserSetCurrentFolderUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetCurrentNameMethodInfo ,
#endif
fileChooserSetCurrentName ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetDoOverwriteConfirmationMethodInfo,
#endif
fileChooserSetDoOverwriteConfirmation ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetExtraWidgetMethodInfo ,
#endif
fileChooserSetExtraWidget ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetFileMethodInfo ,
#endif
fileChooserSetFile ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetFilenameMethodInfo ,
#endif
fileChooserSetFilename ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetFilterMethodInfo ,
#endif
fileChooserSetFilter ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetLocalOnlyMethodInfo ,
#endif
fileChooserSetLocalOnly ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetPreviewWidgetMethodInfo ,
#endif
fileChooserSetPreviewWidget ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetPreviewWidgetActiveMethodInfo,
#endif
fileChooserSetPreviewWidgetActive ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetSelectMultipleMethodInfo ,
#endif
fileChooserSetSelectMultiple ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetShowHiddenMethodInfo ,
#endif
fileChooserSetShowHidden ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetUriMethodInfo ,
#endif
fileChooserSetUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserSetUsePreviewLabelMethodInfo ,
#endif
fileChooserSetUsePreviewLabel ,
#if defined(ENABLE_OVERLOADING)
FileChooserUnselectAllMethodInfo ,
#endif
fileChooserUnselectAll ,
#if defined(ENABLE_OVERLOADING)
FileChooserUnselectFileMethodInfo ,
#endif
fileChooserUnselectFile ,
#if defined(ENABLE_OVERLOADING)
FileChooserUnselectFilenameMethodInfo ,
#endif
fileChooserUnselectFilename ,
#if defined(ENABLE_OVERLOADING)
FileChooserUnselectUriMethodInfo ,
#endif
fileChooserUnselectUri ,
#if defined(ENABLE_OVERLOADING)
FileChooserActionPropertyInfo ,
#endif
constructFileChooserAction ,
#if defined(ENABLE_OVERLOADING)
fileChooserAction ,
#endif
getFileChooserAction ,
setFileChooserAction ,
#if defined(ENABLE_OVERLOADING)
FileChooserCreateFoldersPropertyInfo ,
#endif
constructFileChooserCreateFolders ,
#if defined(ENABLE_OVERLOADING)
fileChooserCreateFolders ,
#endif
getFileChooserCreateFolders ,
setFileChooserCreateFolders ,
#if defined(ENABLE_OVERLOADING)
FileChooserDoOverwriteConfirmationPropertyInfo,
#endif
constructFileChooserDoOverwriteConfirmation,
#if defined(ENABLE_OVERLOADING)
fileChooserDoOverwriteConfirmation ,
#endif
getFileChooserDoOverwriteConfirmation ,
setFileChooserDoOverwriteConfirmation ,
#if defined(ENABLE_OVERLOADING)
FileChooserExtraWidgetPropertyInfo ,
#endif
constructFileChooserExtraWidget ,
#if defined(ENABLE_OVERLOADING)
fileChooserExtraWidget ,
#endif
getFileChooserExtraWidget ,
setFileChooserExtraWidget ,
#if defined(ENABLE_OVERLOADING)
FileChooserFilterPropertyInfo ,
#endif
constructFileChooserFilter ,
#if defined(ENABLE_OVERLOADING)
fileChooserFilter ,
#endif
getFileChooserFilter ,
setFileChooserFilter ,
#if defined(ENABLE_OVERLOADING)
FileChooserLocalOnlyPropertyInfo ,
#endif
constructFileChooserLocalOnly ,
#if defined(ENABLE_OVERLOADING)
fileChooserLocalOnly ,
#endif
getFileChooserLocalOnly ,
setFileChooserLocalOnly ,
#if defined(ENABLE_OVERLOADING)
FileChooserPreviewWidgetPropertyInfo ,
#endif
constructFileChooserPreviewWidget ,
#if defined(ENABLE_OVERLOADING)
fileChooserPreviewWidget ,
#endif
getFileChooserPreviewWidget ,
setFileChooserPreviewWidget ,
#if defined(ENABLE_OVERLOADING)
FileChooserPreviewWidgetActivePropertyInfo,
#endif
constructFileChooserPreviewWidgetActive ,
#if defined(ENABLE_OVERLOADING)
fileChooserPreviewWidgetActive ,
#endif
getFileChooserPreviewWidgetActive ,
setFileChooserPreviewWidgetActive ,
#if defined(ENABLE_OVERLOADING)
FileChooserSelectMultiplePropertyInfo ,
#endif
constructFileChooserSelectMultiple ,
#if defined(ENABLE_OVERLOADING)
fileChooserSelectMultiple ,
#endif
getFileChooserSelectMultiple ,
setFileChooserSelectMultiple ,
#if defined(ENABLE_OVERLOADING)
FileChooserShowHiddenPropertyInfo ,
#endif
constructFileChooserShowHidden ,
#if defined(ENABLE_OVERLOADING)
fileChooserShowHidden ,
#endif
getFileChooserShowHidden ,
setFileChooserShowHidden ,
#if defined(ENABLE_OVERLOADING)
FileChooserUsePreviewLabelPropertyInfo ,
#endif
constructFileChooserUsePreviewLabel ,
#if defined(ENABLE_OVERLOADING)
fileChooserUsePreviewLabel ,
#endif
getFileChooserUsePreviewLabel ,
setFileChooserUsePreviewLabel ,
FileChooserConfirmOverwriteCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserConfirmOverwriteSignalInfo ,
#endif
afterFileChooserConfirmOverwrite ,
onFileChooserConfirmOverwrite ,
FileChooserCurrentFolderChangedCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserCurrentFolderChangedSignalInfo,
#endif
afterFileChooserCurrentFolderChanged ,
onFileChooserCurrentFolderChanged ,
FileChooserFileActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserFileActivatedSignalInfo ,
#endif
afterFileChooserFileActivated ,
onFileChooserFileActivated ,
FileChooserSelectionChangedCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserSelectionChangedSignalInfo ,
#endif
afterFileChooserSelectionChanged ,
onFileChooserSelectionChanged ,
FileChooserUpdatePreviewCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserUpdatePreviewSignalInfo ,
#endif
afterFileChooserUpdatePreview ,
onFileChooserUpdatePreview ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.Cairo.Structs.Region as Cairo.Region
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.MarkupParser as GLib.MarkupParser
import qualified GI.GObject.Callbacks as GObject.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.DragContext as Gdk.DragContext
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Screen as Gdk.Screen
import qualified GI.Gdk.Objects.Visual as Gdk.Visual
import qualified GI.Gdk.Objects.Window as Gdk.Window
import qualified GI.Gdk.Structs.Atom as Gdk.Atom
import qualified GI.Gdk.Structs.Color as Gdk.Color
import qualified GI.Gdk.Structs.EventAny as Gdk.EventAny
import qualified GI.Gdk.Structs.EventButton as Gdk.EventButton
import qualified GI.Gdk.Structs.EventConfigure as Gdk.EventConfigure
import qualified GI.Gdk.Structs.EventCrossing as Gdk.EventCrossing
import qualified GI.Gdk.Structs.EventExpose as Gdk.EventExpose
import qualified GI.Gdk.Structs.EventFocus as Gdk.EventFocus
import qualified GI.Gdk.Structs.EventGrabBroken as Gdk.EventGrabBroken
import qualified GI.Gdk.Structs.EventKey as Gdk.EventKey
import qualified GI.Gdk.Structs.EventMotion as Gdk.EventMotion
import qualified GI.Gdk.Structs.EventOwnerChange as Gdk.EventOwnerChange
import qualified GI.Gdk.Structs.EventProperty as Gdk.EventProperty
import qualified GI.Gdk.Structs.EventProximity as Gdk.EventProximity
import qualified GI.Gdk.Structs.EventScroll as Gdk.EventScroll
import qualified GI.Gdk.Structs.EventSelection as Gdk.EventSelection
import qualified GI.Gdk.Structs.EventVisibility as Gdk.EventVisibility
import qualified GI.Gdk.Structs.EventWindowState as Gdk.EventWindowState
import qualified GI.Gdk.Structs.Geometry as Gdk.Geometry
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Objects.Application as Gio.Application
import qualified GI.Gio.Objects.Menu as Gio.Menu
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.Application as Gtk.Application
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Builder as Gtk.Builder
import {-# SOURCE #-} qualified GI.Gtk.Objects.Clipboard as Gtk.Clipboard
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.FileFilter as Gtk.FileFilter
import {-# SOURCE #-} qualified GI.Gtk.Objects.IconFactory as Gtk.IconFactory
import {-# SOURCE #-} qualified GI.Gtk.Objects.RcStyle as Gtk.RcStyle
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Style as Gtk.Style
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleProperties as Gtk.StyleProperties
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextChildAnchor as Gtk.TextChildAnchor
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextMark as Gtk.TextMark
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTagTable as Gtk.TextTagTable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window
import {-# SOURCE #-} qualified GI.Gtk.Objects.WindowGroup as Gtk.WindowGroup
import {-# SOURCE #-} qualified GI.Gtk.Structs.AccelGroupEntry as Gtk.AccelGroupEntry
import {-# SOURCE #-} qualified GI.Gtk.Structs.AccelKey as Gtk.AccelKey
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.CssSection as Gtk.CssSection
import {-# SOURCE #-} qualified GI.Gtk.Structs.FileFilterInfo as Gtk.FileFilterInfo
import {-# SOURCE #-} qualified GI.Gtk.Structs.IconSet as Gtk.IconSet
import {-# SOURCE #-} qualified GI.Gtk.Structs.IconSource as Gtk.IconSource
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import {-# SOURCE #-} qualified GI.Gtk.Structs.SelectionData as Gtk.SelectionData
import {-# SOURCE #-} qualified GI.Gtk.Structs.SettingsValue as Gtk.SettingsValue
import {-# SOURCE #-} qualified GI.Gtk.Structs.SymbolicColor as Gtk.SymbolicColor
import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetEntry as Gtk.TargetEntry
import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetList as Gtk.TargetList
import {-# SOURCE #-} qualified GI.Gtk.Structs.TextAppearance as Gtk.TextAppearance
import {-# SOURCE #-} qualified GI.Gtk.Structs.TextAttributes as Gtk.TextAttributes
import {-# SOURCE #-} qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.Gtk.Structs.WidgetPath as Gtk.WidgetPath
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription
import qualified GI.Pango.Structs.Language as Pango.Language
import qualified GI.Pango.Structs.TabArray as Pango.TabArray
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.File as Gio.File
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Objects.FileFilter as Gtk.FileFilter
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype FileChooser = FileChooser (SP.ManagedPtr FileChooser)
deriving (FileChooser -> FileChooser -> Bool
(FileChooser -> FileChooser -> Bool)
-> (FileChooser -> FileChooser -> Bool) -> Eq FileChooser
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FileChooser -> FileChooser -> Bool
== :: FileChooser -> FileChooser -> Bool
$c/= :: FileChooser -> FileChooser -> Bool
/= :: FileChooser -> FileChooser -> Bool
Eq)
instance SP.ManagedPtrNewtype FileChooser where
toManagedPtr :: FileChooser -> ManagedPtr FileChooser
toManagedPtr (FileChooser ManagedPtr FileChooser
p) = ManagedPtr FileChooser
p
foreign import ccall "gtk_file_chooser_get_type"
c_gtk_file_chooser_get_type :: IO B.Types.GType
instance B.Types.TypedObject FileChooser where
glibType :: IO GType
glibType = IO GType
c_gtk_file_chooser_get_type
instance B.Types.GObject FileChooser
class (SP.GObject o, O.IsDescendantOf FileChooser o) => IsFileChooser o
instance (SP.GObject o, O.IsDescendantOf FileChooser o) => IsFileChooser o
instance O.HasParentTypes FileChooser
type instance O.ParentTypes FileChooser = '[GObject.Object.Object]
toFileChooser :: (MIO.MonadIO m, IsFileChooser o) => o -> m FileChooser
toFileChooser :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> m FileChooser
toFileChooser = IO FileChooser -> m FileChooser
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FileChooser -> m FileChooser)
-> (o -> IO FileChooser) -> o -> m FileChooser
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FileChooser -> FileChooser) -> o -> IO FileChooser
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FileChooser -> FileChooser
FileChooser
instance B.GValue.IsGValue (Maybe FileChooser) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_file_chooser_get_type
gvalueSet_ :: Ptr GValue -> Maybe FileChooser -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FileChooser
P.Nothing = Ptr GValue -> Ptr FileChooser -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr FileChooser
forall a. Ptr a
FP.nullPtr :: FP.Ptr FileChooser)
gvalueSet_ Ptr GValue
gv (P.Just FileChooser
obj) = FileChooser -> (Ptr FileChooser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FileChooser
obj (Ptr GValue -> Ptr FileChooser -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe FileChooser)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr FileChooser)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FileChooser)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject FileChooser ptr
else return P.Nothing
getFileChooserAction :: (MonadIO m, IsFileChooser o) => o -> m Gtk.Enums.FileChooserAction
getFileChooserAction :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> m FileChooserAction
getFileChooserAction o
obj = IO FileChooserAction -> m FileChooserAction
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FileChooserAction -> m FileChooserAction)
-> IO FileChooserAction -> m FileChooserAction
forall a b. (a -> b) -> a -> b
$ o -> String -> IO FileChooserAction
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"action"
setFileChooserAction :: (MonadIO m, IsFileChooser o) => o -> Gtk.Enums.FileChooserAction -> m ()
setFileChooserAction :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> FileChooserAction -> m ()
setFileChooserAction o
obj FileChooserAction
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> FileChooserAction -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"action" FileChooserAction
val
constructFileChooserAction :: (IsFileChooser o, MIO.MonadIO m) => Gtk.Enums.FileChooserAction -> m (GValueConstruct o)
constructFileChooserAction :: forall o (m :: * -> *).
(IsFileChooser o, MonadIO m) =>
FileChooserAction -> m (GValueConstruct o)
constructFileChooserAction FileChooserAction
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> FileChooserAction -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"action" FileChooserAction
val
#if defined(ENABLE_OVERLOADING)
data FileChooserActionPropertyInfo
instance AttrInfo FileChooserActionPropertyInfo where
type AttrAllowedOps FileChooserActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint FileChooserActionPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserActionPropertyInfo = (~) Gtk.Enums.FileChooserAction
type AttrTransferTypeConstraint FileChooserActionPropertyInfo = (~) Gtk.Enums.FileChooserAction
type AttrTransferType FileChooserActionPropertyInfo = Gtk.Enums.FileChooserAction
type AttrGetType FileChooserActionPropertyInfo = Gtk.Enums.FileChooserAction
type AttrLabel FileChooserActionPropertyInfo = "action"
type AttrOrigin FileChooserActionPropertyInfo = FileChooser
attrGet = getFileChooserAction
attrSet = setFileChooserAction
attrPut = setFileChooserAction
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserAction
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.action"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:action"
})
#endif
getFileChooserCreateFolders :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserCreateFolders :: forall (m :: * -> *) o. (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserCreateFolders o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"create-folders"
setFileChooserCreateFolders :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserCreateFolders :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> Bool -> m ()
setFileChooserCreateFolders o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"create-folders" Bool
val
constructFileChooserCreateFolders :: (IsFileChooser o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFileChooserCreateFolders :: forall o (m :: * -> *).
(IsFileChooser o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFileChooserCreateFolders Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"create-folders" Bool
val
#if defined(ENABLE_OVERLOADING)
data FileChooserCreateFoldersPropertyInfo
instance AttrInfo FileChooserCreateFoldersPropertyInfo where
type AttrAllowedOps FileChooserCreateFoldersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint FileChooserCreateFoldersPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserCreateFoldersPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FileChooserCreateFoldersPropertyInfo = (~) Bool
type AttrTransferType FileChooserCreateFoldersPropertyInfo = Bool
type AttrGetType FileChooserCreateFoldersPropertyInfo = Bool
type AttrLabel FileChooserCreateFoldersPropertyInfo = "create-folders"
type AttrOrigin FileChooserCreateFoldersPropertyInfo = FileChooser
attrGet = getFileChooserCreateFolders
attrSet = setFileChooserCreateFolders
attrPut = setFileChooserCreateFolders
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserCreateFolders
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.createFolders"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:createFolders"
})
#endif
getFileChooserDoOverwriteConfirmation :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserDoOverwriteConfirmation :: forall (m :: * -> *) o. (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserDoOverwriteConfirmation o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"do-overwrite-confirmation"
setFileChooserDoOverwriteConfirmation :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserDoOverwriteConfirmation :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> Bool -> m ()
setFileChooserDoOverwriteConfirmation o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"do-overwrite-confirmation" Bool
val
constructFileChooserDoOverwriteConfirmation :: (IsFileChooser o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFileChooserDoOverwriteConfirmation :: forall o (m :: * -> *).
(IsFileChooser o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFileChooserDoOverwriteConfirmation Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"do-overwrite-confirmation" Bool
val
#if defined(ENABLE_OVERLOADING)
data FileChooserDoOverwriteConfirmationPropertyInfo
instance AttrInfo FileChooserDoOverwriteConfirmationPropertyInfo where
type AttrAllowedOps FileChooserDoOverwriteConfirmationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = (~) Bool
type AttrTransferType FileChooserDoOverwriteConfirmationPropertyInfo = Bool
type AttrGetType FileChooserDoOverwriteConfirmationPropertyInfo = Bool
type AttrLabel FileChooserDoOverwriteConfirmationPropertyInfo = "do-overwrite-confirmation"
type AttrOrigin FileChooserDoOverwriteConfirmationPropertyInfo = FileChooser
attrGet = getFileChooserDoOverwriteConfirmation
attrSet = setFileChooserDoOverwriteConfirmation
attrPut = setFileChooserDoOverwriteConfirmation
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserDoOverwriteConfirmation
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.doOverwriteConfirmation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:doOverwriteConfirmation"
})
#endif
getFileChooserExtraWidget :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.Widget.Widget)
o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"extra-widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setFileChooserExtraWidget :: (MonadIO m, IsFileChooser o, Gtk.Widget.IsWidget a) => o -> a -> m ()
o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"extra-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructFileChooserExtraWidget :: (IsFileChooser o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"extra-widget" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data FileChooserExtraWidgetPropertyInfo
instance AttrInfo FileChooserExtraWidgetPropertyInfo where
type AttrAllowedOps FileChooserExtraWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FileChooserExtraWidgetPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserExtraWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint FileChooserExtraWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType FileChooserExtraWidgetPropertyInfo = Gtk.Widget.Widget
type AttrGetType FileChooserExtraWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel FileChooserExtraWidgetPropertyInfo = "extra-widget"
type AttrOrigin FileChooserExtraWidgetPropertyInfo = FileChooser
attrGet = getFileChooserExtraWidget
attrSet = setFileChooserExtraWidget
attrPut = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructFileChooserExtraWidget
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.extraWidget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:extraWidget"
})
#endif
getFileChooserFilter :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.FileFilter.FileFilter)
getFileChooserFilter :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> m (Maybe FileFilter)
getFileChooserFilter o
obj = IO (Maybe FileFilter) -> m (Maybe FileFilter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe FileFilter) -> m (Maybe FileFilter))
-> IO (Maybe FileFilter) -> m (Maybe FileFilter)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr FileFilter -> FileFilter)
-> IO (Maybe FileFilter)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"filter" ManagedPtr FileFilter -> FileFilter
Gtk.FileFilter.FileFilter
setFileChooserFilter :: (MonadIO m, IsFileChooser o, Gtk.FileFilter.IsFileFilter a) => o -> a -> m ()
setFileChooserFilter :: forall (m :: * -> *) o a.
(MonadIO m, IsFileChooser o, IsFileFilter a) =>
o -> a -> m ()
setFileChooserFilter o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"filter" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructFileChooserFilter :: (IsFileChooser o, MIO.MonadIO m, Gtk.FileFilter.IsFileFilter a) => a -> m (GValueConstruct o)
constructFileChooserFilter :: forall o (m :: * -> *) a.
(IsFileChooser o, MonadIO m, IsFileFilter a) =>
a -> m (GValueConstruct o)
constructFileChooserFilter a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"filter" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data FileChooserFilterPropertyInfo
instance AttrInfo FileChooserFilterPropertyInfo where
type AttrAllowedOps FileChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FileChooserFilterPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserFilterPropertyInfo = Gtk.FileFilter.IsFileFilter
type AttrTransferTypeConstraint FileChooserFilterPropertyInfo = Gtk.FileFilter.IsFileFilter
type AttrTransferType FileChooserFilterPropertyInfo = Gtk.FileFilter.FileFilter
type AttrGetType FileChooserFilterPropertyInfo = (Maybe Gtk.FileFilter.FileFilter)
type AttrLabel FileChooserFilterPropertyInfo = "filter"
type AttrOrigin FileChooserFilterPropertyInfo = FileChooser
attrGet = getFileChooserFilter
attrSet = setFileChooserFilter
attrPut = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.FileFilter.FileFilter v
attrConstruct = constructFileChooserFilter
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.filter"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:filter"
})
#endif
getFileChooserLocalOnly :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserLocalOnly :: forall (m :: * -> *) o. (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserLocalOnly o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"local-only"
setFileChooserLocalOnly :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserLocalOnly :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> Bool -> m ()
setFileChooserLocalOnly o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"local-only" Bool
val
constructFileChooserLocalOnly :: (IsFileChooser o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFileChooserLocalOnly :: forall o (m :: * -> *).
(IsFileChooser o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFileChooserLocalOnly Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"local-only" Bool
val
#if defined(ENABLE_OVERLOADING)
data FileChooserLocalOnlyPropertyInfo
instance AttrInfo FileChooserLocalOnlyPropertyInfo where
type AttrAllowedOps FileChooserLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint FileChooserLocalOnlyPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserLocalOnlyPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FileChooserLocalOnlyPropertyInfo = (~) Bool
type AttrTransferType FileChooserLocalOnlyPropertyInfo = Bool
type AttrGetType FileChooserLocalOnlyPropertyInfo = Bool
type AttrLabel FileChooserLocalOnlyPropertyInfo = "local-only"
type AttrOrigin FileChooserLocalOnlyPropertyInfo = FileChooser
attrGet = getFileChooserLocalOnly
attrSet = setFileChooserLocalOnly
attrPut = setFileChooserLocalOnly
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserLocalOnly
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.localOnly"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:localOnly"
})
#endif
getFileChooserPreviewWidget :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.Widget.Widget)
getFileChooserPreviewWidget :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> m (Maybe Widget)
getFileChooserPreviewWidget o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"preview-widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setFileChooserPreviewWidget :: (MonadIO m, IsFileChooser o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setFileChooserPreviewWidget :: forall (m :: * -> *) o a.
(MonadIO m, IsFileChooser o, IsWidget a) =>
o -> a -> m ()
setFileChooserPreviewWidget o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"preview-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructFileChooserPreviewWidget :: (IsFileChooser o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructFileChooserPreviewWidget :: forall o (m :: * -> *) a.
(IsFileChooser o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructFileChooserPreviewWidget a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"preview-widget" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data FileChooserPreviewWidgetPropertyInfo
instance AttrInfo FileChooserPreviewWidgetPropertyInfo where
type AttrAllowedOps FileChooserPreviewWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FileChooserPreviewWidgetPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserPreviewWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint FileChooserPreviewWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType FileChooserPreviewWidgetPropertyInfo = Gtk.Widget.Widget
type AttrGetType FileChooserPreviewWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel FileChooserPreviewWidgetPropertyInfo = "preview-widget"
type AttrOrigin FileChooserPreviewWidgetPropertyInfo = FileChooser
attrGet = getFileChooserPreviewWidget
attrSet = setFileChooserPreviewWidget
attrPut = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructFileChooserPreviewWidget
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.previewWidget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:previewWidget"
})
#endif
getFileChooserPreviewWidgetActive :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserPreviewWidgetActive :: forall (m :: * -> *) o. (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserPreviewWidgetActive o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"preview-widget-active"
setFileChooserPreviewWidgetActive :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserPreviewWidgetActive :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> Bool -> m ()
setFileChooserPreviewWidgetActive o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"preview-widget-active" Bool
val
constructFileChooserPreviewWidgetActive :: (IsFileChooser o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFileChooserPreviewWidgetActive :: forall o (m :: * -> *).
(IsFileChooser o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFileChooserPreviewWidgetActive Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"preview-widget-active" Bool
val
#if defined(ENABLE_OVERLOADING)
data FileChooserPreviewWidgetActivePropertyInfo
instance AttrInfo FileChooserPreviewWidgetActivePropertyInfo where
type AttrAllowedOps FileChooserPreviewWidgetActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = (~) Bool
type AttrTransferType FileChooserPreviewWidgetActivePropertyInfo = Bool
type AttrGetType FileChooserPreviewWidgetActivePropertyInfo = Bool
type AttrLabel FileChooserPreviewWidgetActivePropertyInfo = "preview-widget-active"
type AttrOrigin FileChooserPreviewWidgetActivePropertyInfo = FileChooser
attrGet = getFileChooserPreviewWidgetActive
attrSet = setFileChooserPreviewWidgetActive
attrPut = setFileChooserPreviewWidgetActive
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserPreviewWidgetActive
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.previewWidgetActive"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:previewWidgetActive"
})
#endif
getFileChooserSelectMultiple :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserSelectMultiple :: forall (m :: * -> *) o. (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserSelectMultiple o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"select-multiple"
setFileChooserSelectMultiple :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserSelectMultiple :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> Bool -> m ()
setFileChooserSelectMultiple o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"select-multiple" Bool
val
constructFileChooserSelectMultiple :: (IsFileChooser o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFileChooserSelectMultiple :: forall o (m :: * -> *).
(IsFileChooser o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFileChooserSelectMultiple Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"select-multiple" Bool
val
#if defined(ENABLE_OVERLOADING)
data FileChooserSelectMultiplePropertyInfo
instance AttrInfo FileChooserSelectMultiplePropertyInfo where
type AttrAllowedOps FileChooserSelectMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint FileChooserSelectMultiplePropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserSelectMultiplePropertyInfo = (~) Bool
type AttrTransferTypeConstraint FileChooserSelectMultiplePropertyInfo = (~) Bool
type AttrTransferType FileChooserSelectMultiplePropertyInfo = Bool
type AttrGetType FileChooserSelectMultiplePropertyInfo = Bool
type AttrLabel FileChooserSelectMultiplePropertyInfo = "select-multiple"
type AttrOrigin FileChooserSelectMultiplePropertyInfo = FileChooser
attrGet = getFileChooserSelectMultiple
attrSet = setFileChooserSelectMultiple
attrPut = setFileChooserSelectMultiple
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserSelectMultiple
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.selectMultiple"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:selectMultiple"
})
#endif
getFileChooserShowHidden :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserShowHidden :: forall (m :: * -> *) o. (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserShowHidden o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-hidden"
setFileChooserShowHidden :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserShowHidden :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> Bool -> m ()
setFileChooserShowHidden o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-hidden" Bool
val
constructFileChooserShowHidden :: (IsFileChooser o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFileChooserShowHidden :: forall o (m :: * -> *).
(IsFileChooser o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFileChooserShowHidden Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-hidden" Bool
val
#if defined(ENABLE_OVERLOADING)
data FileChooserShowHiddenPropertyInfo
instance AttrInfo FileChooserShowHiddenPropertyInfo where
type AttrAllowedOps FileChooserShowHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint FileChooserShowHiddenPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserShowHiddenPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FileChooserShowHiddenPropertyInfo = (~) Bool
type AttrTransferType FileChooserShowHiddenPropertyInfo = Bool
type AttrGetType FileChooserShowHiddenPropertyInfo = Bool
type AttrLabel FileChooserShowHiddenPropertyInfo = "show-hidden"
type AttrOrigin FileChooserShowHiddenPropertyInfo = FileChooser
attrGet = getFileChooserShowHidden
attrSet = setFileChooserShowHidden
attrPut = setFileChooserShowHidden
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserShowHidden
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.showHidden"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:showHidden"
})
#endif
getFileChooserUsePreviewLabel :: (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserUsePreviewLabel :: forall (m :: * -> *) o. (MonadIO m, IsFileChooser o) => o -> m Bool
getFileChooserUsePreviewLabel o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"use-preview-label"
setFileChooserUsePreviewLabel :: (MonadIO m, IsFileChooser o) => o -> Bool -> m ()
setFileChooserUsePreviewLabel :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooser o) =>
o -> Bool -> m ()
setFileChooserUsePreviewLabel o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"use-preview-label" Bool
val
constructFileChooserUsePreviewLabel :: (IsFileChooser o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFileChooserUsePreviewLabel :: forall o (m :: * -> *).
(IsFileChooser o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFileChooserUsePreviewLabel Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"use-preview-label" Bool
val
#if defined(ENABLE_OVERLOADING)
data FileChooserUsePreviewLabelPropertyInfo
instance AttrInfo FileChooserUsePreviewLabelPropertyInfo where
type AttrAllowedOps FileChooserUsePreviewLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint FileChooserUsePreviewLabelPropertyInfo = IsFileChooser
type AttrSetTypeConstraint FileChooserUsePreviewLabelPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FileChooserUsePreviewLabelPropertyInfo = (~) Bool
type AttrTransferType FileChooserUsePreviewLabelPropertyInfo = Bool
type AttrGetType FileChooserUsePreviewLabelPropertyInfo = Bool
type AttrLabel FileChooserUsePreviewLabelPropertyInfo = "use-preview-label"
type AttrOrigin FileChooserUsePreviewLabelPropertyInfo = FileChooser
attrGet = getFileChooserUsePreviewLabel
attrSet = setFileChooserUsePreviewLabel
attrPut = setFileChooserUsePreviewLabel
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserUsePreviewLabel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.usePreviewLabel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:attr:usePreviewLabel"
})
#endif
#if defined(ENABLE_OVERLOADING)
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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
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)
type family ResolveFileChooserMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "getv" o = GObject.Object.ObjectGetvMethodInfo
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 "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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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.OverloadedMethod info FileChooser p) => OL.IsLabel t (FileChooser -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveFileChooserMethod t FileChooser, O.OverloadedMethod info FileChooser p, R.HasField t FileChooser p) => R.HasField t FileChooser p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFileChooserMethod t FileChooser, O.OverloadedMethodInfo info FileChooser) => OL.IsLabel t (O.MethodProxy info FileChooser) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
foreign import ccall "gtk_file_chooser_add_choice" gtk_file_chooser_add_choice ::
Ptr FileChooser ->
CString ->
CString ->
Ptr CString ->
Ptr CString ->
IO ()
fileChooserAddChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) =>
a
-> T.Text
-> T.Text
-> Maybe ([T.Text])
-> Maybe ([T.Text])
-> m ()
fileChooserAddChoice :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> Text -> Maybe [Text] -> Maybe [Text] -> m ()
fileChooserAddChoice a
chooser Text
id Text
label Maybe [Text]
options Maybe [Text]
optionLabels = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
id' <- textToCString id
label' <- textToCString label
maybeOptions <- case options of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
FP.nullPtr
Just [Text]
jOptions -> do
jOptions' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jOptions
return jOptions'
maybeOptionLabels <- case optionLabels of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
FP.nullPtr
Just [Text]
jOptionLabels -> do
jOptionLabels' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jOptionLabels
return jOptionLabels'
gtk_file_chooser_add_choice chooser' id' label' maybeOptions maybeOptionLabels
touchManagedPtr chooser
freeMem id'
freeMem label'
mapZeroTerminatedCArray freeMem maybeOptions
freeMem maybeOptions
mapZeroTerminatedCArray freeMem maybeOptionLabels
freeMem maybeOptionLabels
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserAddChoiceMethodInfo
instance (signature ~ (T.Text -> T.Text -> Maybe ([T.Text]) -> Maybe ([T.Text]) -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserAddChoiceMethodInfo a signature where
overloadedMethod = fileChooserAddChoice
instance O.OverloadedMethodInfo FileChooserAddChoiceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserAddChoice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFileChooser a, IsFileFilter b) =>
a -> b -> m ()
fileChooserAddFilter a
chooser b
filter = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
filter' <- B.ManagedPtr.disownObject filter
gtk_file_chooser_add_filter chooser' filter'
touchManagedPtr chooser
touchManagedPtr filter
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserAddFilterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.OverloadedMethod FileChooserAddFilterMethodInfo a signature where
overloadedMethod = fileChooserAddFilter
instance O.OverloadedMethodInfo FileChooserAddFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserAddFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> String -> m ()
fileChooserAddShortcutFolder a
chooser String
folder = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserAddShortcutFolderMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserAddShortcutFolderMethodInfo a signature where
overloadedMethod = fileChooserAddShortcutFolder
instance O.OverloadedMethodInfo FileChooserAddShortcutFolderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserAddShortcutFolder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m ()
fileChooserAddShortcutFolderUri a
chooser Text
uri = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserAddShortcutFolderUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserAddShortcutFolderUriMethodInfo a signature where
overloadedMethod = fileChooserAddShortcutFolderUri
instance O.OverloadedMethodInfo FileChooserAddShortcutFolderUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserAddShortcutFolderUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m FileChooserAction
fileChooserGetAction a
chooser = IO FileChooserAction -> m FileChooserAction
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FileChooserAction -> m FileChooserAction)
-> IO FileChooserAction -> m FileChooserAction
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_action chooser'
let result' = (Int -> FileChooserAction
forall a. Enum a => Int -> a
toEnum (Int -> FileChooserAction)
-> (CUInt -> Int) -> CUInt -> FileChooserAction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserGetActionMethodInfo
instance (signature ~ (m Gtk.Enums.FileChooserAction), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetActionMethodInfo a signature where
overloadedMethod = fileChooserGetAction
instance O.OverloadedMethodInfo FileChooserGetActionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetAction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m Text
fileChooserGetChoice a
chooser Text
id = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserGetChoiceMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetChoiceMethodInfo a signature where
overloadedMethod = fileChooserGetChoice
instance O.OverloadedMethodInfo FileChooserGetChoiceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetChoice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m Bool
fileChooserGetCreateFolders a
chooser = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_create_folders chooser'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserGetCreateFoldersMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetCreateFoldersMethodInfo a signature where
overloadedMethod = fileChooserGetCreateFolders
instance O.OverloadedMethodInfo FileChooserGetCreateFoldersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetCreateFolders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe String)
fileChooserGetCurrentFolder a
chooser = IO (Maybe String) -> m (Maybe String)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe String) -> m (Maybe String))
-> IO (Maybe String) -> m (Maybe String)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_current_folder chooser'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO String
CString -> IO String
cstringToString CString
result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetCurrentFolderMethodInfo
instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetCurrentFolderMethodInfo a signature where
overloadedMethod = fileChooserGetCurrentFolder
instance O.OverloadedMethodInfo FileChooserGetCurrentFolderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetCurrentFolder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 (Maybe Gio.File.File)
fileChooserGetCurrentFolderFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe File)
fileChooserGetCurrentFolderFile a
chooser = IO (Maybe File) -> m (Maybe File)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe File) -> m (Maybe File))
-> IO (Maybe File) -> m (Maybe File)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_current_folder_file chooser'
maybeResult <- convertIfNonNull result $ \Ptr File
result' -> do
result'' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr File -> File
Gio.File.File) Ptr File
result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetCurrentFolderFileMethodInfo
instance (signature ~ (m (Maybe Gio.File.File)), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetCurrentFolderFileMethodInfo a signature where
overloadedMethod = fileChooserGetCurrentFolderFile
instance O.OverloadedMethodInfo FileChooserGetCurrentFolderFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetCurrentFolderFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe Text)
fileChooserGetCurrentFolderUri a
chooser = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_current_folder_uri chooser'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetCurrentFolderUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetCurrentFolderUriMethodInfo a signature where
overloadedMethod = fileChooserGetCurrentFolderUri
instance O.OverloadedMethodInfo FileChooserGetCurrentFolderUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetCurrentFolderUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m Text
fileChooserGetCurrentName a
chooser = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserGetCurrentNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetCurrentNameMethodInfo a signature where
overloadedMethod = fileChooserGetCurrentName
instance O.OverloadedMethodInfo FileChooserGetCurrentNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetCurrentName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m Bool
fileChooserGetDoOverwriteConfirmation a
chooser = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_do_overwrite_confirmation chooser'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserGetDoOverwriteConfirmationMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetDoOverwriteConfirmationMethodInfo a signature where
overloadedMethod = fileChooserGetDoOverwriteConfirmation
instance O.OverloadedMethodInfo FileChooserGetDoOverwriteConfirmationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetDoOverwriteConfirmation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v:fileChooserGetDoOverwriteConfirmation"
})
#endif
foreign import ccall "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)
a
chooser = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_extra_widget chooser'
maybeResult <- convertIfNonNull result $ \Ptr Widget
result' -> do
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetExtraWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetExtraWidgetMethodInfo a signature where
overloadedMethod = fileChooserGetExtraWidget
instance O.OverloadedMethodInfo FileChooserGetExtraWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetExtraWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m File
fileChooserGetFile a
chooser = IO File -> m File
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO File -> m File) -> IO File -> m File
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserGetFileMethodInfo
instance (signature ~ (m Gio.File.File), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetFileMethodInfo a signature where
overloadedMethod = fileChooserGetFile
instance O.OverloadedMethodInfo FileChooserGetFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe String)
fileChooserGetFilename a
chooser = IO (Maybe String) -> m (Maybe String)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe String) -> m (Maybe String))
-> IO (Maybe String) -> m (Maybe String)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_filename chooser'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO String
CString -> IO String
cstringToString CString
result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetFilenameMethodInfo
instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetFilenameMethodInfo a signature where
overloadedMethod = fileChooserGetFilename
instance O.OverloadedMethodInfo FileChooserGetFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m [String]
fileChooserGetFilenames a
chooser = IO [String] -> m [String]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [String] -> m [String]) -> IO [String] -> m [String]
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserGetFilenamesMethodInfo
instance (signature ~ (m [[Char]]), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetFilenamesMethodInfo a signature where
overloadedMethod = fileChooserGetFilenames
instance O.OverloadedMethodInfo FileChooserGetFilenamesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetFilenames",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m [File]
fileChooserGetFiles a
chooser = IO [File] -> m [File]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [File] -> m [File]) -> IO [File] -> m [File]
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserGetFilesMethodInfo
instance (signature ~ (m [Gio.File.File]), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetFilesMethodInfo a signature where
overloadedMethod = fileChooserGetFiles
instance O.OverloadedMethodInfo FileChooserGetFilesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetFiles",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe FileFilter)
fileChooserGetFilter a
chooser = IO (Maybe FileFilter) -> m (Maybe FileFilter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe FileFilter) -> m (Maybe FileFilter))
-> IO (Maybe FileFilter) -> m (Maybe FileFilter)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_filter chooser'
maybeResult <- convertIfNonNull result $ \Ptr FileFilter
result' -> do
result'' <- ((ManagedPtr FileFilter -> FileFilter)
-> Ptr FileFilter -> IO FileFilter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FileFilter -> FileFilter
Gtk.FileFilter.FileFilter) Ptr FileFilter
result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetFilterMethodInfo
instance (signature ~ (m (Maybe Gtk.FileFilter.FileFilter)), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetFilterMethodInfo a signature where
overloadedMethod = fileChooserGetFilter
instance O.OverloadedMethodInfo FileChooserGetFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m Bool
fileChooserGetLocalOnly a
chooser = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_local_only chooser'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserGetLocalOnlyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetLocalOnlyMethodInfo a signature where
overloadedMethod = fileChooserGetLocalOnly
instance O.OverloadedMethodInfo FileChooserGetLocalOnlyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetLocalOnly",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe File)
fileChooserGetPreviewFile a
chooser = IO (Maybe File) -> m (Maybe File)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe File) -> m (Maybe File))
-> IO (Maybe File) -> m (Maybe File)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_preview_file chooser'
maybeResult <- convertIfNonNull result $ \Ptr File
result' -> do
result'' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr File -> File
Gio.File.File) Ptr File
result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetPreviewFileMethodInfo
instance (signature ~ (m (Maybe Gio.File.File)), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetPreviewFileMethodInfo a signature where
overloadedMethod = fileChooserGetPreviewFile
instance O.OverloadedMethodInfo FileChooserGetPreviewFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe String)
fileChooserGetPreviewFilename a
chooser = IO (Maybe String) -> m (Maybe String)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe String) -> m (Maybe String))
-> IO (Maybe String) -> m (Maybe String)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_preview_filename chooser'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO String
CString -> IO String
cstringToString CString
result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetPreviewFilenameMethodInfo
instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetPreviewFilenameMethodInfo a signature where
overloadedMethod = fileChooserGetPreviewFilename
instance O.OverloadedMethodInfo FileChooserGetPreviewFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe Text)
fileChooserGetPreviewUri a
chooser = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_preview_uri chooser'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetPreviewUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetPreviewUriMethodInfo a signature where
overloadedMethod = fileChooserGetPreviewUri
instance O.OverloadedMethodInfo FileChooserGetPreviewUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe Widget)
fileChooserGetPreviewWidget a
chooser = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_preview_widget chooser'
maybeResult <- convertIfNonNull result $ \Ptr Widget
result' -> do
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetPreviewWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetPreviewWidgetMethodInfo a signature where
overloadedMethod = fileChooserGetPreviewWidget
instance O.OverloadedMethodInfo FileChooserGetPreviewWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m Bool
fileChooserGetPreviewWidgetActive a
chooser = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_preview_widget_active chooser'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserGetPreviewWidgetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetPreviewWidgetActiveMethodInfo a signature where
overloadedMethod = fileChooserGetPreviewWidgetActive
instance O.OverloadedMethodInfo FileChooserGetPreviewWidgetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewWidgetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m Bool
fileChooserGetSelectMultiple a
chooser = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_select_multiple chooser'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserGetSelectMultipleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetSelectMultipleMethodInfo a signature where
overloadedMethod = fileChooserGetSelectMultiple
instance O.OverloadedMethodInfo FileChooserGetSelectMultipleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetSelectMultiple",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m Bool
fileChooserGetShowHidden a
chooser = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_show_hidden chooser'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserGetShowHiddenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetShowHiddenMethodInfo a signature where
overloadedMethod = fileChooserGetShowHidden
instance O.OverloadedMethodInfo FileChooserGetShowHiddenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetShowHidden",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m (Maybe Text)
fileChooserGetUri a
chooser = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_uri chooser'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
touchManagedPtr chooser
return maybeResult
#if defined(ENABLE_OVERLOADING)
data FileChooserGetUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetUriMethodInfo a signature where
overloadedMethod = fileChooserGetUri
instance O.OverloadedMethodInfo FileChooserGetUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m [Text]
fileChooserGetUris a
chooser = IO [Text] -> m [Text]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Text] -> m [Text]) -> IO [Text] -> m [Text]
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserGetUrisMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetUrisMethodInfo a signature where
overloadedMethod = fileChooserGetUris
instance O.OverloadedMethodInfo FileChooserGetUrisMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetUris",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m Bool
fileChooserGetUsePreviewLabel a
chooser = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
result <- gtk_file_chooser_get_use_preview_label chooser'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserGetUsePreviewLabelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserGetUsePreviewLabelMethodInfo a signature where
overloadedMethod = fileChooserGetUsePreviewLabel
instance O.OverloadedMethodInfo FileChooserGetUsePreviewLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserGetUsePreviewLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m [FileFilter]
fileChooserListFilters a
chooser = IO [FileFilter] -> m [FileFilter]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [FileFilter] -> m [FileFilter])
-> IO [FileFilter] -> m [FileFilter]
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserListFiltersMethodInfo
instance (signature ~ (m [Gtk.FileFilter.FileFilter]), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserListFiltersMethodInfo a signature where
overloadedMethod = fileChooserListFilters
instance O.OverloadedMethodInfo FileChooserListFiltersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserListFilters",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m [Text]
fileChooserListShortcutFolderUris a
chooser = IO [Text] -> m [Text]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Text] -> m [Text]) -> IO [Text] -> m [Text]
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserListShortcutFolderUrisMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserListShortcutFolderUrisMethodInfo a signature where
overloadedMethod = fileChooserListShortcutFolderUris
instance O.OverloadedMethodInfo FileChooserListShortcutFolderUrisMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserListShortcutFolderUris",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m [String]
fileChooserListShortcutFolders a
chooser = IO [String] -> m [String]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [String] -> m [String]) -> IO [String] -> m [String]
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserListShortcutFoldersMethodInfo
instance (signature ~ (m [[Char]]), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserListShortcutFoldersMethodInfo a signature where
overloadedMethod = fileChooserListShortcutFolders
instance O.OverloadedMethodInfo FileChooserListShortcutFoldersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserListShortcutFolders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m ()
fileChooserRemoveChoice a
chooser Text
id = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
id' <- textToCString id
gtk_file_chooser_remove_choice chooser' id'
touchManagedPtr chooser
freeMem id'
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserRemoveChoiceMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserRemoveChoiceMethodInfo a signature where
overloadedMethod = fileChooserRemoveChoice
instance O.OverloadedMethodInfo FileChooserRemoveChoiceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserRemoveChoice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFileChooser a, IsFileFilter b) =>
a -> b -> m ()
fileChooserRemoveFilter a
chooser b
filter = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
filter' <- unsafeManagedPtrCastPtr filter
gtk_file_chooser_remove_filter chooser' filter'
touchManagedPtr chooser
touchManagedPtr filter
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserRemoveFilterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.OverloadedMethod FileChooserRemoveFilterMethodInfo a signature where
overloadedMethod = fileChooserRemoveFilter
instance O.OverloadedMethodInfo FileChooserRemoveFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserRemoveFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> String -> m ()
fileChooserRemoveShortcutFolder a
chooser String
folder = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserRemoveShortcutFolderMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserRemoveShortcutFolderMethodInfo a signature where
overloadedMethod = fileChooserRemoveShortcutFolder
instance O.OverloadedMethodInfo FileChooserRemoveShortcutFolderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserRemoveShortcutFolder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m ()
fileChooserRemoveShortcutFolderUri a
chooser Text
uri = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserRemoveShortcutFolderUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserRemoveShortcutFolderUriMethodInfo a signature where
overloadedMethod = fileChooserRemoveShortcutFolderUri
instance O.OverloadedMethodInfo FileChooserRemoveShortcutFolderUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserRemoveShortcutFolderUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m ()
fileChooserSelectAll a
chooser = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
gtk_file_chooser_select_all chooser'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSelectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSelectAllMethodInfo a signature where
overloadedMethod = fileChooserSelectAll
instance O.OverloadedMethodInfo FileChooserSelectAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSelectAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFileChooser a, IsFile b) =>
a -> b -> m ()
fileChooserSelectFile a
chooser b
file = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserSelectFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.OverloadedMethod FileChooserSelectFileMethodInfo a signature where
overloadedMethod = fileChooserSelectFile
instance O.OverloadedMethodInfo FileChooserSelectFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSelectFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> String -> m Bool
fileChooserSelectFilename a
chooser String
filename = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
filename' <- stringToCString filename
result <- gtk_file_chooser_select_filename chooser' filename'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
freeMem filename'
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserSelectFilenameMethodInfo
instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSelectFilenameMethodInfo a signature where
overloadedMethod = fileChooserSelectFilename
instance O.OverloadedMethodInfo FileChooserSelectFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSelectFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m Bool
fileChooserSelectUri a
chooser Text
uri = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
uri' <- textToCString uri
result <- gtk_file_chooser_select_uri chooser' uri'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
freeMem uri'
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserSelectUriMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSelectUriMethodInfo a signature where
overloadedMethod = fileChooserSelectUri
instance O.OverloadedMethodInfo FileChooserSelectUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSelectUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> FileChooserAction -> m ()
fileChooserSetAction a
chooser FileChooserAction
action = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
let action' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (FileChooserAction -> Int) -> FileChooserAction -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FileChooserAction -> Int
forall a. Enum a => a -> Int
fromEnum) FileChooserAction
action
gtk_file_chooser_set_action chooser' action'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetActionMethodInfo
instance (signature ~ (Gtk.Enums.FileChooserAction -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetActionMethodInfo a signature where
overloadedMethod = fileChooserSetAction
instance O.OverloadedMethodInfo FileChooserSetActionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetAction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> Text -> m ()
fileChooserSetChoice a
chooser Text
id Text
option = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserSetChoiceMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetChoiceMethodInfo a signature where
overloadedMethod = fileChooserSetChoice
instance O.OverloadedMethodInfo FileChooserSetChoiceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetChoice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Bool -> m ()
fileChooserSetCreateFolders a
chooser Bool
createFolders = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
let createFolders' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
createFolders
gtk_file_chooser_set_create_folders chooser' createFolders'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetCreateFoldersMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetCreateFoldersMethodInfo a signature where
overloadedMethod = fileChooserSetCreateFolders
instance O.OverloadedMethodInfo FileChooserSetCreateFoldersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetCreateFolders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> String -> m Bool
fileChooserSetCurrentFolder a
chooser String
filename = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
filename' <- stringToCString filename
result <- gtk_file_chooser_set_current_folder chooser' filename'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
freeMem filename'
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserSetCurrentFolderMethodInfo
instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetCurrentFolderMethodInfo a signature where
overloadedMethod = fileChooserSetCurrentFolder
instance O.OverloadedMethodInfo FileChooserSetCurrentFolderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFileChooser a, IsFile b) =>
a -> b -> m ()
fileChooserSetCurrentFolderFile a
chooser b
file = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserSetCurrentFolderFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.OverloadedMethod FileChooserSetCurrentFolderFileMethodInfo a signature where
overloadedMethod = fileChooserSetCurrentFolderFile
instance O.OverloadedMethodInfo FileChooserSetCurrentFolderFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolderFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m Bool
fileChooserSetCurrentFolderUri a
chooser Text
uri = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
uri' <- textToCString uri
result <- gtk_file_chooser_set_current_folder_uri chooser' uri'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
freeMem uri'
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserSetCurrentFolderUriMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetCurrentFolderUriMethodInfo a signature where
overloadedMethod = fileChooserSetCurrentFolderUri
instance O.OverloadedMethodInfo FileChooserSetCurrentFolderUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolderUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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
-> T.Text
-> m ()
fileChooserSetCurrentName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m ()
fileChooserSetCurrentName a
chooser Text
name = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
name' <- textToCString name
gtk_file_chooser_set_current_name chooser' name'
touchManagedPtr chooser
freeMem name'
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetCurrentNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetCurrentNameMethodInfo a signature where
overloadedMethod = fileChooserSetCurrentName
instance O.OverloadedMethodInfo FileChooserSetCurrentNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Bool -> m ()
fileChooserSetDoOverwriteConfirmation a
chooser Bool
doOverwriteConfirmation = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
let doOverwriteConfirmation' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
doOverwriteConfirmation
gtk_file_chooser_set_do_overwrite_confirmation chooser' doOverwriteConfirmation'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetDoOverwriteConfirmationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetDoOverwriteConfirmationMethodInfo a signature where
overloadedMethod = fileChooserSetDoOverwriteConfirmation
instance O.OverloadedMethodInfo FileChooserSetDoOverwriteConfirmationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetDoOverwriteConfirmation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v:fileChooserSetDoOverwriteConfirmation"
})
#endif
foreign import ccall "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 ()
a
chooser b
extraWidget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
extraWidget' <- unsafeManagedPtrCastPtr extraWidget
gtk_file_chooser_set_extra_widget chooser' extraWidget'
touchManagedPtr chooser
touchManagedPtr extraWidget
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetExtraWidgetMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) => O.OverloadedMethod FileChooserSetExtraWidgetMethodInfo a signature where
overloadedMethod = fileChooserSetExtraWidget
instance O.OverloadedMethodInfo FileChooserSetExtraWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetExtraWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFileChooser a, IsFile b) =>
a -> b -> m ()
fileChooserSetFile a
chooser b
file = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
data FileChooserSetFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.OverloadedMethod FileChooserSetFileMethodInfo a signature where
overloadedMethod = fileChooserSetFile
instance O.OverloadedMethodInfo FileChooserSetFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> String -> m Bool
fileChooserSetFilename a
chooser String
filename = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
filename' <- stringToCString filename
result <- gtk_file_chooser_set_filename chooser' filename'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
freeMem filename'
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserSetFilenameMethodInfo
instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetFilenameMethodInfo a signature where
overloadedMethod = fileChooserSetFilename
instance O.OverloadedMethodInfo FileChooserSetFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFileChooser a, IsFileFilter b) =>
a -> b -> m ()
fileChooserSetFilter a
chooser b
filter = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
filter' <- unsafeManagedPtrCastPtr filter
gtk_file_chooser_set_filter chooser' filter'
touchManagedPtr chooser
touchManagedPtr filter
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetFilterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.OverloadedMethod FileChooserSetFilterMethodInfo a signature where
overloadedMethod = fileChooserSetFilter
instance O.OverloadedMethodInfo FileChooserSetFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Bool -> m ()
fileChooserSetLocalOnly a
chooser Bool
localOnly = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
let localOnly' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
localOnly
gtk_file_chooser_set_local_only chooser' localOnly'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetLocalOnlyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetLocalOnlyMethodInfo a signature where
overloadedMethod = fileChooserSetLocalOnly
instance O.OverloadedMethodInfo FileChooserSetLocalOnlyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetLocalOnly",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFileChooser a, IsWidget b) =>
a -> b -> m ()
fileChooserSetPreviewWidget a
chooser b
previewWidget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
previewWidget' <- unsafeManagedPtrCastPtr previewWidget
gtk_file_chooser_set_preview_widget chooser' previewWidget'
touchManagedPtr chooser
touchManagedPtr previewWidget
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetPreviewWidgetMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) => O.OverloadedMethod FileChooserSetPreviewWidgetMethodInfo a signature where
overloadedMethod = fileChooserSetPreviewWidget
instance O.OverloadedMethodInfo FileChooserSetPreviewWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Bool -> m ()
fileChooserSetPreviewWidgetActive a
chooser Bool
active = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
let active' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
active
gtk_file_chooser_set_preview_widget_active chooser' active'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetPreviewWidgetActiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetPreviewWidgetActiveMethodInfo a signature where
overloadedMethod = fileChooserSetPreviewWidgetActive
instance O.OverloadedMethodInfo FileChooserSetPreviewWidgetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidgetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Bool -> m ()
fileChooserSetSelectMultiple a
chooser Bool
selectMultiple = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
let selectMultiple' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
selectMultiple
gtk_file_chooser_set_select_multiple chooser' selectMultiple'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetSelectMultipleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetSelectMultipleMethodInfo a signature where
overloadedMethod = fileChooserSetSelectMultiple
instance O.OverloadedMethodInfo FileChooserSetSelectMultipleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetSelectMultiple",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Bool -> m ()
fileChooserSetShowHidden a
chooser Bool
showHidden = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
let showHidden' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
showHidden
gtk_file_chooser_set_show_hidden chooser' showHidden'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetShowHiddenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetShowHiddenMethodInfo a signature where
overloadedMethod = fileChooserSetShowHidden
instance O.OverloadedMethodInfo FileChooserSetShowHiddenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetShowHidden",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m Bool
fileChooserSetUri a
chooser Text
uri = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
uri' <- textToCString uri
result <- gtk_file_chooser_set_uri chooser' uri'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr chooser
freeMem uri'
return result'
#if defined(ENABLE_OVERLOADING)
data FileChooserSetUriMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetUriMethodInfo a signature where
overloadedMethod = fileChooserSetUri
instance O.OverloadedMethodInfo FileChooserSetUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Bool -> m ()
fileChooserSetUsePreviewLabel a
chooser Bool
useLabel = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
let useLabel' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
useLabel
gtk_file_chooser_set_use_preview_label chooser' useLabel'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserSetUsePreviewLabelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserSetUsePreviewLabelMethodInfo a signature where
overloadedMethod = fileChooserSetUsePreviewLabel
instance O.OverloadedMethodInfo FileChooserSetUsePreviewLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserSetUsePreviewLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> m ()
fileChooserUnselectAll a
chooser = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
gtk_file_chooser_unselect_all chooser'
touchManagedPtr chooser
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserUnselectAllMethodInfo a signature where
overloadedMethod = fileChooserUnselectAll
instance O.OverloadedMethodInfo FileChooserUnselectAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserUnselectAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFileChooser a, IsFile b) =>
a -> b -> m ()
fileChooserUnselectFile a
chooser b
file = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
file' <- unsafeManagedPtrCastPtr file
gtk_file_chooser_unselect_file chooser' file'
touchManagedPtr chooser
touchManagedPtr file
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserUnselectFileMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.OverloadedMethod FileChooserUnselectFileMethodInfo a signature where
overloadedMethod = fileChooserUnselectFile
instance O.OverloadedMethodInfo FileChooserUnselectFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserUnselectFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> String -> m ()
fileChooserUnselectFilename a
chooser String
filename = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
filename' <- stringToCString filename
gtk_file_chooser_unselect_filename chooser' filename'
touchManagedPtr chooser
freeMem filename'
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserUnselectFilenameMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserUnselectFilenameMethodInfo a signature where
overloadedMethod = fileChooserUnselectFilename
instance O.OverloadedMethodInfo FileChooserUnselectFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserUnselectFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileChooser a) =>
a -> Text -> m ()
fileChooserUnselectUri a
chooser Text
uri = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
chooser' <- a -> IO (Ptr FileChooser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
chooser
uri' <- textToCString uri
gtk_file_chooser_unselect_uri chooser' uri'
touchManagedPtr chooser
freeMem uri'
return ()
#if defined(ENABLE_OVERLOADING)
data FileChooserUnselectUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.OverloadedMethod FileChooserUnselectUriMethodInfo a signature where
overloadedMethod = fileChooserUnselectUri
instance O.OverloadedMethodInfo FileChooserUnselectUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser.fileChooserUnselectUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#v:fileChooserUnselectUri"
})
#endif
type FileChooserConfirmOverwriteCallback =
IO Gtk.Enums.FileChooserConfirmation
type C_FileChooserConfirmOverwriteCallback =
Ptr FileChooser ->
Ptr () ->
IO CUInt
foreign import ccall "wrapper"
mk_FileChooserConfirmOverwriteCallback :: C_FileChooserConfirmOverwriteCallback -> IO (FunPtr C_FileChooserConfirmOverwriteCallback)
wrap_FileChooserConfirmOverwriteCallback ::
GObject a => (a -> FileChooserConfirmOverwriteCallback) ->
C_FileChooserConfirmOverwriteCallback
wrap_FileChooserConfirmOverwriteCallback :: forall a.
GObject a =>
(a -> FileChooserConfirmOverwriteCallback)
-> C_FileChooserConfirmOverwriteCallback
wrap_FileChooserConfirmOverwriteCallback a -> FileChooserConfirmOverwriteCallback
gi'cb Ptr FileChooser
gi'selfPtr Ptr ()
_ = do
result <- Ptr FileChooser
-> (FileChooser -> FileChooserConfirmOverwriteCallback)
-> FileChooserConfirmOverwriteCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooser
gi'selfPtr ((FileChooser -> FileChooserConfirmOverwriteCallback)
-> FileChooserConfirmOverwriteCallback)
-> (FileChooser -> FileChooserConfirmOverwriteCallback)
-> FileChooserConfirmOverwriteCallback
forall a b. (a -> b) -> a -> b
$ \FileChooser
gi'self -> a -> FileChooserConfirmOverwriteCallback
gi'cb (FileChooser -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooser
gi'self)
let result' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (FileChooserConfirmation -> Int)
-> FileChooserConfirmation
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FileChooserConfirmation -> Int
forall a. Enum a => a -> Int
fromEnum) FileChooserConfirmation
result
return result'
onFileChooserConfirmOverwrite :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserConfirmOverwriteCallback) -> m SignalHandlerId
onFileChooserConfirmOverwrite :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a
-> ((?self::a) => FileChooserConfirmOverwriteCallback)
-> m SignalHandlerId
onFileChooserConfirmOverwrite a
obj (?self::a) => FileChooserConfirmOverwriteCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> FileChooserConfirmOverwriteCallback
wrapped a
self = let ?self = a
?self::a
self in FileChooserConfirmOverwriteCallback
(?self::a) => FileChooserConfirmOverwriteCallback
cb
let wrapped' :: C_FileChooserConfirmOverwriteCallback
wrapped' = (a -> FileChooserConfirmOverwriteCallback)
-> C_FileChooserConfirmOverwriteCallback
forall a.
GObject a =>
(a -> FileChooserConfirmOverwriteCallback)
-> C_FileChooserConfirmOverwriteCallback
wrap_FileChooserConfirmOverwriteCallback a -> FileChooserConfirmOverwriteCallback
wrapped
wrapped'' <- C_FileChooserConfirmOverwriteCallback
-> IO (FunPtr C_FileChooserConfirmOverwriteCallback)
mk_FileChooserConfirmOverwriteCallback C_FileChooserConfirmOverwriteCallback
wrapped'
connectSignalFunPtr obj "confirm-overwrite" wrapped'' SignalConnectBefore Nothing
afterFileChooserConfirmOverwrite :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserConfirmOverwriteCallback) -> m SignalHandlerId
afterFileChooserConfirmOverwrite :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a
-> ((?self::a) => FileChooserConfirmOverwriteCallback)
-> m SignalHandlerId
afterFileChooserConfirmOverwrite a
obj (?self::a) => FileChooserConfirmOverwriteCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> FileChooserConfirmOverwriteCallback
wrapped a
self = let ?self = a
?self::a
self in FileChooserConfirmOverwriteCallback
(?self::a) => FileChooserConfirmOverwriteCallback
cb
let wrapped' :: C_FileChooserConfirmOverwriteCallback
wrapped' = (a -> FileChooserConfirmOverwriteCallback)
-> C_FileChooserConfirmOverwriteCallback
forall a.
GObject a =>
(a -> FileChooserConfirmOverwriteCallback)
-> C_FileChooserConfirmOverwriteCallback
wrap_FileChooserConfirmOverwriteCallback a -> FileChooserConfirmOverwriteCallback
wrapped
wrapped'' <- C_FileChooserConfirmOverwriteCallback
-> IO (FunPtr C_FileChooserConfirmOverwriteCallback)
mk_FileChooserConfirmOverwriteCallback C_FileChooserConfirmOverwriteCallback
wrapped'
connectSignalFunPtr obj "confirm-overwrite" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserConfirmOverwriteSignalInfo
instance SignalInfo FileChooserConfirmOverwriteSignalInfo where
type HaskellCallbackType FileChooserConfirmOverwriteSignalInfo = FileChooserConfirmOverwriteCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserConfirmOverwriteCallback cb
cb'' <- mk_FileChooserConfirmOverwriteCallback cb'
connectSignalFunPtr obj "confirm-overwrite" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser::confirm-overwrite"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:signal:confirmOverwrite"})
#endif
type FileChooserCurrentFolderChangedCallback =
IO ()
type C_FileChooserCurrentFolderChangedCallback =
Ptr FileChooser ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserCurrentFolderChangedCallback :: C_FileChooserCurrentFolderChangedCallback -> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
wrap_FileChooserCurrentFolderChangedCallback ::
GObject a => (a -> FileChooserCurrentFolderChangedCallback) ->
C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserCurrentFolderChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserCurrentFolderChangedCallback a -> IO ()
gi'cb Ptr FileChooser
gi'selfPtr Ptr ()
_ = do
Ptr FileChooser -> (FileChooser -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooser
gi'selfPtr ((FileChooser -> IO ()) -> IO ())
-> (FileChooser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooser
gi'self -> a -> IO ()
gi'cb (FileChooser -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooser
gi'self)
onFileChooserCurrentFolderChanged :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserCurrentFolderChangedCallback) -> m SignalHandlerId
onFileChooserCurrentFolderChanged :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserCurrentFolderChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserCurrentFolderChangedCallback
wrapped' = (a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserCurrentFolderChangedCallback a -> IO ()
wrapped
wrapped'' <- C_FileChooserCurrentFolderChangedCallback
-> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
mk_FileChooserCurrentFolderChangedCallback C_FileChooserCurrentFolderChangedCallback
wrapped'
connectSignalFunPtr obj "current-folder-changed" wrapped'' SignalConnectBefore Nothing
afterFileChooserCurrentFolderChanged :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserCurrentFolderChangedCallback) -> m SignalHandlerId
afterFileChooserCurrentFolderChanged :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserCurrentFolderChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserCurrentFolderChangedCallback
wrapped' = (a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserCurrentFolderChangedCallback a -> IO ()
wrapped
wrapped'' <- C_FileChooserCurrentFolderChangedCallback
-> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
mk_FileChooserCurrentFolderChangedCallback C_FileChooserCurrentFolderChangedCallback
wrapped'
connectSignalFunPtr obj "current-folder-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserCurrentFolderChangedSignalInfo
instance SignalInfo FileChooserCurrentFolderChangedSignalInfo where
type HaskellCallbackType FileChooserCurrentFolderChangedSignalInfo = FileChooserCurrentFolderChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserCurrentFolderChangedCallback cb
cb'' <- mk_FileChooserCurrentFolderChangedCallback cb'
connectSignalFunPtr obj "current-folder-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser::current-folder-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:signal:currentFolderChanged"})
#endif
type FileChooserFileActivatedCallback =
IO ()
type C_FileChooserFileActivatedCallback =
Ptr FileChooser ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserFileActivatedCallback :: C_FileChooserFileActivatedCallback -> IO (FunPtr C_FileChooserFileActivatedCallback)
wrap_FileChooserFileActivatedCallback ::
GObject a => (a -> FileChooserFileActivatedCallback) ->
C_FileChooserFileActivatedCallback
wrap_FileChooserFileActivatedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserFileActivatedCallback a -> IO ()
gi'cb Ptr FileChooser
gi'selfPtr Ptr ()
_ = do
Ptr FileChooser -> (FileChooser -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooser
gi'selfPtr ((FileChooser -> IO ()) -> IO ())
-> (FileChooser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooser
gi'self -> a -> IO ()
gi'cb (FileChooser -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooser
gi'self)
onFileChooserFileActivated :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserFileActivatedCallback) -> m SignalHandlerId
onFileChooserFileActivated :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserFileActivated a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserCurrentFolderChangedCallback
wrapped' = (a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserFileActivatedCallback a -> IO ()
wrapped
wrapped'' <- C_FileChooserCurrentFolderChangedCallback
-> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
mk_FileChooserFileActivatedCallback C_FileChooserCurrentFolderChangedCallback
wrapped'
connectSignalFunPtr obj "file-activated" wrapped'' SignalConnectBefore Nothing
afterFileChooserFileActivated :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserFileActivatedCallback) -> m SignalHandlerId
afterFileChooserFileActivated :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserFileActivated a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserCurrentFolderChangedCallback
wrapped' = (a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserFileActivatedCallback a -> IO ()
wrapped
wrapped'' <- C_FileChooserCurrentFolderChangedCallback
-> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
mk_FileChooserFileActivatedCallback C_FileChooserCurrentFolderChangedCallback
wrapped'
connectSignalFunPtr obj "file-activated" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserFileActivatedSignalInfo
instance SignalInfo FileChooserFileActivatedSignalInfo where
type HaskellCallbackType FileChooserFileActivatedSignalInfo = FileChooserFileActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserFileActivatedCallback cb
cb'' <- mk_FileChooserFileActivatedCallback cb'
connectSignalFunPtr obj "file-activated" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser::file-activated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:signal:fileActivated"})
#endif
type FileChooserSelectionChangedCallback =
IO ()
type C_FileChooserSelectionChangedCallback =
Ptr FileChooser ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserSelectionChangedCallback :: C_FileChooserSelectionChangedCallback -> IO (FunPtr C_FileChooserSelectionChangedCallback)
wrap_FileChooserSelectionChangedCallback ::
GObject a => (a -> FileChooserSelectionChangedCallback) ->
C_FileChooserSelectionChangedCallback
wrap_FileChooserSelectionChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserSelectionChangedCallback a -> IO ()
gi'cb Ptr FileChooser
gi'selfPtr Ptr ()
_ = do
Ptr FileChooser -> (FileChooser -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooser
gi'selfPtr ((FileChooser -> IO ()) -> IO ())
-> (FileChooser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooser
gi'self -> a -> IO ()
gi'cb (FileChooser -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooser
gi'self)
onFileChooserSelectionChanged :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserSelectionChangedCallback) -> m SignalHandlerId
onFileChooserSelectionChanged :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserSelectionChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserCurrentFolderChangedCallback
wrapped' = (a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserSelectionChangedCallback a -> IO ()
wrapped
wrapped'' <- C_FileChooserCurrentFolderChangedCallback
-> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
mk_FileChooserSelectionChangedCallback C_FileChooserCurrentFolderChangedCallback
wrapped'
connectSignalFunPtr obj "selection-changed" wrapped'' SignalConnectBefore Nothing
afterFileChooserSelectionChanged :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserSelectionChangedCallback) -> m SignalHandlerId
afterFileChooserSelectionChanged :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserSelectionChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserCurrentFolderChangedCallback
wrapped' = (a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserSelectionChangedCallback a -> IO ()
wrapped
wrapped'' <- C_FileChooserCurrentFolderChangedCallback
-> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
mk_FileChooserSelectionChangedCallback C_FileChooserCurrentFolderChangedCallback
wrapped'
connectSignalFunPtr obj "selection-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserSelectionChangedSignalInfo
instance SignalInfo FileChooserSelectionChangedSignalInfo where
type HaskellCallbackType FileChooserSelectionChangedSignalInfo = FileChooserSelectionChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserSelectionChangedCallback cb
cb'' <- mk_FileChooserSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser::selection-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:signal:selectionChanged"})
#endif
type FileChooserUpdatePreviewCallback =
IO ()
type C_FileChooserUpdatePreviewCallback =
Ptr FileChooser ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserUpdatePreviewCallback :: C_FileChooserUpdatePreviewCallback -> IO (FunPtr C_FileChooserUpdatePreviewCallback)
wrap_FileChooserUpdatePreviewCallback ::
GObject a => (a -> FileChooserUpdatePreviewCallback) ->
C_FileChooserUpdatePreviewCallback
wrap_FileChooserUpdatePreviewCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserUpdatePreviewCallback a -> IO ()
gi'cb Ptr FileChooser
gi'selfPtr Ptr ()
_ = do
Ptr FileChooser -> (FileChooser -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooser
gi'selfPtr ((FileChooser -> IO ()) -> IO ())
-> (FileChooser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooser
gi'self -> a -> IO ()
gi'cb (FileChooser -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooser
gi'self)
onFileChooserUpdatePreview :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserUpdatePreviewCallback) -> m SignalHandlerId
onFileChooserUpdatePreview :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserUpdatePreview a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserCurrentFolderChangedCallback
wrapped' = (a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserUpdatePreviewCallback a -> IO ()
wrapped
wrapped'' <- C_FileChooserCurrentFolderChangedCallback
-> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
mk_FileChooserUpdatePreviewCallback C_FileChooserCurrentFolderChangedCallback
wrapped'
connectSignalFunPtr obj "update-preview" wrapped'' SignalConnectBefore Nothing
afterFileChooserUpdatePreview :: (IsFileChooser a, MonadIO m) => a -> ((?self :: a) => FileChooserUpdatePreviewCallback) -> m SignalHandlerId
afterFileChooserUpdatePreview :: forall a (m :: * -> *).
(IsFileChooser a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserUpdatePreview a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserCurrentFolderChangedCallback
wrapped' = (a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserCurrentFolderChangedCallback
wrap_FileChooserUpdatePreviewCallback a -> IO ()
wrapped
wrapped'' <- C_FileChooserCurrentFolderChangedCallback
-> IO (FunPtr C_FileChooserCurrentFolderChangedCallback)
mk_FileChooserUpdatePreviewCallback C_FileChooserCurrentFolderChangedCallback
wrapped'
connectSignalFunPtr obj "update-preview" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserUpdatePreviewSignalInfo
instance SignalInfo FileChooserUpdatePreviewSignalInfo where
type HaskellCallbackType FileChooserUpdatePreviewSignalInfo = FileChooserUpdatePreviewCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserUpdatePreviewCallback cb
cb'' <- mk_FileChooserUpdatePreviewCallback cb'
connectSignalFunPtr obj "update-preview" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.FileChooser::update-preview"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-FileChooser.html#g:signal:updatePreview"})
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FileChooser = FileChooserSignalList
type FileChooserSignalList = ('[ '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo)] :: [(Symbol, DK.Type)])
#endif