QComboBox.hs

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

{-# LANGUAGE NoMonomorphismRestriction #-}

module Graphics.UI.Qtah.Widgets.QComboBox (
  QComboBoxValue (..),
  QComboBoxConstPtr (..),
  QComboBoxPtr (..),
  QComboBoxConst,
  QComboBox,
  castConst,
  cast,
  downCastConst,
  downCast,
  new,
  newWithParent,
  addItem,
  addItemWithData,
  addItemWithIcon,
  addItemWithIconAndData,
  currentIndex,
  currentText,
  emitActivated,
  emitActivatedString,
  emitCurrentIndexChanged,
  emitCurrentIndexChangedString,
  setCurrentIndex,
  setCurrentText,
  activatedSignal,
  activatedStringSignal,
  currentIndexChangedSignal,
  currentIndexChangedStringSignal,
  ) where

import qualified Foreign.Hoppy.Runtime as QtahFHR
import Graphics.UI.Qtah.Generated.Widgets.QComboBox
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 = toQComboBoxConst
cast = toQComboBox
downCastConst = downToQComboBoxConst
downCast = downToQComboBox

activatedSignal :: (QComboBoxPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ())
activatedSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerInt_new object' "2activated(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 = "QComboBox::activated (ListenerInt)"
  }

activatedStringSignal :: (QComboBoxPtr object) => QtahSignal.Signal object (QtahP.String -> HoppyP.IO ())
activatedStringSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerQString_new object' "2activated(QString)" fn'
    valid' <- listenerQString_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QComboBox::activated (ListenerQString)"
  }

currentIndexChangedSignal :: (QComboBoxPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ())
currentIndexChangedSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerInt_new object' "2currentIndexChanged(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 = "QComboBox::currentIndexChanged (ListenerInt)"
  }

currentIndexChangedStringSignal :: (QComboBoxPtr object) => QtahSignal.Signal object (QtahP.String -> HoppyP.IO ())
currentIndexChangedStringSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerQString_new object' "2currentIndexChanged(QString)" fn'
    valid' <- listenerQString_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QComboBox::currentIndexChanged (ListenerQString)"
  }