QActionGroup.hs

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

{-# LANGUAGE NoMonomorphismRestriction #-}

module Graphics.UI.Qtah.Widgets.QActionGroup (
  QActionGroupValue (..),
  QActionGroupConstPtr (..),
  QActionGroupPtr (..),
  QActionGroupConst,
  QActionGroup,
  castConst,
  cast,
  downCastConst,
  downCast,
  new,
  addAction,
  addNewAction,
  addNewActionWithIcon,
  checkedAction,
  emitHovered,
  emitTriggered,
  isEnabled,
  isExclusive,
  isVisible,
  removeAction,
  setDisabled,
  setEnabled,
  setExclusive,
  setVisible,
  hoveredSignal,
  triggeredSignal,
  ) where

import qualified Foreign.Hoppy.Runtime as QtahFHR
import qualified Graphics.UI.Qtah.Generated.Widgets.QAction as M368
import Graphics.UI.Qtah.Generated.Widgets.QActionGroup
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 = toQActionGroupConst
cast = toQActionGroup
downCastConst = downToQActionGroupConst
downCast = downToQActionGroup

hoveredSignal :: (QActionGroupPtr object) => QtahSignal.Signal object (M368.QAction -> HoppyP.IO ())
hoveredSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerPtrQAction_new object' "2hovered(QAction*)" fn'
    valid' <- listenerPtrQAction_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QActionGroup::hovered (ListenerPtrQAction)"
  }

triggeredSignal :: (QActionGroupPtr object) => QtahSignal.Signal object (M368.QAction -> HoppyP.IO ())
triggeredSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerPtrQAction_new object' "2triggered(QAction*)" fn'
    valid' <- listenerPtrQAction_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QActionGroup::triggered (ListenerPtrQAction)"
  }