QStackedWidget.hs

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

{-# LANGUAGE NoMonomorphismRestriction #-}

module Graphics.UI.Qtah.Widgets.QStackedWidget (
  QStackedWidgetValue (..),
  QStackedWidgetConstPtr (..),
  QStackedWidgetPtr (..),
  QStackedWidgetConst,
  QStackedWidget,
  castConst,
  cast,
  downCastConst,
  downCast,
  new,
  newWithParent,
  addWidget,
  count,
  currentIndex,
  currentWidget,
  emitCurrentChanged,
  emitWidgetRemoved,
  indexOf,
  insertWidget,
  removeWidget,
  setCurrentIndex,
  setCurrentWidget,
  widget,
  currentChangedSignal,
  widgetRemovedSignal,
  ) where

import qualified Foreign.Hoppy.Runtime as QtahFHR
import Graphics.UI.Qtah.Generated.Widgets.QStackedWidget
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 = toQStackedWidgetConst
cast = toQStackedWidget
downCastConst = downToQStackedWidgetConst
downCast = downToQStackedWidget

currentChangedSignal :: (QStackedWidgetPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ())
currentChangedSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerInt_new object' "2currentChanged(int)" fn'
    valid' <- listenerInt_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QStackedWidget::currentChanged (ListenerInt)"
  }

widgetRemovedSignal :: (QStackedWidgetPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ())
widgetRemovedSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerInt_new object' "2widgetRemoved(int)" fn'
    valid' <- listenerInt_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QStackedWidget::widgetRemoved (ListenerInt)"
  }