{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Handy.Objects.SwipeTracker
(
SwipeTracker(..) ,
IsSwipeTracker ,
toSwipeTracker ,
#if defined(ENABLE_OVERLOADING)
ResolveSwipeTrackerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SwipeTrackerGetAllowLongSwipesMethodInfo,
#endif
swipeTrackerGetAllowLongSwipes ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerGetAllowMouseDragMethodInfo ,
#endif
swipeTrackerGetAllowMouseDrag ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerGetEnabledMethodInfo ,
#endif
swipeTrackerGetEnabled ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerGetReversedMethodInfo ,
#endif
swipeTrackerGetReversed ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerGetSwipeableMethodInfo ,
#endif
swipeTrackerGetSwipeable ,
swipeTrackerNew ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerSetAllowLongSwipesMethodInfo,
#endif
swipeTrackerSetAllowLongSwipes ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerSetAllowMouseDragMethodInfo ,
#endif
swipeTrackerSetAllowMouseDrag ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerSetEnabledMethodInfo ,
#endif
swipeTrackerSetEnabled ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerSetReversedMethodInfo ,
#endif
swipeTrackerSetReversed ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerShiftPositionMethodInfo ,
#endif
swipeTrackerShiftPosition ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerAllowLongSwipesPropertyInfo ,
#endif
constructSwipeTrackerAllowLongSwipes ,
getSwipeTrackerAllowLongSwipes ,
setSwipeTrackerAllowLongSwipes ,
#if defined(ENABLE_OVERLOADING)
swipeTrackerAllowLongSwipes ,
#endif
#if defined(ENABLE_OVERLOADING)
SwipeTrackerAllowMouseDragPropertyInfo ,
#endif
constructSwipeTrackerAllowMouseDrag ,
getSwipeTrackerAllowMouseDrag ,
setSwipeTrackerAllowMouseDrag ,
#if defined(ENABLE_OVERLOADING)
swipeTrackerAllowMouseDrag ,
#endif
#if defined(ENABLE_OVERLOADING)
SwipeTrackerEnabledPropertyInfo ,
#endif
constructSwipeTrackerEnabled ,
getSwipeTrackerEnabled ,
setSwipeTrackerEnabled ,
#if defined(ENABLE_OVERLOADING)
swipeTrackerEnabled ,
#endif
#if defined(ENABLE_OVERLOADING)
SwipeTrackerReversedPropertyInfo ,
#endif
constructSwipeTrackerReversed ,
getSwipeTrackerReversed ,
setSwipeTrackerReversed ,
#if defined(ENABLE_OVERLOADING)
swipeTrackerReversed ,
#endif
#if defined(ENABLE_OVERLOADING)
SwipeTrackerSwipeablePropertyInfo ,
#endif
constructSwipeTrackerSwipeable ,
getSwipeTrackerSwipeable ,
#if defined(ENABLE_OVERLOADING)
swipeTrackerSwipeable ,
#endif
SwipeTrackerBeginSwipeCallback ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerBeginSwipeSignalInfo ,
#endif
afterSwipeTrackerBeginSwipe ,
onSwipeTrackerBeginSwipe ,
SwipeTrackerEndSwipeCallback ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerEndSwipeSignalInfo ,
#endif
afterSwipeTrackerEndSwipe ,
onSwipeTrackerEndSwipe ,
SwipeTrackerUpdateSwipeCallback ,
#if defined(ENABLE_OVERLOADING)
SwipeTrackerUpdateSwipeSignalInfo ,
#endif
afterSwipeTrackerUpdateSwipe ,
onSwipeTrackerUpdateSwipe ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Handy.Enums as Handy.Enums
import {-# SOURCE #-} qualified GI.Handy.Interfaces.Swipeable as Handy.Swipeable
newtype SwipeTracker = SwipeTracker (SP.ManagedPtr SwipeTracker)
deriving (SwipeTracker -> SwipeTracker -> Bool
(SwipeTracker -> SwipeTracker -> Bool)
-> (SwipeTracker -> SwipeTracker -> Bool) -> Eq SwipeTracker
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SwipeTracker -> SwipeTracker -> Bool
== :: SwipeTracker -> SwipeTracker -> Bool
$c/= :: SwipeTracker -> SwipeTracker -> Bool
/= :: SwipeTracker -> SwipeTracker -> Bool
Eq)
instance SP.ManagedPtrNewtype SwipeTracker where
toManagedPtr :: SwipeTracker -> ManagedPtr SwipeTracker
toManagedPtr (SwipeTracker ManagedPtr SwipeTracker
p) = ManagedPtr SwipeTracker
p
foreign import ccall "hdy_swipe_tracker_get_type"
c_hdy_swipe_tracker_get_type :: IO B.Types.GType
instance B.Types.TypedObject SwipeTracker where
glibType :: IO GType
glibType = IO GType
c_hdy_swipe_tracker_get_type
instance B.Types.GObject SwipeTracker
class (SP.GObject o, O.IsDescendantOf SwipeTracker o) => IsSwipeTracker o
instance (SP.GObject o, O.IsDescendantOf SwipeTracker o) => IsSwipeTracker o
instance O.HasParentTypes SwipeTracker
type instance O.ParentTypes SwipeTracker = '[GObject.Object.Object, Gtk.Orientable.Orientable]
toSwipeTracker :: (MIO.MonadIO m, IsSwipeTracker o) => o -> m SwipeTracker
toSwipeTracker :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> m SwipeTracker
toSwipeTracker = IO SwipeTracker -> m SwipeTracker
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SwipeTracker -> m SwipeTracker)
-> (o -> IO SwipeTracker) -> o -> m SwipeTracker
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SwipeTracker -> SwipeTracker) -> o -> IO SwipeTracker
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SwipeTracker -> SwipeTracker
SwipeTracker
instance B.GValue.IsGValue (Maybe SwipeTracker) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_hdy_swipe_tracker_get_type
gvalueSet_ :: Ptr GValue -> Maybe SwipeTracker -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SwipeTracker
P.Nothing = Ptr GValue -> Ptr SwipeTracker -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SwipeTracker
forall a. Ptr a
FP.nullPtr :: FP.Ptr SwipeTracker)
gvalueSet_ Ptr GValue
gv (P.Just SwipeTracker
obj) = SwipeTracker -> (Ptr SwipeTracker -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SwipeTracker
obj (Ptr GValue -> Ptr SwipeTracker -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SwipeTracker)
gvalueGet_ Ptr GValue
gv = do
Ptr SwipeTracker
ptr <- Ptr GValue -> IO (Ptr SwipeTracker)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SwipeTracker)
if Ptr SwipeTracker
ptr Ptr SwipeTracker -> Ptr SwipeTracker -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SwipeTracker
forall a. Ptr a
FP.nullPtr
then SwipeTracker -> Maybe SwipeTracker
forall a. a -> Maybe a
P.Just (SwipeTracker -> Maybe SwipeTracker)
-> IO SwipeTracker -> IO (Maybe SwipeTracker)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SwipeTracker -> SwipeTracker)
-> Ptr SwipeTracker -> IO SwipeTracker
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SwipeTracker -> SwipeTracker
SwipeTracker Ptr SwipeTracker
ptr
else Maybe SwipeTracker -> IO (Maybe SwipeTracker)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SwipeTracker
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSwipeTrackerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSwipeTrackerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSwipeTrackerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSwipeTrackerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSwipeTrackerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSwipeTrackerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSwipeTrackerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSwipeTrackerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSwipeTrackerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSwipeTrackerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSwipeTrackerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSwipeTrackerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSwipeTrackerMethod "shiftPosition" o = SwipeTrackerShiftPositionMethodInfo
ResolveSwipeTrackerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSwipeTrackerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSwipeTrackerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSwipeTrackerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSwipeTrackerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSwipeTrackerMethod "getAllowLongSwipes" o = SwipeTrackerGetAllowLongSwipesMethodInfo
ResolveSwipeTrackerMethod "getAllowMouseDrag" o = SwipeTrackerGetAllowMouseDragMethodInfo
ResolveSwipeTrackerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSwipeTrackerMethod "getEnabled" o = SwipeTrackerGetEnabledMethodInfo
ResolveSwipeTrackerMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveSwipeTrackerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSwipeTrackerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSwipeTrackerMethod "getReversed" o = SwipeTrackerGetReversedMethodInfo
ResolveSwipeTrackerMethod "getSwipeable" o = SwipeTrackerGetSwipeableMethodInfo
ResolveSwipeTrackerMethod "setAllowLongSwipes" o = SwipeTrackerSetAllowLongSwipesMethodInfo
ResolveSwipeTrackerMethod "setAllowMouseDrag" o = SwipeTrackerSetAllowMouseDragMethodInfo
ResolveSwipeTrackerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSwipeTrackerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSwipeTrackerMethod "setEnabled" o = SwipeTrackerSetEnabledMethodInfo
ResolveSwipeTrackerMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveSwipeTrackerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSwipeTrackerMethod "setReversed" o = SwipeTrackerSetReversedMethodInfo
ResolveSwipeTrackerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSwipeTrackerMethod t SwipeTracker, O.OverloadedMethod info SwipeTracker p) => OL.IsLabel t (SwipeTracker -> 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 ~ ResolveSwipeTrackerMethod t SwipeTracker, O.OverloadedMethod info SwipeTracker p, R.HasField t SwipeTracker p) => R.HasField t SwipeTracker p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSwipeTrackerMethod t SwipeTracker, O.OverloadedMethodInfo info SwipeTracker) => OL.IsLabel t (O.MethodProxy info SwipeTracker) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type SwipeTrackerBeginSwipeCallback =
Handy.Enums.NavigationDirection
-> Bool
-> IO ()
type C_SwipeTrackerBeginSwipeCallback =
Ptr SwipeTracker ->
CUInt ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SwipeTrackerBeginSwipeCallback :: C_SwipeTrackerBeginSwipeCallback -> IO (FunPtr C_SwipeTrackerBeginSwipeCallback)
wrap_SwipeTrackerBeginSwipeCallback ::
GObject a => (a -> SwipeTrackerBeginSwipeCallback) ->
C_SwipeTrackerBeginSwipeCallback
wrap_SwipeTrackerBeginSwipeCallback :: forall a.
GObject a =>
(a -> SwipeTrackerBeginSwipeCallback)
-> C_SwipeTrackerBeginSwipeCallback
wrap_SwipeTrackerBeginSwipeCallback a -> SwipeTrackerBeginSwipeCallback
gi'cb Ptr SwipeTracker
gi'selfPtr CUInt
direction CInt
direct Ptr ()
_ = do
let direction' :: NavigationDirection
direction' = (Int -> NavigationDirection
forall a. Enum a => Int -> a
toEnum (Int -> NavigationDirection)
-> (CUInt -> Int) -> CUInt -> NavigationDirection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
direction
let direct' :: Bool
direct' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
direct
Ptr SwipeTracker -> (SwipeTracker -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr SwipeTracker
gi'selfPtr ((SwipeTracker -> IO ()) -> IO ())
-> (SwipeTracker -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SwipeTracker
gi'self -> a -> SwipeTrackerBeginSwipeCallback
gi'cb (SwipeTracker -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SwipeTracker
gi'self) NavigationDirection
direction' Bool
direct'
onSwipeTrackerBeginSwipe :: (IsSwipeTracker a, MonadIO m) => a -> ((?self :: a) => SwipeTrackerBeginSwipeCallback) -> m SignalHandlerId
onSwipeTrackerBeginSwipe :: forall a (m :: * -> *).
(IsSwipeTracker a, MonadIO m) =>
a
-> ((?self::a) => SwipeTrackerBeginSwipeCallback)
-> m SignalHandlerId
onSwipeTrackerBeginSwipe a
obj (?self::a) => SwipeTrackerBeginSwipeCallback
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 -> SwipeTrackerBeginSwipeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => SwipeTrackerBeginSwipeCallback
SwipeTrackerBeginSwipeCallback
cb
let wrapped' :: C_SwipeTrackerBeginSwipeCallback
wrapped' = (a -> SwipeTrackerBeginSwipeCallback)
-> C_SwipeTrackerBeginSwipeCallback
forall a.
GObject a =>
(a -> SwipeTrackerBeginSwipeCallback)
-> C_SwipeTrackerBeginSwipeCallback
wrap_SwipeTrackerBeginSwipeCallback a -> SwipeTrackerBeginSwipeCallback
wrapped
FunPtr C_SwipeTrackerBeginSwipeCallback
wrapped'' <- C_SwipeTrackerBeginSwipeCallback
-> IO (FunPtr C_SwipeTrackerBeginSwipeCallback)
mk_SwipeTrackerBeginSwipeCallback C_SwipeTrackerBeginSwipeCallback
wrapped'
a
-> Text
-> FunPtr C_SwipeTrackerBeginSwipeCallback
-> 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_SwipeTrackerBeginSwipeCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSwipeTrackerBeginSwipe :: (IsSwipeTracker a, MonadIO m) => a -> ((?self :: a) => SwipeTrackerBeginSwipeCallback) -> m SignalHandlerId
afterSwipeTrackerBeginSwipe :: forall a (m :: * -> *).
(IsSwipeTracker a, MonadIO m) =>
a
-> ((?self::a) => SwipeTrackerBeginSwipeCallback)
-> m SignalHandlerId
afterSwipeTrackerBeginSwipe a
obj (?self::a) => SwipeTrackerBeginSwipeCallback
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 -> SwipeTrackerBeginSwipeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => SwipeTrackerBeginSwipeCallback
SwipeTrackerBeginSwipeCallback
cb
let wrapped' :: C_SwipeTrackerBeginSwipeCallback
wrapped' = (a -> SwipeTrackerBeginSwipeCallback)
-> C_SwipeTrackerBeginSwipeCallback
forall a.
GObject a =>
(a -> SwipeTrackerBeginSwipeCallback)
-> C_SwipeTrackerBeginSwipeCallback
wrap_SwipeTrackerBeginSwipeCallback a -> SwipeTrackerBeginSwipeCallback
wrapped
FunPtr C_SwipeTrackerBeginSwipeCallback
wrapped'' <- C_SwipeTrackerBeginSwipeCallback
-> IO (FunPtr C_SwipeTrackerBeginSwipeCallback)
mk_SwipeTrackerBeginSwipeCallback C_SwipeTrackerBeginSwipeCallback
wrapped'
a
-> Text
-> FunPtr C_SwipeTrackerBeginSwipeCallback
-> 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_SwipeTrackerBeginSwipeCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerBeginSwipeSignalInfo
instance SignalInfo SwipeTrackerBeginSwipeSignalInfo where
type HaskellCallbackType SwipeTrackerBeginSwipeSignalInfo = SwipeTrackerBeginSwipeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SwipeTrackerBeginSwipeCallback cb
cb'' <- mk_SwipeTrackerBeginSwipeCallback cb'
connectSignalFunPtr obj "begin-swipe" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker::begin-swipe"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#g:signal:beginSwipe"})
#endif
type SwipeTrackerEndSwipeCallback =
Int64
-> Double
-> IO ()
type C_SwipeTrackerEndSwipeCallback =
Ptr SwipeTracker ->
Int64 ->
CDouble ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SwipeTrackerEndSwipeCallback :: C_SwipeTrackerEndSwipeCallback -> IO (FunPtr C_SwipeTrackerEndSwipeCallback)
wrap_SwipeTrackerEndSwipeCallback ::
GObject a => (a -> SwipeTrackerEndSwipeCallback) ->
C_SwipeTrackerEndSwipeCallback
wrap_SwipeTrackerEndSwipeCallback :: forall a.
GObject a =>
(a -> SwipeTrackerEndSwipeCallback)
-> C_SwipeTrackerEndSwipeCallback
wrap_SwipeTrackerEndSwipeCallback a -> SwipeTrackerEndSwipeCallback
gi'cb Ptr SwipeTracker
gi'selfPtr Int64
duration CDouble
to Ptr ()
_ = do
let to' :: Double
to' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
to
Ptr SwipeTracker -> (SwipeTracker -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr SwipeTracker
gi'selfPtr ((SwipeTracker -> IO ()) -> IO ())
-> (SwipeTracker -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SwipeTracker
gi'self -> a -> SwipeTrackerEndSwipeCallback
gi'cb (SwipeTracker -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SwipeTracker
gi'self) Int64
duration Double
to'
onSwipeTrackerEndSwipe :: (IsSwipeTracker a, MonadIO m) => a -> ((?self :: a) => SwipeTrackerEndSwipeCallback) -> m SignalHandlerId
onSwipeTrackerEndSwipe :: forall a (m :: * -> *).
(IsSwipeTracker a, MonadIO m) =>
a
-> ((?self::a) => SwipeTrackerEndSwipeCallback)
-> m SignalHandlerId
onSwipeTrackerEndSwipe a
obj (?self::a) => SwipeTrackerEndSwipeCallback
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 -> SwipeTrackerEndSwipeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => SwipeTrackerEndSwipeCallback
SwipeTrackerEndSwipeCallback
cb
let wrapped' :: C_SwipeTrackerEndSwipeCallback
wrapped' = (a -> SwipeTrackerEndSwipeCallback)
-> C_SwipeTrackerEndSwipeCallback
forall a.
GObject a =>
(a -> SwipeTrackerEndSwipeCallback)
-> C_SwipeTrackerEndSwipeCallback
wrap_SwipeTrackerEndSwipeCallback a -> SwipeTrackerEndSwipeCallback
wrapped
FunPtr C_SwipeTrackerEndSwipeCallback
wrapped'' <- C_SwipeTrackerEndSwipeCallback
-> IO (FunPtr C_SwipeTrackerEndSwipeCallback)
mk_SwipeTrackerEndSwipeCallback C_SwipeTrackerEndSwipeCallback
wrapped'
a
-> Text
-> FunPtr C_SwipeTrackerEndSwipeCallback
-> 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_SwipeTrackerEndSwipeCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSwipeTrackerEndSwipe :: (IsSwipeTracker a, MonadIO m) => a -> ((?self :: a) => SwipeTrackerEndSwipeCallback) -> m SignalHandlerId
afterSwipeTrackerEndSwipe :: forall a (m :: * -> *).
(IsSwipeTracker a, MonadIO m) =>
a
-> ((?self::a) => SwipeTrackerEndSwipeCallback)
-> m SignalHandlerId
afterSwipeTrackerEndSwipe a
obj (?self::a) => SwipeTrackerEndSwipeCallback
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 -> SwipeTrackerEndSwipeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => SwipeTrackerEndSwipeCallback
SwipeTrackerEndSwipeCallback
cb
let wrapped' :: C_SwipeTrackerEndSwipeCallback
wrapped' = (a -> SwipeTrackerEndSwipeCallback)
-> C_SwipeTrackerEndSwipeCallback
forall a.
GObject a =>
(a -> SwipeTrackerEndSwipeCallback)
-> C_SwipeTrackerEndSwipeCallback
wrap_SwipeTrackerEndSwipeCallback a -> SwipeTrackerEndSwipeCallback
wrapped
FunPtr C_SwipeTrackerEndSwipeCallback
wrapped'' <- C_SwipeTrackerEndSwipeCallback
-> IO (FunPtr C_SwipeTrackerEndSwipeCallback)
mk_SwipeTrackerEndSwipeCallback C_SwipeTrackerEndSwipeCallback
wrapped'
a
-> Text
-> FunPtr C_SwipeTrackerEndSwipeCallback
-> 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_SwipeTrackerEndSwipeCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerEndSwipeSignalInfo
instance SignalInfo SwipeTrackerEndSwipeSignalInfo where
type HaskellCallbackType SwipeTrackerEndSwipeSignalInfo = SwipeTrackerEndSwipeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SwipeTrackerEndSwipeCallback cb
cb'' <- mk_SwipeTrackerEndSwipeCallback cb'
connectSignalFunPtr obj "end-swipe" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker::end-swipe"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#g:signal:endSwipe"})
#endif
type SwipeTrackerUpdateSwipeCallback =
Double
-> IO ()
type C_SwipeTrackerUpdateSwipeCallback =
Ptr SwipeTracker ->
CDouble ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SwipeTrackerUpdateSwipeCallback :: C_SwipeTrackerUpdateSwipeCallback -> IO (FunPtr C_SwipeTrackerUpdateSwipeCallback)
wrap_SwipeTrackerUpdateSwipeCallback ::
GObject a => (a -> SwipeTrackerUpdateSwipeCallback) ->
C_SwipeTrackerUpdateSwipeCallback
wrap_SwipeTrackerUpdateSwipeCallback :: forall a.
GObject a =>
(a -> SwipeTrackerUpdateSwipeCallback)
-> C_SwipeTrackerUpdateSwipeCallback
wrap_SwipeTrackerUpdateSwipeCallback a -> SwipeTrackerUpdateSwipeCallback
gi'cb Ptr SwipeTracker
gi'selfPtr CDouble
progress Ptr ()
_ = do
let progress' :: Double
progress' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
progress
Ptr SwipeTracker -> (SwipeTracker -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr SwipeTracker
gi'selfPtr ((SwipeTracker -> IO ()) -> IO ())
-> (SwipeTracker -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SwipeTracker
gi'self -> a -> SwipeTrackerUpdateSwipeCallback
gi'cb (SwipeTracker -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SwipeTracker
gi'self) Double
progress'
onSwipeTrackerUpdateSwipe :: (IsSwipeTracker a, MonadIO m) => a -> ((?self :: a) => SwipeTrackerUpdateSwipeCallback) -> m SignalHandlerId
onSwipeTrackerUpdateSwipe :: forall a (m :: * -> *).
(IsSwipeTracker a, MonadIO m) =>
a
-> ((?self::a) => SwipeTrackerUpdateSwipeCallback)
-> m SignalHandlerId
onSwipeTrackerUpdateSwipe a
obj (?self::a) => SwipeTrackerUpdateSwipeCallback
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 -> SwipeTrackerUpdateSwipeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => SwipeTrackerUpdateSwipeCallback
SwipeTrackerUpdateSwipeCallback
cb
let wrapped' :: C_SwipeTrackerUpdateSwipeCallback
wrapped' = (a -> SwipeTrackerUpdateSwipeCallback)
-> C_SwipeTrackerUpdateSwipeCallback
forall a.
GObject a =>
(a -> SwipeTrackerUpdateSwipeCallback)
-> C_SwipeTrackerUpdateSwipeCallback
wrap_SwipeTrackerUpdateSwipeCallback a -> SwipeTrackerUpdateSwipeCallback
wrapped
FunPtr C_SwipeTrackerUpdateSwipeCallback
wrapped'' <- C_SwipeTrackerUpdateSwipeCallback
-> IO (FunPtr C_SwipeTrackerUpdateSwipeCallback)
mk_SwipeTrackerUpdateSwipeCallback C_SwipeTrackerUpdateSwipeCallback
wrapped'
a
-> Text
-> FunPtr C_SwipeTrackerUpdateSwipeCallback
-> 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_SwipeTrackerUpdateSwipeCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSwipeTrackerUpdateSwipe :: (IsSwipeTracker a, MonadIO m) => a -> ((?self :: a) => SwipeTrackerUpdateSwipeCallback) -> m SignalHandlerId
afterSwipeTrackerUpdateSwipe :: forall a (m :: * -> *).
(IsSwipeTracker a, MonadIO m) =>
a
-> ((?self::a) => SwipeTrackerUpdateSwipeCallback)
-> m SignalHandlerId
afterSwipeTrackerUpdateSwipe a
obj (?self::a) => SwipeTrackerUpdateSwipeCallback
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 -> SwipeTrackerUpdateSwipeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => SwipeTrackerUpdateSwipeCallback
SwipeTrackerUpdateSwipeCallback
cb
let wrapped' :: C_SwipeTrackerUpdateSwipeCallback
wrapped' = (a -> SwipeTrackerUpdateSwipeCallback)
-> C_SwipeTrackerUpdateSwipeCallback
forall a.
GObject a =>
(a -> SwipeTrackerUpdateSwipeCallback)
-> C_SwipeTrackerUpdateSwipeCallback
wrap_SwipeTrackerUpdateSwipeCallback a -> SwipeTrackerUpdateSwipeCallback
wrapped
FunPtr C_SwipeTrackerUpdateSwipeCallback
wrapped'' <- C_SwipeTrackerUpdateSwipeCallback
-> IO (FunPtr C_SwipeTrackerUpdateSwipeCallback)
mk_SwipeTrackerUpdateSwipeCallback C_SwipeTrackerUpdateSwipeCallback
wrapped'
a
-> Text
-> FunPtr C_SwipeTrackerUpdateSwipeCallback
-> 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_SwipeTrackerUpdateSwipeCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerUpdateSwipeSignalInfo
instance SignalInfo SwipeTrackerUpdateSwipeSignalInfo where
type HaskellCallbackType SwipeTrackerUpdateSwipeSignalInfo = SwipeTrackerUpdateSwipeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SwipeTrackerUpdateSwipeCallback cb
cb'' <- mk_SwipeTrackerUpdateSwipeCallback cb'
connectSignalFunPtr obj "update-swipe" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker::update-swipe"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#g:signal:updateSwipe"})
#endif
getSwipeTrackerAllowLongSwipes :: (MonadIO m, IsSwipeTracker o) => o -> m Bool
getSwipeTrackerAllowLongSwipes :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> m Bool
getSwipeTrackerAllowLongSwipes o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"allow-long-swipes"
setSwipeTrackerAllowLongSwipes :: (MonadIO m, IsSwipeTracker o) => o -> Bool -> m ()
setSwipeTrackerAllowLongSwipes :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> Bool -> m ()
setSwipeTrackerAllowLongSwipes o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-long-swipes" Bool
val
constructSwipeTrackerAllowLongSwipes :: (IsSwipeTracker o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSwipeTrackerAllowLongSwipes :: forall o (m :: * -> *).
(IsSwipeTracker o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSwipeTrackerAllowLongSwipes Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-long-swipes" Bool
val
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerAllowLongSwipesPropertyInfo
instance AttrInfo SwipeTrackerAllowLongSwipesPropertyInfo where
type AttrAllowedOps SwipeTrackerAllowLongSwipesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SwipeTrackerAllowLongSwipesPropertyInfo = IsSwipeTracker
type AttrSetTypeConstraint SwipeTrackerAllowLongSwipesPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SwipeTrackerAllowLongSwipesPropertyInfo = (~) Bool
type AttrTransferType SwipeTrackerAllowLongSwipesPropertyInfo = Bool
type AttrGetType SwipeTrackerAllowLongSwipesPropertyInfo = Bool
type AttrLabel SwipeTrackerAllowLongSwipesPropertyInfo = "allow-long-swipes"
type AttrOrigin SwipeTrackerAllowLongSwipesPropertyInfo = SwipeTracker
attrGet = getSwipeTrackerAllowLongSwipes
attrSet = setSwipeTrackerAllowLongSwipes
attrTransfer _ v = do
return v
attrConstruct = constructSwipeTrackerAllowLongSwipes
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.allowLongSwipes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#g:attr:allowLongSwipes"
})
#endif
getSwipeTrackerAllowMouseDrag :: (MonadIO m, IsSwipeTracker o) => o -> m Bool
getSwipeTrackerAllowMouseDrag :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> m Bool
getSwipeTrackerAllowMouseDrag o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"allow-mouse-drag"
setSwipeTrackerAllowMouseDrag :: (MonadIO m, IsSwipeTracker o) => o -> Bool -> m ()
setSwipeTrackerAllowMouseDrag :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> Bool -> m ()
setSwipeTrackerAllowMouseDrag o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-mouse-drag" Bool
val
constructSwipeTrackerAllowMouseDrag :: (IsSwipeTracker o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSwipeTrackerAllowMouseDrag :: forall o (m :: * -> *).
(IsSwipeTracker o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSwipeTrackerAllowMouseDrag Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-mouse-drag" Bool
val
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerAllowMouseDragPropertyInfo
instance AttrInfo SwipeTrackerAllowMouseDragPropertyInfo where
type AttrAllowedOps SwipeTrackerAllowMouseDragPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SwipeTrackerAllowMouseDragPropertyInfo = IsSwipeTracker
type AttrSetTypeConstraint SwipeTrackerAllowMouseDragPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SwipeTrackerAllowMouseDragPropertyInfo = (~) Bool
type AttrTransferType SwipeTrackerAllowMouseDragPropertyInfo = Bool
type AttrGetType SwipeTrackerAllowMouseDragPropertyInfo = Bool
type AttrLabel SwipeTrackerAllowMouseDragPropertyInfo = "allow-mouse-drag"
type AttrOrigin SwipeTrackerAllowMouseDragPropertyInfo = SwipeTracker
attrGet = getSwipeTrackerAllowMouseDrag
attrSet = setSwipeTrackerAllowMouseDrag
attrTransfer _ v = do
return v
attrConstruct = constructSwipeTrackerAllowMouseDrag
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.allowMouseDrag"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#g:attr:allowMouseDrag"
})
#endif
getSwipeTrackerEnabled :: (MonadIO m, IsSwipeTracker o) => o -> m Bool
getSwipeTrackerEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> m Bool
getSwipeTrackerEnabled o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enabled"
setSwipeTrackerEnabled :: (MonadIO m, IsSwipeTracker o) => o -> Bool -> m ()
setSwipeTrackerEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> Bool -> m ()
setSwipeTrackerEnabled o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enabled" Bool
val
constructSwipeTrackerEnabled :: (IsSwipeTracker o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSwipeTrackerEnabled :: forall o (m :: * -> *).
(IsSwipeTracker o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSwipeTrackerEnabled Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerEnabledPropertyInfo
instance AttrInfo SwipeTrackerEnabledPropertyInfo where
type AttrAllowedOps SwipeTrackerEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SwipeTrackerEnabledPropertyInfo = IsSwipeTracker
type AttrSetTypeConstraint SwipeTrackerEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SwipeTrackerEnabledPropertyInfo = (~) Bool
type AttrTransferType SwipeTrackerEnabledPropertyInfo = Bool
type AttrGetType SwipeTrackerEnabledPropertyInfo = Bool
type AttrLabel SwipeTrackerEnabledPropertyInfo = "enabled"
type AttrOrigin SwipeTrackerEnabledPropertyInfo = SwipeTracker
attrGet = getSwipeTrackerEnabled
attrSet = setSwipeTrackerEnabled
attrTransfer _ v = do
return v
attrConstruct = constructSwipeTrackerEnabled
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.enabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#g:attr:enabled"
})
#endif
getSwipeTrackerReversed :: (MonadIO m, IsSwipeTracker o) => o -> m Bool
getSwipeTrackerReversed :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> m Bool
getSwipeTrackerReversed o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"reversed"
setSwipeTrackerReversed :: (MonadIO m, IsSwipeTracker o) => o -> Bool -> m ()
setSwipeTrackerReversed :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> Bool -> m ()
setSwipeTrackerReversed o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"reversed" Bool
val
constructSwipeTrackerReversed :: (IsSwipeTracker o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSwipeTrackerReversed :: forall o (m :: * -> *).
(IsSwipeTracker o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSwipeTrackerReversed Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"reversed" Bool
val
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerReversedPropertyInfo
instance AttrInfo SwipeTrackerReversedPropertyInfo where
type AttrAllowedOps SwipeTrackerReversedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SwipeTrackerReversedPropertyInfo = IsSwipeTracker
type AttrSetTypeConstraint SwipeTrackerReversedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SwipeTrackerReversedPropertyInfo = (~) Bool
type AttrTransferType SwipeTrackerReversedPropertyInfo = Bool
type AttrGetType SwipeTrackerReversedPropertyInfo = Bool
type AttrLabel SwipeTrackerReversedPropertyInfo = "reversed"
type AttrOrigin SwipeTrackerReversedPropertyInfo = SwipeTracker
attrGet = getSwipeTrackerReversed
attrSet = setSwipeTrackerReversed
attrTransfer _ v = do
return v
attrConstruct = constructSwipeTrackerReversed
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.reversed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#g:attr:reversed"
})
#endif
getSwipeTrackerSwipeable :: (MonadIO m, IsSwipeTracker o) => o -> m Handy.Swipeable.Swipeable
getSwipeTrackerSwipeable :: forall (m :: * -> *) o.
(MonadIO m, IsSwipeTracker o) =>
o -> m Swipeable
getSwipeTrackerSwipeable o
obj = 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) -> IO Swipeable -> m Swipeable
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Swipeable) -> IO Swipeable
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getSwipeTrackerSwipeable" (IO (Maybe Swipeable) -> IO Swipeable)
-> IO (Maybe Swipeable) -> IO Swipeable
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Swipeable -> Swipeable)
-> IO (Maybe Swipeable)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"swipeable" ManagedPtr Swipeable -> Swipeable
Handy.Swipeable.Swipeable
constructSwipeTrackerSwipeable :: (IsSwipeTracker o, MIO.MonadIO m, Handy.Swipeable.IsSwipeable a) => a -> m (GValueConstruct o)
constructSwipeTrackerSwipeable :: forall o (m :: * -> *) a.
(IsSwipeTracker o, MonadIO m, IsSwipeable a) =>
a -> m (GValueConstruct o)
constructSwipeTrackerSwipeable a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"swipeable" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerSwipeablePropertyInfo
instance AttrInfo SwipeTrackerSwipeablePropertyInfo where
type AttrAllowedOps SwipeTrackerSwipeablePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SwipeTrackerSwipeablePropertyInfo = IsSwipeTracker
type AttrSetTypeConstraint SwipeTrackerSwipeablePropertyInfo = Handy.Swipeable.IsSwipeable
type AttrTransferTypeConstraint SwipeTrackerSwipeablePropertyInfo = Handy.Swipeable.IsSwipeable
type AttrTransferType SwipeTrackerSwipeablePropertyInfo = Handy.Swipeable.Swipeable
type AttrGetType SwipeTrackerSwipeablePropertyInfo = Handy.Swipeable.Swipeable
type AttrLabel SwipeTrackerSwipeablePropertyInfo = "swipeable"
type AttrOrigin SwipeTrackerSwipeablePropertyInfo = SwipeTracker
attrGet = getSwipeTrackerSwipeable
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Handy.Swipeable.Swipeable v
attrConstruct = constructSwipeTrackerSwipeable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#g:attr:swipeable"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SwipeTracker
type instance O.AttributeList SwipeTracker = SwipeTrackerAttributeList
type SwipeTrackerAttributeList = ('[ '("allowLongSwipes", SwipeTrackerAllowLongSwipesPropertyInfo), '("allowMouseDrag", SwipeTrackerAllowMouseDragPropertyInfo), '("enabled", SwipeTrackerEnabledPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("reversed", SwipeTrackerReversedPropertyInfo), '("swipeable", SwipeTrackerSwipeablePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
swipeTrackerAllowLongSwipes :: AttrLabelProxy "allowLongSwipes"
swipeTrackerAllowLongSwipes = AttrLabelProxy
swipeTrackerAllowMouseDrag :: AttrLabelProxy "allowMouseDrag"
swipeTrackerAllowMouseDrag = AttrLabelProxy
swipeTrackerEnabled :: AttrLabelProxy "enabled"
swipeTrackerEnabled = AttrLabelProxy
swipeTrackerReversed :: AttrLabelProxy "reversed"
swipeTrackerReversed = AttrLabelProxy
swipeTrackerSwipeable :: AttrLabelProxy "swipeable"
swipeTrackerSwipeable = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SwipeTracker = SwipeTrackerSignalList
type SwipeTrackerSignalList = ('[ '("beginSwipe", SwipeTrackerBeginSwipeSignalInfo), '("endSwipe", SwipeTrackerEndSwipeSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("updateSwipe", SwipeTrackerUpdateSwipeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "hdy_swipe_tracker_new" hdy_swipe_tracker_new ::
Ptr Handy.Swipeable.Swipeable ->
IO (Ptr SwipeTracker)
swipeTrackerNew ::
(B.CallStack.HasCallStack, MonadIO m, Handy.Swipeable.IsSwipeable a) =>
a
-> m SwipeTracker
swipeTrackerNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeable a) =>
a -> m SwipeTracker
swipeTrackerNew a
swipeable = 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
swipeable' <- a -> IO (Ptr Swipeable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
swipeable
Ptr SwipeTracker
result <- Ptr Swipeable -> IO (Ptr SwipeTracker)
hdy_swipe_tracker_new Ptr Swipeable
swipeable'
Text -> Ptr SwipeTracker -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"swipeTrackerNew" 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
wrapObject ManagedPtr SwipeTracker -> SwipeTracker
SwipeTracker) Ptr SwipeTracker
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
swipeable
SwipeTracker -> IO SwipeTracker
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SwipeTracker
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "hdy_swipe_tracker_get_allow_long_swipes" hdy_swipe_tracker_get_allow_long_swipes ::
Ptr SwipeTracker ->
IO CInt
swipeTrackerGetAllowLongSwipes ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> m Bool
swipeTrackerGetAllowLongSwipes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> m Bool
swipeTrackerGetAllowLongSwipes a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SwipeTracker -> IO CInt
hdy_swipe_tracker_get_allow_long_swipes Ptr SwipeTracker
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerGetAllowLongSwipesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerGetAllowLongSwipesMethodInfo a signature where
overloadedMethod = swipeTrackerGetAllowLongSwipes
instance O.OverloadedMethodInfo SwipeTrackerGetAllowLongSwipesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerGetAllowLongSwipes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerGetAllowLongSwipes"
})
#endif
foreign import ccall "hdy_swipe_tracker_get_allow_mouse_drag" hdy_swipe_tracker_get_allow_mouse_drag ::
Ptr SwipeTracker ->
IO CInt
swipeTrackerGetAllowMouseDrag ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> m Bool
swipeTrackerGetAllowMouseDrag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> m Bool
swipeTrackerGetAllowMouseDrag a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SwipeTracker -> IO CInt
hdy_swipe_tracker_get_allow_mouse_drag Ptr SwipeTracker
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerGetAllowMouseDragMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerGetAllowMouseDragMethodInfo a signature where
overloadedMethod = swipeTrackerGetAllowMouseDrag
instance O.OverloadedMethodInfo SwipeTrackerGetAllowMouseDragMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerGetAllowMouseDrag",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerGetAllowMouseDrag"
})
#endif
foreign import ccall "hdy_swipe_tracker_get_enabled" hdy_swipe_tracker_get_enabled ::
Ptr SwipeTracker ->
IO CInt
swipeTrackerGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> m Bool
swipeTrackerGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> m Bool
swipeTrackerGetEnabled a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SwipeTracker -> IO CInt
hdy_swipe_tracker_get_enabled Ptr SwipeTracker
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerGetEnabledMethodInfo a signature where
overloadedMethod = swipeTrackerGetEnabled
instance O.OverloadedMethodInfo SwipeTrackerGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerGetEnabled"
})
#endif
foreign import ccall "hdy_swipe_tracker_get_reversed" hdy_swipe_tracker_get_reversed ::
Ptr SwipeTracker ->
IO CInt
swipeTrackerGetReversed ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> m Bool
swipeTrackerGetReversed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> m Bool
swipeTrackerGetReversed a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SwipeTracker -> IO CInt
hdy_swipe_tracker_get_reversed Ptr SwipeTracker
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerGetReversedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerGetReversedMethodInfo a signature where
overloadedMethod = swipeTrackerGetReversed
instance O.OverloadedMethodInfo SwipeTrackerGetReversedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerGetReversed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerGetReversed"
})
#endif
foreign import ccall "hdy_swipe_tracker_get_swipeable" hdy_swipe_tracker_get_swipeable ::
Ptr SwipeTracker ->
IO (Ptr Handy.Swipeable.Swipeable)
swipeTrackerGetSwipeable ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> m Handy.Swipeable.Swipeable
swipeTrackerGetSwipeable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> m Swipeable
swipeTrackerGetSwipeable a
self = IO Swipeable -> m Swipeable
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Swipeable -> m Swipeable) -> IO Swipeable -> m Swipeable
forall a b. (a -> b) -> a -> b
$ do
Ptr SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Swipeable
result <- Ptr SwipeTracker -> IO (Ptr Swipeable)
hdy_swipe_tracker_get_swipeable Ptr SwipeTracker
self'
Text -> Ptr Swipeable -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"swipeTrackerGetSwipeable" Ptr Swipeable
result
Swipeable
result' <- ((ManagedPtr Swipeable -> Swipeable)
-> Ptr Swipeable -> IO Swipeable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Swipeable -> Swipeable
Handy.Swipeable.Swipeable) Ptr Swipeable
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Swipeable -> IO Swipeable
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Swipeable
result'
#if defined(ENABLE_OVERLOADING)
data SwipeTrackerGetSwipeableMethodInfo
instance (signature ~ (m Handy.Swipeable.Swipeable), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerGetSwipeableMethodInfo a signature where
overloadedMethod = swipeTrackerGetSwipeable
instance O.OverloadedMethodInfo SwipeTrackerGetSwipeableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerGetSwipeable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerGetSwipeable"
})
#endif
foreign import ccall "hdy_swipe_tracker_set_allow_long_swipes" hdy_swipe_tracker_set_allow_long_swipes ::
Ptr SwipeTracker ->
CInt ->
IO ()
swipeTrackerSetAllowLongSwipes ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> Bool
-> m ()
swipeTrackerSetAllowLongSwipes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> Bool -> m ()
swipeTrackerSetAllowLongSwipes a
self Bool
allowLongSwipes = 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 SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let allowLongSwipes' :: CInt
allowLongSwipes' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
allowLongSwipes
Ptr SwipeTracker -> CInt -> IO ()
hdy_swipe_tracker_set_allow_long_swipes Ptr SwipeTracker
self' CInt
allowLongSwipes'
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 SwipeTrackerSetAllowLongSwipesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerSetAllowLongSwipesMethodInfo a signature where
overloadedMethod = swipeTrackerSetAllowLongSwipes
instance O.OverloadedMethodInfo SwipeTrackerSetAllowLongSwipesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerSetAllowLongSwipes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerSetAllowLongSwipes"
})
#endif
foreign import ccall "hdy_swipe_tracker_set_allow_mouse_drag" hdy_swipe_tracker_set_allow_mouse_drag ::
Ptr SwipeTracker ->
CInt ->
IO ()
swipeTrackerSetAllowMouseDrag ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> Bool
-> m ()
swipeTrackerSetAllowMouseDrag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> Bool -> m ()
swipeTrackerSetAllowMouseDrag a
self Bool
allowMouseDrag = 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 SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let allowMouseDrag' :: CInt
allowMouseDrag' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
allowMouseDrag
Ptr SwipeTracker -> CInt -> IO ()
hdy_swipe_tracker_set_allow_mouse_drag Ptr SwipeTracker
self' CInt
allowMouseDrag'
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 SwipeTrackerSetAllowMouseDragMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerSetAllowMouseDragMethodInfo a signature where
overloadedMethod = swipeTrackerSetAllowMouseDrag
instance O.OverloadedMethodInfo SwipeTrackerSetAllowMouseDragMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerSetAllowMouseDrag",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerSetAllowMouseDrag"
})
#endif
foreign import ccall "hdy_swipe_tracker_set_enabled" hdy_swipe_tracker_set_enabled ::
Ptr SwipeTracker ->
CInt ->
IO ()
swipeTrackerSetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> Bool
-> m ()
swipeTrackerSetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> Bool -> m ()
swipeTrackerSetEnabled a
self Bool
enabled = 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 SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enabled
Ptr SwipeTracker -> CInt -> IO ()
hdy_swipe_tracker_set_enabled Ptr SwipeTracker
self' CInt
enabled'
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 SwipeTrackerSetEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerSetEnabledMethodInfo a signature where
overloadedMethod = swipeTrackerSetEnabled
instance O.OverloadedMethodInfo SwipeTrackerSetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerSetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerSetEnabled"
})
#endif
foreign import ccall "hdy_swipe_tracker_set_reversed" hdy_swipe_tracker_set_reversed ::
Ptr SwipeTracker ->
CInt ->
IO ()
swipeTrackerSetReversed ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> Bool
-> m ()
swipeTrackerSetReversed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> Bool -> m ()
swipeTrackerSetReversed a
self Bool
reversed = 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 SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let reversed' :: CInt
reversed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
reversed
Ptr SwipeTracker -> CInt -> IO ()
hdy_swipe_tracker_set_reversed Ptr SwipeTracker
self' CInt
reversed'
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 SwipeTrackerSetReversedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerSetReversedMethodInfo a signature where
overloadedMethod = swipeTrackerSetReversed
instance O.OverloadedMethodInfo SwipeTrackerSetReversedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerSetReversed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerSetReversed"
})
#endif
foreign import ccall "hdy_swipe_tracker_shift_position" hdy_swipe_tracker_shift_position ::
Ptr SwipeTracker ->
CDouble ->
IO ()
swipeTrackerShiftPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsSwipeTracker a) =>
a
-> Double
-> m ()
swipeTrackerShiftPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwipeTracker a) =>
a -> Double -> m ()
swipeTrackerShiftPosition a
self Double
delta = 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 SwipeTracker
self' <- a -> IO (Ptr SwipeTracker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let delta' :: CDouble
delta' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
delta
Ptr SwipeTracker -> CDouble -> IO ()
hdy_swipe_tracker_shift_position Ptr SwipeTracker
self' CDouble
delta'
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 SwipeTrackerShiftPositionMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsSwipeTracker a) => O.OverloadedMethod SwipeTrackerShiftPositionMethodInfo a signature where
overloadedMethod = swipeTrackerShiftPosition
instance O.OverloadedMethodInfo SwipeTrackerShiftPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.SwipeTracker.swipeTrackerShiftPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.4/docs/GI-Handy-Objects-SwipeTracker.html#v:swipeTrackerShiftPosition"
})
#endif