{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-} ---------- GENERATED FILE, EDITS WILL BE LOST ---------- {-# LANGUAGE NoMonomorphismRestriction #-} module Graphics.UI.Qtah.Widgets.QButtonGroup ( QButtonGroupValue (..), QButtonGroupConstPtr (..), QButtonGroupPtr (..), QButtonGroupConst, QButtonGroup, castConst, cast, downCastConst, downCast, new, newWithParent, addButton, addButtonWithId, button, buttons, checkedButton, checkedId, emitButtonClicked, emitButtonClickedId, emitButtonPressed, emitButtonPressedId, emitButtonReleased, emitButtonReleasedId, emitButtonToggled, emitButtonToggledId, exclusive, id, removeButton, setExclusive, setId, buttonClickedSignal, buttonClickedIdSignal, buttonPressedSignal, buttonPressedIdSignal, buttonReleasedSignal, buttonReleasedIdSignal, buttonToggledSignal, buttonToggledIdSignal, ) where import qualified Foreign.Hoppy.Runtime as QtahFHR import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractButton as M354 import Graphics.UI.Qtah.Generated.Widgets.QButtonGroup 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 = toQButtonGroupConst cast = toQButtonGroup downCastConst = downToQButtonGroupConst downCast = downToQButtonGroup buttonClickedSignal :: (QButtonGroupPtr object) => QtahSignal.Signal object (M354.QAbstractButton -> HoppyP.IO ()) buttonClickedSignal = QtahSignal.Signal { QtahSignal.internalConnectSignal = \object' fn' -> do listener' <- listenerPtrQAbstractButton_new object' "2buttonClicked(QAbstractButton*)" fn' valid' <- listenerPtrQAbstractButton_isValid listener' if valid' then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener' else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing , QtahSignal.internalName = "QButtonGroup::buttonClicked (ListenerPtrQAbstractButton)" } buttonClickedIdSignal :: (QButtonGroupPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ()) buttonClickedIdSignal = QtahSignal.Signal { QtahSignal.internalConnectSignal = \object' fn' -> do listener' <- listenerInt_new object' "2buttonClicked(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 = "QButtonGroup::buttonClicked (ListenerInt)" } buttonPressedSignal :: (QButtonGroupPtr object) => QtahSignal.Signal object (M354.QAbstractButton -> HoppyP.IO ()) buttonPressedSignal = QtahSignal.Signal { QtahSignal.internalConnectSignal = \object' fn' -> do listener' <- listenerPtrQAbstractButton_new object' "2buttonPressed(QAbstractButton*)" fn' valid' <- listenerPtrQAbstractButton_isValid listener' if valid' then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener' else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing , QtahSignal.internalName = "QButtonGroup::buttonPressed (ListenerPtrQAbstractButton)" } buttonPressedIdSignal :: (QButtonGroupPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ()) buttonPressedIdSignal = QtahSignal.Signal { QtahSignal.internalConnectSignal = \object' fn' -> do listener' <- listenerInt_new object' "2buttonPressed(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 = "QButtonGroup::buttonPressed (ListenerInt)" } buttonReleasedSignal :: (QButtonGroupPtr object) => QtahSignal.Signal object (M354.QAbstractButton -> HoppyP.IO ()) buttonReleasedSignal = QtahSignal.Signal { QtahSignal.internalConnectSignal = \object' fn' -> do listener' <- listenerPtrQAbstractButton_new object' "2buttonReleased(QAbstractButton*)" fn' valid' <- listenerPtrQAbstractButton_isValid listener' if valid' then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener' else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing , QtahSignal.internalName = "QButtonGroup::buttonReleased (ListenerPtrQAbstractButton)" } buttonReleasedIdSignal :: (QButtonGroupPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ()) buttonReleasedIdSignal = QtahSignal.Signal { QtahSignal.internalConnectSignal = \object' fn' -> do listener' <- listenerInt_new object' "2buttonReleased(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 = "QButtonGroup::buttonReleased (ListenerInt)" } buttonToggledSignal :: (QButtonGroupPtr object) => QtahSignal.Signal object (M354.QAbstractButton -> HoppyP.Bool -> HoppyP.IO ()) buttonToggledSignal = QtahSignal.Signal { QtahSignal.internalConnectSignal = \object' fn' -> do listener' <- listenerPtrQAbstractButtonBool_new object' "2buttonToggled(QAbstractButton*,bool)" fn' valid' <- listenerPtrQAbstractButtonBool_isValid listener' if valid' then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener' else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing , QtahSignal.internalName = "QButtonGroup::buttonToggled (ListenerPtrQAbstractButtonBool)" } buttonToggledIdSignal :: (QButtonGroupPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.Bool -> HoppyP.IO ()) buttonToggledIdSignal = QtahSignal.Signal { QtahSignal.internalConnectSignal = \object' fn' -> do listener' <- listenerIntBool_new object' "2buttonToggled(int,bool)" fn' valid' <- listenerIntBool_isValid listener' if valid' then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener' else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing , QtahSignal.internalName = "QButtonGroup::buttonToggled (ListenerIntBool)" }