{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, GeneralizedNewtypeDeriving, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
module Graphics.UI.Qtah.Core.QEvent (
QEventValue (..),
QEventConstPtr (..),
QEventPtr (..),
QEventConst,
QEvent,
castConst,
cast,
downCastConst,
downCast,
new,
accept,
eventType,
ignore,
isAccepted,
registerEventType,
registerEventTypeWithHint,
setAccepted,
spontaneous,
QEventType (..),
) where
import qualified Graphics.UI.Qtah.Event as QtahEvent
import Graphics.UI.Qtah.Generated.Core.QEvent
import qualified Graphics.UI.Qtah.SceneEvent as QtahSceneEvent
import Prelude (($))
castConst = toQEventConst
cast = toQEvent
downCastConst = downToQEventConst
downCast = downToQEvent
instance QtahEvent.Event QEvent where
onEvent receiver' handler' = QtahEvent.onAnyEvent receiver' $ \_ qevent' ->
handler' qevent'
instance QtahSceneEvent.SceneEvent QEvent where
onSceneEvent receiver' handler' = QtahSceneEvent.onAnySceneEvent receiver' $ \_ qevent' ->
handler' qevent'