qtah-qt5-0.8.0: src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsSceneMouseEvent.hs
{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
---------- GENERATED FILE, EDITS WILL BE LOST ----------
module Graphics.UI.Qtah.Generated.Widgets.QGraphicsSceneMouseEvent (
castQGraphicsSceneMouseEventToQGraphicsSceneEvent,
castQGraphicsSceneEventToQGraphicsSceneMouseEvent,
castQGraphicsSceneMouseEventToQEvent,
castQEventToQGraphicsSceneMouseEvent,
QGraphicsSceneMouseEventValue (..),
QGraphicsSceneMouseEventConstPtr (..),
button,
buttonDownPos,
buttonDownScenePos,
buttonDownScreenPos,
buttons,
flags,
lastPos,
lastScenePos,
lastScreenPos,
modifiers,
pos,
scenePos,
screenPos,
source,
QGraphicsSceneMouseEventPtr (..),
QGraphicsSceneMouseEventConst (..),
castQGraphicsSceneMouseEventToConst,
QGraphicsSceneMouseEvent (..),
castQGraphicsSceneMouseEventToNonconst,
QGraphicsSceneMouseEventSuper (..),
QGraphicsSceneMouseEventSuperConst (..),
) where
import qualified Foreign as HoppyF
import qualified Foreign.C as HoppyFC
import qualified Foreign.Hoppy.Runtime as HoppyFHR
import qualified Graphics.UI.Qtah.Core.HPoint as HPoint
import qualified Graphics.UI.Qtah.Core.HPointF as HPointF
import qualified Graphics.UI.Qtah.Flags as QtahFlags
import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34
import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114
import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116
import qualified Graphics.UI.Qtah.Generated.Core.Types as M190
import qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsSceneEvent as M414
import Prelude (($), (.), (=<<), (==), (>>=))
import qualified Prelude as HoppyP
import qualified Prelude as QtahP
foreign import ccall "genpop__QGraphicsSceneMouseEvent_button" button' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QGraphicsSceneMouseEvent_buttonDownPos" buttonDownPos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_buttonDownScenePos" buttonDownScenePos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_buttonDownScreenPos" buttonDownScreenPos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_buttons" buttons' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QGraphicsSceneMouseEvent_flags" flags' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QGraphicsSceneMouseEvent_lastPos" lastPos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_lastScenePos" lastScenePos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_lastScreenPos" lastScreenPos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_modifiers" modifiers' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QGraphicsSceneMouseEvent_pos" pos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_scenePos" scenePos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_screenPos" screenPos' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)
foreign import ccall "genpop__QGraphicsSceneMouseEvent_source" source' :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "gencast__QGraphicsSceneMouseEvent__QGraphicsSceneEvent" castQGraphicsSceneMouseEventToQGraphicsSceneEvent :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyF.Ptr M414.QGraphicsSceneEventConst
foreign import ccall "gencast__QGraphicsSceneEvent__QGraphicsSceneMouseEvent" castQGraphicsSceneEventToQGraphicsSceneMouseEvent :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr QGraphicsSceneMouseEventConst
foreign import ccall "gencast__QGraphicsSceneMouseEvent__QEvent" castQGraphicsSceneMouseEventToQEvent :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyF.Ptr M34.QEventConst
foreign import ccall "gencast__QEvent__QGraphicsSceneMouseEvent" castQEventToQGraphicsSceneMouseEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QGraphicsSceneMouseEventConst
foreign import ccall "gendel__QGraphicsSceneMouseEvent" delete'QGraphicsSceneMouseEvent :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO ()
foreign import ccall "&gendel__QGraphicsSceneMouseEvent" deletePtr'QGraphicsSceneMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO ())
class QGraphicsSceneMouseEventValue a where
withQGraphicsSceneMouseEventPtr :: a -> (QGraphicsSceneMouseEventConst -> HoppyP.IO b) -> HoppyP.IO b
instance {-# OVERLAPPABLE #-} QGraphicsSceneMouseEventConstPtr a => QGraphicsSceneMouseEventValue a where
withQGraphicsSceneMouseEventPtr = HoppyP.flip ($) . toQGraphicsSceneMouseEventConst
class (M414.QGraphicsSceneEventConstPtr this) => QGraphicsSceneMouseEventConstPtr this where
toQGraphicsSceneMouseEventConst :: this -> QGraphicsSceneMouseEventConst
button :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButton)
button arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.toCppEnum
) =<<
(button' arg'1')
buttonDownPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (M190.QtMouseButton) -> (HoppyP.IO HPointF.HPointF)
buttonDownPos arg'1 arg'2 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.fromCppEnum
) arg'2 >>= \arg'2' ->
(HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<
(buttonDownPos' arg'1' arg'2')
buttonDownScenePos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (M190.QtMouseButton) -> (HoppyP.IO HPointF.HPointF)
buttonDownScenePos arg'1 arg'2 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.fromCppEnum
) arg'2 >>= \arg'2' ->
(HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<
(buttonDownScenePos' arg'1' arg'2')
buttonDownScreenPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (M190.QtMouseButton) -> (HoppyP.IO HPoint.HPoint)
buttonDownScreenPos arg'1 arg'2 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.fromCppEnum
) arg'2 >>= \arg'2' ->
(HoppyFHR.decodeAndDelete . M114.QPointConst) =<<
(buttonDownScreenPos' arg'1' arg'2')
buttons :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButtons)
buttons arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
QtahP.return . QtahFlags.numToFlags
) =<<
(buttons' arg'1')
flags :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseEventFlags)
flags arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
QtahP.return . QtahFlags.numToFlags
) =<<
(flags' arg'1')
lastPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)
lastPos arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<
(lastPos' arg'1')
lastScenePos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)
lastScenePos arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<
(lastScenePos' arg'1')
lastScreenPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)
lastScreenPos arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(HoppyFHR.decodeAndDelete . M114.QPointConst) =<<
(lastScreenPos' arg'1')
modifiers :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtKeyboardModifiers)
modifiers arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
QtahP.return . QtahFlags.numToFlags
) =<<
(modifiers' arg'1')
pos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)
pos arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<
(pos' arg'1')
scenePos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)
scenePos arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<
(scenePos' arg'1')
screenPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)
screenPos arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(HoppyFHR.decodeAndDelete . M114.QPointConst) =<<
(screenPos' arg'1')
source :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseEventSource)
source arg'1 =
withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
(
HoppyP.return . HoppyFHR.toCppEnum
) =<<
(source' arg'1')
class (QGraphicsSceneMouseEventConstPtr this, M414.QGraphicsSceneEventPtr this) => QGraphicsSceneMouseEventPtr this where
toQGraphicsSceneMouseEvent :: this -> QGraphicsSceneMouseEvent
data QGraphicsSceneMouseEventConst =
QGraphicsSceneMouseEventConst (HoppyF.Ptr QGraphicsSceneMouseEventConst)
| QGraphicsSceneMouseEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneMouseEventConst)
deriving (HoppyP.Show)
instance HoppyP.Eq QGraphicsSceneMouseEventConst where
x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y
instance HoppyP.Ord QGraphicsSceneMouseEventConst where
compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)
castQGraphicsSceneMouseEventToConst :: QGraphicsSceneMouseEvent -> QGraphicsSceneMouseEventConst
castQGraphicsSceneMouseEventToConst (QGraphicsSceneMouseEvent ptr') = QGraphicsSceneMouseEventConst $ HoppyF.castPtr ptr'
castQGraphicsSceneMouseEventToConst (QGraphicsSceneMouseEventGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ HoppyF.castPtr ptr'
instance HoppyFHR.CppPtr QGraphicsSceneMouseEventConst where
nullptr = QGraphicsSceneMouseEventConst HoppyF.nullPtr
withCppPtr (QGraphicsSceneMouseEventConst ptr') f' = f' ptr'
withCppPtr (QGraphicsSceneMouseEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
toPtr (QGraphicsSceneMouseEventConst ptr') = ptr'
toPtr (QGraphicsSceneMouseEventConstGc _ ptr') = ptr'
touchCppPtr (QGraphicsSceneMouseEventConst _) = HoppyP.return ()
touchCppPtr (QGraphicsSceneMouseEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'
instance HoppyFHR.Deletable QGraphicsSceneMouseEventConst where
delete (QGraphicsSceneMouseEventConst ptr') = delete'QGraphicsSceneMouseEvent ptr'
delete (QGraphicsSceneMouseEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneMouseEventConst", " object."]
toGc this'@(QGraphicsSceneMouseEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneMouseEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsSceneMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
toGc this'@(QGraphicsSceneMouseEventConstGc {}) = HoppyP.return this'
instance QGraphicsSceneMouseEventConstPtr QGraphicsSceneMouseEventConst where
toQGraphicsSceneMouseEventConst = HoppyP.id
instance M414.QGraphicsSceneEventConstPtr QGraphicsSceneMouseEventConst where
toQGraphicsSceneEventConst (QGraphicsSceneMouseEventConst ptr') = M414.QGraphicsSceneEventConst $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent ptr'
toQGraphicsSceneEventConst (QGraphicsSceneMouseEventConstGc fptr' ptr') = M414.QGraphicsSceneEventConstGc fptr' $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent ptr'
instance M34.QEventConstPtr QGraphicsSceneMouseEventConst where
toQEventConst (QGraphicsSceneMouseEventConst ptr') = M34.QEventConst $ castQGraphicsSceneMouseEventToQEvent ptr'
toQEventConst (QGraphicsSceneMouseEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQGraphicsSceneMouseEventToQEvent ptr'
data QGraphicsSceneMouseEvent =
QGraphicsSceneMouseEvent (HoppyF.Ptr QGraphicsSceneMouseEvent)
| QGraphicsSceneMouseEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneMouseEvent)
deriving (HoppyP.Show)
instance HoppyP.Eq QGraphicsSceneMouseEvent where
x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y
instance HoppyP.Ord QGraphicsSceneMouseEvent where
compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)
castQGraphicsSceneMouseEventToNonconst :: QGraphicsSceneMouseEventConst -> QGraphicsSceneMouseEvent
castQGraphicsSceneMouseEventToNonconst (QGraphicsSceneMouseEventConst ptr') = QGraphicsSceneMouseEvent $ HoppyF.castPtr ptr'
castQGraphicsSceneMouseEventToNonconst (QGraphicsSceneMouseEventConstGc fptr' ptr') = QGraphicsSceneMouseEventGc fptr' $ HoppyF.castPtr ptr'
instance HoppyFHR.CppPtr QGraphicsSceneMouseEvent where
nullptr = QGraphicsSceneMouseEvent HoppyF.nullPtr
withCppPtr (QGraphicsSceneMouseEvent ptr') f' = f' ptr'
withCppPtr (QGraphicsSceneMouseEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
toPtr (QGraphicsSceneMouseEvent ptr') = ptr'
toPtr (QGraphicsSceneMouseEventGc _ ptr') = ptr'
touchCppPtr (QGraphicsSceneMouseEvent _) = HoppyP.return ()
touchCppPtr (QGraphicsSceneMouseEventGc fptr' _) = HoppyF.touchForeignPtr fptr'
instance HoppyFHR.Deletable QGraphicsSceneMouseEvent where
delete (QGraphicsSceneMouseEvent ptr') = delete'QGraphicsSceneMouseEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsSceneMouseEventConst)
delete (QGraphicsSceneMouseEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneMouseEvent", " object."]
toGc this'@(QGraphicsSceneMouseEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneMouseEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsSceneMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
toGc this'@(QGraphicsSceneMouseEventGc {}) = HoppyP.return this'
instance QGraphicsSceneMouseEventConstPtr QGraphicsSceneMouseEvent where
toQGraphicsSceneMouseEventConst (QGraphicsSceneMouseEvent ptr') = QGraphicsSceneMouseEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
toQGraphicsSceneMouseEventConst (QGraphicsSceneMouseEventGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
instance QGraphicsSceneMouseEventPtr QGraphicsSceneMouseEvent where
toQGraphicsSceneMouseEvent = HoppyP.id
instance M414.QGraphicsSceneEventConstPtr QGraphicsSceneMouseEvent where
toQGraphicsSceneEventConst (QGraphicsSceneMouseEvent ptr') = M414.QGraphicsSceneEventConst $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
toQGraphicsSceneEventConst (QGraphicsSceneMouseEventGc fptr' ptr') = M414.QGraphicsSceneEventConstGc fptr' $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
instance M414.QGraphicsSceneEventPtr QGraphicsSceneMouseEvent where
toQGraphicsSceneEvent (QGraphicsSceneMouseEvent ptr') = M414.QGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr M414.QGraphicsSceneEvent) $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
toQGraphicsSceneEvent (QGraphicsSceneMouseEventGc fptr' ptr') = M414.QGraphicsSceneEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr M414.QGraphicsSceneEvent) $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
instance M34.QEventConstPtr QGraphicsSceneMouseEvent where
toQEventConst (QGraphicsSceneMouseEvent ptr') = M34.QEventConst $ castQGraphicsSceneMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
toQEventConst (QGraphicsSceneMouseEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQGraphicsSceneMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
instance M34.QEventPtr QGraphicsSceneMouseEvent where
toQEvent (QGraphicsSceneMouseEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQGraphicsSceneMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
toQEvent (QGraphicsSceneMouseEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQGraphicsSceneMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'
class QGraphicsSceneMouseEventSuper a where
downToQGraphicsSceneMouseEvent :: a -> QGraphicsSceneMouseEvent
instance QGraphicsSceneMouseEventSuper M414.QGraphicsSceneEvent where
downToQGraphicsSceneMouseEvent = castQGraphicsSceneMouseEventToNonconst . cast' . M414.castQGraphicsSceneEventToConst
where
cast' (M414.QGraphicsSceneEventConst ptr') = QGraphicsSceneMouseEventConst $ castQGraphicsSceneEventToQGraphicsSceneMouseEvent ptr'
cast' (M414.QGraphicsSceneEventConstGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ castQGraphicsSceneEventToQGraphicsSceneMouseEvent ptr'
instance QGraphicsSceneMouseEventSuper M34.QEvent where
downToQGraphicsSceneMouseEvent = castQGraphicsSceneMouseEventToNonconst . cast' . M34.castQEventToConst
where
cast' (M34.QEventConst ptr') = QGraphicsSceneMouseEventConst $ castQEventToQGraphicsSceneMouseEvent ptr'
cast' (M34.QEventConstGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ castQEventToQGraphicsSceneMouseEvent ptr'
class QGraphicsSceneMouseEventSuperConst a where
downToQGraphicsSceneMouseEventConst :: a -> QGraphicsSceneMouseEventConst
instance QGraphicsSceneMouseEventSuperConst M414.QGraphicsSceneEventConst where
downToQGraphicsSceneMouseEventConst = cast'
where
cast' (M414.QGraphicsSceneEventConst ptr') = QGraphicsSceneMouseEventConst $ castQGraphicsSceneEventToQGraphicsSceneMouseEvent ptr'
cast' (M414.QGraphicsSceneEventConstGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ castQGraphicsSceneEventToQGraphicsSceneMouseEvent ptr'
instance QGraphicsSceneMouseEventSuperConst M34.QEventConst where
downToQGraphicsSceneMouseEventConst = cast'
where
cast' (M34.QEventConst ptr') = QGraphicsSceneMouseEventConst $ castQEventToQGraphicsSceneMouseEvent ptr'
cast' (M34.QEventConstGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ castQEventToQGraphicsSceneMouseEvent ptr'
instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsSceneMouseEvent)) QGraphicsSceneMouseEvent where
assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'
instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsSceneMouseEvent)) QGraphicsSceneMouseEvent where
decode = HoppyP.fmap QGraphicsSceneMouseEvent . HoppyF.peek