{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.DropAction
(
DropAction(..) ,
IsDropAction ,
toDropAction ,
#if defined(ENABLE_OVERLOADING)
ResolveDropActionMethod ,
#endif
dropActionNew ,
DropActionCanDropCallback ,
#if defined(ENABLE_OVERLOADING)
DropActionCanDropSignalInfo ,
#endif
afterDropActionCanDrop ,
onDropActionCanDrop ,
DropActionDropCallback ,
#if defined(ENABLE_OVERLOADING)
DropActionDropSignalInfo ,
#endif
afterDropActionDrop ,
onDropActionDrop ,
DropActionDropCancelCallback ,
#if defined(ENABLE_OVERLOADING)
DropActionDropCancelSignalInfo ,
#endif
afterDropActionDropCancel ,
onDropActionDropCancel ,
DropActionOverInCallback ,
#if defined(ENABLE_OVERLOADING)
DropActionOverInSignalInfo ,
#endif
afterDropActionOverIn ,
onDropActionOverIn ,
DropActionOverOutCallback ,
#if defined(ENABLE_OVERLOADING)
DropActionOverOutSignalInfo ,
#endif
afterDropActionOverOut ,
onDropActionOverOut ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Clutter.Objects.Action as Clutter.Action
import {-# SOURCE #-} qualified GI.Clutter.Objects.Actor as Clutter.Actor
import {-# SOURCE #-} qualified GI.Clutter.Objects.ActorMeta as Clutter.ActorMeta
import qualified GI.GObject.Objects.Object as GObject.Object
newtype DropAction = DropAction (SP.ManagedPtr DropAction)
deriving (DropAction -> DropAction -> Bool
(DropAction -> DropAction -> Bool)
-> (DropAction -> DropAction -> Bool) -> Eq DropAction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DropAction -> DropAction -> Bool
== :: DropAction -> DropAction -> Bool
$c/= :: DropAction -> DropAction -> Bool
/= :: DropAction -> DropAction -> Bool
Eq)
instance SP.ManagedPtrNewtype DropAction where
toManagedPtr :: DropAction -> ManagedPtr DropAction
toManagedPtr (DropAction ManagedPtr DropAction
p) = ManagedPtr DropAction
p
foreign import ccall "clutter_drop_action_get_type"
c_clutter_drop_action_get_type :: IO B.Types.GType
instance B.Types.TypedObject DropAction where
glibType :: IO GType
glibType = IO GType
c_clutter_drop_action_get_type
instance B.Types.GObject DropAction
class (SP.GObject o, O.IsDescendantOf DropAction o) => IsDropAction o
instance (SP.GObject o, O.IsDescendantOf DropAction o) => IsDropAction o
instance O.HasParentTypes DropAction
type instance O.ParentTypes DropAction = '[Clutter.Action.Action, Clutter.ActorMeta.ActorMeta, GObject.Object.Object]
toDropAction :: (MIO.MonadIO m, IsDropAction o) => o -> m DropAction
toDropAction :: forall (m :: * -> *) o.
(MonadIO m, IsDropAction o) =>
o -> m DropAction
toDropAction = IO DropAction -> m DropAction
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DropAction -> m DropAction)
-> (o -> IO DropAction) -> o -> m DropAction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DropAction -> DropAction) -> o -> IO DropAction
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DropAction -> DropAction
DropAction
instance B.GValue.IsGValue (Maybe DropAction) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_drop_action_get_type
gvalueSet_ :: Ptr GValue -> Maybe DropAction -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DropAction
P.Nothing = Ptr GValue -> Ptr DropAction -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DropAction
forall a. Ptr a
FP.nullPtr :: FP.Ptr DropAction)
gvalueSet_ Ptr GValue
gv (P.Just DropAction
obj) = DropAction -> (Ptr DropAction -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DropAction
obj (Ptr GValue -> Ptr DropAction -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DropAction)
gvalueGet_ Ptr GValue
gv = do
Ptr DropAction
ptr <- Ptr GValue -> IO (Ptr DropAction)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DropAction)
if Ptr DropAction
ptr Ptr DropAction -> Ptr DropAction -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DropAction
forall a. Ptr a
FP.nullPtr
then DropAction -> Maybe DropAction
forall a. a -> Maybe a
P.Just (DropAction -> Maybe DropAction)
-> IO DropAction -> IO (Maybe DropAction)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DropAction -> DropAction)
-> Ptr DropAction -> IO DropAction
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DropAction -> DropAction
DropAction Ptr DropAction
ptr
else Maybe DropAction -> IO (Maybe DropAction)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DropAction
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDropActionMethod (t :: Symbol) (o :: *) :: * where
ResolveDropActionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDropActionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDropActionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDropActionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDropActionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDropActionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDropActionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDropActionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDropActionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDropActionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDropActionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDropActionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDropActionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDropActionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDropActionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDropActionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDropActionMethod "getActor" o = Clutter.ActorMeta.ActorMetaGetActorMethodInfo
ResolveDropActionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDropActionMethod "getEnabled" o = Clutter.ActorMeta.ActorMetaGetEnabledMethodInfo
ResolveDropActionMethod "getName" o = Clutter.ActorMeta.ActorMetaGetNameMethodInfo
ResolveDropActionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDropActionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDropActionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDropActionMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDropActionMethod "setEnabled" o = Clutter.ActorMeta.ActorMetaSetEnabledMethodInfo
ResolveDropActionMethod "setName" o = Clutter.ActorMeta.ActorMetaSetNameMethodInfo
ResolveDropActionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDropActionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDropActionMethod t DropAction, O.OverloadedMethod info DropAction p) => OL.IsLabel t (DropAction -> 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 ~ ResolveDropActionMethod t DropAction, O.OverloadedMethod info DropAction p, R.HasField t DropAction p) => R.HasField t DropAction p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDropActionMethod t DropAction, O.OverloadedMethodInfo info DropAction) => OL.IsLabel t (O.MethodProxy info DropAction) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type DropActionCanDropCallback =
Clutter.Actor.Actor
-> Float
-> Float
-> IO Bool
type C_DropActionCanDropCallback =
Ptr DropAction ->
Ptr Clutter.Actor.Actor ->
CFloat ->
CFloat ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_DropActionCanDropCallback :: C_DropActionCanDropCallback -> IO (FunPtr C_DropActionCanDropCallback)
wrap_DropActionCanDropCallback ::
GObject a => (a -> DropActionCanDropCallback) ->
C_DropActionCanDropCallback
wrap_DropActionCanDropCallback :: forall a.
GObject a =>
(a -> DropActionCanDropCallback) -> C_DropActionCanDropCallback
wrap_DropActionCanDropCallback a -> DropActionCanDropCallback
gi'cb Ptr DropAction
gi'selfPtr Ptr Actor
actor CFloat
eventX CFloat
eventY Ptr ()
_ = do
Actor
actor' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
actor
let eventX' :: Float
eventX' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
eventX
let eventY' :: Float
eventY' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
eventY
Bool
result <- Ptr DropAction -> (DropAction -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr DropAction
gi'selfPtr ((DropAction -> IO Bool) -> IO Bool)
-> (DropAction -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \DropAction
gi'self -> a -> DropActionCanDropCallback
gi'cb (DropAction -> a
forall a b. Coercible a b => a -> b
Coerce.coerce DropAction
gi'self) Actor
actor' Float
eventX' Float
eventY'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onDropActionCanDrop :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionCanDropCallback) -> m SignalHandlerId
onDropActionCanDrop :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionCanDropCallback) -> m SignalHandlerId
onDropActionCanDrop a
obj (?self::a) => DropActionCanDropCallback
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 -> DropActionCanDropCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionCanDropCallback
DropActionCanDropCallback
cb
let wrapped' :: C_DropActionCanDropCallback
wrapped' = (a -> DropActionCanDropCallback) -> C_DropActionCanDropCallback
forall a.
GObject a =>
(a -> DropActionCanDropCallback) -> C_DropActionCanDropCallback
wrap_DropActionCanDropCallback a -> DropActionCanDropCallback
wrapped
FunPtr C_DropActionCanDropCallback
wrapped'' <- C_DropActionCanDropCallback
-> IO (FunPtr C_DropActionCanDropCallback)
mk_DropActionCanDropCallback C_DropActionCanDropCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionCanDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"can-drop" FunPtr C_DropActionCanDropCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterDropActionCanDrop :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionCanDropCallback) -> m SignalHandlerId
afterDropActionCanDrop :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionCanDropCallback) -> m SignalHandlerId
afterDropActionCanDrop a
obj (?self::a) => DropActionCanDropCallback
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 -> DropActionCanDropCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionCanDropCallback
DropActionCanDropCallback
cb
let wrapped' :: C_DropActionCanDropCallback
wrapped' = (a -> DropActionCanDropCallback) -> C_DropActionCanDropCallback
forall a.
GObject a =>
(a -> DropActionCanDropCallback) -> C_DropActionCanDropCallback
wrap_DropActionCanDropCallback a -> DropActionCanDropCallback
wrapped
FunPtr C_DropActionCanDropCallback
wrapped'' <- C_DropActionCanDropCallback
-> IO (FunPtr C_DropActionCanDropCallback)
mk_DropActionCanDropCallback C_DropActionCanDropCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionCanDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"can-drop" FunPtr C_DropActionCanDropCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DropActionCanDropSignalInfo
instance SignalInfo DropActionCanDropSignalInfo where
type HaskellCallbackType DropActionCanDropSignalInfo = DropActionCanDropCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DropActionCanDropCallback cb
cb'' <- mk_DropActionCanDropCallback cb'
connectSignalFunPtr obj "can-drop" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.DropAction::can-drop"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-DropAction.html#g:signal:canDrop"})
#endif
type DropActionDropCallback =
Clutter.Actor.Actor
-> Float
-> Float
-> IO ()
type C_DropActionDropCallback =
Ptr DropAction ->
Ptr Clutter.Actor.Actor ->
CFloat ->
CFloat ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DropActionDropCallback :: C_DropActionDropCallback -> IO (FunPtr C_DropActionDropCallback)
wrap_DropActionDropCallback ::
GObject a => (a -> DropActionDropCallback) ->
C_DropActionDropCallback
wrap_DropActionDropCallback :: forall a.
GObject a =>
(a -> DropActionDropCallback) -> C_DropActionDropCallback
wrap_DropActionDropCallback a -> DropActionDropCallback
gi'cb Ptr DropAction
gi'selfPtr Ptr Actor
actor CFloat
eventX CFloat
eventY Ptr ()
_ = do
Actor
actor' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
actor
let eventX' :: Float
eventX' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
eventX
let eventY' :: Float
eventY' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
eventY
Ptr DropAction -> (DropAction -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr DropAction
gi'selfPtr ((DropAction -> IO ()) -> IO ()) -> (DropAction -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \DropAction
gi'self -> a -> DropActionDropCallback
gi'cb (DropAction -> a
forall a b. Coercible a b => a -> b
Coerce.coerce DropAction
gi'self) Actor
actor' Float
eventX' Float
eventY'
onDropActionDrop :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionDropCallback) -> m SignalHandlerId
onDropActionDrop :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionDropCallback) -> m SignalHandlerId
onDropActionDrop a
obj (?self::a) => DropActionDropCallback
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 -> DropActionDropCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionDropCallback
DropActionDropCallback
cb
let wrapped' :: C_DropActionDropCallback
wrapped' = (a -> DropActionDropCallback) -> C_DropActionDropCallback
forall a.
GObject a =>
(a -> DropActionDropCallback) -> C_DropActionDropCallback
wrap_DropActionDropCallback a -> DropActionDropCallback
wrapped
FunPtr C_DropActionDropCallback
wrapped'' <- C_DropActionDropCallback -> IO (FunPtr C_DropActionDropCallback)
mk_DropActionDropCallback C_DropActionDropCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drop" FunPtr C_DropActionDropCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterDropActionDrop :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionDropCallback) -> m SignalHandlerId
afterDropActionDrop :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionDropCallback) -> m SignalHandlerId
afterDropActionDrop a
obj (?self::a) => DropActionDropCallback
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 -> DropActionDropCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionDropCallback
DropActionDropCallback
cb
let wrapped' :: C_DropActionDropCallback
wrapped' = (a -> DropActionDropCallback) -> C_DropActionDropCallback
forall a.
GObject a =>
(a -> DropActionDropCallback) -> C_DropActionDropCallback
wrap_DropActionDropCallback a -> DropActionDropCallback
wrapped
FunPtr C_DropActionDropCallback
wrapped'' <- C_DropActionDropCallback -> IO (FunPtr C_DropActionDropCallback)
mk_DropActionDropCallback C_DropActionDropCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drop" FunPtr C_DropActionDropCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DropActionDropSignalInfo
instance SignalInfo DropActionDropSignalInfo where
type HaskellCallbackType DropActionDropSignalInfo = DropActionDropCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DropActionDropCallback cb
cb'' <- mk_DropActionDropCallback cb'
connectSignalFunPtr obj "drop" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.DropAction::drop"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-DropAction.html#g:signal:drop"})
#endif
type DropActionDropCancelCallback =
Clutter.Actor.Actor
-> Float
-> Float
-> IO ()
type C_DropActionDropCancelCallback =
Ptr DropAction ->
Ptr Clutter.Actor.Actor ->
CFloat ->
CFloat ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DropActionDropCancelCallback :: C_DropActionDropCancelCallback -> IO (FunPtr C_DropActionDropCancelCallback)
wrap_DropActionDropCancelCallback ::
GObject a => (a -> DropActionDropCancelCallback) ->
C_DropActionDropCancelCallback
wrap_DropActionDropCancelCallback :: forall a.
GObject a =>
(a -> DropActionDropCallback) -> C_DropActionDropCallback
wrap_DropActionDropCancelCallback a -> DropActionDropCallback
gi'cb Ptr DropAction
gi'selfPtr Ptr Actor
actor CFloat
eventX CFloat
eventY Ptr ()
_ = do
Actor
actor' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
actor
let eventX' :: Float
eventX' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
eventX
let eventY' :: Float
eventY' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
eventY
Ptr DropAction -> (DropAction -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr DropAction
gi'selfPtr ((DropAction -> IO ()) -> IO ()) -> (DropAction -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \DropAction
gi'self -> a -> DropActionDropCallback
gi'cb (DropAction -> a
forall a b. Coercible a b => a -> b
Coerce.coerce DropAction
gi'self) Actor
actor' Float
eventX' Float
eventY'
onDropActionDropCancel :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionDropCancelCallback) -> m SignalHandlerId
onDropActionDropCancel :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionDropCallback) -> m SignalHandlerId
onDropActionDropCancel a
obj (?self::a) => DropActionDropCallback
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 -> DropActionDropCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionDropCallback
DropActionDropCallback
cb
let wrapped' :: C_DropActionDropCallback
wrapped' = (a -> DropActionDropCallback) -> C_DropActionDropCallback
forall a.
GObject a =>
(a -> DropActionDropCallback) -> C_DropActionDropCallback
wrap_DropActionDropCancelCallback a -> DropActionDropCallback
wrapped
FunPtr C_DropActionDropCallback
wrapped'' <- C_DropActionDropCallback -> IO (FunPtr C_DropActionDropCallback)
mk_DropActionDropCancelCallback C_DropActionDropCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drop-cancel" FunPtr C_DropActionDropCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterDropActionDropCancel :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionDropCancelCallback) -> m SignalHandlerId
afterDropActionDropCancel :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionDropCallback) -> m SignalHandlerId
afterDropActionDropCancel a
obj (?self::a) => DropActionDropCallback
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 -> DropActionDropCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionDropCallback
DropActionDropCallback
cb
let wrapped' :: C_DropActionDropCallback
wrapped' = (a -> DropActionDropCallback) -> C_DropActionDropCallback
forall a.
GObject a =>
(a -> DropActionDropCallback) -> C_DropActionDropCallback
wrap_DropActionDropCancelCallback a -> DropActionDropCallback
wrapped
FunPtr C_DropActionDropCallback
wrapped'' <- C_DropActionDropCallback -> IO (FunPtr C_DropActionDropCallback)
mk_DropActionDropCancelCallback C_DropActionDropCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"drop-cancel" FunPtr C_DropActionDropCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DropActionDropCancelSignalInfo
instance SignalInfo DropActionDropCancelSignalInfo where
type HaskellCallbackType DropActionDropCancelSignalInfo = DropActionDropCancelCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DropActionDropCancelCallback cb
cb'' <- mk_DropActionDropCancelCallback cb'
connectSignalFunPtr obj "drop-cancel" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.DropAction::drop-cancel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-DropAction.html#g:signal:dropCancel"})
#endif
type DropActionOverInCallback =
Clutter.Actor.Actor
-> IO ()
type C_DropActionOverInCallback =
Ptr DropAction ->
Ptr Clutter.Actor.Actor ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DropActionOverInCallback :: C_DropActionOverInCallback -> IO (FunPtr C_DropActionOverInCallback)
wrap_DropActionOverInCallback ::
GObject a => (a -> DropActionOverInCallback) ->
C_DropActionOverInCallback
wrap_DropActionOverInCallback :: forall a.
GObject a =>
(a -> DropActionOverInCallback) -> C_DropActionOverInCallback
wrap_DropActionOverInCallback a -> DropActionOverInCallback
gi'cb Ptr DropAction
gi'selfPtr Ptr Actor
actor Ptr ()
_ = do
Actor
actor' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
actor
Ptr DropAction -> (DropAction -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr DropAction
gi'selfPtr ((DropAction -> IO ()) -> IO ()) -> (DropAction -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \DropAction
gi'self -> a -> DropActionOverInCallback
gi'cb (DropAction -> a
forall a b. Coercible a b => a -> b
Coerce.coerce DropAction
gi'self) Actor
actor'
onDropActionOverIn :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionOverInCallback) -> m SignalHandlerId
onDropActionOverIn :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionOverInCallback) -> m SignalHandlerId
onDropActionOverIn a
obj (?self::a) => DropActionOverInCallback
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 -> DropActionOverInCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionOverInCallback
DropActionOverInCallback
cb
let wrapped' :: C_DropActionOverInCallback
wrapped' = (a -> DropActionOverInCallback) -> C_DropActionOverInCallback
forall a.
GObject a =>
(a -> DropActionOverInCallback) -> C_DropActionOverInCallback
wrap_DropActionOverInCallback a -> DropActionOverInCallback
wrapped
FunPtr C_DropActionOverInCallback
wrapped'' <- C_DropActionOverInCallback
-> IO (FunPtr C_DropActionOverInCallback)
mk_DropActionOverInCallback C_DropActionOverInCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionOverInCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"over-in" FunPtr C_DropActionOverInCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterDropActionOverIn :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionOverInCallback) -> m SignalHandlerId
afterDropActionOverIn :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionOverInCallback) -> m SignalHandlerId
afterDropActionOverIn a
obj (?self::a) => DropActionOverInCallback
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 -> DropActionOverInCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionOverInCallback
DropActionOverInCallback
cb
let wrapped' :: C_DropActionOverInCallback
wrapped' = (a -> DropActionOverInCallback) -> C_DropActionOverInCallback
forall a.
GObject a =>
(a -> DropActionOverInCallback) -> C_DropActionOverInCallback
wrap_DropActionOverInCallback a -> DropActionOverInCallback
wrapped
FunPtr C_DropActionOverInCallback
wrapped'' <- C_DropActionOverInCallback
-> IO (FunPtr C_DropActionOverInCallback)
mk_DropActionOverInCallback C_DropActionOverInCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionOverInCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"over-in" FunPtr C_DropActionOverInCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DropActionOverInSignalInfo
instance SignalInfo DropActionOverInSignalInfo where
type HaskellCallbackType DropActionOverInSignalInfo = DropActionOverInCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DropActionOverInCallback cb
cb'' <- mk_DropActionOverInCallback cb'
connectSignalFunPtr obj "over-in" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.DropAction::over-in"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-DropAction.html#g:signal:overIn"})
#endif
type DropActionOverOutCallback =
Clutter.Actor.Actor
-> IO ()
type C_DropActionOverOutCallback =
Ptr DropAction ->
Ptr Clutter.Actor.Actor ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DropActionOverOutCallback :: C_DropActionOverOutCallback -> IO (FunPtr C_DropActionOverOutCallback)
wrap_DropActionOverOutCallback ::
GObject a => (a -> DropActionOverOutCallback) ->
C_DropActionOverOutCallback
wrap_DropActionOverOutCallback :: forall a.
GObject a =>
(a -> DropActionOverInCallback) -> C_DropActionOverInCallback
wrap_DropActionOverOutCallback a -> DropActionOverInCallback
gi'cb Ptr DropAction
gi'selfPtr Ptr Actor
actor Ptr ()
_ = do
Actor
actor' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
actor
Ptr DropAction -> (DropAction -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr DropAction
gi'selfPtr ((DropAction -> IO ()) -> IO ()) -> (DropAction -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \DropAction
gi'self -> a -> DropActionOverInCallback
gi'cb (DropAction -> a
forall a b. Coercible a b => a -> b
Coerce.coerce DropAction
gi'self) Actor
actor'
onDropActionOverOut :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionOverOutCallback) -> m SignalHandlerId
onDropActionOverOut :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionOverInCallback) -> m SignalHandlerId
onDropActionOverOut a
obj (?self::a) => DropActionOverInCallback
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 -> DropActionOverInCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionOverInCallback
DropActionOverInCallback
cb
let wrapped' :: C_DropActionOverInCallback
wrapped' = (a -> DropActionOverInCallback) -> C_DropActionOverInCallback
forall a.
GObject a =>
(a -> DropActionOverInCallback) -> C_DropActionOverInCallback
wrap_DropActionOverOutCallback a -> DropActionOverInCallback
wrapped
FunPtr C_DropActionOverInCallback
wrapped'' <- C_DropActionOverInCallback
-> IO (FunPtr C_DropActionOverInCallback)
mk_DropActionOverOutCallback C_DropActionOverInCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionOverInCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"over-out" FunPtr C_DropActionOverInCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterDropActionOverOut :: (IsDropAction a, MonadIO m) => a -> ((?self :: a) => DropActionOverOutCallback) -> m SignalHandlerId
afterDropActionOverOut :: forall a (m :: * -> *).
(IsDropAction a, MonadIO m) =>
a -> ((?self::a) => DropActionOverInCallback) -> m SignalHandlerId
afterDropActionOverOut a
obj (?self::a) => DropActionOverInCallback
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 -> DropActionOverInCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DropActionOverInCallback
DropActionOverInCallback
cb
let wrapped' :: C_DropActionOverInCallback
wrapped' = (a -> DropActionOverInCallback) -> C_DropActionOverInCallback
forall a.
GObject a =>
(a -> DropActionOverInCallback) -> C_DropActionOverInCallback
wrap_DropActionOverOutCallback a -> DropActionOverInCallback
wrapped
FunPtr C_DropActionOverInCallback
wrapped'' <- C_DropActionOverInCallback
-> IO (FunPtr C_DropActionOverInCallback)
mk_DropActionOverOutCallback C_DropActionOverInCallback
wrapped'
a
-> Text
-> FunPtr C_DropActionOverInCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"over-out" FunPtr C_DropActionOverInCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DropActionOverOutSignalInfo
instance SignalInfo DropActionOverOutSignalInfo where
type HaskellCallbackType DropActionOverOutSignalInfo = DropActionOverOutCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DropActionOverOutCallback cb
cb'' <- mk_DropActionOverOutCallback cb'
connectSignalFunPtr obj "over-out" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.DropAction::over-out"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-DropAction.html#g:signal:overOut"})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DropAction
type instance O.AttributeList DropAction = DropActionAttributeList
type DropActionAttributeList = ('[ '("actor", Clutter.ActorMeta.ActorMetaActorPropertyInfo), '("enabled", Clutter.ActorMeta.ActorMetaEnabledPropertyInfo), '("name", Clutter.ActorMeta.ActorMetaNamePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DropAction = DropActionSignalList
type DropActionSignalList = ('[ '("canDrop", DropActionCanDropSignalInfo), '("drop", DropActionDropSignalInfo), '("dropCancel", DropActionDropCancelSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("overIn", DropActionOverInSignalInfo), '("overOut", DropActionOverOutSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "clutter_drop_action_new" clutter_drop_action_new ::
IO (Ptr DropAction)
dropActionNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m DropAction
dropActionNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m DropAction
dropActionNew = IO DropAction -> m DropAction
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DropAction -> m DropAction) -> IO DropAction -> m DropAction
forall a b. (a -> b) -> a -> b
$ do
Ptr DropAction
result <- IO (Ptr DropAction)
clutter_drop_action_new
Text -> Ptr DropAction -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dropActionNew" Ptr DropAction
result
DropAction
result' <- ((ManagedPtr DropAction -> DropAction)
-> Ptr DropAction -> IO DropAction
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DropAction -> DropAction
DropAction) Ptr DropAction
result
DropAction -> IO DropAction
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DropAction
result'
#if defined(ENABLE_OVERLOADING)
#endif