{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, GeneralizedNewtypeDeriving, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
module Graphics.UI.Qtah.Core.QTimer (
QTimerValue (..),
QTimerConstPtr (..),
QTimerPtr (..),
QTimerConst,
QTimer,
castConst,
cast,
downCastConst,
downCast,
new,
interval,
isActive,
isSingleShot,
remainingTime,
setInterval,
setSingleShot,
start,
timerId,
timeoutSignal,
) where
import Graphics.UI.Qtah.Generated.Core.QTimer
import Graphics.UI.Qtah.Internal.Listener
import qualified Graphics.UI.Qtah.Signal as QtahSignal
import Prelude ()
import qualified Prelude as HoppyP
castConst = toQTimerConst
cast = toQTimer
downCastConst = downToQTimerConst
downCast = downToQTimer
timeoutSignal :: (QTimerPtr object) => QtahSignal.Signal object (HoppyP.IO ())
timeoutSignal = QtahSignal.Signal
{ QtahSignal.internalConnectSignal = \object' fn' -> do
listener' <- listener_new fn'
listener_connectListener listener' object' "2timeout()"
, QtahSignal.internalName = "QTimer::timeout (Listener)"
}