qtah-qt5-0.8.0: src/Graphics/UI/Qtah/Core/QVariantAnimation.hs

{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
---------- GENERATED FILE, EDITS WILL BE LOST ----------

{-# LANGUAGE NoMonomorphismRestriction #-}

module Graphics.UI.Qtah.Core.QVariantAnimation (
  QVariantAnimationValue (..),
  QVariantAnimationConstPtr (..),
  QVariantAnimationPtr (..),
  QVariantAnimationConst,
  QVariantAnimation,
  castConst,
  cast,
  downCastConst,
  downCast,
  emitValueChanged,
  endValue,
  keyValueAt,
  setEndValue,
  setKeyValueAt,
  setStartValue,
  startValue,
  valueChangedSignal,
  ) where

import qualified Foreign.Hoppy.Runtime as QtahFHR
import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168
import Graphics.UI.Qtah.Generated.Core.QVariantAnimation
import Graphics.UI.Qtah.Internal.Listener
import qualified Graphics.UI.Qtah.Signal as QtahSignal
import Prelude (($), (>>))
import qualified Prelude as HoppyP
import qualified Prelude as QtahP


castConst = toQVariantAnimationConst
cast = toQVariantAnimation
downCastConst = downToQVariantAnimationConst
downCast = downToQVariantAnimation

valueChangedSignal :: (QVariantAnimationPtr object) => QtahSignal.Signal object (M168.QVariantConst -> HoppyP.IO ())
valueChangedSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerRefConstQVariant_new object' "2valueChanged(QVariant const&)" fn'
    valid' <- listenerRefConstQVariant_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QVariantAnimation::valueChanged (ListenerRefConstQVariant)"
  }