{-# LANGUAGE 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
C_SwipeableBeginSwipeCallback ,
SwipeableBeginSwipeCallback ,
#if defined(ENABLE_OVERLOADING)
SwipeableBeginSwipeSignalInfo ,
#endif
afterSwipeableBeginSwipe ,
genClosure_SwipeableBeginSwipe ,
mk_SwipeableBeginSwipeCallback ,
noSwipeableBeginSwipeCallback ,
onSwipeableBeginSwipe ,
wrap_SwipeableBeginSwipeCallback ,
C_SwipeableEndSwipeCallback ,
SwipeableEndSwipeCallback ,
#if defined(ENABLE_OVERLOADING)
SwipeableEndSwipeSignalInfo ,
#endif
afterSwipeableEndSwipe ,
genClosure_SwipeableEndSwipe ,
mk_SwipeableEndSwipeCallback ,
noSwipeableEndSwipeCallback ,
onSwipeableEndSwipe ,
wrap_SwipeableEndSwipeCallback ,
C_SwipeableSwitchChildCallback ,
SwipeableSwitchChildCallback ,
#if defined(ENABLE_OVERLOADING)
SwipeableSwitchChildSignalInfo ,
#endif
afterSwipeableSwitchChild ,
genClosure_SwipeableSwitchChild ,
mk_SwipeableSwitchChildCallback ,
noSwipeableSwitchChildCallback ,
onSwipeableSwitchChild ,
wrap_SwipeableSwitchChildCallback ,
C_SwipeableUpdateSwipeCallback ,
SwipeableUpdateSwipeCallback ,
#if defined(ENABLE_OVERLOADING)
SwipeableUpdateSwipeSignalInfo ,
#endif
afterSwipeableUpdateSwipe ,
genClosure_SwipeableUpdateSwipe ,
mk_SwipeableUpdateSwipeCallback ,
noSwipeableUpdateSwipeCallback ,
onSwipeableUpdateSwipe ,
wrap_SwipeableUpdateSwipeCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
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
/= :: Swipeable -> Swipeable -> Bool
$c/= :: Swipeable -> Swipeable -> Bool
== :: Swipeable -> Swipeable -> Bool
$c== :: 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 (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 (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 "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 "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 "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 "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 "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 "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 "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
type SwipeableBeginSwipeCallback =
Int32
-> IO ()
noSwipeableBeginSwipeCallback :: Maybe SwipeableBeginSwipeCallback
noSwipeableBeginSwipeCallback :: Maybe SwipeableBeginSwipeCallback
noSwipeableBeginSwipeCallback = Maybe SwipeableBeginSwipeCallback
forall a. Maybe a
Nothing
type C_SwipeableBeginSwipeCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SwipeableBeginSwipeCallback :: C_SwipeableBeginSwipeCallback -> IO (FunPtr C_SwipeableBeginSwipeCallback)
genClosure_SwipeableBeginSwipe :: MonadIO m => SwipeableBeginSwipeCallback -> m (GClosure C_SwipeableBeginSwipeCallback)
genClosure_SwipeableBeginSwipe :: forall (m :: * -> *).
MonadIO m =>
SwipeableBeginSwipeCallback
-> m (GClosure C_SwipeableBeginSwipeCallback)
genClosure_SwipeableBeginSwipe SwipeableBeginSwipeCallback
cb = IO (GClosure C_SwipeableBeginSwipeCallback)
-> m (GClosure C_SwipeableBeginSwipeCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SwipeableBeginSwipeCallback)
-> m (GClosure C_SwipeableBeginSwipeCallback))
-> IO (GClosure C_SwipeableBeginSwipeCallback)
-> m (GClosure C_SwipeableBeginSwipeCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableBeginSwipeCallback
cb' = SwipeableBeginSwipeCallback -> C_SwipeableBeginSwipeCallback
wrap_SwipeableBeginSwipeCallback SwipeableBeginSwipeCallback
cb
C_SwipeableBeginSwipeCallback
-> IO (FunPtr C_SwipeableBeginSwipeCallback)
mk_SwipeableBeginSwipeCallback C_SwipeableBeginSwipeCallback
cb' IO (FunPtr C_SwipeableBeginSwipeCallback)
-> (FunPtr C_SwipeableBeginSwipeCallback
-> IO (GClosure C_SwipeableBeginSwipeCallback))
-> IO (GClosure C_SwipeableBeginSwipeCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SwipeableBeginSwipeCallback
-> IO (GClosure C_SwipeableBeginSwipeCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SwipeableBeginSwipeCallback ::
SwipeableBeginSwipeCallback ->
C_SwipeableBeginSwipeCallback
wrap_SwipeableBeginSwipeCallback :: SwipeableBeginSwipeCallback -> C_SwipeableBeginSwipeCallback
wrap_SwipeableBeginSwipeCallback SwipeableBeginSwipeCallback
_cb Ptr ()
_ Int32
direction Ptr ()
_ = do
SwipeableBeginSwipeCallback
_cb Int32
direction
onSwipeableBeginSwipe :: (IsSwipeable a, MonadIO m) => a -> SwipeableBeginSwipeCallback -> m SignalHandlerId
onSwipeableBeginSwipe :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> SwipeableBeginSwipeCallback -> m SignalHandlerId
onSwipeableBeginSwipe a
obj SwipeableBeginSwipeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableBeginSwipeCallback
cb' = SwipeableBeginSwipeCallback -> C_SwipeableBeginSwipeCallback
wrap_SwipeableBeginSwipeCallback SwipeableBeginSwipeCallback
cb
FunPtr C_SwipeableBeginSwipeCallback
cb'' <- C_SwipeableBeginSwipeCallback
-> IO (FunPtr C_SwipeableBeginSwipeCallback)
mk_SwipeableBeginSwipeCallback C_SwipeableBeginSwipeCallback
cb'
a
-> Text
-> FunPtr C_SwipeableBeginSwipeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"begin-swipe" FunPtr C_SwipeableBeginSwipeCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSwipeableBeginSwipe :: (IsSwipeable a, MonadIO m) => a -> SwipeableBeginSwipeCallback -> m SignalHandlerId
afterSwipeableBeginSwipe :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> SwipeableBeginSwipeCallback -> m SignalHandlerId
afterSwipeableBeginSwipe a
obj SwipeableBeginSwipeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableBeginSwipeCallback
cb' = SwipeableBeginSwipeCallback -> C_SwipeableBeginSwipeCallback
wrap_SwipeableBeginSwipeCallback SwipeableBeginSwipeCallback
cb
FunPtr C_SwipeableBeginSwipeCallback
cb'' <- C_SwipeableBeginSwipeCallback
-> IO (FunPtr C_SwipeableBeginSwipeCallback)
mk_SwipeableBeginSwipeCallback C_SwipeableBeginSwipeCallback
cb'
a
-> Text
-> FunPtr C_SwipeableBeginSwipeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"begin-swipe" FunPtr C_SwipeableBeginSwipeCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SwipeableBeginSwipeSignalInfo
instance SignalInfo SwipeableBeginSwipeSignalInfo where
type HaskellCallbackType SwipeableBeginSwipeSignalInfo = SwipeableBeginSwipeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SwipeableBeginSwipeCallback cb
cb'' <- mk_SwipeableBeginSwipeCallback cb'
connectSignalFunPtr obj "begin-swipe" cb'' connectMode detail
#endif
type SwipeableEndSwipeCallback =
Int64
-> Double
-> IO ()
noSwipeableEndSwipeCallback :: Maybe SwipeableEndSwipeCallback
noSwipeableEndSwipeCallback :: Maybe SwipeableEndSwipeCallback
noSwipeableEndSwipeCallback = Maybe SwipeableEndSwipeCallback
forall a. Maybe a
Nothing
type C_SwipeableEndSwipeCallback =
Ptr () ->
Int64 ->
CDouble ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SwipeableEndSwipeCallback :: C_SwipeableEndSwipeCallback -> IO (FunPtr C_SwipeableEndSwipeCallback)
genClosure_SwipeableEndSwipe :: MonadIO m => SwipeableEndSwipeCallback -> m (GClosure C_SwipeableEndSwipeCallback)
genClosure_SwipeableEndSwipe :: forall (m :: * -> *).
MonadIO m =>
SwipeableEndSwipeCallback
-> m (GClosure C_SwipeableEndSwipeCallback)
genClosure_SwipeableEndSwipe SwipeableEndSwipeCallback
cb = IO (GClosure C_SwipeableEndSwipeCallback)
-> m (GClosure C_SwipeableEndSwipeCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SwipeableEndSwipeCallback)
-> m (GClosure C_SwipeableEndSwipeCallback))
-> IO (GClosure C_SwipeableEndSwipeCallback)
-> m (GClosure C_SwipeableEndSwipeCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableEndSwipeCallback
cb' = SwipeableEndSwipeCallback -> C_SwipeableEndSwipeCallback
wrap_SwipeableEndSwipeCallback SwipeableEndSwipeCallback
cb
C_SwipeableEndSwipeCallback
-> IO (FunPtr C_SwipeableEndSwipeCallback)
mk_SwipeableEndSwipeCallback C_SwipeableEndSwipeCallback
cb' IO (FunPtr C_SwipeableEndSwipeCallback)
-> (FunPtr C_SwipeableEndSwipeCallback
-> IO (GClosure C_SwipeableEndSwipeCallback))
-> IO (GClosure C_SwipeableEndSwipeCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SwipeableEndSwipeCallback
-> IO (GClosure C_SwipeableEndSwipeCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SwipeableEndSwipeCallback ::
SwipeableEndSwipeCallback ->
C_SwipeableEndSwipeCallback
wrap_SwipeableEndSwipeCallback :: SwipeableEndSwipeCallback -> C_SwipeableEndSwipeCallback
wrap_SwipeableEndSwipeCallback SwipeableEndSwipeCallback
_cb Ptr ()
_ Int64
duration CDouble
to Ptr ()
_ = do
let to' :: Double
to' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
to
SwipeableEndSwipeCallback
_cb Int64
duration Double
to'
onSwipeableEndSwipe :: (IsSwipeable a, MonadIO m) => a -> SwipeableEndSwipeCallback -> m SignalHandlerId
onSwipeableEndSwipe :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> SwipeableEndSwipeCallback -> m SignalHandlerId
onSwipeableEndSwipe a
obj SwipeableEndSwipeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableEndSwipeCallback
cb' = SwipeableEndSwipeCallback -> C_SwipeableEndSwipeCallback
wrap_SwipeableEndSwipeCallback SwipeableEndSwipeCallback
cb
FunPtr C_SwipeableEndSwipeCallback
cb'' <- C_SwipeableEndSwipeCallback
-> IO (FunPtr C_SwipeableEndSwipeCallback)
mk_SwipeableEndSwipeCallback C_SwipeableEndSwipeCallback
cb'
a
-> Text
-> FunPtr C_SwipeableEndSwipeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"end-swipe" FunPtr C_SwipeableEndSwipeCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSwipeableEndSwipe :: (IsSwipeable a, MonadIO m) => a -> SwipeableEndSwipeCallback -> m SignalHandlerId
afterSwipeableEndSwipe :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> SwipeableEndSwipeCallback -> m SignalHandlerId
afterSwipeableEndSwipe a
obj SwipeableEndSwipeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableEndSwipeCallback
cb' = SwipeableEndSwipeCallback -> C_SwipeableEndSwipeCallback
wrap_SwipeableEndSwipeCallback SwipeableEndSwipeCallback
cb
FunPtr C_SwipeableEndSwipeCallback
cb'' <- C_SwipeableEndSwipeCallback
-> IO (FunPtr C_SwipeableEndSwipeCallback)
mk_SwipeableEndSwipeCallback C_SwipeableEndSwipeCallback
cb'
a
-> Text
-> FunPtr C_SwipeableEndSwipeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"end-swipe" FunPtr C_SwipeableEndSwipeCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SwipeableEndSwipeSignalInfo
instance SignalInfo SwipeableEndSwipeSignalInfo where
type HaskellCallbackType SwipeableEndSwipeSignalInfo = SwipeableEndSwipeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SwipeableEndSwipeCallback cb
cb'' <- mk_SwipeableEndSwipeCallback cb'
connectSignalFunPtr obj "end-swipe" cb'' connectMode detail
#endif
type SwipeableSwitchChildCallback =
Word32
-> Int64
-> IO ()
noSwipeableSwitchChildCallback :: Maybe SwipeableSwitchChildCallback
noSwipeableSwitchChildCallback :: Maybe SwipeableSwitchChildCallback
noSwipeableSwitchChildCallback = Maybe SwipeableSwitchChildCallback
forall a. Maybe a
Nothing
type C_SwipeableSwitchChildCallback =
Ptr () ->
Word32 ->
Int64 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SwipeableSwitchChildCallback :: C_SwipeableSwitchChildCallback -> IO (FunPtr C_SwipeableSwitchChildCallback)
genClosure_SwipeableSwitchChild :: MonadIO m => SwipeableSwitchChildCallback -> m (GClosure C_SwipeableSwitchChildCallback)
genClosure_SwipeableSwitchChild :: forall (m :: * -> *).
MonadIO m =>
SwipeableSwitchChildCallback
-> m (GClosure C_SwipeableSwitchChildCallback)
genClosure_SwipeableSwitchChild SwipeableSwitchChildCallback
cb = IO (GClosure C_SwipeableSwitchChildCallback)
-> m (GClosure C_SwipeableSwitchChildCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SwipeableSwitchChildCallback)
-> m (GClosure C_SwipeableSwitchChildCallback))
-> IO (GClosure C_SwipeableSwitchChildCallback)
-> m (GClosure C_SwipeableSwitchChildCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableSwitchChildCallback
cb' = SwipeableSwitchChildCallback -> C_SwipeableSwitchChildCallback
wrap_SwipeableSwitchChildCallback SwipeableSwitchChildCallback
cb
C_SwipeableSwitchChildCallback
-> IO (FunPtr C_SwipeableSwitchChildCallback)
mk_SwipeableSwitchChildCallback C_SwipeableSwitchChildCallback
cb' IO (FunPtr C_SwipeableSwitchChildCallback)
-> (FunPtr C_SwipeableSwitchChildCallback
-> IO (GClosure C_SwipeableSwitchChildCallback))
-> IO (GClosure C_SwipeableSwitchChildCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SwipeableSwitchChildCallback
-> IO (GClosure C_SwipeableSwitchChildCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SwipeableSwitchChildCallback ::
SwipeableSwitchChildCallback ->
C_SwipeableSwitchChildCallback
wrap_SwipeableSwitchChildCallback :: SwipeableSwitchChildCallback -> C_SwipeableSwitchChildCallback
wrap_SwipeableSwitchChildCallback SwipeableSwitchChildCallback
_cb Ptr ()
_ Word32
index Int64
duration Ptr ()
_ = do
SwipeableSwitchChildCallback
_cb Word32
index Int64
duration
onSwipeableSwitchChild :: (IsSwipeable a, MonadIO m) => a -> SwipeableSwitchChildCallback -> m SignalHandlerId
onSwipeableSwitchChild :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> SwipeableSwitchChildCallback -> m SignalHandlerId
onSwipeableSwitchChild a
obj SwipeableSwitchChildCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableSwitchChildCallback
cb' = SwipeableSwitchChildCallback -> C_SwipeableSwitchChildCallback
wrap_SwipeableSwitchChildCallback SwipeableSwitchChildCallback
cb
FunPtr C_SwipeableSwitchChildCallback
cb'' <- C_SwipeableSwitchChildCallback
-> IO (FunPtr C_SwipeableSwitchChildCallback)
mk_SwipeableSwitchChildCallback C_SwipeableSwitchChildCallback
cb'
a
-> Text
-> FunPtr C_SwipeableSwitchChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"switch-child" FunPtr C_SwipeableSwitchChildCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSwipeableSwitchChild :: (IsSwipeable a, MonadIO m) => a -> SwipeableSwitchChildCallback -> m SignalHandlerId
afterSwipeableSwitchChild :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> SwipeableSwitchChildCallback -> m SignalHandlerId
afterSwipeableSwitchChild a
obj SwipeableSwitchChildCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableSwitchChildCallback
cb' = SwipeableSwitchChildCallback -> C_SwipeableSwitchChildCallback
wrap_SwipeableSwitchChildCallback SwipeableSwitchChildCallback
cb
FunPtr C_SwipeableSwitchChildCallback
cb'' <- C_SwipeableSwitchChildCallback
-> IO (FunPtr C_SwipeableSwitchChildCallback)
mk_SwipeableSwitchChildCallback C_SwipeableSwitchChildCallback
cb'
a
-> Text
-> FunPtr C_SwipeableSwitchChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"switch-child" FunPtr C_SwipeableSwitchChildCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SwipeableSwitchChildSignalInfo
instance SignalInfo SwipeableSwitchChildSignalInfo where
type HaskellCallbackType SwipeableSwitchChildSignalInfo = SwipeableSwitchChildCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SwipeableSwitchChildCallback cb
cb'' <- mk_SwipeableSwitchChildCallback cb'
connectSignalFunPtr obj "switch-child" cb'' connectMode detail
#endif
type SwipeableUpdateSwipeCallback =
Double
-> IO ()
noSwipeableUpdateSwipeCallback :: Maybe SwipeableUpdateSwipeCallback
noSwipeableUpdateSwipeCallback :: Maybe SwipeableUpdateSwipeCallback
noSwipeableUpdateSwipeCallback = Maybe SwipeableUpdateSwipeCallback
forall a. Maybe a
Nothing
type C_SwipeableUpdateSwipeCallback =
Ptr () ->
CDouble ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SwipeableUpdateSwipeCallback :: C_SwipeableUpdateSwipeCallback -> IO (FunPtr C_SwipeableUpdateSwipeCallback)
genClosure_SwipeableUpdateSwipe :: MonadIO m => SwipeableUpdateSwipeCallback -> m (GClosure C_SwipeableUpdateSwipeCallback)
genClosure_SwipeableUpdateSwipe :: forall (m :: * -> *).
MonadIO m =>
SwipeableUpdateSwipeCallback
-> m (GClosure C_SwipeableUpdateSwipeCallback)
genClosure_SwipeableUpdateSwipe SwipeableUpdateSwipeCallback
cb = IO (GClosure C_SwipeableUpdateSwipeCallback)
-> m (GClosure C_SwipeableUpdateSwipeCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SwipeableUpdateSwipeCallback)
-> m (GClosure C_SwipeableUpdateSwipeCallback))
-> IO (GClosure C_SwipeableUpdateSwipeCallback)
-> m (GClosure C_SwipeableUpdateSwipeCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableUpdateSwipeCallback
cb' = SwipeableUpdateSwipeCallback -> C_SwipeableUpdateSwipeCallback
wrap_SwipeableUpdateSwipeCallback SwipeableUpdateSwipeCallback
cb
C_SwipeableUpdateSwipeCallback
-> IO (FunPtr C_SwipeableUpdateSwipeCallback)
mk_SwipeableUpdateSwipeCallback C_SwipeableUpdateSwipeCallback
cb' IO (FunPtr C_SwipeableUpdateSwipeCallback)
-> (FunPtr C_SwipeableUpdateSwipeCallback
-> IO (GClosure C_SwipeableUpdateSwipeCallback))
-> IO (GClosure C_SwipeableUpdateSwipeCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SwipeableUpdateSwipeCallback
-> IO (GClosure C_SwipeableUpdateSwipeCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SwipeableUpdateSwipeCallback ::
SwipeableUpdateSwipeCallback ->
C_SwipeableUpdateSwipeCallback
wrap_SwipeableUpdateSwipeCallback :: SwipeableUpdateSwipeCallback -> C_SwipeableUpdateSwipeCallback
wrap_SwipeableUpdateSwipeCallback SwipeableUpdateSwipeCallback
_cb Ptr ()
_ CDouble
value Ptr ()
_ = do
let value' :: Double
value' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
SwipeableUpdateSwipeCallback
_cb Double
value'
onSwipeableUpdateSwipe :: (IsSwipeable a, MonadIO m) => a -> SwipeableUpdateSwipeCallback -> m SignalHandlerId
onSwipeableUpdateSwipe :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> SwipeableUpdateSwipeCallback -> m SignalHandlerId
onSwipeableUpdateSwipe a
obj SwipeableUpdateSwipeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableUpdateSwipeCallback
cb' = SwipeableUpdateSwipeCallback -> C_SwipeableUpdateSwipeCallback
wrap_SwipeableUpdateSwipeCallback SwipeableUpdateSwipeCallback
cb
FunPtr C_SwipeableUpdateSwipeCallback
cb'' <- C_SwipeableUpdateSwipeCallback
-> IO (FunPtr C_SwipeableUpdateSwipeCallback)
mk_SwipeableUpdateSwipeCallback C_SwipeableUpdateSwipeCallback
cb'
a
-> Text
-> FunPtr C_SwipeableUpdateSwipeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"update-swipe" FunPtr C_SwipeableUpdateSwipeCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSwipeableUpdateSwipe :: (IsSwipeable a, MonadIO m) => a -> SwipeableUpdateSwipeCallback -> m SignalHandlerId
afterSwipeableUpdateSwipe :: forall a (m :: * -> *).
(IsSwipeable a, MonadIO m) =>
a -> SwipeableUpdateSwipeCallback -> m SignalHandlerId
afterSwipeableUpdateSwipe a
obj SwipeableUpdateSwipeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SwipeableUpdateSwipeCallback
cb' = SwipeableUpdateSwipeCallback -> C_SwipeableUpdateSwipeCallback
wrap_SwipeableUpdateSwipeCallback SwipeableUpdateSwipeCallback
cb
FunPtr C_SwipeableUpdateSwipeCallback
cb'' <- C_SwipeableUpdateSwipeCallback
-> IO (FunPtr C_SwipeableUpdateSwipeCallback)
mk_SwipeableUpdateSwipeCallback C_SwipeableUpdateSwipeCallback
cb'
a
-> Text
-> FunPtr C_SwipeableUpdateSwipeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"update-swipe" FunPtr C_SwipeableUpdateSwipeCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SwipeableUpdateSwipeSignalInfo
instance SignalInfo SwipeableUpdateSwipeSignalInfo where
type HaskellCallbackType SwipeableUpdateSwipeSignalInfo = SwipeableUpdateSwipeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SwipeableUpdateSwipeCallback cb
cb'' <- mk_SwipeableUpdateSwipeCallback cb'
connectSignalFunPtr obj "update-swipe" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Swipeable = SwipeableSignalList
type SwipeableSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("beginSwipe", SwipeableBeginSwipeSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("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), '("endSwipe", SwipeableEndSwipeSignalInfo), '("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), '("switchChild", SwipeableSwitchChildSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("updateSwipe", SwipeableUpdateSwipeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif