QValidator.hs

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

{-# LANGUAGE NoMonomorphismRestriction #-}

module Graphics.UI.Qtah.Gui.QValidator (
  QValidatorValue (..),
  QValidatorConstPtr (..),
  QValidatorPtr (..),
  QValidatorConst,
  QValidator,
  castConst,
  cast,
  downCastConst,
  downCast,
  emitChanged,
  fixup,
  validate,
  changedSignal,
  QValidatorState (..),
  ) where

import qualified Foreign.Hoppy.Runtime as QtahFHR
import Graphics.UI.Qtah.Generated.Gui.QValidator
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 = toQValidatorConst
cast = toQValidator
downCastConst = downToQValidatorConst
downCast = downToQValidator

changedSignal :: (QValidatorPtr object) => QtahSignal.Signal object (HoppyP.IO ())
changedSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listener_new object' "2changed()" fn'
    valid' <- listener_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QValidator::changed (Listener)"
  }