{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Handy.Interfaces.Swipeable
(
Swipeable(..) ,
IsSwipeable ,
toSwipeable ,
#if defined(ENABLE_OVERLOADING)
ResolveSwipeableMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SwipeableEmitChildSwitchedMethodInfo ,
#endif
swipeableEmitChildSwitched ,
#if defined(ENABLE_OVERLOADING)
SwipeableGetCancelProgressMethodInfo ,
#endif
swipeableGetCancelProgress ,
#if defined(ENABLE_OVERLOADING)
SwipeableGetDistanceMethodInfo ,
#endif
swipeableGetDistance ,
#if defined(ENABLE_OVERLOADING)
SwipeableGetProgressMethodInfo ,
#endif
swipeableGetProgress ,
#if defined(ENABLE_OVERLOADING)
SwipeableGetSnapPointsMethodInfo ,
#endif
swipeableGetSnapPoints ,
#if defined(ENABLE_OVERLOADING)
SwipeableGetSwipeAreaMethodInfo ,
#endif
swipeableGetSwipeArea ,
#if defined(ENABLE_OVERLOADING)
SwipeableGetSwipeTrackerMethodInfo ,
#endif
swipeableGetSwipeTracker ,
#if defined(ENABLE_OVERLOADING)
SwipeableSwitchChildMethodInfo ,
#endif
swipeableSwitchChild ,
SwipeableChildSwitchedCallback ,
#if defined(ENABLE_OVERLOADING)
SwipeableChildSwitchedSignalInfo ,
#endif
afterSwipeableChildSwitched ,
onSwipeableChildSwitched ,
) 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.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 qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Handy.Enums as Handy.Enums
import {-# SOURCE #-} qualified GI.Handy.Objects.SwipeTracker as Handy.SwipeTracker
newtype Swipeable = Swipeable (SP.ManagedPtr Swipeable)
deriving (Swipeable -> Swipeable -> Bool
(Swipeable -> Swipeable -> Bool)
-> (Swipeable -> Swipeable -> Bool) -> Eq Swipeable
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Swipeable -> Swipeable -> Bool
== :: Swipeable -> Swipeable -> Bool
$c/= :: Swipeable -> Swipeable -> Bool
/= :: Swipeable -> Swipeable -> Bool
Eq)
instance SP.ManagedPtrNewtype Swipeable where
toManagedPtr :: Swipeable -> ManagedPtr Swipeable
toManagedPtr (Swipeable ManagedPtr Swipeable
p) = ManagedPtr Swipeable
p
foreign import ccall "hdy_swipeable_get_type"
c_hdy_swipeable_get_type :: IO B.Types.GType
instance B.Types.TypedObject Swipeable where
glibType :: IO GType
glibType = IO GType
c_hdy_swipeable_get_type
instance B.Types.GObject Swipeable
class (SP.GObject o, O.IsDescendantOf Swipeable o) => IsSwipeable o
instance (SP.GObject o, O.IsDescendantOf Swipeable o) => IsSwipeable o
instance O.HasParentTypes Swipeable
type instance O.ParentTypes Swipeable = '[GObject.Object.Object, Gtk.Widget.Widget]
toSwipeable :: (MIO.MonadIO m, IsSwipeable o) => o -> m Swipeable
toSwipeable :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeable o) =>
o -> m Swipeable
toSwipeable = IO Swipeable -> m Swipeable
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Swipeable -> m Swipeable)
-> (o -> IO Swipeable) -> o -> m Swipeable
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Swipeable -> Swipeable) -> o -> IO Swipeable
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Swipeable -> Swipeable
Swipeable
instance B.GValue.IsGValue (Maybe Swipeable) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_hdy_swipeable_get_type
gvalueSet_ :: Ptr GValue -> Maybe Swipeable -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Swipeable
P.Nothing = Ptr GValue -> Ptr Swipeable -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Swipeable
forall a. Ptr a
FP.nullPtr :: FP.Ptr Swipeable)
gvalueSet_ Ptr GValue
gv (P.Just Swipeable
obj) = Swipeable -> (Ptr Swipeable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Swipeable
obj (Ptr GValue -> Ptr Swipeable -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Swipeable)
gvalueGet_ Ptr GValue
gv = do
Ptr Swipeable
ptr <- Ptr GValue -> IO (Ptr Swipeable)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Swipeable)
if Ptr Swipeable
ptr Ptr Swipeable -> Ptr Swipeable -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Swipeable
forall a. Ptr a
FP.nullPtr
then Swipeable -> Maybe Swipeable
forall a. a -> Maybe a
P.Just (Swipeable -> Maybe Swipeable)
-> IO Swipeable -> IO (Maybe Swipeable)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Swipeable -> Swipeable)
-> Ptr Swipeable -> IO Swipeable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Swipeable -> Swipeable
Swipeable Ptr Swipeable
ptr
else Maybe Swipeable -> IO (Maybe Swipeable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Swipeable
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Swipeable
type instance O.AttributeList Swipeable = SwipeableAttributeList
type SwipeableAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("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), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("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), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveSwipeableMethod (t :: Symbol) (o :: *) :: * where
ResolveSwipeableMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveSwipeableMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveSwipeableMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveSwipeableMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveSwipeableMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveSwipeableMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveSwipeableMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveSwipeableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSwipeableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSwipeableMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveSwipeableMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveSwipeableMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveSwipeableMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveSwipeableMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveSwipeableMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveSwipeableMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveSwipeableMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveSwipeableMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveSwipeableMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveSwipeableMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveSwipeableMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveSwipeableMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveSwipeableMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveSwipeableMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveSwipeableMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveSwipeableMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveSwipeableMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveSwipeableMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveSwipeableMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveSwipeableMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveSwipeableMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveSwipeableMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveSwipeableMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveSwipeableMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveSwipeableMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveSwipeableMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveSwipeableMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveSwipeableMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveSwipeableMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveSwipeableMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveSwipeableMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveSwipeableMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveSwipeableMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveSwipeableMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveSwipeableMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveSwipeableMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveSwipeableMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveSwipeableMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveSwipeableMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveSwipeableMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveSwipeableMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveSwipeableMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveSwipeableMethod "emitChildSwitched" o = SwipeableEmitChildSwitchedMethodInfo
ResolveSwipeableMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveSwipeableMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveSwipeableMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveSwipeableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSwipeableMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveSwipeableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSwipeableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSwipeableMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveSwipeableMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveSwipeableMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveSwipeableMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveSwipeableMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveSwipeableMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveSwipeableMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveSwipeableMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveSwipeableMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveSwipeableMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveSwipeableMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveSwipeableMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveSwipeableMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveSwipeableMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveSwipeableMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveSwipeableMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveSwipeableMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveSwipeableMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveSwipeableMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveSwipeableMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveSwipeableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSwipeableMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveSwipeableMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveSwipeableMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveSwipeableMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveSwipeableMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveSwipeableMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveSwipeableMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveSwipeableMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveSwipeableMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveSwipeableMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveSwipeableMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveSwipeableMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveSwipeableMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveSwipeableMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveSwipeableMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveSwipeableMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveSwipeableMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveSwipeableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSwipeableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSwipeableMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveSwipeableMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveSwipeableMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveSwipeableMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveSwipeableMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveSwipeableMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveSwipeableMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveSwipeableMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveSwipeableMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveSwipeableMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveSwipeableMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveSwipeableMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveSwipeableMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveSwipeableMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveSwipeableMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveSwipeableMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSwipeableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSwipeableMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveSwipeableMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveSwipeableMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveSwipeableMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveSwipeableMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveSwipeableMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveSwipeableMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveSwipeableMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveSwipeableMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveSwipeableMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveSwipeableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSwipeableMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveSwipeableMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveSwipeableMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveSwipeableMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveSwipeableMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveSwipeableMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveSwipeableMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveSwipeableMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveSwipeableMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveSwipeableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSwipeableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSwipeableMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveSwipeableMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveSwipeableMethod "switchChild" o = SwipeableSwitchChildMethodInfo
ResolveSwipeableMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveSwipeableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSwipeableMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveSwipeableMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveSwipeableMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveSwipeableMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveSwipeableMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveSwipeableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSwipeableMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveSwipeableMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveSwipeableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSwipeableMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveSwipeableMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveSwipeableMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveSwipeableMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveSwipeableMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveSwipeableMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveSwipeableMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveSwipeableMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveSwipeableMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveSwipeableMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveSwipeableMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveSwipeableMethod "getCancelProgress" o = SwipeableGetCancelProgressMethodInfo
ResolveSwipeableMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveSwipeableMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveSwipeableMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveSwipeableMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveSwipeableMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveSwipeableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSwipeableMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveSwipeableMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveSwipeableMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveSwipeableMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveSwipeableMethod "getDistance" o = SwipeableGetDistanceMethodInfo
ResolveSwipeableMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveSwipeableMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveSwipeableMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveSwipeableMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveSwipeableMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveSwipeableMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveSwipeableMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveSwipeableMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveSwipeableMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveSwipeableMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveSwipeableMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveSwipeableMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveSwipeableMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveSwipeableMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveSwipeableMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveSwipeableMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveSwipeableMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveSwipeableMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveSwipeableMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveSwipeableMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveSwipeableMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveSwipeableMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveSwipeableMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveSwipeableMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveSwipeableMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveSwipeableMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveSwipeableMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveSwipeableMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveSwipeableMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveSwipeableMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveSwipeableMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveSwipeableMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveSwipeableMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveSwipeableMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveSwipeableMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveSwipeableMethod "getProgress" o = SwipeableGetProgressMethodInfo
ResolveSwipeableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSwipeableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSwipeableMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveSwipeableMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveSwipeableMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveSwipeableMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveSwipeableMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveSwipeableMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveSwipeableMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveSwipeableMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveSwipeableMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveSwipeableMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveSwipeableMethod "getSnapPoints" o = SwipeableGetSnapPointsMethodInfo
ResolveSwipeableMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveSwipeableMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveSwipeableMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveSwipeableMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveSwipeableMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveSwipeableMethod "getSwipeArea" o = SwipeableGetSwipeAreaMethodInfo
ResolveSwipeableMethod "getSwipeTracker" o = SwipeableGetSwipeTrackerMethodInfo
ResolveSwipeableMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveSwipeableMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveSwipeableMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveSwipeableMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveSwipeableMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveSwipeableMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveSwipeableMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveSwipeableMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveSwipeableMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveSwipeableMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveSwipeableMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveSwipeableMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveSwipeableMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveSwipeableMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveSwipeableMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveSwipeableMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveSwipeableMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveSwipeableMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveSwipeableMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveSwipeableMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveSwipeableMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveSwipeableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSwipeableMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSwipeableMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveSwipeableMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveSwipeableMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveSwipeableMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveSwipeableMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveSwipeableMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveSwipeableMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveSwipeableMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveSwipeableMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveSwipeableMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveSwipeableMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveSwipeableMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveSwipeableMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveSwipeableMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveSwipeableMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveSwipeableMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveSwipeableMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveSwipeableMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveSwipeableMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveSwipeableMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveSwipeableMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveSwipeableMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveSwipeableMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveSwipeableMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveSwipeableMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveSwipeableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSwipeableMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveSwipeableMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveSwipeableMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveSwipeableMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveSwipeableMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveSwipeableMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveSwipeableMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveSwipeableMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveSwipeableMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveSwipeableMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveSwipeableMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveSwipeableMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveSwipeableMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveSwipeableMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveSwipeableMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveSwipeableMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveSwipeableMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveSwipeableMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveSwipeableMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSwipeableMethod t Swipeable, O.OverloadedMethod info Swipeable p) => OL.IsLabel t (Swipeable -> 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 ~ ResolveSwipeableMethod t Swipeable, O.OverloadedMethod info Swipeable p, R.HasField t Swipeable p) => R.HasField t Swipeable p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSwipeableMethod t Swipeable, O.OverloadedMethodInfo info Swipeable) => OL.IsLabel t (O.MethodProxy info Swipeable) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
foreign import ccall "hdy_swipeable_emit_child_switched" hdy_swipeable_emit_child_switched ::
Ptr Swipeable ->
Word32 ->
Int64 ->
IO ()
swipeableEmitChildSwitched ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeable a) =>
a
-> Word32
-> Int64
-> m ()
swipeableEmitChildSwitched :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> Word32 -> Int64 -> m ()
swipeableEmitChildSwitched a
self Word32
index Int64
duration = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Swipeable
self' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Swipeable -> Word32 -> Int64 -> IO ()
hdy_swipeable_emit_child_switched Ptr Swipeable
self' Word32
index Int64
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SwipeableEmitChildSwitchedMethodInfo
instance (signature ~ (Word32 -> Int64 -> m ()), MonadIO m, IsSwipeable a) => O.OverloadedMethod SwipeableEmitChildSwitchedMethodInfo a signature where
overloadedMethod = swipeableEmitChildSwitched
instance O.OverloadedMethodInfo SwipeableEmitChildSwitchedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable.swipeableEmitChildSwitched",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#v:swipeableEmitChildSwitched"
})
#endif
foreign import ccall "hdy_swipeable_get_cancel_progress" hdy_swipeable_get_cancel_progress ::
Ptr Swipeable ->
IO CDouble
swipeableGetCancelProgress ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeable a) =>
a
-> m Double
swipeableGetCancelProgress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> m Double
swipeableGetCancelProgress a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Swipeable
self' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr Swipeable -> IO CDouble
hdy_swipeable_get_cancel_progress Ptr Swipeable
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data SwipeableGetCancelProgressMethodInfo
instance (signature ~ (m Double), MonadIO m, IsSwipeable a) => O.OverloadedMethod SwipeableGetCancelProgressMethodInfo a signature where
overloadedMethod = swipeableGetCancelProgress
instance O.OverloadedMethodInfo SwipeableGetCancelProgressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable.swipeableGetCancelProgress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#v:swipeableGetCancelProgress"
})
#endif
foreign import ccall "hdy_swipeable_get_distance" hdy_swipeable_get_distance ::
Ptr Swipeable ->
IO CDouble
swipeableGetDistance ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeable a) =>
a
-> m Double
swipeableGetDistance :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> m Double
swipeableGetDistance a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Swipeable
self' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr Swipeable -> IO CDouble
hdy_swipeable_get_distance Ptr Swipeable
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data SwipeableGetDistanceMethodInfo
instance (signature ~ (m Double), MonadIO m, IsSwipeable a) => O.OverloadedMethod SwipeableGetDistanceMethodInfo a signature where
overloadedMethod = swipeableGetDistance
instance O.OverloadedMethodInfo SwipeableGetDistanceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable.swipeableGetDistance",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#v:swipeableGetDistance"
})
#endif
foreign import ccall "hdy_swipeable_get_progress" hdy_swipeable_get_progress ::
Ptr Swipeable ->
IO CDouble
swipeableGetProgress ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeable a) =>
a
-> m Double
swipeableGetProgress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> m Double
swipeableGetProgress a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Swipeable
self' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr Swipeable -> IO CDouble
hdy_swipeable_get_progress Ptr Swipeable
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data SwipeableGetProgressMethodInfo
instance (signature ~ (m Double), MonadIO m, IsSwipeable a) => O.OverloadedMethod SwipeableGetProgressMethodInfo a signature where
overloadedMethod = swipeableGetProgress
instance O.OverloadedMethodInfo SwipeableGetProgressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable.swipeableGetProgress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#v:swipeableGetProgress"
})
#endif
foreign import ccall "hdy_swipeable_get_snap_points" hdy_swipeable_get_snap_points ::
Ptr Swipeable ->
Ptr Int32 ->
IO (Ptr CDouble)
swipeableGetSnapPoints ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeable a) =>
a
-> m [Double]
swipeableGetSnapPoints :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> m [Double]
swipeableGetSnapPoints a
self = IO [Double] -> m [Double]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Double] -> m [Double]) -> IO [Double] -> m [Double]
forall a b. (a -> b) -> a -> b
$ do
Ptr Swipeable
self' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Int32
nSnapPoints <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CDouble
result <- Ptr Swipeable -> Ptr Int32 -> IO (Ptr CDouble)
hdy_swipeable_get_snap_points Ptr Swipeable
self' Ptr Int32
nSnapPoints
Int32
nSnapPoints' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
nSnapPoints
Text -> Ptr CDouble -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"swipeableGetSnapPoints" Ptr CDouble
result
[Double]
result' <- ((CDouble -> Double) -> Int32 -> Ptr CDouble -> IO [Double]
forall a b c.
(Integral a, Storable b) =>
(b -> c) -> a -> Ptr b -> IO [c]
unpackMapStorableArrayWithLength CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac Int32
nSnapPoints') Ptr CDouble
result
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
nSnapPoints
[Double] -> IO [Double]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Double]
result'
#if defined(ENABLE_OVERLOADING)
data SwipeableGetSnapPointsMethodInfo
instance (signature ~ (m [Double]), MonadIO m, IsSwipeable a) => O.OverloadedMethod SwipeableGetSnapPointsMethodInfo a signature where
overloadedMethod = swipeableGetSnapPoints
instance O.OverloadedMethodInfo SwipeableGetSnapPointsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable.swipeableGetSnapPoints",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#v:swipeableGetSnapPoints"
})
#endif
foreign import ccall "hdy_swipeable_get_swipe_area" hdy_swipeable_get_swipe_area ::
Ptr Swipeable ->
CUInt ->
CInt ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
swipeableGetSwipeArea ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeable a) =>
a
-> Handy.Enums.NavigationDirection
-> Bool
-> m (Gdk.Rectangle.Rectangle)
swipeableGetSwipeArea :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> NavigationDirection -> Bool -> m Rectangle
swipeableGetSwipeArea a
self NavigationDirection
navigationDirection Bool
isDrag = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr Swipeable
self' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let navigationDirection' :: CUInt
navigationDirection' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (NavigationDirection -> Int) -> NavigationDirection -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. NavigationDirection -> Int
forall a. Enum a => a -> Int
fromEnum) NavigationDirection
navigationDirection
let isDrag' :: CInt
isDrag' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isDrag
Ptr Rectangle
rect <- Int -> IO (Ptr Rectangle)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr Swipeable -> CUInt -> CInt -> Ptr Rectangle -> IO ()
hdy_swipeable_get_swipe_area Ptr Swipeable
self' CUInt
navigationDirection' CInt
isDrag' Ptr Rectangle
rect
Rectangle
rect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Rectangle -> IO Rectangle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
rect'
#if defined(ENABLE_OVERLOADING)
data SwipeableGetSwipeAreaMethodInfo
instance (signature ~ (Handy.Enums.NavigationDirection -> Bool -> m (Gdk.Rectangle.Rectangle)), MonadIO m, IsSwipeable a) => O.OverloadedMethod SwipeableGetSwipeAreaMethodInfo a signature where
overloadedMethod = swipeableGetSwipeArea
instance O.OverloadedMethodInfo SwipeableGetSwipeAreaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable.swipeableGetSwipeArea",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#v:swipeableGetSwipeArea"
})
#endif
foreign import ccall "hdy_swipeable_get_swipe_tracker" hdy_swipeable_get_swipe_tracker ::
Ptr Swipeable ->
IO (Ptr Handy.SwipeTracker.SwipeTracker)
swipeableGetSwipeTracker ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeable a) =>
a
-> m Handy.SwipeTracker.SwipeTracker
swipeableGetSwipeTracker :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> m SwipeTracker
swipeableGetSwipeTracker a
self = IO SwipeTracker -> m SwipeTracker
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SwipeTracker -> m SwipeTracker)
-> IO SwipeTracker -> m SwipeTracker
forall a b. (a -> b) -> a -> b
$ do
Ptr Swipeable
self' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SwipeTracker
result <- Ptr Swipeable -> IO (Ptr SwipeTracker)
hdy_swipeable_get_swipe_tracker Ptr Swipeable
self'
Text -> Ptr SwipeTracker -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"swipeableGetSwipeTracker" Ptr SwipeTracker
result
SwipeTracker
result' <- ((ManagedPtr SwipeTracker -> SwipeTracker)
-> Ptr SwipeTracker -> IO SwipeTracker
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SwipeTracker -> SwipeTracker
Handy.SwipeTracker.SwipeTracker) Ptr SwipeTracker
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
SwipeTracker -> IO SwipeTracker
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SwipeTracker
result'
#if defined(ENABLE_OVERLOADING)
data SwipeableGetSwipeTrackerMethodInfo
instance (signature ~ (m Handy.SwipeTracker.SwipeTracker), MonadIO m, IsSwipeable a) => O.OverloadedMethod SwipeableGetSwipeTrackerMethodInfo a signature where
overloadedMethod = swipeableGetSwipeTracker
instance O.OverloadedMethodInfo SwipeableGetSwipeTrackerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable.swipeableGetSwipeTracker",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#v:swipeableGetSwipeTracker"
})
#endif
foreign import ccall "hdy_swipeable_switch_child" hdy_swipeable_switch_child ::
Ptr Swipeable ->
Word32 ->
Int64 ->
IO ()
swipeableSwitchChild ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeable a) =>
a
-> Word32
-> Int64
-> m ()
swipeableSwitchChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> Word32 -> Int64 -> m ()
swipeableSwitchChild a
self Word32
index Int64
duration = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Swipeable
self' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Swipeable -> Word32 -> Int64 -> IO ()
hdy_swipeable_switch_child Ptr Swipeable
self' Word32
index Int64
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SwipeableSwitchChildMethodInfo
instance (signature ~ (Word32 -> Int64 -> m ()), MonadIO m, IsSwipeable a) => O.OverloadedMethod SwipeableSwitchChildMethodInfo a signature where
overloadedMethod = swipeableSwitchChild
instance O.OverloadedMethodInfo SwipeableSwitchChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable.swipeableSwitchChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#v:swipeableSwitchChild"
})
#endif
type SwipeableChildSwitchedCallback =
Word32
-> Int64
-> IO ()
type C_SwipeableChildSwitchedCallback =
Ptr Swipeable ->
Word32 ->
Int64 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SwipeableChildSwitchedCallback :: C_SwipeableChildSwitchedCallback -> IO (FunPtr C_SwipeableChildSwitchedCallback)
wrap_SwipeableChildSwitchedCallback ::
GObject a => (a -> SwipeableChildSwitchedCallback) ->
C_SwipeableChildSwitchedCallback
wrap_SwipeableChildSwitchedCallback :: forall a.
GObject a =>
(a -> Word32 -> Int64 -> IO ()) -> C_SwipeableChildSwitchedCallback
wrap_SwipeableChildSwitchedCallback a -> Word32 -> Int64 -> IO ()
gi'cb Ptr Swipeable
gi'selfPtr Word32
index Int64
duration Ptr ()
_ = do
Ptr Swipeable -> (Swipeable -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Swipeable
gi'selfPtr ((Swipeable -> IO ()) -> IO ()) -> (Swipeable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Swipeable
gi'self -> a -> Word32 -> Int64 -> IO ()
gi'cb (Swipeable -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Swipeable
gi'self) Word32
index Int64
duration
onSwipeableChildSwitched :: (IsSwipeable a, MonadIO m) => a -> ((?self :: a) => SwipeableChildSwitchedCallback) -> m SignalHandlerId
onSwipeableChildSwitched :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> ((?self::a) => Word32 -> Int64 -> IO ()) -> m SignalHandlerId
onSwipeableChildSwitched a
obj (?self::a) => Word32 -> Int64 -> 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 -> Word32 -> Int64 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => Word32 -> Int64 -> IO ()
Word32 -> Int64 -> IO ()
cb
let wrapped' :: C_SwipeableChildSwitchedCallback
wrapped' = (a -> Word32 -> Int64 -> IO ()) -> C_SwipeableChildSwitchedCallback
forall a.
GObject a =>
(a -> Word32 -> Int64 -> IO ()) -> C_SwipeableChildSwitchedCallback
wrap_SwipeableChildSwitchedCallback a -> Word32 -> Int64 -> IO ()
wrapped
FunPtr C_SwipeableChildSwitchedCallback
wrapped'' <- C_SwipeableChildSwitchedCallback
-> IO (FunPtr C_SwipeableChildSwitchedCallback)
mk_SwipeableChildSwitchedCallback C_SwipeableChildSwitchedCallback
wrapped'
a
-> Text
-> FunPtr C_SwipeableChildSwitchedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-switched" FunPtr C_SwipeableChildSwitchedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSwipeableChildSwitched :: (IsSwipeable a, MonadIO m) => a -> ((?self :: a) => SwipeableChildSwitchedCallback) -> m SignalHandlerId
afterSwipeableChildSwitched :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> ((?self::a) => Word32 -> Int64 -> IO ()) -> m SignalHandlerId
afterSwipeableChildSwitched a
obj (?self::a) => Word32 -> Int64 -> 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 -> Word32 -> Int64 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => Word32 -> Int64 -> IO ()
Word32 -> Int64 -> IO ()
cb
let wrapped' :: C_SwipeableChildSwitchedCallback
wrapped' = (a -> Word32 -> Int64 -> IO ()) -> C_SwipeableChildSwitchedCallback
forall a.
GObject a =>
(a -> Word32 -> Int64 -> IO ()) -> C_SwipeableChildSwitchedCallback
wrap_SwipeableChildSwitchedCallback a -> Word32 -> Int64 -> IO ()
wrapped
FunPtr C_SwipeableChildSwitchedCallback
wrapped'' <- C_SwipeableChildSwitchedCallback
-> IO (FunPtr C_SwipeableChildSwitchedCallback)
mk_SwipeableChildSwitchedCallback C_SwipeableChildSwitchedCallback
wrapped'
a
-> Text
-> FunPtr C_SwipeableChildSwitchedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-switched" FunPtr C_SwipeableChildSwitchedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SwipeableChildSwitchedSignalInfo
instance SignalInfo SwipeableChildSwitchedSignalInfo where
type HaskellCallbackType SwipeableChildSwitchedSignalInfo = SwipeableChildSwitchedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SwipeableChildSwitchedCallback cb
cb'' <- mk_SwipeableChildSwitchedCallback cb'
connectSignalFunPtr obj "child-switched" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Interfaces.Swipeable::child-switched"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.2/docs/GI-Handy-Interfaces-Swipeable.html#g:signal:childSwitched"})
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Swipeable = SwipeableSignalList
type SwipeableSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("childSwitched", SwipeableChildSwitchedSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif