{-# LANGUAGE ImplicitParams, RankNTypes, 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)
FileChooserWidgetShowTimePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
fileChooserWidgetShowTime ,
#endif
getFileChooserWidgetShowTime ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetSubtitlePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
fileChooserWidgetSubtitle ,
#endif
getFileChooserWidgetSubtitle ,
FileChooserWidgetDesktopFolderCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetDesktopFolderSignalInfo,
#endif
afterFileChooserWidgetDesktopFolder ,
onFileChooserWidgetDesktopFolder ,
FileChooserWidgetDownFolderCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetDownFolderSignalInfo ,
#endif
afterFileChooserWidgetDownFolder ,
onFileChooserWidgetDownFolder ,
FileChooserWidgetHomeFolderCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetHomeFolderSignalInfo ,
#endif
afterFileChooserWidgetHomeFolder ,
onFileChooserWidgetHomeFolder ,
FileChooserWidgetLocationPopupCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetLocationPopupSignalInfo,
#endif
afterFileChooserWidgetLocationPopup ,
onFileChooserWidgetLocationPopup ,
FileChooserWidgetLocationPopupOnPasteCallback,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetLocationPopupOnPasteSignalInfo,
#endif
afterFileChooserWidgetLocationPopupOnPaste,
onFileChooserWidgetLocationPopupOnPaste ,
FileChooserWidgetLocationTogglePopupCallback,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetLocationTogglePopupSignalInfo,
#endif
afterFileChooserWidgetLocationTogglePopup,
onFileChooserWidgetLocationTogglePopup ,
FileChooserWidgetPlacesShortcutCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetPlacesShortcutSignalInfo,
#endif
afterFileChooserWidgetPlacesShortcut ,
onFileChooserWidgetPlacesShortcut ,
FileChooserWidgetQuickBookmarkCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetQuickBookmarkSignalInfo,
#endif
afterFileChooserWidgetQuickBookmark ,
onFileChooserWidgetQuickBookmark ,
FileChooserWidgetRecentShortcutCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetRecentShortcutSignalInfo,
#endif
afterFileChooserWidgetRecentShortcut ,
onFileChooserWidgetRecentShortcut ,
FileChooserWidgetSearchShortcutCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetSearchShortcutSignalInfo,
#endif
afterFileChooserWidgetSearchShortcut ,
onFileChooserWidgetSearchShortcut ,
FileChooserWidgetShowHiddenCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetShowHiddenSignalInfo ,
#endif
afterFileChooserWidgetShowHidden ,
onFileChooserWidgetShowHidden ,
FileChooserWidgetUpFolderCallback ,
#if defined(ENABLE_OVERLOADING)
FileChooserWidgetUpFolderSignalInfo ,
#endif
afterFileChooserWidgetUpFolder ,
onFileChooserWidgetUpFolder ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified 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
$c== :: FileChooserWidget -> FileChooserWidget -> Bool
== :: FileChooserWidget -> FileChooserWidget -> Bool
$c/= :: FileChooserWidget -> FileChooserWidget -> Bool
/= :: 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 a. IO a -> m a
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 a. a -> IO a
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 :: DK.Type) :: DK.Type 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 "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
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 "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
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 "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
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 "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveFileChooserWidgetMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
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 "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
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 "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
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 "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
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 "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
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 "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
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 ()
type C_FileChooserWidgetDesktopFolderCallback =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetDesktopFolderCallback :: C_FileChooserWidgetDesktopFolderCallback -> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
wrap_FileChooserWidgetDesktopFolderCallback ::
GObject a => (a -> FileChooserWidgetDesktopFolderCallback) ->
C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetDesktopFolder :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetDesktopFolderCallback) -> m SignalHandlerId
onFileChooserWidgetDesktopFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserWidgetDesktopFolder a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDesktopFolderCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetDesktopFolder :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetDesktopFolderCallback) -> m SignalHandlerId
afterFileChooserWidgetDesktopFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserWidgetDesktopFolder a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDesktopFolderCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDesktopFolderCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::desktop-folder"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:desktopFolder"})
#endif
type FileChooserWidgetDownFolderCallback =
IO ()
type C_FileChooserWidgetDownFolderCallback =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetDownFolderCallback :: C_FileChooserWidgetDownFolderCallback -> IO (FunPtr C_FileChooserWidgetDownFolderCallback)
wrap_FileChooserWidgetDownFolderCallback ::
GObject a => (a -> FileChooserWidgetDownFolderCallback) ->
C_FileChooserWidgetDownFolderCallback
wrap_FileChooserWidgetDownFolderCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDownFolderCallback a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetDownFolder :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetDownFolderCallback) -> m SignalHandlerId
onFileChooserWidgetDownFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserWidgetDownFolder a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDownFolderCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDownFolderCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetDownFolder :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetDownFolderCallback) -> m SignalHandlerId
afterFileChooserWidgetDownFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserWidgetDownFolder a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetDownFolderCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetDownFolderCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::down-folder"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:downFolder"})
#endif
type FileChooserWidgetHomeFolderCallback =
IO ()
type C_FileChooserWidgetHomeFolderCallback =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetHomeFolderCallback :: C_FileChooserWidgetHomeFolderCallback -> IO (FunPtr C_FileChooserWidgetHomeFolderCallback)
wrap_FileChooserWidgetHomeFolderCallback ::
GObject a => (a -> FileChooserWidgetHomeFolderCallback) ->
C_FileChooserWidgetHomeFolderCallback
wrap_FileChooserWidgetHomeFolderCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetHomeFolderCallback a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetHomeFolder :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetHomeFolderCallback) -> m SignalHandlerId
onFileChooserWidgetHomeFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserWidgetHomeFolder a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetHomeFolderCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetHomeFolderCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetHomeFolder :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetHomeFolderCallback) -> m SignalHandlerId
afterFileChooserWidgetHomeFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserWidgetHomeFolder a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetHomeFolderCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetHomeFolderCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::home-folder"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:homeFolder"})
#endif
type =
T.Text
-> IO ()
type =
Ptr FileChooserWidget ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_FileChooserWidgetLocationPopupCallback -> IO (FunPtr C_FileChooserWidgetLocationPopupCallback)
wrap_FileChooserWidgetLocationPopupCallback ::
GObject a => (a -> FileChooserWidgetLocationPopupCallback) ->
C_FileChooserWidgetLocationPopupCallback
a -> FileChooserWidgetLocationPopupCallback
gi'cb Ptr FileChooserWidget
gi'selfPtr CString
path Ptr ()
_ = do
Text
path' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
path
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> FileChooserWidgetLocationPopupCallback
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self) Text
path'
onFileChooserWidgetLocationPopup :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetLocationPopupCallback) -> m SignalHandlerId
a
obj (?self::a) => FileChooserWidgetLocationPopupCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> FileChooserWidgetLocationPopupCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => FileChooserWidgetLocationPopupCallback
FileChooserWidgetLocationPopupCallback
cb
let wrapped' :: C_FileChooserWidgetLocationPopupCallback
wrapped' = (a -> FileChooserWidgetLocationPopupCallback)
-> C_FileChooserWidgetLocationPopupCallback
forall a.
GObject a =>
(a -> FileChooserWidgetLocationPopupCallback)
-> C_FileChooserWidgetLocationPopupCallback
wrap_FileChooserWidgetLocationPopupCallback a -> FileChooserWidgetLocationPopupCallback
wrapped
FunPtr C_FileChooserWidgetLocationPopupCallback
wrapped'' <- C_FileChooserWidgetLocationPopupCallback
-> IO (FunPtr C_FileChooserWidgetLocationPopupCallback)
mk_FileChooserWidgetLocationPopupCallback C_FileChooserWidgetLocationPopupCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetLocationPopup :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetLocationPopupCallback) -> m SignalHandlerId
a
obj (?self::a) => FileChooserWidgetLocationPopupCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> FileChooserWidgetLocationPopupCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => FileChooserWidgetLocationPopupCallback
FileChooserWidgetLocationPopupCallback
cb
let wrapped' :: C_FileChooserWidgetLocationPopupCallback
wrapped' = (a -> FileChooserWidgetLocationPopupCallback)
-> C_FileChooserWidgetLocationPopupCallback
forall a.
GObject a =>
(a -> FileChooserWidgetLocationPopupCallback)
-> C_FileChooserWidgetLocationPopupCallback
wrap_FileChooserWidgetLocationPopupCallback a -> FileChooserWidgetLocationPopupCallback
wrapped
FunPtr C_FileChooserWidgetLocationPopupCallback
wrapped'' <- C_FileChooserWidgetLocationPopupCallback
-> IO (FunPtr C_FileChooserWidgetLocationPopupCallback)
mk_FileChooserWidgetLocationPopupCallback C_FileChooserWidgetLocationPopupCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::location-popup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:locationPopup"})
#endif
type =
IO ()
type =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_FileChooserWidgetLocationPopupOnPasteCallback -> IO (FunPtr C_FileChooserWidgetLocationPopupOnPasteCallback)
wrap_FileChooserWidgetLocationPopupOnPasteCallback ::
GObject a => (a -> FileChooserWidgetLocationPopupOnPasteCallback) ->
C_FileChooserWidgetLocationPopupOnPasteCallback
a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetLocationPopupOnPaste :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetLocationPopupOnPasteCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationPopupOnPasteCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationPopupOnPasteCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetLocationPopupOnPaste :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetLocationPopupOnPasteCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationPopupOnPasteCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationPopupOnPasteCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::location-popup-on-paste"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:locationPopupOnPaste"})
#endif
type =
IO ()
type =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_FileChooserWidgetLocationTogglePopupCallback -> IO (FunPtr C_FileChooserWidgetLocationTogglePopupCallback)
wrap_FileChooserWidgetLocationTogglePopupCallback ::
GObject a => (a -> FileChooserWidgetLocationTogglePopupCallback) ->
C_FileChooserWidgetLocationTogglePopupCallback
a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetLocationTogglePopup :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetLocationTogglePopupCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationTogglePopupCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationTogglePopupCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetLocationTogglePopup :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetLocationTogglePopupCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetLocationTogglePopupCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetLocationTogglePopupCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::location-toggle-popup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:locationTogglePopup"})
#endif
type FileChooserWidgetPlacesShortcutCallback =
IO ()
type C_FileChooserWidgetPlacesShortcutCallback =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetPlacesShortcutCallback :: C_FileChooserWidgetPlacesShortcutCallback -> IO (FunPtr C_FileChooserWidgetPlacesShortcutCallback)
wrap_FileChooserWidgetPlacesShortcutCallback ::
GObject a => (a -> FileChooserWidgetPlacesShortcutCallback) ->
C_FileChooserWidgetPlacesShortcutCallback
wrap_FileChooserWidgetPlacesShortcutCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetPlacesShortcutCallback a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetPlacesShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetPlacesShortcutCallback) -> m SignalHandlerId
onFileChooserWidgetPlacesShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserWidgetPlacesShortcut a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetPlacesShortcutCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetPlacesShortcutCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetPlacesShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetPlacesShortcutCallback) -> m SignalHandlerId
afterFileChooserWidgetPlacesShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserWidgetPlacesShortcut a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetPlacesShortcutCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetPlacesShortcutCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::places-shortcut"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:placesShortcut"})
#endif
type FileChooserWidgetQuickBookmarkCallback =
Int32
-> IO ()
type C_FileChooserWidgetQuickBookmarkCallback =
Ptr FileChooserWidget ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetQuickBookmarkCallback :: C_FileChooserWidgetQuickBookmarkCallback -> IO (FunPtr C_FileChooserWidgetQuickBookmarkCallback)
wrap_FileChooserWidgetQuickBookmarkCallback ::
GObject a => (a -> FileChooserWidgetQuickBookmarkCallback) ->
C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback :: forall a.
GObject a =>
(a -> FileChooserWidgetQuickBookmarkCallback)
-> C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback a -> FileChooserWidgetQuickBookmarkCallback
gi'cb Ptr FileChooserWidget
gi'selfPtr Int32
bookmarkIndex Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> FileChooserWidgetQuickBookmarkCallback
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self) Int32
bookmarkIndex
onFileChooserWidgetQuickBookmark :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetQuickBookmarkCallback) -> m SignalHandlerId
onFileChooserWidgetQuickBookmark :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a
-> ((?self::a) => FileChooserWidgetQuickBookmarkCallback)
-> m SignalHandlerId
onFileChooserWidgetQuickBookmark a
obj (?self::a) => FileChooserWidgetQuickBookmarkCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> FileChooserWidgetQuickBookmarkCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => FileChooserWidgetQuickBookmarkCallback
FileChooserWidgetQuickBookmarkCallback
cb
let wrapped' :: C_FileChooserWidgetQuickBookmarkCallback
wrapped' = (a -> FileChooserWidgetQuickBookmarkCallback)
-> C_FileChooserWidgetQuickBookmarkCallback
forall a.
GObject a =>
(a -> FileChooserWidgetQuickBookmarkCallback)
-> C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback a -> FileChooserWidgetQuickBookmarkCallback
wrapped
FunPtr C_FileChooserWidgetQuickBookmarkCallback
wrapped'' <- C_FileChooserWidgetQuickBookmarkCallback
-> IO (FunPtr C_FileChooserWidgetQuickBookmarkCallback)
mk_FileChooserWidgetQuickBookmarkCallback C_FileChooserWidgetQuickBookmarkCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetQuickBookmark :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetQuickBookmarkCallback) -> m SignalHandlerId
afterFileChooserWidgetQuickBookmark :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a
-> ((?self::a) => FileChooserWidgetQuickBookmarkCallback)
-> m SignalHandlerId
afterFileChooserWidgetQuickBookmark a
obj (?self::a) => FileChooserWidgetQuickBookmarkCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> FileChooserWidgetQuickBookmarkCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => FileChooserWidgetQuickBookmarkCallback
FileChooserWidgetQuickBookmarkCallback
cb
let wrapped' :: C_FileChooserWidgetQuickBookmarkCallback
wrapped' = (a -> FileChooserWidgetQuickBookmarkCallback)
-> C_FileChooserWidgetQuickBookmarkCallback
forall a.
GObject a =>
(a -> FileChooserWidgetQuickBookmarkCallback)
-> C_FileChooserWidgetQuickBookmarkCallback
wrap_FileChooserWidgetQuickBookmarkCallback a -> FileChooserWidgetQuickBookmarkCallback
wrapped
FunPtr C_FileChooserWidgetQuickBookmarkCallback
wrapped'' <- C_FileChooserWidgetQuickBookmarkCallback
-> IO (FunPtr C_FileChooserWidgetQuickBookmarkCallback)
mk_FileChooserWidgetQuickBookmarkCallback C_FileChooserWidgetQuickBookmarkCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::quick-bookmark"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:quickBookmark"})
#endif
type FileChooserWidgetRecentShortcutCallback =
IO ()
type C_FileChooserWidgetRecentShortcutCallback =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetRecentShortcutCallback :: C_FileChooserWidgetRecentShortcutCallback -> IO (FunPtr C_FileChooserWidgetRecentShortcutCallback)
wrap_FileChooserWidgetRecentShortcutCallback ::
GObject a => (a -> FileChooserWidgetRecentShortcutCallback) ->
C_FileChooserWidgetRecentShortcutCallback
wrap_FileChooserWidgetRecentShortcutCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetRecentShortcutCallback a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetRecentShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetRecentShortcutCallback) -> m SignalHandlerId
onFileChooserWidgetRecentShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserWidgetRecentShortcut a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetRecentShortcutCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetRecentShortcutCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetRecentShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetRecentShortcutCallback) -> m SignalHandlerId
afterFileChooserWidgetRecentShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserWidgetRecentShortcut a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetRecentShortcutCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetRecentShortcutCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::recent-shortcut"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:recentShortcut"})
#endif
type FileChooserWidgetSearchShortcutCallback =
IO ()
type C_FileChooserWidgetSearchShortcutCallback =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetSearchShortcutCallback :: C_FileChooserWidgetSearchShortcutCallback -> IO (FunPtr C_FileChooserWidgetSearchShortcutCallback)
wrap_FileChooserWidgetSearchShortcutCallback ::
GObject a => (a -> FileChooserWidgetSearchShortcutCallback) ->
C_FileChooserWidgetSearchShortcutCallback
wrap_FileChooserWidgetSearchShortcutCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetSearchShortcutCallback a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetSearchShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetSearchShortcutCallback) -> m SignalHandlerId
onFileChooserWidgetSearchShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserWidgetSearchShortcut a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetSearchShortcutCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetSearchShortcutCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetSearchShortcut :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetSearchShortcutCallback) -> m SignalHandlerId
afterFileChooserWidgetSearchShortcut :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserWidgetSearchShortcut a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetSearchShortcutCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetSearchShortcutCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::search-shortcut"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:searchShortcut"})
#endif
type FileChooserWidgetShowHiddenCallback =
IO ()
type C_FileChooserWidgetShowHiddenCallback =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetShowHiddenCallback :: C_FileChooserWidgetShowHiddenCallback -> IO (FunPtr C_FileChooserWidgetShowHiddenCallback)
wrap_FileChooserWidgetShowHiddenCallback ::
GObject a => (a -> FileChooserWidgetShowHiddenCallback) ->
C_FileChooserWidgetShowHiddenCallback
wrap_FileChooserWidgetShowHiddenCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetShowHiddenCallback a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetShowHidden :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetShowHiddenCallback) -> m SignalHandlerId
onFileChooserWidgetShowHidden :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserWidgetShowHidden a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetShowHiddenCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetShowHiddenCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetShowHidden :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetShowHiddenCallback) -> m SignalHandlerId
afterFileChooserWidgetShowHidden :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserWidgetShowHidden a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetShowHiddenCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetShowHiddenCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::show-hidden"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:showHidden"})
#endif
type FileChooserWidgetUpFolderCallback =
IO ()
type C_FileChooserWidgetUpFolderCallback =
Ptr FileChooserWidget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileChooserWidgetUpFolderCallback :: C_FileChooserWidgetUpFolderCallback -> IO (FunPtr C_FileChooserWidgetUpFolderCallback)
wrap_FileChooserWidgetUpFolderCallback ::
GObject a => (a -> FileChooserWidgetUpFolderCallback) ->
C_FileChooserWidgetUpFolderCallback
wrap_FileChooserWidgetUpFolderCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetUpFolderCallback a -> IO ()
gi'cb Ptr FileChooserWidget
gi'selfPtr Ptr ()
_ = do
Ptr FileChooserWidget -> (FileChooserWidget -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr FileChooserWidget
gi'selfPtr ((FileChooserWidget -> IO ()) -> IO ())
-> (FileChooserWidget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \FileChooserWidget
gi'self -> a -> IO ()
gi'cb (FileChooserWidget -> a
forall a b. Coercible a b => a -> b
Coerce.coerce FileChooserWidget
gi'self)
onFileChooserWidgetUpFolder :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetUpFolderCallback) -> m SignalHandlerId
onFileChooserWidgetUpFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onFileChooserWidgetUpFolder a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetUpFolderCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetUpFolderCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFileChooserWidgetUpFolder :: (IsFileChooserWidget a, MonadIO m) => a -> ((?self :: a) => FileChooserWidgetUpFolderCallback) -> m SignalHandlerId
afterFileChooserWidgetUpFolder :: forall a (m :: * -> *).
(IsFileChooserWidget a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterFileChooserWidgetUpFolder a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_FileChooserWidgetDesktopFolderCallback
wrapped' = (a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
forall a.
GObject a =>
(a -> IO ()) -> C_FileChooserWidgetDesktopFolderCallback
wrap_FileChooserWidgetUpFolderCallback a -> IO ()
wrapped
FunPtr C_FileChooserWidgetDesktopFolderCallback
wrapped'' <- C_FileChooserWidgetDesktopFolderCallback
-> IO (FunPtr C_FileChooserWidgetDesktopFolderCallback)
mk_FileChooserWidgetUpFolderCallback C_FileChooserWidgetDesktopFolderCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget::up-folder"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:signal:upFolder"})
#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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget.searchMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:attr:searchMode"
})
#endif
getFileChooserWidgetShowTime :: (MonadIO m, IsFileChooserWidget o) => o -> m Bool
getFileChooserWidgetShowTime :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooserWidget o) =>
o -> m Bool
getFileChooserWidgetShowTime o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-time"
#if defined(ENABLE_OVERLOADING)
data FileChooserWidgetShowTimePropertyInfo
instance AttrInfo FileChooserWidgetShowTimePropertyInfo where
type AttrAllowedOps FileChooserWidgetShowTimePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint FileChooserWidgetShowTimePropertyInfo = IsFileChooserWidget
type AttrSetTypeConstraint FileChooserWidgetShowTimePropertyInfo = (~) ()
type AttrTransferTypeConstraint FileChooserWidgetShowTimePropertyInfo = (~) ()
type AttrTransferType FileChooserWidgetShowTimePropertyInfo = ()
type AttrGetType FileChooserWidgetShowTimePropertyInfo = Bool
type AttrLabel FileChooserWidgetShowTimePropertyInfo = "show-time"
type AttrOrigin FileChooserWidgetShowTimePropertyInfo = FileChooserWidget
attrGet = getFileChooserWidgetShowTime
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget.showTime"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:attr:showTime"
})
#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 a. IO a -> m a
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileChooserWidget.subtitle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-FileChooserWidget.html#g:attr:subtitle"
})
#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), '("showTime", FileChooserWidgetShowTimePropertyInfo), '("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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
fileChooserWidgetSearchMode :: AttrLabelProxy "searchMode"
fileChooserWidgetSearchMode = AttrLabelProxy
fileChooserWidgetShowTime :: AttrLabelProxy "showTime"
fileChooserWidgetShowTime = 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, DK.Type)])
#endif
foreign import ccall "gtk_file_chooser_widget_new" gtk_file_chooser_widget_new ::
CUInt ->
IO (Ptr FileChooserWidget)
{-# DEPRECATED fileChooserWidgetNew ["(Since version 4.10)","Direct use of @GtkFileChooserWidget@ is deprecated"] #-}
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 a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FileChooserWidget
result'
#if defined(ENABLE_OVERLOADING)
#endif