{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.FileChooserWidget
(
FileChooserWidget(..) ,
IsFileChooserWidget ,
toFileChooserWidget ,
#if defined(ENABLE_OVERLOADING)
ResolveFileChooserWidgetMethod ,
#endif
fileChooserWidgetNew ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetSearchModePropertyInfo ,
#endif
constructFileChooserWidgetSearchMode ,
#if defined(ENABLE_OVERLOADING)
fileChooserWidgetSearchMode ,
#endif
getFileChooserWidgetSearchMode ,
setFileChooserWidgetSearchMode ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetSubtitlePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
fileChooserWidgetSubtitle ,
#endif
getFileChooserWidgetSubtitle ,
C_FileChooserWidgetDesktopFolderCallback,
FileChooserWidgetDesktopFolderCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetDesktopFolderSignalInfo,
#endif
afterFileChooserWidgetDesktopFolder ,
genClosure_FileChooserWidgetDesktopFolder,
mk_FileChooserWidgetDesktopFolderCallback,
noFileChooserWidgetDesktopFolderCallback,
onFileChooserWidgetDesktopFolder ,
wrap_FileChooserWidgetDesktopFolderCallback,
C_FileChooserWidgetDownFolderCallback ,
FileChooserWidgetDownFolderCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetDownFolderSignalInfo ,
#endif
afterFileChooserWidgetDownFolder ,
genClosure_FileChooserWidgetDownFolder ,
mk_FileChooserWidgetDownFolderCallback ,
noFileChooserWidgetDownFolderCallback ,
onFileChooserWidgetDownFolder ,
wrap_FileChooserWidgetDownFolderCallback,
C_FileChooserWidgetHomeFolderCallback ,
FileChooserWidgetHomeFolderCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetHomeFolderSignalInfo ,
#endif
afterFileChooserWidgetHomeFolder ,
genClosure_FileChooserWidgetHomeFolder ,
mk_FileChooserWidgetHomeFolderCallback ,
noFileChooserWidgetHomeFolderCallback ,
onFileChooserWidgetHomeFolder ,
wrap_FileChooserWidgetHomeFolderCallback,
C_FileChooserWidgetLocationPopupCallback,
FileChooserWidgetLocationPopupCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetLocationPopupSignalInfo,
#endif
afterFileChooserWidgetLocationPopup ,
genClosure_FileChooserWidgetLocationPopup,
mk_FileChooserWidgetLocationPopupCallback,
noFileChooserWidgetLocationPopupCallback,
onFileChooserWidgetLocationPopup ,
wrap_FileChooserWidgetLocationPopupCallback,
C_FileChooserWidgetLocationPopupOnPasteCallback,
FileChooserWidgetLocationPopupOnPasteCallback,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetLocationPopupOnPasteSignalInfo,
#endif
afterFileChooserWidgetLocationPopupOnPaste,
genClosure_FileChooserWidgetLocationPopupOnPaste,
mk_FileChooserWidgetLocationPopupOnPasteCallback,
noFileChooserWidgetLocationPopupOnPasteCallback,
onFileChooserWidgetLocationPopupOnPaste ,
wrap_FileChooserWidgetLocationPopupOnPasteCallback,
C_FileChooserWidgetLocationTogglePopupCallback,
FileChooserWidgetLocationTogglePopupCallback,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetLocationTogglePopupSignalInfo,
#endif
afterFileChooserWidgetLocationTogglePopup,
genClosure_FileChooserWidgetLocationTogglePopup,
mk_FileChooserWidgetLocationTogglePopupCallback,
noFileChooserWidgetLocationTogglePopupCallback,
onFileChooserWidgetLocationTogglePopup ,
wrap_FileChooserWidgetLocationTogglePopupCallback,
C_FileChooserWidgetPlacesShortcutCallback,
FileChooserWidgetPlacesShortcutCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetPlacesShortcutSignalInfo,
#endif
afterFileChooserWidgetPlacesShortcut ,
genClosure_FileChooserWidgetPlacesShortcut,
mk_FileChooserWidgetPlacesShortcutCallback,
noFileChooserWidgetPlacesShortcutCallback,
onFileChooserWidgetPlacesShortcut ,
wrap_FileChooserWidgetPlacesShortcutCallback,
C_FileChooserWidgetQuickBookmarkCallback,
FileChooserWidgetQuickBookmarkCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetQuickBookmarkSignalInfo,
#endif
afterFileChooserWidgetQuickBookmark ,
genClosure_FileChooserWidgetQuickBookmark,
mk_FileChooserWidgetQuickBookmarkCallback,
noFileChooserWidgetQuickBookmarkCallback,
onFileChooserWidgetQuickBookmark ,
wrap_FileChooserWidgetQuickBookmarkCallback,
C_FileChooserWidgetRecentShortcutCallback,
FileChooserWidgetRecentShortcutCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetRecentShortcutSignalInfo,
#endif
afterFileChooserWidgetRecentShortcut ,
genClosure_FileChooserWidgetRecentShortcut,
mk_FileChooserWidgetRecentShortcutCallback,
noFileChooserWidgetRecentShortcutCallback,
onFileChooserWidgetRecentShortcut ,
wrap_FileChooserWidgetRecentShortcutCallback,
C_FileChooserWidgetSearchShortcutCallback,
FileChooserWidgetSearchShortcutCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetSearchShortcutSignalInfo,
#endif
afterFileChooserWidgetSearchShortcut ,
genClosure_FileChooserWidgetSearchShortcut,
mk_FileChooserWidgetSearchShortcutCallback,
noFileChooserWidgetSearchShortcutCallback,
onFileChooserWidgetSearchShortcut ,
wrap_FileChooserWidgetSearchShortcutCallback,
C_FileChooserWidgetShowHiddenCallback ,
FileChooserWidgetShowHiddenCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetShowHiddenSignalInfo ,
#endif
afterFileChooserWidgetShowHidden ,
genClosure_FileChooserWidgetShowHidden ,
mk_FileChooserWidgetShowHiddenCallback ,
noFileChooserWidgetShowHiddenCallback ,
onFileChooserWidgetShowHidden ,
wrap_FileChooserWidgetShowHiddenCallback,
C_FileChooserWidgetUpFolderCallback ,
FileChooserWidgetUpFolderCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetUpFolderSignalInfo ,
#endif
afterFileChooserWidgetUpFolder ,
genClosure_FileChooserWidgetUpFolder ,
mk_FileChooserWidgetUpFolderCallback ,
noFileChooserWidgetUpFolderCallback ,
onFileChooserWidgetUpFolder ,
wrap_FileChooserWidgetUpFolderCallback ,
) 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.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.Text as T
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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.FileChooser as Gtk.FileChooser
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype FileChooserWidget = FileChooserWidget (SP.ManagedPtr FileChooserWidget)
deriving (FileChooserWidget -> FileChooserWidget -> Bool
(FileChooserWidget -> FileChooserWidget -> Bool)
-> (FileChooserWidget -> FileChooserWidget -> Bool)
-> Eq FileChooserWidget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FileChooserWidget -> FileChooserWidget -> Bool
$c/= :: FileChooserWidget -> FileChooserWidget -> Bool
== :: FileChooserWidget -> FileChooserWidget -> Bool
$c== :: FileChooserWidget -> FileChooserWidget -> Bool
Eq)
instance SP.ManagedPtrNewtype FileChooserWidget where
toManagedPtr :: FileChooserWidget -> ManagedPtr FileChooserWidget
toManagedPtr (FileChooserWidget ManagedPtr FileChooserWidget
p) = ManagedPtr FileChooserWidget
p
foreign import ccall "gtk_file_chooser_widget_get_type"
c_gtk_file_chooser_widget_get_type :: IO B.Types.GType
instance B.Types.TypedObject FileChooserWidget where
glibType :: IO GType
glibType = IO GType
c_gtk_file_chooser_widget_get_type
instance B.Types.GObject FileChooserWidget
class (SP.GObject o, O.IsDescendantOf FileChooserWidget o) => IsFileChooserWidget o
instance (SP.GObject o, O.IsDescendantOf FileChooserWidget o) => IsFileChooserWidget o
instance O.HasParentTypes FileChooserWidget
type instance O.ParentTypes FileChooserWidget = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.FileChooser.FileChooser]
toFileChooserWidget :: (MIO.MonadIO m, IsFileChooserWidget o) => o -> m FileChooserWidget
toFileChooserWidget :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooserWidget o) =>
o -> m FileChooserWidget
toFileChooserWidget = IO FileChooserWidget -> m FileChooserWidget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FileChooserWidget -> m FileChooserWidget)
-> (o -> IO FileChooserWidget) -> o -> m FileChooserWidget
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FileChooserWidget -> FileChooserWidget)
-> o -> IO FileChooserWidget
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FileChooserWidget -> FileChooserWidget
FileChooserWidget
instance B.GValue.IsGValue (Maybe FileChooserWidget) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_file_chooser_widget_get_type
gvalueSet_ :: Ptr GValue -> Maybe FileChooserWidget -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FileChooserWidget
P.Nothing = Ptr GValue -> Ptr FileChooserWidget -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr FileChooserWidget
forall a. Ptr a
FP.nullPtr :: FP.Ptr FileChooserWidget)
gvalueSet_ Ptr GValue
gv (P.Just FileChooserWidget
obj) = FileChooserWidget -> (Ptr FileChooserWidget -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FileChooserWidget
obj (Ptr GValue -> Ptr FileChooserWidget -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe FileChooserWidget)
gvalueGet_ Ptr GValue
gv = do
Ptr FileChooserWidget
ptr <- Ptr GValue -> IO (Ptr FileChooserWidget)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FileChooserWidget)
if Ptr FileChooserWidget
ptr Ptr FileChooserWidget -> Ptr FileChooserWidget -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr FileChooserWidget
forall a. Ptr a
FP.nullPtr
then FileChooserWidget -> Maybe FileChooserWidget
forall a. a -> Maybe a
P.Just (FileChooserWidget -> Maybe FileChooserWidget)
-> IO FileChooserWidget -> IO (Maybe FileChooserWidget)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr FileChooserWidget -> FileChooserWidget)
-> Ptr FileChooserWidget -> IO FileChooserWidget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr FileChooserWidget -> FileChooserWidget
FileChooserWidget Ptr FileChooserWidget
ptr
else Maybe FileChooserWidget -> IO (Maybe FileChooserWidget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FileChooserWidget
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveFileChooserWidgetMethod (t :: Symbol) (o :: *) :: * where
ResolveFileChooserWidgetMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveFileChooserWidgetMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveFileChooserWidgetMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveFileChooserWidgetMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveFileChooserWidgetMethod "addChoice" o = Gtk.FileChooser.FileChooserAddChoiceMethodInfo
ResolveFileChooserWidgetMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveFileChooserWidgetMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveFileChooserWidgetMethod "addFilter" o = Gtk.FileChooser.FileChooserAddFilterMethodInfo
ResolveFileChooserWidgetMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveFileChooserWidgetMethod "addShortcutFolder" o = Gtk.FileChooser.FileChooserAddShortcutFolderMethodInfo
ResolveFileChooserWidgetMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveFileChooserWidgetMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveFileChooserWidgetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFileChooserWidgetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFileChooserWidgetMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveFileChooserWidgetMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveFileChooserWidgetMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveFileChooserWidgetMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveFileChooserWidgetMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveFileChooserWidgetMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveFileChooserWidgetMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveFileChooserWidgetMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveFileChooserWidgetMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveFileChooserWidgetMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveFileChooserWidgetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFileChooserWidgetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFileChooserWidgetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFileChooserWidgetMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveFileChooserWidgetMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveFileChooserWidgetMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveFileChooserWidgetMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveFileChooserWidgetMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveFileChooserWidgetMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveFileChooserWidgetMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveFileChooserWidgetMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveFileChooserWidgetMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveFileChooserWidgetMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveFileChooserWidgetMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveFileChooserWidgetMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveFileChooserWidgetMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveFileChooserWidgetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFileChooserWidgetMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveFileChooserWidgetMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveFileChooserWidgetMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveFileChooserWidgetMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveFileChooserWidgetMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveFileChooserWidgetMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveFileChooserWidgetMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveFileChooserWidgetMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveFileChooserWidgetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFileChooserWidgetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFileChooserWidgetMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveFileChooserWidgetMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveFileChooserWidgetMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveFileChooserWidgetMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveFileChooserWidgetMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveFileChooserWidgetMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveFileChooserWidgetMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveFileChooserWidgetMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFileChooserWidgetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFileChooserWidgetMethod "removeChoice" o = Gtk.FileChooser.FileChooserRemoveChoiceMethodInfo
ResolveFileChooserWidgetMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveFileChooserWidgetMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveFileChooserWidgetMethod "removeFilter" o = Gtk.FileChooser.FileChooserRemoveFilterMethodInfo
ResolveFileChooserWidgetMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveFileChooserWidgetMethod "removeShortcutFolder" o = Gtk.FileChooser.FileChooserRemoveShortcutFolderMethodInfo
ResolveFileChooserWidgetMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveFileChooserWidgetMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveFileChooserWidgetMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveFileChooserWidgetMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveFileChooserWidgetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFileChooserWidgetMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveFileChooserWidgetMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveFileChooserWidgetMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveFileChooserWidgetMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveFileChooserWidgetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFileChooserWidgetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFileChooserWidgetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFileChooserWidgetMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveFileChooserWidgetMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveFileChooserWidgetMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveFileChooserWidgetMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveFileChooserWidgetMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveFileChooserWidgetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFileChooserWidgetMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveFileChooserWidgetMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveFileChooserWidgetMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveFileChooserWidgetMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveFileChooserWidgetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFileChooserWidgetMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveFileChooserWidgetMethod "getAction" o = Gtk.FileChooser.FileChooserGetActionMethodInfo
ResolveFileChooserWidgetMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveFileChooserWidgetMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveFileChooserWidgetMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveFileChooserWidgetMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveFileChooserWidgetMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveFileChooserWidgetMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveFileChooserWidgetMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveFileChooserWidgetMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveFileChooserWidgetMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveFileChooserWidgetMethod "getChoice" o = Gtk.FileChooser.FileChooserGetChoiceMethodInfo
ResolveFileChooserWidgetMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveFileChooserWidgetMethod "getCreateFolders" o = Gtk.FileChooser.FileChooserGetCreateFoldersMethodInfo
ResolveFileChooserWidgetMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveFileChooserWidgetMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveFileChooserWidgetMethod "getCurrentFolder" o = Gtk.FileChooser.FileChooserGetCurrentFolderMethodInfo
ResolveFileChooserWidgetMethod "getCurrentName" o = Gtk.FileChooser.FileChooserGetCurrentNameMethodInfo
ResolveFileChooserWidgetMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveFileChooserWidgetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFileChooserWidgetMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveFileChooserWidgetMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveFileChooserWidgetMethod "getFile" o = Gtk.FileChooser.FileChooserGetFileMethodInfo
ResolveFileChooserWidgetMethod "getFiles" o = Gtk.FileChooser.FileChooserGetFilesMethodInfo
ResolveFileChooserWidgetMethod "getFilter" o = Gtk.FileChooser.FileChooserGetFilterMethodInfo
ResolveFileChooserWidgetMethod "getFilters" o = Gtk.FileChooser.FileChooserGetFiltersMethodInfo
ResolveFileChooserWidgetMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveFileChooserWidgetMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveFileChooserWidgetMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveFileChooserWidgetMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveFileChooserWidgetMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveFileChooserWidgetMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveFileChooserWidgetMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveFileChooserWidgetMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveFileChooserWidgetMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveFileChooserWidgetMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveFileChooserWidgetMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveFileChooserWidgetMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveFileChooserWidgetMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveFileChooserWidgetMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveFileChooserWidgetMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveFileChooserWidgetMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveFileChooserWidgetMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveFileChooserWidgetMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveFileChooserWidgetMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveFileChooserWidgetMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveFileChooserWidgetMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveFileChooserWidgetMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveFileChooserWidgetMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveFileChooserWidgetMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveFileChooserWidgetMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveFileChooserWidgetMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveFileChooserWidgetMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveFileChooserWidgetMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveFileChooserWidgetMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveFileChooserWidgetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFileChooserWidgetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFileChooserWidgetMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveFileChooserWidgetMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveFileChooserWidgetMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveFileChooserWidgetMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveFileChooserWidgetMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveFileChooserWidgetMethod "getSelectMultiple" o = Gtk.FileChooser.FileChooserGetSelectMultipleMethodInfo
ResolveFileChooserWidgetMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveFileChooserWidgetMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveFileChooserWidgetMethod "getShortcutFolders" o = Gtk.FileChooser.FileChooserGetShortcutFoldersMethodInfo
ResolveFileChooserWidgetMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveFileChooserWidgetMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveFileChooserWidgetMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveFileChooserWidgetMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveFileChooserWidgetMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveFileChooserWidgetMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveFileChooserWidgetMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveFileChooserWidgetMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveFileChooserWidgetMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveFileChooserWidgetMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveFileChooserWidgetMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveFileChooserWidgetMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveFileChooserWidgetMethod "setAction" o = Gtk.FileChooser.FileChooserSetActionMethodInfo
ResolveFileChooserWidgetMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveFileChooserWidgetMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveFileChooserWidgetMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveFileChooserWidgetMethod "setChoice" o = Gtk.FileChooser.FileChooserSetChoiceMethodInfo
ResolveFileChooserWidgetMethod "setCreateFolders" o = Gtk.FileChooser.FileChooserSetCreateFoldersMethodInfo
ResolveFileChooserWidgetMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveFileChooserWidgetMethod "setCurrentFolder" o = Gtk.FileChooser.FileChooserSetCurrentFolderMethodInfo
ResolveFileChooserWidgetMethod "setCurrentName" o = Gtk.FileChooser.FileChooserSetCurrentNameMethodInfo
ResolveFileChooserWidgetMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveFileChooserWidgetMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveFileChooserWidgetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFileChooserWidgetMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFileChooserWidgetMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveFileChooserWidgetMethod "setFile" o = Gtk.FileChooser.FileChooserSetFileMethodInfo
ResolveFileChooserWidgetMethod "setFilter" o = Gtk.FileChooser.FileChooserSetFilterMethodInfo
ResolveFileChooserWidgetMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveFileChooserWidgetMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveFileChooserWidgetMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveFileChooserWidgetMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveFileChooserWidgetMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveFileChooserWidgetMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveFileChooserWidgetMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveFileChooserWidgetMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveFileChooserWidgetMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveFileChooserWidgetMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveFileChooserWidgetMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveFileChooserWidgetMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveFileChooserWidgetMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveFileChooserWidgetMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveFileChooserWidgetMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveFileChooserWidgetMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveFileChooserWidgetMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveFileChooserWidgetMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveFileChooserWidgetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFileChooserWidgetMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveFileChooserWidgetMethod "setSelectMultiple" o = Gtk.FileChooser.FileChooserSetSelectMultipleMethodInfo
ResolveFileChooserWidgetMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveFileChooserWidgetMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveFileChooserWidgetMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveFileChooserWidgetMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveFileChooserWidgetMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveFileChooserWidgetMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveFileChooserWidgetMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveFileChooserWidgetMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveFileChooserWidgetMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveFileChooserWidgetMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFileChooserWidgetMethod t FileChooserWidget, O.OverloadedMethod info FileChooserWidget p) => OL.IsLabel t (FileChooserWidget -> 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 ~ ResolveFileChooserWidgetMethod t FileChooserWidget, O.OverloadedMethod info FileChooserWidget p, R.HasField t FileChooserWidget p) => R.HasField t FileChooserWidget p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFileChooserWidgetMethod t FileChooserWidget, O.OverloadedMethodInfo info FileChooserWidget) => OL.IsLabel t (O.MethodProxy info FileChooserWidget) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type FileChooserWidgetDesktopFolderCallback =
IO ()
noFileChooserWidgetDesktopFolderCallback :: Maybe FileChooserWidgetDesktopFolderCallback
noFileChooserWidgetDesktopFolderCallback :: Maybe (IO ())
noFileChooserWidgetDesktopFolderCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FileChooserWidgetDesktopFolderCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetDesktopFolderCallback :: C_FileChooserWidgetDesktopFolderCallback -> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetDesktopFolder :: MonadIO m => FileChooserWidgetDesktopFolderCallback -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetDesktopFolder :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetDesktopFolder IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDesktopFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetDesktopFolderCallback ::
FileChooserWidgetDesktopFolderCallback ->
C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback :: IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetDesktopFolder :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetDesktopFolderCallback -> m SignalHandlerId
onFileChooserWidgetDesktopFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onFileChooserWidgetDesktopFolder a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDesktopFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"desktop-folder" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetDesktopFolder :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetDesktopFolderCallback -> m SignalHandlerId
afterFileChooserWidgetDesktopFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterFileChooserWidgetDesktopFolder a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDesktopFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"desktop-folder" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetDesktopFolderSignalInfo
instance SignalInfo FileChooserWidgetDesktopFolderSignalInfo where
type HaskellCallbackType FileChooserWidgetDesktopFolderSignalInfo = FileChooserWidgetDesktopFolderCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetDesktopFolderCallback cb
cb'' <- mk_FileChooserWidgetDesktopFolderCallback cb'
connectSignalFunPtr obj "desktop-folder" cb'' connectMode detail
#endif
type FileChooserWidgetDownFolderCallback =
IO ()
noFileChooserWidgetDownFolderCallback :: Maybe FileChooserWidgetDownFolderCallback
noFileChooserWidgetDownFolderCallback :: Maybe (IO ())
noFileChooserWidgetDownFolderCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FileChooserWidgetDownFolderCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetDownFolderCallback :: C_FileChooserWidgetDownFolderCallback -> IO (FunPtr C_FileChooserWidgetDownFolderCallback)
genClosure_FileChooserWidgetDownFolder :: MonadIO m => FileChooserWidgetDownFolderCallback -> m (GClosure C_FileChooserWidgetDownFolderCallback)
genClosure_FileChooserWidgetDownFolder :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetDownFolder IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDownFolderCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDownFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetDownFolderCallback ::
FileChooserWidgetDownFolderCallback ->
C_FileChooserWidgetDownFolderCallback
wrap_FileChooserWidgetDownFolderCallback :: IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDownFolderCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetDownFolder :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetDownFolderCallback -> m SignalHandlerId
onFileChooserWidgetDownFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onFileChooserWidgetDownFolder a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDownFolderCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDownFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"down-folder" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetDownFolder :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetDownFolderCallback -> m SignalHandlerId
afterFileChooserWidgetDownFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterFileChooserWidgetDownFolder a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDownFolderCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDownFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"down-folder" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetDownFolderSignalInfo
instance SignalInfo FileChooserWidgetDownFolderSignalInfo where
type HaskellCallbackType FileChooserWidgetDownFolderSignalInfo = FileChooserWidgetDownFolderCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetDownFolderCallback cb
cb'' <- mk_FileChooserWidgetDownFolderCallback cb'
connectSignalFunPtr obj "down-folder" cb'' connectMode detail
#endif
type FileChooserWidgetHomeFolderCallback =
IO ()
noFileChooserWidgetHomeFolderCallback :: Maybe FileChooserWidgetHomeFolderCallback
noFileChooserWidgetHomeFolderCallback :: Maybe (IO ())
noFileChooserWidgetHomeFolderCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FileChooserWidgetHomeFolderCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetHomeFolderCallback :: C_FileChooserWidgetHomeFolderCallback -> IO (FunPtr C_FileChooserWidgetHomeFolderCallback)
genClosure_FileChooserWidgetHomeFolder :: MonadIO m => FileChooserWidgetHomeFolderCallback -> m (GClosure C_FileChooserWidgetHomeFolderCallback)
genClosure_FileChooserWidgetHomeFolder :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetHomeFolder IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetHomeFolderCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetHomeFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetHomeFolderCallback ::
FileChooserWidgetHomeFolderCallback ->
C_FileChooserWidgetHomeFolderCallback
wrap_FileChooserWidgetHomeFolderCallback :: IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetHomeFolderCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetHomeFolder :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetHomeFolderCallback -> m SignalHandlerId
onFileChooserWidgetHomeFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onFileChooserWidgetHomeFolder a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetHomeFolderCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetHomeFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"home-folder" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetHomeFolder :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetHomeFolderCallback -> m SignalHandlerId
afterFileChooserWidgetHomeFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterFileChooserWidgetHomeFolder a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetHomeFolderCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetHomeFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"home-folder" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetHomeFolderSignalInfo
instance SignalInfo FileChooserWidgetHomeFolderSignalInfo where
type HaskellCallbackType FileChooserWidgetHomeFolderSignalInfo = FileChooserWidgetHomeFolderCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetHomeFolderCallback cb
cb'' <- mk_FileChooserWidgetHomeFolderCallback cb'
connectSignalFunPtr obj "home-folder" cb'' connectMode detail
#endif
type =
T.Text
-> IO ()
noFileChooserWidgetLocationPopupCallback :: Maybe FileChooserWidgetLocationPopupCallback
= Maybe FileChooserWidgetLocationPopupCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_FileChooserWidgetLocationPopupCallback -> IO (FunPtr C_FileChooserWidgetLocationPopupCallback)
genClosure_FileChooserWidgetLocationPopup :: MonadIO m => FileChooserWidgetLocationPopupCallback -> m (GClosure C_FileChooserWidgetLocationPopupCallback)
FileChooserWidgetLocationPopupCallback
cb = IO (GClosure C_FileChooserWidgetLocationPopupCallback)
-> m (GClosure C_FileChooserWidgetLocationPopupCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetLocationPopupCallback)
-> m (GClosure C_FileChooserWidgetLocationPopupCallback))
-> IO (GClosure C_FileChooserWidgetLocationPopupCallback)
-> m (GClosure C_FileChooserWidgetLocationPopupCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetLocationPopupCallback
cb' = FileChooserWidgetLocationPopupCallback
-> C_FileChooserWidgetLocationPopupCallback
wrap_FileChooserWidgetLocationPopupCallback FileChooserWidgetLocationPopupCallback
cb
C_FileChooserWidgetLocationPopupCallback
-> IO (FunPtr C_FileChooserWidgetLocationPopupCallback)
mk_FileChooserWidgetLocationPopupCallback C_FileChooserWidgetLocationPopupCallback
cb' IO (FunPtr C_FileChooserWidgetLocationPopupCallback)
-> (FunPtr C_FileChooserWidgetLocationPopupCallback
-> IO (GClosure C_FileChooserWidgetLocationPopupCallback))
-> IO (GClosure C_FileChooserWidgetLocationPopupCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetLocationPopupCallback
-> IO (GClosure C_FileChooserWidgetLocationPopupCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetLocationPopupCallback ::
FileChooserWidgetLocationPopupCallback ->
C_FileChooserWidgetLocationPopupCallback
FileChooserWidgetLocationPopupCallback
_cb Ptr ()
_ CString
path Ptr ()
_ = do
Text
path' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
path
FileChooserWidgetLocationPopupCallback
_cb Text
path'
onFileChooserWidgetLocationPopup :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetLocationPopupCallback -> m SignalHandlerId
a
obj FileChooserWidgetLocationPopupCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetLocationPopupCallback
cb' = FileChooserWidgetLocationPopupCallback
-> C_FileChooserWidgetLocationPopupCallback
wrap_FileChooserWidgetLocationPopupCallback FileChooserWidgetLocationPopupCallback
cb
FunPtr C_FileChooserWidgetLocationPopupCallback
cb'' <- C_FileChooserWidgetLocationPopupCallback
-> IO (FunPtr C_FileChooserWidgetLocationPopupCallback)
mk_FileChooserWidgetLocationPopupCallback C_FileChooserWidgetLocationPopupCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetLocationPopupCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"location-popup" FunPtr C_FileChooserWidgetLocationPopupCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetLocationPopup :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetLocationPopupCallback -> m SignalHandlerId
a
obj FileChooserWidgetLocationPopupCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetLocationPopupCallback
cb' = FileChooserWidgetLocationPopupCallback
-> C_FileChooserWidgetLocationPopupCallback
wrap_FileChooserWidgetLocationPopupCallback FileChooserWidgetLocationPopupCallback
cb
FunPtr C_FileChooserWidgetLocationPopupCallback
cb'' <- C_FileChooserWidgetLocationPopupCallback
-> IO (FunPtr C_FileChooserWidgetLocationPopupCallback)
mk_FileChooserWidgetLocationPopupCallback C_FileChooserWidgetLocationPopupCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetLocationPopupCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"location-popup" FunPtr C_FileChooserWidgetLocationPopupCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetLocationPopupSignalInfo
instance SignalInfo FileChooserWidgetLocationPopupSignalInfo where
type HaskellCallbackType FileChooserWidgetLocationPopupSignalInfo = FileChooserWidgetLocationPopupCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetLocationPopupCallback cb
cb'' <- mk_FileChooserWidgetLocationPopupCallback cb'
connectSignalFunPtr obj "location-popup" cb'' connectMode detail
#endif
type =
IO ()
noFileChooserWidgetLocationPopupOnPasteCallback :: Maybe FileChooserWidgetLocationPopupOnPasteCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_FileChooserWidgetLocationPopupOnPasteCallback -> IO (FunPtr C_FileChooserWidgetLocationPopupOnPasteCallback)
genClosure_FileChooserWidgetLocationPopupOnPaste :: MonadIO m => FileChooserWidgetLocationPopupOnPasteCallback -> m (GClosure C_FileChooserWidgetLocationPopupOnPasteCallback)
IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationPopupOnPasteCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationPopupOnPasteCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetLocationPopupOnPasteCallback ::
FileChooserWidgetLocationPopupOnPasteCallback ->
C_FileChooserWidgetLocationPopupOnPasteCallback
IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetLocationPopupOnPaste :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetLocationPopupOnPasteCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationPopupOnPasteCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationPopupOnPasteCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"location-popup-on-paste" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetLocationPopupOnPaste :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetLocationPopupOnPasteCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationPopupOnPasteCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationPopupOnPasteCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"location-popup-on-paste" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetLocationPopupOnPasteSignalInfo
instance SignalInfo FileChooserWidgetLocationPopupOnPasteSignalInfo where
type HaskellCallbackType FileChooserWidgetLocationPopupOnPasteSignalInfo = FileChooserWidgetLocationPopupOnPasteCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetLocationPopupOnPasteCallback cb
cb'' <- mk_FileChooserWidgetLocationPopupOnPasteCallback cb'
connectSignalFunPtr obj "location-popup-on-paste" cb'' connectMode detail
#endif
type =
IO ()
noFileChooserWidgetLocationTogglePopupCallback :: Maybe FileChooserWidgetLocationTogglePopupCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_FileChooserWidgetLocationTogglePopupCallback -> IO (FunPtr C_FileChooserWidgetLocationTogglePopupCallback)
genClosure_FileChooserWidgetLocationTogglePopup :: MonadIO m => FileChooserWidgetLocationTogglePopupCallback -> m (GClosure C_FileChooserWidgetLocationTogglePopupCallback)
IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationTogglePopupCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationTogglePopupCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetLocationTogglePopupCallback ::
FileChooserWidgetLocationTogglePopupCallback ->
C_FileChooserWidgetLocationTogglePopupCallback
IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetLocationTogglePopup :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetLocationTogglePopupCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationTogglePopupCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationTogglePopupCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"location-toggle-popup" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetLocationTogglePopup :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetLocationTogglePopupCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationTogglePopupCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationTogglePopupCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"location-toggle-popup" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetLocationTogglePopupSignalInfo
instance SignalInfo FileChooserWidgetLocationTogglePopupSignalInfo where
type HaskellCallbackType FileChooserWidgetLocationTogglePopupSignalInfo = FileChooserWidgetLocationTogglePopupCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetLocationTogglePopupCallback cb
cb'' <- mk_FileChooserWidgetLocationTogglePopupCallback cb'
connectSignalFunPtr obj "location-toggle-popup" cb'' connectMode detail
#endif
type FileChooserWidgetPlacesShortcutCallback =
IO ()
noFileChooserWidgetPlacesShortcutCallback :: Maybe FileChooserWidgetPlacesShortcutCallback
noFileChooserWidgetPlacesShortcutCallback :: Maybe (IO ())
noFileChooserWidgetPlacesShortcutCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FileChooserWidgetPlacesShortcutCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetPlacesShortcutCallback :: C_FileChooserWidgetPlacesShortcutCallback -> IO (FunPtr C_FileChooserWidgetPlacesShortcutCallback)
genClosure_FileChooserWidgetPlacesShortcut :: MonadIO m => FileChooserWidgetPlacesShortcutCallback -> m (GClosure C_FileChooserWidgetPlacesShortcutCallback)
genClosure_FileChooserWidgetPlacesShortcut :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetPlacesShortcut IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetPlacesShortcutCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetPlacesShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetPlacesShortcutCallback ::
FileChooserWidgetPlacesShortcutCallback ->
C_FileChooserWidgetPlacesShortcutCallback
wrap_FileChooserWidgetPlacesShortcutCallback :: IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetPlacesShortcutCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetPlacesShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetPlacesShortcutCallback -> m SignalHandlerId
onFileChooserWidgetPlacesShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onFileChooserWidgetPlacesShortcut a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetPlacesShortcutCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetPlacesShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"places-shortcut" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetPlacesShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetPlacesShortcutCallback -> m SignalHandlerId
afterFileChooserWidgetPlacesShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterFileChooserWidgetPlacesShortcut a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetPlacesShortcutCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetPlacesShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"places-shortcut" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetPlacesShortcutSignalInfo
instance SignalInfo FileChooserWidgetPlacesShortcutSignalInfo where
type HaskellCallbackType FileChooserWidgetPlacesShortcutSignalInfo = FileChooserWidgetPlacesShortcutCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetPlacesShortcutCallback cb
cb'' <- mk_FileChooserWidgetPlacesShortcutCallback cb'
connectSignalFunPtr obj "places-shortcut" cb'' connectMode detail
#endif
type FileChooserWidgetQuickBookmarkCallback =
Int32
-> IO ()
noFileChooserWidgetQuickBookmarkCallback :: Maybe FileChooserWidgetQuickBookmarkCallback
noFileChooserWidgetQuickBookmarkCallback :: Maybe FileChooserWidgetQuickBookmarkCallback
noFileChooserWidgetQuickBookmarkCallback = Maybe FileChooserWidgetQuickBookmarkCallback
forall a. Maybe a
Nothing
type C_FileChooserWidgetQuickBookmarkCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetQuickBookmarkCallback :: C_FileChooserWidgetQuickBookmarkCallback -> IO (FunPtr C_FileChooserWidgetQuickBookmarkCallback)
genClosure_FileChooserWidgetQuickBookmark :: MonadIO m => FileChooserWidgetQuickBookmarkCallback -> m (GClosure C_FileChooserWidgetQuickBookmarkCallback)
genClosure_FileChooserWidgetQuickBookmark :: forall (m :: * -> *).
MonadIO m =>
FileChooserWidgetQuickBookmarkCallback
-> m (GClosure C_FileChooserWidgetQuickBookmarkCallback)
genClosure_FileChooserWidgetQuickBookmark FileChooserWidgetQuickBookmarkCallback
cb = IO (GClosure C_FileChooserWidgetQuickBookmarkCallback)
-> m (GClosure C_FileChooserWidgetQuickBookmarkCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetQuickBookmarkCallback)
-> m (GClosure C_FileChooserWidgetQuickBookmarkCallback))
-> IO (GClosure C_FileChooserWidgetQuickBookmarkCallback)
-> m (GClosure C_FileChooserWidgetQuickBookmarkCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetQuickBookmarkCallback
cb' = FileChooserWidgetQuickBookmarkCallback
-> C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback FileChooserWidgetQuickBookmarkCallback
cb
C_FileChooserWidgetQuickBookmarkCallback
-> IO (FunPtr C_FileChooserWidgetQuickBookmarkCallback)
mk_FileChooserWidgetQuickBookmarkCallback C_FileChooserWidgetQuickBookmarkCallback
cb' IO (FunPtr C_FileChooserWidgetQuickBookmarkCallback)
-> (FunPtr C_FileChooserWidgetQuickBookmarkCallback
-> IO (GClosure C_FileChooserWidgetQuickBookmarkCallback))
-> IO (GClosure C_FileChooserWidgetQuickBookmarkCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetQuickBookmarkCallback
-> IO (GClosure C_FileChooserWidgetQuickBookmarkCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetQuickBookmarkCallback ::
FileChooserWidgetQuickBookmarkCallback ->
C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback :: FileChooserWidgetQuickBookmarkCallback
-> C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback FileChooserWidgetQuickBookmarkCallback
_cb Ptr ()
_ Int32
bookmarkIndex Ptr ()
_ = do
FileChooserWidgetQuickBookmarkCallback
_cb Int32
bookmarkIndex
onFileChooserWidgetQuickBookmark :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId
onFileChooserWidgetQuickBookmark :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId
onFileChooserWidgetQuickBookmark a
obj FileChooserWidgetQuickBookmarkCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetQuickBookmarkCallback
cb' = FileChooserWidgetQuickBookmarkCallback
-> C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback FileChooserWidgetQuickBookmarkCallback
cb
FunPtr C_FileChooserWidgetQuickBookmarkCallback
cb'' <- C_FileChooserWidgetQuickBookmarkCallback
-> IO (FunPtr C_FileChooserWidgetQuickBookmarkCallback)
mk_FileChooserWidgetQuickBookmarkCallback C_FileChooserWidgetQuickBookmarkCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetQuickBookmarkCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"quick-bookmark" FunPtr C_FileChooserWidgetQuickBookmarkCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetQuickBookmark :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId
afterFileChooserWidgetQuickBookmark :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId
afterFileChooserWidgetQuickBookmark a
obj FileChooserWidgetQuickBookmarkCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetQuickBookmarkCallback
cb' = FileChooserWidgetQuickBookmarkCallback
-> C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback FileChooserWidgetQuickBookmarkCallback
cb
FunPtr C_FileChooserWidgetQuickBookmarkCallback
cb'' <- C_FileChooserWidgetQuickBookmarkCallback
-> IO (FunPtr C_FileChooserWidgetQuickBookmarkCallback)
mk_FileChooserWidgetQuickBookmarkCallback C_FileChooserWidgetQuickBookmarkCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetQuickBookmarkCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"quick-bookmark" FunPtr C_FileChooserWidgetQuickBookmarkCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetQuickBookmarkSignalInfo
instance SignalInfo FileChooserWidgetQuickBookmarkSignalInfo where
type HaskellCallbackType FileChooserWidgetQuickBookmarkSignalInfo = FileChooserWidgetQuickBookmarkCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetQuickBookmarkCallback cb
cb'' <- mk_FileChooserWidgetQuickBookmarkCallback cb'
connectSignalFunPtr obj "quick-bookmark" cb'' connectMode detail
#endif
type FileChooserWidgetRecentShortcutCallback =
IO ()
noFileChooserWidgetRecentShortcutCallback :: Maybe FileChooserWidgetRecentShortcutCallback
noFileChooserWidgetRecentShortcutCallback :: Maybe (IO ())
noFileChooserWidgetRecentShortcutCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FileChooserWidgetRecentShortcutCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetRecentShortcutCallback :: C_FileChooserWidgetRecentShortcutCallback -> IO (FunPtr C_FileChooserWidgetRecentShortcutCallback)
genClosure_FileChooserWidgetRecentShortcut :: MonadIO m => FileChooserWidgetRecentShortcutCallback -> m (GClosure C_FileChooserWidgetRecentShortcutCallback)
genClosure_FileChooserWidgetRecentShortcut :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetRecentShortcut IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetRecentShortcutCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetRecentShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetRecentShortcutCallback ::
FileChooserWidgetRecentShortcutCallback ->
C_FileChooserWidgetRecentShortcutCallback
wrap_FileChooserWidgetRecentShortcutCallback :: IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetRecentShortcutCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetRecentShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetRecentShortcutCallback -> m SignalHandlerId
onFileChooserWidgetRecentShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onFileChooserWidgetRecentShortcut a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetRecentShortcutCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetRecentShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"recent-shortcut" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetRecentShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetRecentShortcutCallback -> m SignalHandlerId
afterFileChooserWidgetRecentShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterFileChooserWidgetRecentShortcut a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetRecentShortcutCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetRecentShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"recent-shortcut" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetRecentShortcutSignalInfo
instance SignalInfo FileChooserWidgetRecentShortcutSignalInfo where
type HaskellCallbackType FileChooserWidgetRecentShortcutSignalInfo = FileChooserWidgetRecentShortcutCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetRecentShortcutCallback cb
cb'' <- mk_FileChooserWidgetRecentShortcutCallback cb'
connectSignalFunPtr obj "recent-shortcut" cb'' connectMode detail
#endif
type FileChooserWidgetSearchShortcutCallback =
IO ()
noFileChooserWidgetSearchShortcutCallback :: Maybe FileChooserWidgetSearchShortcutCallback
noFileChooserWidgetSearchShortcutCallback :: Maybe (IO ())
noFileChooserWidgetSearchShortcutCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FileChooserWidgetSearchShortcutCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetSearchShortcutCallback :: C_FileChooserWidgetSearchShortcutCallback -> IO (FunPtr C_FileChooserWidgetSearchShortcutCallback)
genClosure_FileChooserWidgetSearchShortcut :: MonadIO m => FileChooserWidgetSearchShortcutCallback -> m (GClosure C_FileChooserWidgetSearchShortcutCallback)
genClosure_FileChooserWidgetSearchShortcut :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetSearchShortcut IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetSearchShortcutCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetSearchShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetSearchShortcutCallback ::
FileChooserWidgetSearchShortcutCallback ->
C_FileChooserWidgetSearchShortcutCallback
wrap_FileChooserWidgetSearchShortcutCallback :: IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetSearchShortcutCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetSearchShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetSearchShortcutCallback -> m SignalHandlerId
onFileChooserWidgetSearchShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onFileChooserWidgetSearchShortcut a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetSearchShortcutCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetSearchShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"search-shortcut" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetSearchShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetSearchShortcutCallback -> m SignalHandlerId
afterFileChooserWidgetSearchShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterFileChooserWidgetSearchShortcut a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetSearchShortcutCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetSearchShortcutCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"search-shortcut" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetSearchShortcutSignalInfo
instance SignalInfo FileChooserWidgetSearchShortcutSignalInfo where
type HaskellCallbackType FileChooserWidgetSearchShortcutSignalInfo = FileChooserWidgetSearchShortcutCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetSearchShortcutCallback cb
cb'' <- mk_FileChooserWidgetSearchShortcutCallback cb'
connectSignalFunPtr obj "search-shortcut" cb'' connectMode detail
#endif
type FileChooserWidgetShowHiddenCallback =
IO ()
noFileChooserWidgetShowHiddenCallback :: Maybe FileChooserWidgetShowHiddenCallback
noFileChooserWidgetShowHiddenCallback :: Maybe (IO ())
noFileChooserWidgetShowHiddenCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FileChooserWidgetShowHiddenCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetShowHiddenCallback :: C_FileChooserWidgetShowHiddenCallback -> IO (FunPtr C_FileChooserWidgetShowHiddenCallback)
genClosure_FileChooserWidgetShowHidden :: MonadIO m => FileChooserWidgetShowHiddenCallback -> m (GClosure C_FileChooserWidgetShowHiddenCallback)
genClosure_FileChooserWidgetShowHidden :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetShowHidden IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetShowHiddenCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetShowHiddenCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetShowHiddenCallback ::
FileChooserWidgetShowHiddenCallback ->
C_FileChooserWidgetShowHiddenCallback
wrap_FileChooserWidgetShowHiddenCallback :: IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetShowHiddenCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetShowHidden :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetShowHiddenCallback -> m SignalHandlerId
onFileChooserWidgetShowHidden :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onFileChooserWidgetShowHidden a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetShowHiddenCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetShowHiddenCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-hidden" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetShowHidden :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetShowHiddenCallback -> m SignalHandlerId
afterFileChooserWidgetShowHidden :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterFileChooserWidgetShowHidden a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetShowHiddenCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetShowHiddenCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show-hidden" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetShowHiddenSignalInfo
instance SignalInfo FileChooserWidgetShowHiddenSignalInfo where
type HaskellCallbackType FileChooserWidgetShowHiddenSignalInfo = FileChooserWidgetShowHiddenCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetShowHiddenCallback cb
cb'' <- mk_FileChooserWidgetShowHiddenCallback cb'
connectSignalFunPtr obj "show-hidden" cb'' connectMode detail
#endif
type FileChooserWidgetUpFolderCallback =
IO ()
noFileChooserWidgetUpFolderCallback :: Maybe FileChooserWidgetUpFolderCallback
noFileChooserWidgetUpFolderCallback :: Maybe (IO ())
noFileChooserWidgetUpFolderCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FileChooserWidgetUpFolderCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetUpFolderCallback :: C_FileChooserWidgetUpFolderCallback -> IO (FunPtr C_FileChooserWidgetUpFolderCallback)
genClosure_FileChooserWidgetUpFolder :: MonadIO m => FileChooserWidgetUpFolderCallback -> m (GClosure C_FileChooserWidgetUpFolderCallback)
genClosure_FileChooserWidgetUpFolder :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
genClosure_FileChooserWidgetUpFolder IO ()
cb = IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
-> m (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetUpFolderCallback IO ()
cb
C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetUpFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb' IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
-> (FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback))
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileChooserWidgetDesktopFolderCallback
-> IO (GClosure C_FileChooserWidgetDesktopFolderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileChooserWidgetUpFolderCallback ::
FileChooserWidgetUpFolderCallback ->
C_FileChooserWidgetUpFolderCallback
wrap_FileChooserWidgetUpFolderCallback :: IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetUpFolderCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFileChooserWidgetUpFolder :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetUpFolderCallback -> m SignalHandlerId
onFileChooserWidgetUpFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onFileChooserWidgetUpFolder a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetUpFolderCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetUpFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"up-folder" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetUpFolder :: (IsFileChooserWidget a, MonadIO m) => a -> FileChooserWidgetUpFolderCallback -> m SignalHandlerId
afterFileChooserWidgetUpFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterFileChooserWidgetUpFolder a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_FileChooserWidgetDesktopFolderCallback
cb' = IO () -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetUpFolderCallback IO ()
cb
FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetUpFolderCallback C_FileChooserWidgetDesktopFolderCallback
cb'
a
-> Text
-> FunPtr C_FileChooserWidgetDesktopFolderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"up-folder" FunPtr C_FileChooserWidgetDesktopFolderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetUpFolderSignalInfo
instance SignalInfo FileChooserWidgetUpFolderSignalInfo where
type HaskellCallbackType FileChooserWidgetUpFolderSignalInfo = FileChooserWidgetUpFolderCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileChooserWidgetUpFolderCallback cb
cb'' <- mk_FileChooserWidgetUpFolderCallback cb'
connectSignalFunPtr obj "up-folder" cb'' connectMode detail
#endif
getFileChooserWidgetSearchMode :: (MonadIO m, IsFileChooserWidget o) => o -> m Bool
getFileChooserWidgetSearchMode :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooserWidget o) =>
o -> m Bool
getFileChooserWidgetSearchMode o
obj = IO Bool -> m Bool
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
"search-mode"
setFileChooserWidgetSearchMode :: (MonadIO m, IsFileChooserWidget o) => o -> Bool -> m ()
setFileChooserWidgetSearchMode :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooserWidget o) =>
o -> Bool -> m ()
setFileChooserWidgetSearchMode o
obj Bool
val = IO () -> m ()
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
"search-mode" Bool
val
constructFileChooserWidgetSearchMode :: (IsFileChooserWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFileChooserWidgetSearchMode :: forall o (m :: * -> *).
(IsFileChooserWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFileChooserWidgetSearchMode Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"search-mode" Bool
val
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetSearchModePropertyInfo
instance AttrInfo FileChooserWidgetSearchModePropertyInfo where
type AttrAllowedOps FileChooserWidgetSearchModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FileChooserWidgetSearchModePropertyInfo = IsFileChooserWidget
type AttrSetTypeConstraint FileChooserWidgetSearchModePropertyInfo = (~) Bool
type AttrTransferTypeConstraint FileChooserWidgetSearchModePropertyInfo = (~) Bool
type AttrTransferType FileChooserWidgetSearchModePropertyInfo = Bool
type AttrGetType FileChooserWidgetSearchModePropertyInfo = Bool
type AttrLabel FileChooserWidgetSearchModePropertyInfo = "search-mode"
type AttrOrigin FileChooserWidgetSearchModePropertyInfo = FileChooserWidget
attrGet = getFileChooserWidgetSearchMode
attrSet = setFileChooserWidgetSearchMode
attrTransfer _ v = do
return v
attrConstruct = constructFileChooserWidgetSearchMode
attrClear = undefined
#endif
getFileChooserWidgetSubtitle :: (MonadIO m, IsFileChooserWidget o) => o -> m (Maybe T.Text)
getFileChooserWidgetSubtitle :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooserWidget o) =>
o -> m (Maybe Text)
getFileChooserWidgetSubtitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"subtitle"
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetSubtitlePropertyInfo
instance AttrInfo FileChooserWidgetSubtitlePropertyInfo where
type AttrAllowedOps FileChooserWidgetSubtitlePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint FileChooserWidgetSubtitlePropertyInfo = IsFileChooserWidget
type AttrSetTypeConstraint FileChooserWidgetSubtitlePropertyInfo = (~) ()
type AttrTransferTypeConstraint FileChooserWidgetSubtitlePropertyInfo = (~) ()
type AttrTransferType FileChooserWidgetSubtitlePropertyInfo = ()
type AttrGetType FileChooserWidgetSubtitlePropertyInfo = (Maybe T.Text)
type AttrLabel FileChooserWidgetSubtitlePropertyInfo = "subtitle"
type AttrOrigin FileChooserWidgetSubtitlePropertyInfo = FileChooserWidget
attrGet = getFileChooserWidgetSubtitle
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FileChooserWidget
type instance O.AttributeList FileChooserWidget = FileChooserWidgetAttributeList
type FileChooserWidgetAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("action", Gtk.FileChooser.FileChooserActionPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("createFolders", Gtk.FileChooser.FileChooserCreateFoldersPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("filter", Gtk.FileChooser.FileChooserFilterPropertyInfo), '("filters", Gtk.FileChooser.FileChooserFiltersPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("searchMode", FileChooserWidgetSearchModePropertyInfo), '("selectMultiple", Gtk.FileChooser.FileChooserSelectMultiplePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("shortcutFolders", Gtk.FileChooser.FileChooserShortcutFoldersPropertyInfo), '("subtitle", FileChooserWidgetSubtitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
fileChooserWidgetSearchMode :: AttrLabelProxy "searchMode"
fileChooserWidgetSearchMode = AttrLabelProxy
fileChooserWidgetSubtitle :: AttrLabelProxy "subtitle"
fileChooserWidgetSubtitle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FileChooserWidget = FileChooserWidgetSignalList
type FileChooserWidgetSignalList = ('[ '("desktopFolder", FileChooserWidgetDesktopFolderSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("downFolder", FileChooserWidgetDownFolderSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("homeFolder", FileChooserWidgetHomeFolderSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("locationPopup", FileChooserWidgetLocationPopupSignalInfo), '("locationPopupOnPaste", FileChooserWidgetLocationPopupOnPasteSignalInfo), '("locationTogglePopup", FileChooserWidgetLocationTogglePopupSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("placesShortcut", FileChooserWidgetPlacesShortcutSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("quickBookmark", FileChooserWidgetQuickBookmarkSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("recentShortcut", FileChooserWidgetRecentShortcutSignalInfo), '("searchShortcut", FileChooserWidgetSearchShortcutSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHidden", FileChooserWidgetShowHiddenSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("upFolder", FileChooserWidgetUpFolderSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_file_chooser_widget_new" gtk_file_chooser_widget_new ::
CUInt ->
IO (Ptr FileChooserWidget)
fileChooserWidgetNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gtk.Enums.FileChooserAction
-> m FileChooserWidget
fileChooserWidgetNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FileChooserAction -> m FileChooserWidget
fileChooserWidgetNew FileChooserAction
action = IO FileChooserWidget -> m FileChooserWidget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FileChooserWidget -> m FileChooserWidget)
-> IO FileChooserWidget -> m FileChooserWidget
forall a b. (a -> b) -> a -> b
$ do
let action' :: CUInt
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
Ptr FileChooserWidget
result <- CUInt -> IO (Ptr FileChooserWidget)
gtk_file_chooser_widget_new CUInt
action'
Text -> Ptr FileChooserWidget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"fileChooserWidgetNew" Ptr FileChooserWidget
result
FileChooserWidget
result' <- ((ManagedPtr FileChooserWidget -> FileChooserWidget)
-> Ptr FileChooserWidget -> IO FileChooserWidget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FileChooserWidget -> FileChooserWidget
FileChooserWidget) Ptr FileChooserWidget
result
FileChooserWidget -> IO FileChooserWidget
forall (m :: * -> *) a. Monad m => a -> m a
return FileChooserWidget
result'
#if defined(ENABLE_OVERLOADING)
#endif