{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-} ---------- GENERATED FILE, EDITS WILL BE LOST ---------- module Graphics.UI.Qtah.Internal.Listener ( castListenerToQObject, castQObjectToListener, castListenerBoolToQObject, castQObjectToListenerBool, castListenerDirectionToQObject, castQObjectToListenerDirection, castListenerDockWidgetAreaToQObject, castQObjectToListenerDockWidgetArea, castListenerDockWidgetAreasToQObject, castQObjectToListenerDockWidgetAreas, castListenerDoubleToQObject, castQObjectToListenerDouble, castListenerIntToQObject, castQObjectToListenerInt, castListenerIntBoolToQObject, castQObjectToListenerIntBool, castListenerIntExitStatusToQObject, castQObjectToListenerIntExitStatus, castListenerIntIntToQObject, castQObjectToListenerIntInt, castListenerIntQlonglongToQObject, castQObjectToListenerIntQlonglong, castListenerOrientationToQObject, castQObjectToListenerOrientation, castListenerOrientationIntIntToQObject, castQObjectToListenerOrientationIntInt, castListenerProcessErrorToQObject, castQObjectToListenerProcessError, castListenerProcessStateToQObject, castQObjectToListenerProcessState, castListenerPtrQAbstractButtonToQObject, castQObjectToListenerPtrQAbstractButton, castListenerPtrQAbstractButtonBoolToQObject, castQObjectToListenerPtrQAbstractButtonBool, castListenerPtrQAbstractItemModelToQObject, castQObjectToListenerPtrQAbstractItemModel, castListenerPtrQActionToQObject, castQObjectToListenerPtrQAction, castListenerPtrQMdiSubWindowToQObject, castQObjectToListenerPtrQMdiSubWindow, castListenerPtrQObjectToQObject, castQObjectToListenerPtrQObject, castListenerPtrQTreeWidgetItemToQObject, castQObjectToListenerPtrQTreeWidgetItem, castListenerPtrQTreeWidgetItemIntToQObject, castQObjectToListenerPtrQTreeWidgetItemInt, castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToQObject, castQObjectToListenerPtrQTreeWidgetItemPtrQTreeWidgetItem, castListenerPtrQWidgetPtrQWidgetToQObject, castQObjectToListenerPtrQWidgetPtrQWidget, castListenerQAbstractAnimationToQObject, castQObjectToListenerQAbstractAnimation, castListenerQAbstractSliderActionToQObject, castQObjectToListenerQAbstractSliderAction, castListenerQClipboardModeToQObject, castQObjectToListenerQClipboardMode, castListenerQDateToQObject, castQObjectToListenerQDate, castListenerQDockWidgetFeaturesToQObject, castQObjectToListenerQDockWidgetFeatures, castListenerQModelIndexToQObject, castQObjectToListenerQModelIndex, castListenerQModelIndexIntIntToQObject, castQObjectToListenerQModelIndexIntInt, castListenerQModelIndexIntIntQModelIndexIntToQObject, castQObjectToListenerQModelIndexIntIntQModelIndexInt, castListenerQModelIndexQModelIndexToQObject, castQObjectToListenerQModelIndexQModelIndex, castListenerQModelIndexQModelIndexQVectorIntToQObject, castQObjectToListenerQModelIndexQModelIndexQVectorInt, castListenerQPointToQObject, castQObjectToListenerQPoint, castListenerQSizeToQObject, castQObjectToListenerQSize, castListenerQStringToQObject, castQObjectToListenerQString, castListenerQSystemTrayIconActivationReasonToQObject, castQObjectToListenerQSystemTrayIconActivationReason, castListenerQWindowVisibilityToQObject, castQObjectToListenerQWindowVisibility, castListenerQlonglongToQObject, castQObjectToListenerQlonglong, castListenerQrealToQObject, castQObjectToListenerQreal, castListenerRefConstQIconToQObject, castQObjectToListenerRefConstQIcon, castListenerRefConstQItemSelectionRefConstQItemSelectionToQObject, castQObjectToListenerRefConstQItemSelectionRefConstQItemSelection, castListenerRefConstQListQModelIndexToQObject, castQObjectToListenerRefConstQListQModelIndex, castListenerRefConstQModelIndexToQObject, castQObjectToListenerRefConstQModelIndex, castListenerRefConstQVariantToQObject, castQObjectToListenerRefConstQVariant, castListenerScreenOrientationToQObject, castQObjectToListenerScreenOrientation, castListenerStateStateToQObject, castQObjectToListenerStateState, castListenerToolBarAreasToQObject, castQObjectToListenerToolBarAreas, castListenerToolButtonStyleToQObject, castQObjectToListenerToolButtonStyle, castListenerWindowModalityToQObject, castQObjectToListenerWindowModality, castListenerWindowStateToQObject, castQObjectToListenerWindowState, castListenerWindowStatesWindowStatesToQObject, castQObjectToListenerWindowStatesWindowStates, ListenerValue (..), ListenerConstPtr (..), listener_isValid, ListenerPtr (..), ListenerConst (..), castListenerToConst, Listener (..), castListenerToNonconst, listener_new, ListenerSuper (..), ListenerSuperConst (..), ListenerBoolValue (..), ListenerBoolConstPtr (..), listenerBool_isValid, ListenerBoolPtr (..), ListenerBoolConst (..), castListenerBoolToConst, ListenerBool (..), castListenerBoolToNonconst, listenerBool_new, ListenerBoolSuper (..), ListenerBoolSuperConst (..), ListenerDirectionValue (..), ListenerDirectionConstPtr (..), listenerDirection_isValid, ListenerDirectionPtr (..), ListenerDirectionConst (..), castListenerDirectionToConst, ListenerDirection (..), castListenerDirectionToNonconst, listenerDirection_new, ListenerDirectionSuper (..), ListenerDirectionSuperConst (..), ListenerDockWidgetAreaValue (..), ListenerDockWidgetAreaConstPtr (..), listenerDockWidgetArea_isValid, ListenerDockWidgetAreaPtr (..), ListenerDockWidgetAreaConst (..), castListenerDockWidgetAreaToConst, ListenerDockWidgetArea (..), castListenerDockWidgetAreaToNonconst, listenerDockWidgetArea_new, ListenerDockWidgetAreaSuper (..), ListenerDockWidgetAreaSuperConst (..), ListenerDockWidgetAreasValue (..), ListenerDockWidgetAreasConstPtr (..), listenerDockWidgetAreas_isValid, ListenerDockWidgetAreasPtr (..), ListenerDockWidgetAreasConst (..), castListenerDockWidgetAreasToConst, ListenerDockWidgetAreas (..), castListenerDockWidgetAreasToNonconst, listenerDockWidgetAreas_new, ListenerDockWidgetAreasSuper (..), ListenerDockWidgetAreasSuperConst (..), ListenerDoubleValue (..), ListenerDoubleConstPtr (..), listenerDouble_isValid, ListenerDoublePtr (..), ListenerDoubleConst (..), castListenerDoubleToConst, ListenerDouble (..), castListenerDoubleToNonconst, listenerDouble_new, ListenerDoubleSuper (..), ListenerDoubleSuperConst (..), ListenerIntValue (..), ListenerIntConstPtr (..), listenerInt_isValid, ListenerIntPtr (..), ListenerIntConst (..), castListenerIntToConst, ListenerInt (..), castListenerIntToNonconst, listenerInt_new, ListenerIntSuper (..), ListenerIntSuperConst (..), ListenerIntBoolValue (..), ListenerIntBoolConstPtr (..), listenerIntBool_isValid, ListenerIntBoolPtr (..), ListenerIntBoolConst (..), castListenerIntBoolToConst, ListenerIntBool (..), castListenerIntBoolToNonconst, listenerIntBool_new, ListenerIntBoolSuper (..), ListenerIntBoolSuperConst (..), ListenerIntExitStatusValue (..), ListenerIntExitStatusConstPtr (..), listenerIntExitStatus_isValid, ListenerIntExitStatusPtr (..), ListenerIntExitStatusConst (..), castListenerIntExitStatusToConst, ListenerIntExitStatus (..), castListenerIntExitStatusToNonconst, listenerIntExitStatus_new, ListenerIntExitStatusSuper (..), ListenerIntExitStatusSuperConst (..), ListenerIntIntValue (..), ListenerIntIntConstPtr (..), listenerIntInt_isValid, ListenerIntIntPtr (..), ListenerIntIntConst (..), castListenerIntIntToConst, ListenerIntInt (..), castListenerIntIntToNonconst, listenerIntInt_new, ListenerIntIntSuper (..), ListenerIntIntSuperConst (..), ListenerIntQlonglongValue (..), ListenerIntQlonglongConstPtr (..), listenerIntQlonglong_isValid, ListenerIntQlonglongPtr (..), ListenerIntQlonglongConst (..), castListenerIntQlonglongToConst, ListenerIntQlonglong (..), castListenerIntQlonglongToNonconst, listenerIntQlonglong_new, ListenerIntQlonglongSuper (..), ListenerIntQlonglongSuperConst (..), ListenerOrientationValue (..), ListenerOrientationConstPtr (..), listenerOrientation_isValid, ListenerOrientationPtr (..), ListenerOrientationConst (..), castListenerOrientationToConst, ListenerOrientation (..), castListenerOrientationToNonconst, listenerOrientation_new, ListenerOrientationSuper (..), ListenerOrientationSuperConst (..), ListenerOrientationIntIntValue (..), ListenerOrientationIntIntConstPtr (..), listenerOrientationIntInt_isValid, ListenerOrientationIntIntPtr (..), ListenerOrientationIntIntConst (..), castListenerOrientationIntIntToConst, ListenerOrientationIntInt (..), castListenerOrientationIntIntToNonconst, listenerOrientationIntInt_new, ListenerOrientationIntIntSuper (..), ListenerOrientationIntIntSuperConst (..), ListenerProcessErrorValue (..), ListenerProcessErrorConstPtr (..), listenerProcessError_isValid, ListenerProcessErrorPtr (..), ListenerProcessErrorConst (..), castListenerProcessErrorToConst, ListenerProcessError (..), castListenerProcessErrorToNonconst, listenerProcessError_new, ListenerProcessErrorSuper (..), ListenerProcessErrorSuperConst (..), ListenerProcessStateValue (..), ListenerProcessStateConstPtr (..), listenerProcessState_isValid, ListenerProcessStatePtr (..), ListenerProcessStateConst (..), castListenerProcessStateToConst, ListenerProcessState (..), castListenerProcessStateToNonconst, listenerProcessState_new, ListenerProcessStateSuper (..), ListenerProcessStateSuperConst (..), ListenerPtrQAbstractButtonValue (..), ListenerPtrQAbstractButtonConstPtr (..), listenerPtrQAbstractButton_isValid, ListenerPtrQAbstractButtonPtr (..), ListenerPtrQAbstractButtonConst (..), castListenerPtrQAbstractButtonToConst, ListenerPtrQAbstractButton (..), castListenerPtrQAbstractButtonToNonconst, listenerPtrQAbstractButton_new, ListenerPtrQAbstractButtonSuper (..), ListenerPtrQAbstractButtonSuperConst (..), ListenerPtrQAbstractButtonBoolValue (..), ListenerPtrQAbstractButtonBoolConstPtr (..), listenerPtrQAbstractButtonBool_isValid, ListenerPtrQAbstractButtonBoolPtr (..), ListenerPtrQAbstractButtonBoolConst (..), castListenerPtrQAbstractButtonBoolToConst, ListenerPtrQAbstractButtonBool (..), castListenerPtrQAbstractButtonBoolToNonconst, listenerPtrQAbstractButtonBool_new, ListenerPtrQAbstractButtonBoolSuper (..), ListenerPtrQAbstractButtonBoolSuperConst (..), ListenerPtrQAbstractItemModelValue (..), ListenerPtrQAbstractItemModelConstPtr (..), listenerPtrQAbstractItemModel_isValid, ListenerPtrQAbstractItemModelPtr (..), ListenerPtrQAbstractItemModelConst (..), castListenerPtrQAbstractItemModelToConst, ListenerPtrQAbstractItemModel (..), castListenerPtrQAbstractItemModelToNonconst, listenerPtrQAbstractItemModel_new, ListenerPtrQAbstractItemModelSuper (..), ListenerPtrQAbstractItemModelSuperConst (..), ListenerPtrQActionValue (..), ListenerPtrQActionConstPtr (..), listenerPtrQAction_isValid, ListenerPtrQActionPtr (..), ListenerPtrQActionConst (..), castListenerPtrQActionToConst, ListenerPtrQAction (..), castListenerPtrQActionToNonconst, listenerPtrQAction_new, ListenerPtrQActionSuper (..), ListenerPtrQActionSuperConst (..), ListenerPtrQMdiSubWindowValue (..), ListenerPtrQMdiSubWindowConstPtr (..), listenerPtrQMdiSubWindow_isValid, ListenerPtrQMdiSubWindowPtr (..), ListenerPtrQMdiSubWindowConst (..), castListenerPtrQMdiSubWindowToConst, ListenerPtrQMdiSubWindow (..), castListenerPtrQMdiSubWindowToNonconst, listenerPtrQMdiSubWindow_new, ListenerPtrQMdiSubWindowSuper (..), ListenerPtrQMdiSubWindowSuperConst (..), ListenerPtrQObjectValue (..), ListenerPtrQObjectConstPtr (..), listenerPtrQObject_isValid, ListenerPtrQObjectPtr (..), ListenerPtrQObjectConst (..), castListenerPtrQObjectToConst, ListenerPtrQObject (..), castListenerPtrQObjectToNonconst, listenerPtrQObject_new, ListenerPtrQObjectSuper (..), ListenerPtrQObjectSuperConst (..), ListenerPtrQTreeWidgetItemValue (..), ListenerPtrQTreeWidgetItemConstPtr (..), listenerPtrQTreeWidgetItem_isValid, ListenerPtrQTreeWidgetItemPtr (..), ListenerPtrQTreeWidgetItemConst (..), castListenerPtrQTreeWidgetItemToConst, ListenerPtrQTreeWidgetItem (..), castListenerPtrQTreeWidgetItemToNonconst, listenerPtrQTreeWidgetItem_new, ListenerPtrQTreeWidgetItemSuper (..), ListenerPtrQTreeWidgetItemSuperConst (..), ListenerPtrQTreeWidgetItemIntValue (..), ListenerPtrQTreeWidgetItemIntConstPtr (..), listenerPtrQTreeWidgetItemInt_isValid, ListenerPtrQTreeWidgetItemIntPtr (..), ListenerPtrQTreeWidgetItemIntConst (..), castListenerPtrQTreeWidgetItemIntToConst, ListenerPtrQTreeWidgetItemInt (..), castListenerPtrQTreeWidgetItemIntToNonconst, listenerPtrQTreeWidgetItemInt_new, ListenerPtrQTreeWidgetItemIntSuper (..), ListenerPtrQTreeWidgetItemIntSuperConst (..), ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemValue (..), ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstPtr (..), listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_isValid, ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemPtr (..), ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst (..), castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToConst, ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem (..), castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToNonconst, listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_new, ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemSuper (..), ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemSuperConst (..), ListenerPtrQWidgetPtrQWidgetValue (..), ListenerPtrQWidgetPtrQWidgetConstPtr (..), listenerPtrQWidgetPtrQWidget_isValid, ListenerPtrQWidgetPtrQWidgetPtr (..), ListenerPtrQWidgetPtrQWidgetConst (..), castListenerPtrQWidgetPtrQWidgetToConst, ListenerPtrQWidgetPtrQWidget (..), castListenerPtrQWidgetPtrQWidgetToNonconst, listenerPtrQWidgetPtrQWidget_new, ListenerPtrQWidgetPtrQWidgetSuper (..), ListenerPtrQWidgetPtrQWidgetSuperConst (..), ListenerQAbstractAnimationValue (..), ListenerQAbstractAnimationConstPtr (..), listenerQAbstractAnimation_isValid, ListenerQAbstractAnimationPtr (..), ListenerQAbstractAnimationConst (..), castListenerQAbstractAnimationToConst, ListenerQAbstractAnimation (..), castListenerQAbstractAnimationToNonconst, listenerQAbstractAnimation_new, ListenerQAbstractAnimationSuper (..), ListenerQAbstractAnimationSuperConst (..), ListenerQAbstractSliderActionValue (..), ListenerQAbstractSliderActionConstPtr (..), listenerQAbstractSliderAction_isValid, ListenerQAbstractSliderActionPtr (..), ListenerQAbstractSliderActionConst (..), castListenerQAbstractSliderActionToConst, ListenerQAbstractSliderAction (..), castListenerQAbstractSliderActionToNonconst, listenerQAbstractSliderAction_new, ListenerQAbstractSliderActionSuper (..), ListenerQAbstractSliderActionSuperConst (..), ListenerQClipboardModeValue (..), ListenerQClipboardModeConstPtr (..), listenerQClipboardMode_isValid, ListenerQClipboardModePtr (..), ListenerQClipboardModeConst (..), castListenerQClipboardModeToConst, ListenerQClipboardMode (..), castListenerQClipboardModeToNonconst, listenerQClipboardMode_new, ListenerQClipboardModeSuper (..), ListenerQClipboardModeSuperConst (..), ListenerQDateValue (..), ListenerQDateConstPtr (..), listenerQDate_isValid, ListenerQDatePtr (..), ListenerQDateConst (..), castListenerQDateToConst, ListenerQDate (..), castListenerQDateToNonconst, listenerQDate_new, ListenerQDateSuper (..), ListenerQDateSuperConst (..), ListenerQDockWidgetFeaturesValue (..), ListenerQDockWidgetFeaturesConstPtr (..), listenerQDockWidgetFeatures_isValid, ListenerQDockWidgetFeaturesPtr (..), ListenerQDockWidgetFeaturesConst (..), castListenerQDockWidgetFeaturesToConst, ListenerQDockWidgetFeatures (..), castListenerQDockWidgetFeaturesToNonconst, listenerQDockWidgetFeatures_new, ListenerQDockWidgetFeaturesSuper (..), ListenerQDockWidgetFeaturesSuperConst (..), ListenerQModelIndexValue (..), ListenerQModelIndexConstPtr (..), listenerQModelIndex_isValid, ListenerQModelIndexPtr (..), ListenerQModelIndexConst (..), castListenerQModelIndexToConst, ListenerQModelIndex (..), castListenerQModelIndexToNonconst, listenerQModelIndex_new, ListenerQModelIndexSuper (..), ListenerQModelIndexSuperConst (..), ListenerQModelIndexIntIntValue (..), ListenerQModelIndexIntIntConstPtr (..), listenerQModelIndexIntInt_isValid, ListenerQModelIndexIntIntPtr (..), ListenerQModelIndexIntIntConst (..), castListenerQModelIndexIntIntToConst, ListenerQModelIndexIntInt (..), castListenerQModelIndexIntIntToNonconst, listenerQModelIndexIntInt_new, ListenerQModelIndexIntIntSuper (..), ListenerQModelIndexIntIntSuperConst (..), ListenerQModelIndexIntIntQModelIndexIntValue (..), ListenerQModelIndexIntIntQModelIndexIntConstPtr (..), listenerQModelIndexIntIntQModelIndexInt_isValid, ListenerQModelIndexIntIntQModelIndexIntPtr (..), ListenerQModelIndexIntIntQModelIndexIntConst (..), castListenerQModelIndexIntIntQModelIndexIntToConst, ListenerQModelIndexIntIntQModelIndexInt (..), castListenerQModelIndexIntIntQModelIndexIntToNonconst, listenerQModelIndexIntIntQModelIndexInt_new, ListenerQModelIndexIntIntQModelIndexIntSuper (..), ListenerQModelIndexIntIntQModelIndexIntSuperConst (..), ListenerQModelIndexQModelIndexValue (..), ListenerQModelIndexQModelIndexConstPtr (..), listenerQModelIndexQModelIndex_isValid, ListenerQModelIndexQModelIndexPtr (..), ListenerQModelIndexQModelIndexConst (..), castListenerQModelIndexQModelIndexToConst, ListenerQModelIndexQModelIndex (..), castListenerQModelIndexQModelIndexToNonconst, listenerQModelIndexQModelIndex_new, ListenerQModelIndexQModelIndexSuper (..), ListenerQModelIndexQModelIndexSuperConst (..), ListenerQModelIndexQModelIndexQVectorIntValue (..), ListenerQModelIndexQModelIndexQVectorIntConstPtr (..), listenerQModelIndexQModelIndexQVectorInt_isValid, ListenerQModelIndexQModelIndexQVectorIntPtr (..), ListenerQModelIndexQModelIndexQVectorIntConst (..), castListenerQModelIndexQModelIndexQVectorIntToConst, ListenerQModelIndexQModelIndexQVectorInt (..), castListenerQModelIndexQModelIndexQVectorIntToNonconst, listenerQModelIndexQModelIndexQVectorInt_new, ListenerQModelIndexQModelIndexQVectorIntSuper (..), ListenerQModelIndexQModelIndexQVectorIntSuperConst (..), ListenerQPointValue (..), ListenerQPointConstPtr (..), listenerQPoint_isValid, ListenerQPointPtr (..), ListenerQPointConst (..), castListenerQPointToConst, ListenerQPoint (..), castListenerQPointToNonconst, listenerQPoint_new, ListenerQPointSuper (..), ListenerQPointSuperConst (..), ListenerQSizeValue (..), ListenerQSizeConstPtr (..), listenerQSize_isValid, ListenerQSizePtr (..), ListenerQSizeConst (..), castListenerQSizeToConst, ListenerQSize (..), castListenerQSizeToNonconst, listenerQSize_new, ListenerQSizeSuper (..), ListenerQSizeSuperConst (..), ListenerQStringValue (..), ListenerQStringConstPtr (..), listenerQString_isValid, ListenerQStringPtr (..), ListenerQStringConst (..), castListenerQStringToConst, ListenerQString (..), castListenerQStringToNonconst, listenerQString_new, ListenerQStringSuper (..), ListenerQStringSuperConst (..), ListenerQSystemTrayIconActivationReasonValue (..), ListenerQSystemTrayIconActivationReasonConstPtr (..), listenerQSystemTrayIconActivationReason_isValid, ListenerQSystemTrayIconActivationReasonPtr (..), ListenerQSystemTrayIconActivationReasonConst (..), castListenerQSystemTrayIconActivationReasonToConst, ListenerQSystemTrayIconActivationReason (..), castListenerQSystemTrayIconActivationReasonToNonconst, listenerQSystemTrayIconActivationReason_new, ListenerQSystemTrayIconActivationReasonSuper (..), ListenerQSystemTrayIconActivationReasonSuperConst (..), ListenerQWindowVisibilityValue (..), ListenerQWindowVisibilityConstPtr (..), listenerQWindowVisibility_isValid, ListenerQWindowVisibilityPtr (..), ListenerQWindowVisibilityConst (..), castListenerQWindowVisibilityToConst, ListenerQWindowVisibility (..), castListenerQWindowVisibilityToNonconst, listenerQWindowVisibility_new, ListenerQWindowVisibilitySuper (..), ListenerQWindowVisibilitySuperConst (..), ListenerQlonglongValue (..), ListenerQlonglongConstPtr (..), listenerQlonglong_isValid, ListenerQlonglongPtr (..), ListenerQlonglongConst (..), castListenerQlonglongToConst, ListenerQlonglong (..), castListenerQlonglongToNonconst, listenerQlonglong_new, ListenerQlonglongSuper (..), ListenerQlonglongSuperConst (..), ListenerQrealValue (..), ListenerQrealConstPtr (..), listenerQreal_isValid, ListenerQrealPtr (..), ListenerQrealConst (..), castListenerQrealToConst, ListenerQreal (..), castListenerQrealToNonconst, listenerQreal_new, ListenerQrealSuper (..), ListenerQrealSuperConst (..), ListenerRefConstQIconValue (..), ListenerRefConstQIconConstPtr (..), listenerRefConstQIcon_isValid, ListenerRefConstQIconPtr (..), ListenerRefConstQIconConst (..), castListenerRefConstQIconToConst, ListenerRefConstQIcon (..), castListenerRefConstQIconToNonconst, listenerRefConstQIcon_new, ListenerRefConstQIconSuper (..), ListenerRefConstQIconSuperConst (..), ListenerRefConstQItemSelectionRefConstQItemSelectionValue (..), ListenerRefConstQItemSelectionRefConstQItemSelectionConstPtr (..), listenerRefConstQItemSelectionRefConstQItemSelection_isValid, ListenerRefConstQItemSelectionRefConstQItemSelectionPtr (..), ListenerRefConstQItemSelectionRefConstQItemSelectionConst (..), castListenerRefConstQItemSelectionRefConstQItemSelectionToConst, ListenerRefConstQItemSelectionRefConstQItemSelection (..), castListenerRefConstQItemSelectionRefConstQItemSelectionToNonconst, listenerRefConstQItemSelectionRefConstQItemSelection_new, ListenerRefConstQItemSelectionRefConstQItemSelectionSuper (..), ListenerRefConstQItemSelectionRefConstQItemSelectionSuperConst (..), ListenerRefConstQListQModelIndexValue (..), ListenerRefConstQListQModelIndexConstPtr (..), listenerRefConstQListQModelIndex_isValid, ListenerRefConstQListQModelIndexPtr (..), ListenerRefConstQListQModelIndexConst (..), castListenerRefConstQListQModelIndexToConst, ListenerRefConstQListQModelIndex (..), castListenerRefConstQListQModelIndexToNonconst, listenerRefConstQListQModelIndex_new, ListenerRefConstQListQModelIndexSuper (..), ListenerRefConstQListQModelIndexSuperConst (..), ListenerRefConstQModelIndexValue (..), ListenerRefConstQModelIndexConstPtr (..), listenerRefConstQModelIndex_isValid, ListenerRefConstQModelIndexPtr (..), ListenerRefConstQModelIndexConst (..), castListenerRefConstQModelIndexToConst, ListenerRefConstQModelIndex (..), castListenerRefConstQModelIndexToNonconst, listenerRefConstQModelIndex_new, ListenerRefConstQModelIndexSuper (..), ListenerRefConstQModelIndexSuperConst (..), ListenerRefConstQVariantValue (..), ListenerRefConstQVariantConstPtr (..), listenerRefConstQVariant_isValid, ListenerRefConstQVariantPtr (..), ListenerRefConstQVariantConst (..), castListenerRefConstQVariantToConst, ListenerRefConstQVariant (..), castListenerRefConstQVariantToNonconst, listenerRefConstQVariant_new, ListenerRefConstQVariantSuper (..), ListenerRefConstQVariantSuperConst (..), ListenerScreenOrientationValue (..), ListenerScreenOrientationConstPtr (..), listenerScreenOrientation_isValid, ListenerScreenOrientationPtr (..), ListenerScreenOrientationConst (..), castListenerScreenOrientationToConst, ListenerScreenOrientation (..), castListenerScreenOrientationToNonconst, listenerScreenOrientation_new, ListenerScreenOrientationSuper (..), ListenerScreenOrientationSuperConst (..), ListenerStateStateValue (..), ListenerStateStateConstPtr (..), listenerStateState_isValid, ListenerStateStatePtr (..), ListenerStateStateConst (..), castListenerStateStateToConst, ListenerStateState (..), castListenerStateStateToNonconst, listenerStateState_new, ListenerStateStateSuper (..), ListenerStateStateSuperConst (..), ListenerToolBarAreasValue (..), ListenerToolBarAreasConstPtr (..), listenerToolBarAreas_isValid, ListenerToolBarAreasPtr (..), ListenerToolBarAreasConst (..), castListenerToolBarAreasToConst, ListenerToolBarAreas (..), castListenerToolBarAreasToNonconst, listenerToolBarAreas_new, ListenerToolBarAreasSuper (..), ListenerToolBarAreasSuperConst (..), ListenerToolButtonStyleValue (..), ListenerToolButtonStyleConstPtr (..), listenerToolButtonStyle_isValid, ListenerToolButtonStylePtr (..), ListenerToolButtonStyleConst (..), castListenerToolButtonStyleToConst, ListenerToolButtonStyle (..), castListenerToolButtonStyleToNonconst, listenerToolButtonStyle_new, ListenerToolButtonStyleSuper (..), ListenerToolButtonStyleSuperConst (..), ListenerWindowModalityValue (..), ListenerWindowModalityConstPtr (..), listenerWindowModality_isValid, ListenerWindowModalityPtr (..), ListenerWindowModalityConst (..), castListenerWindowModalityToConst, ListenerWindowModality (..), castListenerWindowModalityToNonconst, listenerWindowModality_new, ListenerWindowModalitySuper (..), ListenerWindowModalitySuperConst (..), ListenerWindowStateValue (..), ListenerWindowStateConstPtr (..), listenerWindowState_isValid, ListenerWindowStatePtr (..), ListenerWindowStateConst (..), castListenerWindowStateToConst, ListenerWindowState (..), castListenerWindowStateToNonconst, listenerWindowState_new, ListenerWindowStateSuper (..), ListenerWindowStateSuperConst (..), ListenerWindowStatesWindowStatesValue (..), ListenerWindowStatesWindowStatesConstPtr (..), listenerWindowStatesWindowStates_isValid, ListenerWindowStatesWindowStatesPtr (..), ListenerWindowStatesWindowStatesConst (..), castListenerWindowStatesWindowStatesToConst, ListenerWindowStatesWindowStates (..), castListenerWindowStatesWindowStatesToNonconst, listenerWindowStatesWindowStates_new, ListenerWindowStatesWindowStatesSuper (..), ListenerWindowStatesWindowStatesSuperConst (..), ) where import qualified Data.Int as HoppyDI import qualified Foreign as HoppyF import qualified Foreign.C as HoppyFC import qualified Foreign.Hoppy.Runtime as HoppyFHR import qualified Graphics.UI.Qtah.Core.HPoint as HPoint import qualified Graphics.UI.Qtah.Core.HSize as HSize import qualified Graphics.UI.Qtah.Generated.Core.QAbstractAnimation as M2 import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4 import qualified Graphics.UI.Qtah.Generated.Core.QDate as M22 import qualified Graphics.UI.Qtah.Generated.Core.QItemSelection as M50 import qualified Graphics.UI.Qtah.Generated.Core.QList.QModelIndex as M200 import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92 import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94 import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114 import qualified Graphics.UI.Qtah.Generated.Core.QProcess as M106 import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134 import qualified Graphics.UI.Qtah.Generated.Core.QString as M142 import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168 import qualified Graphics.UI.Qtah.Generated.Core.QVector.Int as M214 import qualified Graphics.UI.Qtah.Generated.Core.Types as M190 import qualified Graphics.UI.Qtah.Generated.Gui.QClipboard as M248 import qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288 import qualified Graphics.UI.Qtah.Generated.Gui.QWindow as M342 import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractButton as M354 import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractSlider as M364 import qualified Graphics.UI.Qtah.Generated.Widgets.QAction as M368 import qualified Graphics.UI.Qtah.Generated.Widgets.QDockWidget as M392 import qualified Graphics.UI.Qtah.Generated.Widgets.QMdiSubWindow as M446 import qualified Graphics.UI.Qtah.Generated.Widgets.QSystemTrayIcon as M486 import qualified Graphics.UI.Qtah.Generated.Widgets.QTreeWidgetItem as M502 import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506 import qualified Graphics.UI.Qtah.Internal.Callback as M348 import qualified Graphics.UI.Qtah.Std as M1 import Prelude (($), (.), (/=), (=<<), (==), (>>=)) import qualified Prelude as HoppyP import qualified Prelude as QtahP foreign import ccall "genpop__Listener_new" listener_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr Listener) foreign import ccall "genpop__Listener_isValid" listener_isValid' :: HoppyF.Ptr ListenerConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__Listener__QObject" castListenerToQObject :: HoppyF.Ptr ListenerConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__Listener" castQObjectToListener :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerConst foreign import ccall "gendel__Listener" delete'Listener :: HoppyF.Ptr ListenerConst -> HoppyP.IO () foreign import ccall "&gendel__Listener" deletePtr'Listener :: HoppyF.FunPtr (HoppyF.Ptr ListenerConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerBool_new" listenerBool_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CBool -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerBool) foreign import ccall "genpop__ListenerBool_isValid" listenerBool_isValid' :: HoppyF.Ptr ListenerBoolConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerBool__QObject" castListenerBoolToQObject :: HoppyF.Ptr ListenerBoolConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerBool" castQObjectToListenerBool :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerBoolConst foreign import ccall "gendel__ListenerBool" delete'ListenerBool :: HoppyF.Ptr ListenerBoolConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerBool" deletePtr'ListenerBool :: HoppyF.FunPtr (HoppyF.Ptr ListenerBoolConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerDirection_new" listenerDirection_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerDirection) foreign import ccall "genpop__ListenerDirection_isValid" listenerDirection_isValid' :: HoppyF.Ptr ListenerDirectionConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerDirection__QObject" castListenerDirectionToQObject :: HoppyF.Ptr ListenerDirectionConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerDirection" castQObjectToListenerDirection :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerDirectionConst foreign import ccall "gendel__ListenerDirection" delete'ListenerDirection :: HoppyF.Ptr ListenerDirectionConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerDirection" deletePtr'ListenerDirection :: HoppyF.FunPtr (HoppyF.Ptr ListenerDirectionConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerDockWidgetArea_new" listenerDockWidgetArea_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerDockWidgetArea) foreign import ccall "genpop__ListenerDockWidgetArea_isValid" listenerDockWidgetArea_isValid' :: HoppyF.Ptr ListenerDockWidgetAreaConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerDockWidgetArea__QObject" castListenerDockWidgetAreaToQObject :: HoppyF.Ptr ListenerDockWidgetAreaConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerDockWidgetArea" castQObjectToListenerDockWidgetArea :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerDockWidgetAreaConst foreign import ccall "gendel__ListenerDockWidgetArea" delete'ListenerDockWidgetArea :: HoppyF.Ptr ListenerDockWidgetAreaConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerDockWidgetArea" deletePtr'ListenerDockWidgetArea :: HoppyF.FunPtr (HoppyF.Ptr ListenerDockWidgetAreaConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerDockWidgetAreas_new" listenerDockWidgetAreas_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerDockWidgetAreas) foreign import ccall "genpop__ListenerDockWidgetAreas_isValid" listenerDockWidgetAreas_isValid' :: HoppyF.Ptr ListenerDockWidgetAreasConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerDockWidgetAreas__QObject" castListenerDockWidgetAreasToQObject :: HoppyF.Ptr ListenerDockWidgetAreasConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerDockWidgetAreas" castQObjectToListenerDockWidgetAreas :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerDockWidgetAreasConst foreign import ccall "gendel__ListenerDockWidgetAreas" delete'ListenerDockWidgetAreas :: HoppyF.Ptr ListenerDockWidgetAreasConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerDockWidgetAreas" deletePtr'ListenerDockWidgetAreas :: HoppyF.FunPtr (HoppyF.Ptr ListenerDockWidgetAreasConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerDouble_new" listenerDouble_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CDouble -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerDouble) foreign import ccall "genpop__ListenerDouble_isValid" listenerDouble_isValid' :: HoppyF.Ptr ListenerDoubleConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerDouble__QObject" castListenerDoubleToQObject :: HoppyF.Ptr ListenerDoubleConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerDouble" castQObjectToListenerDouble :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerDoubleConst foreign import ccall "gendel__ListenerDouble" delete'ListenerDouble :: HoppyF.Ptr ListenerDoubleConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerDouble" deletePtr'ListenerDouble :: HoppyF.FunPtr (HoppyF.Ptr ListenerDoubleConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerInt_new" listenerInt_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerInt) foreign import ccall "genpop__ListenerInt_isValid" listenerInt_isValid' :: HoppyF.Ptr ListenerIntConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerInt__QObject" castListenerIntToQObject :: HoppyF.Ptr ListenerIntConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerInt" castQObjectToListenerInt :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerIntConst foreign import ccall "gendel__ListenerInt" delete'ListenerInt :: HoppyF.Ptr ListenerIntConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerInt" deletePtr'ListenerInt :: HoppyF.FunPtr (HoppyF.Ptr ListenerIntConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerIntBool_new" listenerIntBool_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerIntBool) foreign import ccall "genpop__ListenerIntBool_isValid" listenerIntBool_isValid' :: HoppyF.Ptr ListenerIntBoolConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerIntBool__QObject" castListenerIntBoolToQObject :: HoppyF.Ptr ListenerIntBoolConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerIntBool" castQObjectToListenerIntBool :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerIntBoolConst foreign import ccall "gendel__ListenerIntBool" delete'ListenerIntBool :: HoppyF.Ptr ListenerIntBoolConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerIntBool" deletePtr'ListenerIntBool :: HoppyF.FunPtr (HoppyF.Ptr ListenerIntBoolConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerIntExitStatus_new" listenerIntExitStatus_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerIntExitStatus) foreign import ccall "genpop__ListenerIntExitStatus_isValid" listenerIntExitStatus_isValid' :: HoppyF.Ptr ListenerIntExitStatusConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerIntExitStatus__QObject" castListenerIntExitStatusToQObject :: HoppyF.Ptr ListenerIntExitStatusConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerIntExitStatus" castQObjectToListenerIntExitStatus :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerIntExitStatusConst foreign import ccall "gendel__ListenerIntExitStatus" delete'ListenerIntExitStatus :: HoppyF.Ptr ListenerIntExitStatusConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerIntExitStatus" deletePtr'ListenerIntExitStatus :: HoppyF.FunPtr (HoppyF.Ptr ListenerIntExitStatusConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerIntInt_new" listenerIntInt_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerIntInt) foreign import ccall "genpop__ListenerIntInt_isValid" listenerIntInt_isValid' :: HoppyF.Ptr ListenerIntIntConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerIntInt__QObject" castListenerIntIntToQObject :: HoppyF.Ptr ListenerIntIntConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerIntInt" castQObjectToListenerIntInt :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerIntIntConst foreign import ccall "gendel__ListenerIntInt" delete'ListenerIntInt :: HoppyF.Ptr ListenerIntIntConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerIntInt" deletePtr'ListenerIntInt :: HoppyF.FunPtr (HoppyF.Ptr ListenerIntIntConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerIntQlonglong_new" listenerIntQlonglong_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyDI.Int64 -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerIntQlonglong) foreign import ccall "genpop__ListenerIntQlonglong_isValid" listenerIntQlonglong_isValid' :: HoppyF.Ptr ListenerIntQlonglongConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerIntQlonglong__QObject" castListenerIntQlonglongToQObject :: HoppyF.Ptr ListenerIntQlonglongConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerIntQlonglong" castQObjectToListenerIntQlonglong :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerIntQlonglongConst foreign import ccall "gendel__ListenerIntQlonglong" delete'ListenerIntQlonglong :: HoppyF.Ptr ListenerIntQlonglongConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerIntQlonglong" deletePtr'ListenerIntQlonglong :: HoppyF.FunPtr (HoppyF.Ptr ListenerIntQlonglongConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerOrientation_new" listenerOrientation_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerOrientation) foreign import ccall "genpop__ListenerOrientation_isValid" listenerOrientation_isValid' :: HoppyF.Ptr ListenerOrientationConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerOrientation__QObject" castListenerOrientationToQObject :: HoppyF.Ptr ListenerOrientationConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerOrientation" castQObjectToListenerOrientation :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerOrientationConst foreign import ccall "gendel__ListenerOrientation" delete'ListenerOrientation :: HoppyF.Ptr ListenerOrientationConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerOrientation" deletePtr'ListenerOrientation :: HoppyF.FunPtr (HoppyF.Ptr ListenerOrientationConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerOrientationIntInt_new" listenerOrientationIntInt_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerOrientationIntInt) foreign import ccall "genpop__ListenerOrientationIntInt_isValid" listenerOrientationIntInt_isValid' :: HoppyF.Ptr ListenerOrientationIntIntConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerOrientationIntInt__QObject" castListenerOrientationIntIntToQObject :: HoppyF.Ptr ListenerOrientationIntIntConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerOrientationIntInt" castQObjectToListenerOrientationIntInt :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerOrientationIntIntConst foreign import ccall "gendel__ListenerOrientationIntInt" delete'ListenerOrientationIntInt :: HoppyF.Ptr ListenerOrientationIntIntConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerOrientationIntInt" deletePtr'ListenerOrientationIntInt :: HoppyF.FunPtr (HoppyF.Ptr ListenerOrientationIntIntConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerProcessError_new" listenerProcessError_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerProcessError) foreign import ccall "genpop__ListenerProcessError_isValid" listenerProcessError_isValid' :: HoppyF.Ptr ListenerProcessErrorConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerProcessError__QObject" castListenerProcessErrorToQObject :: HoppyF.Ptr ListenerProcessErrorConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerProcessError" castQObjectToListenerProcessError :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerProcessErrorConst foreign import ccall "gendel__ListenerProcessError" delete'ListenerProcessError :: HoppyF.Ptr ListenerProcessErrorConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerProcessError" deletePtr'ListenerProcessError :: HoppyF.FunPtr (HoppyF.Ptr ListenerProcessErrorConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerProcessState_new" listenerProcessState_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerProcessState) foreign import ccall "genpop__ListenerProcessState_isValid" listenerProcessState_isValid' :: HoppyF.Ptr ListenerProcessStateConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerProcessState__QObject" castListenerProcessStateToQObject :: HoppyF.Ptr ListenerProcessStateConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerProcessState" castQObjectToListenerProcessState :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerProcessStateConst foreign import ccall "gendel__ListenerProcessState" delete'ListenerProcessState :: HoppyF.Ptr ListenerProcessStateConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerProcessState" deletePtr'ListenerProcessState :: HoppyF.FunPtr (HoppyF.Ptr ListenerProcessStateConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQAbstractButton_new" listenerPtrQAbstractButton_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQAbstractButton) foreign import ccall "genpop__ListenerPtrQAbstractButton_isValid" listenerPtrQAbstractButton_isValid' :: HoppyF.Ptr ListenerPtrQAbstractButtonConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQAbstractButton__QObject" castListenerPtrQAbstractButtonToQObject :: HoppyF.Ptr ListenerPtrQAbstractButtonConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQAbstractButton" castQObjectToListenerPtrQAbstractButton :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQAbstractButtonConst foreign import ccall "gendel__ListenerPtrQAbstractButton" delete'ListenerPtrQAbstractButton :: HoppyF.Ptr ListenerPtrQAbstractButtonConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQAbstractButton" deletePtr'ListenerPtrQAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQAbstractButtonConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQAbstractButtonBool_new" listenerPtrQAbstractButtonBool_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M354.QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQAbstractButtonBool) foreign import ccall "genpop__ListenerPtrQAbstractButtonBool_isValid" listenerPtrQAbstractButtonBool_isValid' :: HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQAbstractButtonBool__QObject" castListenerPtrQAbstractButtonBoolToQObject :: HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQAbstractButtonBool" castQObjectToListenerPtrQAbstractButtonBool :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst foreign import ccall "gendel__ListenerPtrQAbstractButtonBool" delete'ListenerPtrQAbstractButtonBool :: HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQAbstractButtonBool" deletePtr'ListenerPtrQAbstractButtonBool :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQAbstractItemModel_new" listenerPtrQAbstractItemModel_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M4.QAbstractItemModel -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQAbstractItemModel) foreign import ccall "genpop__ListenerPtrQAbstractItemModel_isValid" listenerPtrQAbstractItemModel_isValid' :: HoppyF.Ptr ListenerPtrQAbstractItemModelConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQAbstractItemModel__QObject" castListenerPtrQAbstractItemModelToQObject :: HoppyF.Ptr ListenerPtrQAbstractItemModelConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQAbstractItemModel" castQObjectToListenerPtrQAbstractItemModel :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQAbstractItemModelConst foreign import ccall "gendel__ListenerPtrQAbstractItemModel" delete'ListenerPtrQAbstractItemModel :: HoppyF.Ptr ListenerPtrQAbstractItemModelConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQAbstractItemModel" deletePtr'ListenerPtrQAbstractItemModel :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQAbstractItemModelConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQAction_new" listenerPtrQAction_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M368.QAction -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQAction) foreign import ccall "genpop__ListenerPtrQAction_isValid" listenerPtrQAction_isValid' :: HoppyF.Ptr ListenerPtrQActionConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQAction__QObject" castListenerPtrQActionToQObject :: HoppyF.Ptr ListenerPtrQActionConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQAction" castQObjectToListenerPtrQAction :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQActionConst foreign import ccall "gendel__ListenerPtrQAction" delete'ListenerPtrQAction :: HoppyF.Ptr ListenerPtrQActionConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQAction" deletePtr'ListenerPtrQAction :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQActionConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQMdiSubWindow_new" listenerPtrQMdiSubWindow_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M446.QMdiSubWindow -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQMdiSubWindow) foreign import ccall "genpop__ListenerPtrQMdiSubWindow_isValid" listenerPtrQMdiSubWindow_isValid' :: HoppyF.Ptr ListenerPtrQMdiSubWindowConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQMdiSubWindow__QObject" castListenerPtrQMdiSubWindowToQObject :: HoppyF.Ptr ListenerPtrQMdiSubWindowConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQMdiSubWindow" castQObjectToListenerPtrQMdiSubWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQMdiSubWindowConst foreign import ccall "gendel__ListenerPtrQMdiSubWindow" delete'ListenerPtrQMdiSubWindow :: HoppyF.Ptr ListenerPtrQMdiSubWindowConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQMdiSubWindow" deletePtr'ListenerPtrQMdiSubWindow :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQMdiSubWindowConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQObject_new" listenerPtrQObject_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M94.QObject -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQObject) foreign import ccall "genpop__ListenerPtrQObject_isValid" listenerPtrQObject_isValid' :: HoppyF.Ptr ListenerPtrQObjectConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQObject__QObject" castListenerPtrQObjectToQObject :: HoppyF.Ptr ListenerPtrQObjectConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQObject" castQObjectToListenerPtrQObject :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQObjectConst foreign import ccall "gendel__ListenerPtrQObject" delete'ListenerPtrQObject :: HoppyF.Ptr ListenerPtrQObjectConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQObject" deletePtr'ListenerPtrQObject :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQObjectConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQTreeWidgetItem_new" listenerPtrQTreeWidgetItem_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQTreeWidgetItem) foreign import ccall "genpop__ListenerPtrQTreeWidgetItem_isValid" listenerPtrQTreeWidgetItem_isValid' :: HoppyF.Ptr ListenerPtrQTreeWidgetItemConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQTreeWidgetItem__QObject" castListenerPtrQTreeWidgetItemToQObject :: HoppyF.Ptr ListenerPtrQTreeWidgetItemConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQTreeWidgetItem" castQObjectToListenerPtrQTreeWidgetItem :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQTreeWidgetItemConst foreign import ccall "gendel__ListenerPtrQTreeWidgetItem" delete'ListenerPtrQTreeWidgetItem :: HoppyF.Ptr ListenerPtrQTreeWidgetItemConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQTreeWidgetItem" deletePtr'ListenerPtrQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQTreeWidgetItemConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQTreeWidgetItemInt_new" listenerPtrQTreeWidgetItemInt_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M502.QTreeWidgetItem -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQTreeWidgetItemInt) foreign import ccall "genpop__ListenerPtrQTreeWidgetItemInt_isValid" listenerPtrQTreeWidgetItemInt_isValid' :: HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQTreeWidgetItemInt__QObject" castListenerPtrQTreeWidgetItemIntToQObject :: HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQTreeWidgetItemInt" castQObjectToListenerPtrQTreeWidgetItemInt :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst foreign import ccall "gendel__ListenerPtrQTreeWidgetItemInt" delete'ListenerPtrQTreeWidgetItemInt :: HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQTreeWidgetItemInt" deletePtr'ListenerPtrQTreeWidgetItemInt :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem_new" listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M502.QTreeWidgetItem -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem) foreign import ccall "genpop__ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem_isValid" listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_isValid' :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem__QObject" castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToQObject :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem" castQObjectToListenerPtrQTreeWidgetItemPtrQTreeWidgetItem :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst foreign import ccall "gendel__ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem" delete'ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem" deletePtr'ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerPtrQWidgetPtrQWidget_new" listenerPtrQWidgetPtrQWidget_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerPtrQWidgetPtrQWidget) foreign import ccall "genpop__ListenerPtrQWidgetPtrQWidget_isValid" listenerPtrQWidgetPtrQWidget_isValid' :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerPtrQWidgetPtrQWidget__QObject" castListenerPtrQWidgetPtrQWidgetToQObject :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerPtrQWidgetPtrQWidget" castQObjectToListenerPtrQWidgetPtrQWidget :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst foreign import ccall "gendel__ListenerPtrQWidgetPtrQWidget" delete'ListenerPtrQWidgetPtrQWidget :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerPtrQWidgetPtrQWidget" deletePtr'ListenerPtrQWidgetPtrQWidget :: HoppyF.FunPtr (HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQAbstractAnimation_new" listenerQAbstractAnimation_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M2.QAbstractAnimation -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQAbstractAnimation) foreign import ccall "genpop__ListenerQAbstractAnimation_isValid" listenerQAbstractAnimation_isValid' :: HoppyF.Ptr ListenerQAbstractAnimationConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQAbstractAnimation__QObject" castListenerQAbstractAnimationToQObject :: HoppyF.Ptr ListenerQAbstractAnimationConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQAbstractAnimation" castQObjectToListenerQAbstractAnimation :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQAbstractAnimationConst foreign import ccall "gendel__ListenerQAbstractAnimation" delete'ListenerQAbstractAnimation :: HoppyF.Ptr ListenerQAbstractAnimationConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQAbstractAnimation" deletePtr'ListenerQAbstractAnimation :: HoppyF.FunPtr (HoppyF.Ptr ListenerQAbstractAnimationConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQAbstractSliderAction_new" listenerQAbstractSliderAction_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQAbstractSliderAction) foreign import ccall "genpop__ListenerQAbstractSliderAction_isValid" listenerQAbstractSliderAction_isValid' :: HoppyF.Ptr ListenerQAbstractSliderActionConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQAbstractSliderAction__QObject" castListenerQAbstractSliderActionToQObject :: HoppyF.Ptr ListenerQAbstractSliderActionConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQAbstractSliderAction" castQObjectToListenerQAbstractSliderAction :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQAbstractSliderActionConst foreign import ccall "gendel__ListenerQAbstractSliderAction" delete'ListenerQAbstractSliderAction :: HoppyF.Ptr ListenerQAbstractSliderActionConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQAbstractSliderAction" deletePtr'ListenerQAbstractSliderAction :: HoppyF.FunPtr (HoppyF.Ptr ListenerQAbstractSliderActionConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQClipboardMode_new" listenerQClipboardMode_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQClipboardMode) foreign import ccall "genpop__ListenerQClipboardMode_isValid" listenerQClipboardMode_isValid' :: HoppyF.Ptr ListenerQClipboardModeConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQClipboardMode__QObject" castListenerQClipboardModeToQObject :: HoppyF.Ptr ListenerQClipboardModeConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQClipboardMode" castQObjectToListenerQClipboardMode :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQClipboardModeConst foreign import ccall "gendel__ListenerQClipboardMode" delete'ListenerQClipboardMode :: HoppyF.Ptr ListenerQClipboardModeConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQClipboardMode" deletePtr'ListenerQClipboardMode :: HoppyF.FunPtr (HoppyF.Ptr ListenerQClipboardModeConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQDate_new" listenerQDate_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M22.QDateConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQDate) foreign import ccall "genpop__ListenerQDate_isValid" listenerQDate_isValid' :: HoppyF.Ptr ListenerQDateConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQDate__QObject" castListenerQDateToQObject :: HoppyF.Ptr ListenerQDateConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQDate" castQObjectToListenerQDate :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQDateConst foreign import ccall "gendel__ListenerQDate" delete'ListenerQDate :: HoppyF.Ptr ListenerQDateConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQDate" deletePtr'ListenerQDate :: HoppyF.FunPtr (HoppyF.Ptr ListenerQDateConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQDockWidgetFeatures_new" listenerQDockWidgetFeatures_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQDockWidgetFeatures) foreign import ccall "genpop__ListenerQDockWidgetFeatures_isValid" listenerQDockWidgetFeatures_isValid' :: HoppyF.Ptr ListenerQDockWidgetFeaturesConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQDockWidgetFeatures__QObject" castListenerQDockWidgetFeaturesToQObject :: HoppyF.Ptr ListenerQDockWidgetFeaturesConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQDockWidgetFeatures" castQObjectToListenerQDockWidgetFeatures :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQDockWidgetFeaturesConst foreign import ccall "gendel__ListenerQDockWidgetFeatures" delete'ListenerQDockWidgetFeatures :: HoppyF.Ptr ListenerQDockWidgetFeaturesConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQDockWidgetFeatures" deletePtr'ListenerQDockWidgetFeatures :: HoppyF.FunPtr (HoppyF.Ptr ListenerQDockWidgetFeaturesConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQModelIndex_new" listenerQModelIndex_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQModelIndex) foreign import ccall "genpop__ListenerQModelIndex_isValid" listenerQModelIndex_isValid' :: HoppyF.Ptr ListenerQModelIndexConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQModelIndex__QObject" castListenerQModelIndexToQObject :: HoppyF.Ptr ListenerQModelIndexConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQModelIndex" castQObjectToListenerQModelIndex :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQModelIndexConst foreign import ccall "gendel__ListenerQModelIndex" delete'ListenerQModelIndex :: HoppyF.Ptr ListenerQModelIndexConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQModelIndex" deletePtr'ListenerQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr ListenerQModelIndexConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQModelIndexIntInt_new" listenerQModelIndexIntInt_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQModelIndexIntInt) foreign import ccall "genpop__ListenerQModelIndexIntInt_isValid" listenerQModelIndexIntInt_isValid' :: HoppyF.Ptr ListenerQModelIndexIntIntConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQModelIndexIntInt__QObject" castListenerQModelIndexIntIntToQObject :: HoppyF.Ptr ListenerQModelIndexIntIntConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQModelIndexIntInt" castQObjectToListenerQModelIndexIntInt :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQModelIndexIntIntConst foreign import ccall "gendel__ListenerQModelIndexIntInt" delete'ListenerQModelIndexIntInt :: HoppyF.Ptr ListenerQModelIndexIntIntConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQModelIndexIntInt" deletePtr'ListenerQModelIndexIntInt :: HoppyF.FunPtr (HoppyF.Ptr ListenerQModelIndexIntIntConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQModelIndexIntIntQModelIndexInt_new" listenerQModelIndexIntIntQModelIndexInt_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt) foreign import ccall "genpop__ListenerQModelIndexIntIntQModelIndexInt_isValid" listenerQModelIndexIntIntQModelIndexInt_isValid' :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQModelIndexIntIntQModelIndexInt__QObject" castListenerQModelIndexIntIntQModelIndexIntToQObject :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQModelIndexIntIntQModelIndexInt" castQObjectToListenerQModelIndexIntIntQModelIndexInt :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst foreign import ccall "gendel__ListenerQModelIndexIntIntQModelIndexInt" delete'ListenerQModelIndexIntIntQModelIndexInt :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQModelIndexIntIntQModelIndexInt" deletePtr'ListenerQModelIndexIntIntQModelIndexInt :: HoppyF.FunPtr (HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQModelIndexQModelIndex_new" listenerQModelIndexQModelIndex_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQModelIndexQModelIndex) foreign import ccall "genpop__ListenerQModelIndexQModelIndex_isValid" listenerQModelIndexQModelIndex_isValid' :: HoppyF.Ptr ListenerQModelIndexQModelIndexConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQModelIndexQModelIndex__QObject" castListenerQModelIndexQModelIndexToQObject :: HoppyF.Ptr ListenerQModelIndexQModelIndexConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQModelIndexQModelIndex" castQObjectToListenerQModelIndexQModelIndex :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQModelIndexQModelIndexConst foreign import ccall "gendel__ListenerQModelIndexQModelIndex" delete'ListenerQModelIndexQModelIndex :: HoppyF.Ptr ListenerQModelIndexQModelIndexConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQModelIndexQModelIndex" deletePtr'ListenerQModelIndexQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr ListenerQModelIndexQModelIndexConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQModelIndexQModelIndexQVectorInt_new" listenerQModelIndexQModelIndexQVectorInt_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M214.QVectorInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt) foreign import ccall "genpop__ListenerQModelIndexQModelIndexQVectorInt_isValid" listenerQModelIndexQModelIndexQVectorInt_isValid' :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQModelIndexQModelIndexQVectorInt__QObject" castListenerQModelIndexQModelIndexQVectorIntToQObject :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQModelIndexQModelIndexQVectorInt" castQObjectToListenerQModelIndexQModelIndexQVectorInt :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst foreign import ccall "gendel__ListenerQModelIndexQModelIndexQVectorInt" delete'ListenerQModelIndexQModelIndexQVectorInt :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQModelIndexQModelIndexQVectorInt" deletePtr'ListenerQModelIndexQModelIndexQVectorInt :: HoppyF.FunPtr (HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQPoint_new" listenerQPoint_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQPoint) foreign import ccall "genpop__ListenerQPoint_isValid" listenerQPoint_isValid' :: HoppyF.Ptr ListenerQPointConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQPoint__QObject" castListenerQPointToQObject :: HoppyF.Ptr ListenerQPointConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQPoint" castQObjectToListenerQPoint :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQPointConst foreign import ccall "gendel__ListenerQPoint" delete'ListenerQPoint :: HoppyF.Ptr ListenerQPointConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQPoint" deletePtr'ListenerQPoint :: HoppyF.FunPtr (HoppyF.Ptr ListenerQPointConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQSize_new" listenerQSize_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQSize) foreign import ccall "genpop__ListenerQSize_isValid" listenerQSize_isValid' :: HoppyF.Ptr ListenerQSizeConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQSize__QObject" castListenerQSizeToQObject :: HoppyF.Ptr ListenerQSizeConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQSize" castQObjectToListenerQSize :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQSizeConst foreign import ccall "gendel__ListenerQSize" delete'ListenerQSize :: HoppyF.Ptr ListenerQSizeConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQSize" deletePtr'ListenerQSize :: HoppyF.FunPtr (HoppyF.Ptr ListenerQSizeConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQString_new" listenerQString_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQString) foreign import ccall "genpop__ListenerQString_isValid" listenerQString_isValid' :: HoppyF.Ptr ListenerQStringConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQString__QObject" castListenerQStringToQObject :: HoppyF.Ptr ListenerQStringConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQString" castQObjectToListenerQString :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQStringConst foreign import ccall "gendel__ListenerQString" delete'ListenerQString :: HoppyF.Ptr ListenerQStringConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQString" deletePtr'ListenerQString :: HoppyF.FunPtr (HoppyF.Ptr ListenerQStringConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQSystemTrayIconActivationReason_new" listenerQSystemTrayIconActivationReason_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQSystemTrayIconActivationReason) foreign import ccall "genpop__ListenerQSystemTrayIconActivationReason_isValid" listenerQSystemTrayIconActivationReason_isValid' :: HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQSystemTrayIconActivationReason__QObject" castListenerQSystemTrayIconActivationReasonToQObject :: HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQSystemTrayIconActivationReason" castQObjectToListenerQSystemTrayIconActivationReason :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst foreign import ccall "gendel__ListenerQSystemTrayIconActivationReason" delete'ListenerQSystemTrayIconActivationReason :: HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQSystemTrayIconActivationReason" deletePtr'ListenerQSystemTrayIconActivationReason :: HoppyF.FunPtr (HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQWindowVisibility_new" listenerQWindowVisibility_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQWindowVisibility) foreign import ccall "genpop__ListenerQWindowVisibility_isValid" listenerQWindowVisibility_isValid' :: HoppyF.Ptr ListenerQWindowVisibilityConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQWindowVisibility__QObject" castListenerQWindowVisibilityToQObject :: HoppyF.Ptr ListenerQWindowVisibilityConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQWindowVisibility" castQObjectToListenerQWindowVisibility :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQWindowVisibilityConst foreign import ccall "gendel__ListenerQWindowVisibility" delete'ListenerQWindowVisibility :: HoppyF.Ptr ListenerQWindowVisibilityConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQWindowVisibility" deletePtr'ListenerQWindowVisibility :: HoppyF.FunPtr (HoppyF.Ptr ListenerQWindowVisibilityConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQlonglong_new" listenerQlonglong_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyDI.Int64 -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQlonglong) foreign import ccall "genpop__ListenerQlonglong_isValid" listenerQlonglong_isValid' :: HoppyF.Ptr ListenerQlonglongConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQlonglong__QObject" castListenerQlonglongToQObject :: HoppyF.Ptr ListenerQlonglongConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQlonglong" castQObjectToListenerQlonglong :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQlonglongConst foreign import ccall "gendel__ListenerQlonglong" delete'ListenerQlonglong :: HoppyF.Ptr ListenerQlonglongConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQlonglong" deletePtr'ListenerQlonglong :: HoppyF.FunPtr (HoppyF.Ptr ListenerQlonglongConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerQreal_new" listenerQreal_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CDouble -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerQreal) foreign import ccall "genpop__ListenerQreal_isValid" listenerQreal_isValid' :: HoppyF.Ptr ListenerQrealConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerQreal__QObject" castListenerQrealToQObject :: HoppyF.Ptr ListenerQrealConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerQreal" castQObjectToListenerQreal :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerQrealConst foreign import ccall "gendel__ListenerQreal" delete'ListenerQreal :: HoppyF.Ptr ListenerQrealConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerQreal" deletePtr'ListenerQreal :: HoppyF.FunPtr (HoppyF.Ptr ListenerQrealConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerRefConstQIcon_new" listenerRefConstQIcon_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M288.QIconConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerRefConstQIcon) foreign import ccall "genpop__ListenerRefConstQIcon_isValid" listenerRefConstQIcon_isValid' :: HoppyF.Ptr ListenerRefConstQIconConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerRefConstQIcon__QObject" castListenerRefConstQIconToQObject :: HoppyF.Ptr ListenerRefConstQIconConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerRefConstQIcon" castQObjectToListenerRefConstQIcon :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerRefConstQIconConst foreign import ccall "gendel__ListenerRefConstQIcon" delete'ListenerRefConstQIcon :: HoppyF.Ptr ListenerRefConstQIconConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerRefConstQIcon" deletePtr'ListenerRefConstQIcon :: HoppyF.FunPtr (HoppyF.Ptr ListenerRefConstQIconConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerRefConstQItemSelectionRefConstQItemSelection_new" listenerRefConstQItemSelectionRefConstQItemSelection_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M50.QItemSelectionConst -> HoppyF.Ptr M50.QItemSelectionConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection) foreign import ccall "genpop__ListenerRefConstQItemSelectionRefConstQItemSelection_isValid" listenerRefConstQItemSelectionRefConstQItemSelection_isValid' :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerRefConstQItemSelectionRefConstQItemSelection__QObject" castListenerRefConstQItemSelectionRefConstQItemSelectionToQObject :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerRefConstQItemSelectionRefConstQItemSelection" castQObjectToListenerRefConstQItemSelectionRefConstQItemSelection :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst foreign import ccall "gendel__ListenerRefConstQItemSelectionRefConstQItemSelection" delete'ListenerRefConstQItemSelectionRefConstQItemSelection :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerRefConstQItemSelectionRefConstQItemSelection" deletePtr'ListenerRefConstQItemSelectionRefConstQItemSelection :: HoppyF.FunPtr (HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerRefConstQListQModelIndex_new" listenerRefConstQListQModelIndex_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M200.QListQModelIndexConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerRefConstQListQModelIndex) foreign import ccall "genpop__ListenerRefConstQListQModelIndex_isValid" listenerRefConstQListQModelIndex_isValid' :: HoppyF.Ptr ListenerRefConstQListQModelIndexConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerRefConstQListQModelIndex__QObject" castListenerRefConstQListQModelIndexToQObject :: HoppyF.Ptr ListenerRefConstQListQModelIndexConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerRefConstQListQModelIndex" castQObjectToListenerRefConstQListQModelIndex :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerRefConstQListQModelIndexConst foreign import ccall "gendel__ListenerRefConstQListQModelIndex" delete'ListenerRefConstQListQModelIndex :: HoppyF.Ptr ListenerRefConstQListQModelIndexConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerRefConstQListQModelIndex" deletePtr'ListenerRefConstQListQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr ListenerRefConstQListQModelIndexConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerRefConstQModelIndex_new" listenerRefConstQModelIndex_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerRefConstQModelIndex) foreign import ccall "genpop__ListenerRefConstQModelIndex_isValid" listenerRefConstQModelIndex_isValid' :: HoppyF.Ptr ListenerRefConstQModelIndexConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerRefConstQModelIndex__QObject" castListenerRefConstQModelIndexToQObject :: HoppyF.Ptr ListenerRefConstQModelIndexConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerRefConstQModelIndex" castQObjectToListenerRefConstQModelIndex :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerRefConstQModelIndexConst foreign import ccall "gendel__ListenerRefConstQModelIndex" delete'ListenerRefConstQModelIndex :: HoppyF.Ptr ListenerRefConstQModelIndexConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerRefConstQModelIndex" deletePtr'ListenerRefConstQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr ListenerRefConstQModelIndexConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerRefConstQVariant_new" listenerRefConstQVariant_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerRefConstQVariant) foreign import ccall "genpop__ListenerRefConstQVariant_isValid" listenerRefConstQVariant_isValid' :: HoppyF.Ptr ListenerRefConstQVariantConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerRefConstQVariant__QObject" castListenerRefConstQVariantToQObject :: HoppyF.Ptr ListenerRefConstQVariantConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerRefConstQVariant" castQObjectToListenerRefConstQVariant :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerRefConstQVariantConst foreign import ccall "gendel__ListenerRefConstQVariant" delete'ListenerRefConstQVariant :: HoppyF.Ptr ListenerRefConstQVariantConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerRefConstQVariant" deletePtr'ListenerRefConstQVariant :: HoppyF.FunPtr (HoppyF.Ptr ListenerRefConstQVariantConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerScreenOrientation_new" listenerScreenOrientation_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerScreenOrientation) foreign import ccall "genpop__ListenerScreenOrientation_isValid" listenerScreenOrientation_isValid' :: HoppyF.Ptr ListenerScreenOrientationConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerScreenOrientation__QObject" castListenerScreenOrientationToQObject :: HoppyF.Ptr ListenerScreenOrientationConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerScreenOrientation" castQObjectToListenerScreenOrientation :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerScreenOrientationConst foreign import ccall "gendel__ListenerScreenOrientation" delete'ListenerScreenOrientation :: HoppyF.Ptr ListenerScreenOrientationConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerScreenOrientation" deletePtr'ListenerScreenOrientation :: HoppyF.FunPtr (HoppyF.Ptr ListenerScreenOrientationConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerStateState_new" listenerStateState_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerStateState) foreign import ccall "genpop__ListenerStateState_isValid" listenerStateState_isValid' :: HoppyF.Ptr ListenerStateStateConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerStateState__QObject" castListenerStateStateToQObject :: HoppyF.Ptr ListenerStateStateConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerStateState" castQObjectToListenerStateState :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerStateStateConst foreign import ccall "gendel__ListenerStateState" delete'ListenerStateState :: HoppyF.Ptr ListenerStateStateConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerStateState" deletePtr'ListenerStateState :: HoppyF.FunPtr (HoppyF.Ptr ListenerStateStateConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerToolBarAreas_new" listenerToolBarAreas_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerToolBarAreas) foreign import ccall "genpop__ListenerToolBarAreas_isValid" listenerToolBarAreas_isValid' :: HoppyF.Ptr ListenerToolBarAreasConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerToolBarAreas__QObject" castListenerToolBarAreasToQObject :: HoppyF.Ptr ListenerToolBarAreasConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerToolBarAreas" castQObjectToListenerToolBarAreas :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerToolBarAreasConst foreign import ccall "gendel__ListenerToolBarAreas" delete'ListenerToolBarAreas :: HoppyF.Ptr ListenerToolBarAreasConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerToolBarAreas" deletePtr'ListenerToolBarAreas :: HoppyF.FunPtr (HoppyF.Ptr ListenerToolBarAreasConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerToolButtonStyle_new" listenerToolButtonStyle_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerToolButtonStyle) foreign import ccall "genpop__ListenerToolButtonStyle_isValid" listenerToolButtonStyle_isValid' :: HoppyF.Ptr ListenerToolButtonStyleConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerToolButtonStyle__QObject" castListenerToolButtonStyleToQObject :: HoppyF.Ptr ListenerToolButtonStyleConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerToolButtonStyle" castQObjectToListenerToolButtonStyle :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerToolButtonStyleConst foreign import ccall "gendel__ListenerToolButtonStyle" delete'ListenerToolButtonStyle :: HoppyF.Ptr ListenerToolButtonStyleConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerToolButtonStyle" deletePtr'ListenerToolButtonStyle :: HoppyF.FunPtr (HoppyF.Ptr ListenerToolButtonStyleConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerWindowModality_new" listenerWindowModality_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerWindowModality) foreign import ccall "genpop__ListenerWindowModality_isValid" listenerWindowModality_isValid' :: HoppyF.Ptr ListenerWindowModalityConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerWindowModality__QObject" castListenerWindowModalityToQObject :: HoppyF.Ptr ListenerWindowModalityConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerWindowModality" castQObjectToListenerWindowModality :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerWindowModalityConst foreign import ccall "gendel__ListenerWindowModality" delete'ListenerWindowModality :: HoppyF.Ptr ListenerWindowModalityConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerWindowModality" deletePtr'ListenerWindowModality :: HoppyF.FunPtr (HoppyF.Ptr ListenerWindowModalityConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerWindowState_new" listenerWindowState_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerWindowState) foreign import ccall "genpop__ListenerWindowState_isValid" listenerWindowState_isValid' :: HoppyF.Ptr ListenerWindowStateConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerWindowState__QObject" castListenerWindowStateToQObject :: HoppyF.Ptr ListenerWindowStateConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerWindowState" castQObjectToListenerWindowState :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerWindowStateConst foreign import ccall "gendel__ListenerWindowState" delete'ListenerWindowState :: HoppyF.Ptr ListenerWindowStateConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerWindowState" deletePtr'ListenerWindowState :: HoppyF.FunPtr (HoppyF.Ptr ListenerWindowStateConst -> HoppyP.IO ()) foreign import ccall "genpop__ListenerWindowStatesWindowStates_new" listenerWindowStatesWindowStates_new' :: HoppyF.Ptr M94.QObject -> HoppyF.Ptr M1.StdStringConst -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr ListenerWindowStatesWindowStates) foreign import ccall "genpop__ListenerWindowStatesWindowStates_isValid" listenerWindowStatesWindowStates_isValid' :: HoppyF.Ptr ListenerWindowStatesWindowStatesConst -> HoppyP.IO HoppyFC.CBool foreign import ccall "gencast__ListenerWindowStatesWindowStates__QObject" castListenerWindowStatesWindowStatesToQObject :: HoppyF.Ptr ListenerWindowStatesWindowStatesConst -> HoppyF.Ptr M94.QObjectConst foreign import ccall "gencast__QObject__ListenerWindowStatesWindowStates" castQObjectToListenerWindowStatesWindowStates :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr ListenerWindowStatesWindowStatesConst foreign import ccall "gendel__ListenerWindowStatesWindowStates" delete'ListenerWindowStatesWindowStates :: HoppyF.Ptr ListenerWindowStatesWindowStatesConst -> HoppyP.IO () foreign import ccall "&gendel__ListenerWindowStatesWindowStates" deletePtr'ListenerWindowStatesWindowStates :: HoppyF.FunPtr (HoppyF.Ptr ListenerWindowStatesWindowStatesConst -> HoppyP.IO ()) class ListenerValue a where withListenerPtr :: a -> (ListenerConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerConstPtr a => ListenerValue a where withListenerPtr = HoppyP.flip ($) . toListenerConst class (M94.QObjectConstPtr this) => ListenerConstPtr this where toListenerConst :: this -> ListenerConst listener_isValid :: (ListenerValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listener_isValid arg'1 = withListenerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listener_isValid' arg'1') class (ListenerConstPtr this, M94.QObjectPtr this) => ListenerPtr this where toListener :: this -> Listener data ListenerConst = ListenerConst (HoppyF.Ptr ListenerConst) | ListenerConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerToConst :: Listener -> ListenerConst castListenerToConst (Listener ptr') = ListenerConst $ HoppyF.castPtr ptr' castListenerToConst (ListenerGc fptr' ptr') = ListenerConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerConst where nullptr = ListenerConst HoppyF.nullPtr withCppPtr (ListenerConst ptr') f' = f' ptr' withCppPtr (ListenerConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerConst ptr') = ptr' toPtr (ListenerConstGc _ ptr') = ptr' touchCppPtr (ListenerConst _) = HoppyP.return () touchCppPtr (ListenerConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerConst where delete (ListenerConst ptr') = delete'Listener ptr' delete (ListenerConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerConst", " object."] toGc this'@(ListenerConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'Listener :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerConstGc {}) = HoppyP.return this' instance ListenerConstPtr ListenerConst where toListenerConst = HoppyP.id instance M94.QObjectConstPtr ListenerConst where toQObjectConst (ListenerConst ptr') = M94.QObjectConst $ castListenerToQObject ptr' toQObjectConst (ListenerConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerToQObject ptr' data Listener = Listener (HoppyF.Ptr Listener) | ListenerGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr Listener) deriving (HoppyP.Show) instance HoppyP.Eq Listener where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord Listener where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerToNonconst :: ListenerConst -> Listener castListenerToNonconst (ListenerConst ptr') = Listener $ HoppyF.castPtr ptr' castListenerToNonconst (ListenerConstGc fptr' ptr') = ListenerGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr Listener where nullptr = Listener HoppyF.nullPtr withCppPtr (Listener ptr') f' = f' ptr' withCppPtr (ListenerGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (Listener ptr') = ptr' toPtr (ListenerGc _ ptr') = ptr' touchCppPtr (Listener _) = HoppyP.return () touchCppPtr (ListenerGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable Listener where delete (Listener ptr') = delete'Listener $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerConst) delete (ListenerGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "Listener", " object."] toGc this'@(Listener ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'Listener :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerGc {}) = HoppyP.return this' instance ListenerConstPtr Listener where toListenerConst (Listener ptr') = ListenerConst $ (HoppyF.castPtr :: HoppyF.Ptr Listener -> HoppyF.Ptr ListenerConst) ptr' toListenerConst (ListenerGc fptr' ptr') = ListenerConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr Listener -> HoppyF.Ptr ListenerConst) ptr' instance ListenerPtr Listener where toListener = HoppyP.id instance M94.QObjectConstPtr Listener where toQObjectConst (Listener ptr') = M94.QObjectConst $ castListenerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr Listener -> HoppyF.Ptr ListenerConst) ptr' toQObjectConst (ListenerGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr Listener -> HoppyF.Ptr ListenerConst) ptr' instance M94.QObjectPtr Listener where toQObject (Listener ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr Listener -> HoppyF.Ptr ListenerConst) ptr' toQObject (ListenerGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr Listener -> HoppyF.Ptr ListenerConst) ptr' listener_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO ()) -> (HoppyP.IO Listener) listener_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap Listener (listener_new' arg'1' arg'2' arg'3') class ListenerSuper a where downToListener :: a -> Listener instance ListenerSuper M94.QObject where downToListener = castListenerToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerConst $ castQObjectToListener ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerConstGc fptr' $ castQObjectToListener ptr' class ListenerSuperConst a where downToListenerConst :: a -> ListenerConst instance ListenerSuperConst M94.QObjectConst where downToListenerConst = cast' where cast' (M94.QObjectConst ptr') = ListenerConst $ castQObjectToListener ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerConstGc fptr' $ castQObjectToListener ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr Listener)) Listener where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr Listener)) Listener where decode = HoppyP.fmap Listener . HoppyF.peek class ListenerBoolValue a where withListenerBoolPtr :: a -> (ListenerBoolConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerBoolConstPtr a => ListenerBoolValue a where withListenerBoolPtr = HoppyP.flip ($) . toListenerBoolConst class (M94.QObjectConstPtr this) => ListenerBoolConstPtr this where toListenerBoolConst :: this -> ListenerBoolConst listenerBool_isValid :: (ListenerBoolValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerBool_isValid arg'1 = withListenerBoolPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerBool_isValid' arg'1') class (ListenerBoolConstPtr this, M94.QObjectPtr this) => ListenerBoolPtr this where toListenerBool :: this -> ListenerBool data ListenerBoolConst = ListenerBoolConst (HoppyF.Ptr ListenerBoolConst) | ListenerBoolConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerBoolConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerBoolConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerBoolConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerBoolToConst :: ListenerBool -> ListenerBoolConst castListenerBoolToConst (ListenerBool ptr') = ListenerBoolConst $ HoppyF.castPtr ptr' castListenerBoolToConst (ListenerBoolGc fptr' ptr') = ListenerBoolConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerBoolConst where nullptr = ListenerBoolConst HoppyF.nullPtr withCppPtr (ListenerBoolConst ptr') f' = f' ptr' withCppPtr (ListenerBoolConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerBoolConst ptr') = ptr' toPtr (ListenerBoolConstGc _ ptr') = ptr' touchCppPtr (ListenerBoolConst _) = HoppyP.return () touchCppPtr (ListenerBoolConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerBoolConst where delete (ListenerBoolConst ptr') = delete'ListenerBool ptr' delete (ListenerBoolConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerBoolConst", " object."] toGc this'@(ListenerBoolConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerBoolConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerBool :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerBoolConstGc {}) = HoppyP.return this' instance ListenerBoolConstPtr ListenerBoolConst where toListenerBoolConst = HoppyP.id instance M94.QObjectConstPtr ListenerBoolConst where toQObjectConst (ListenerBoolConst ptr') = M94.QObjectConst $ castListenerBoolToQObject ptr' toQObjectConst (ListenerBoolConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerBoolToQObject ptr' data ListenerBool = ListenerBool (HoppyF.Ptr ListenerBool) | ListenerBoolGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerBool) deriving (HoppyP.Show) instance HoppyP.Eq ListenerBool where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerBool where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerBoolToNonconst :: ListenerBoolConst -> ListenerBool castListenerBoolToNonconst (ListenerBoolConst ptr') = ListenerBool $ HoppyF.castPtr ptr' castListenerBoolToNonconst (ListenerBoolConstGc fptr' ptr') = ListenerBoolGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerBool where nullptr = ListenerBool HoppyF.nullPtr withCppPtr (ListenerBool ptr') f' = f' ptr' withCppPtr (ListenerBoolGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerBool ptr') = ptr' toPtr (ListenerBoolGc _ ptr') = ptr' touchCppPtr (ListenerBool _) = HoppyP.return () touchCppPtr (ListenerBoolGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerBool where delete (ListenerBool ptr') = delete'ListenerBool $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerBoolConst) delete (ListenerBoolGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerBool", " object."] toGc this'@(ListenerBool ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerBoolGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerBool :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerBoolGc {}) = HoppyP.return this' instance ListenerBoolConstPtr ListenerBool where toListenerBoolConst (ListenerBool ptr') = ListenerBoolConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerBool -> HoppyF.Ptr ListenerBoolConst) ptr' toListenerBoolConst (ListenerBoolGc fptr' ptr') = ListenerBoolConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerBool -> HoppyF.Ptr ListenerBoolConst) ptr' instance ListenerBoolPtr ListenerBool where toListenerBool = HoppyP.id instance M94.QObjectConstPtr ListenerBool where toQObjectConst (ListenerBool ptr') = M94.QObjectConst $ castListenerBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerBool -> HoppyF.Ptr ListenerBoolConst) ptr' toQObjectConst (ListenerBoolGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerBool -> HoppyF.Ptr ListenerBoolConst) ptr' instance M94.QObjectPtr ListenerBool where toQObject (ListenerBool ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerBool -> HoppyF.Ptr ListenerBoolConst) ptr' toQObject (ListenerBoolGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerBool -> HoppyF.Ptr ListenerBoolConst) ptr' listenerBool_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Bool -> HoppyP.IO ()) -> (HoppyP.IO ListenerBool) listenerBool_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackBoolVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerBool (listenerBool_new' arg'1' arg'2' arg'3') class ListenerBoolSuper a where downToListenerBool :: a -> ListenerBool instance ListenerBoolSuper M94.QObject where downToListenerBool = castListenerBoolToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerBoolConst $ castQObjectToListenerBool ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerBoolConstGc fptr' $ castQObjectToListenerBool ptr' class ListenerBoolSuperConst a where downToListenerBoolConst :: a -> ListenerBoolConst instance ListenerBoolSuperConst M94.QObjectConst where downToListenerBoolConst = cast' where cast' (M94.QObjectConst ptr') = ListenerBoolConst $ castQObjectToListenerBool ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerBoolConstGc fptr' $ castQObjectToListenerBool ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerBool)) ListenerBool where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerBool)) ListenerBool where decode = HoppyP.fmap ListenerBool . HoppyF.peek class ListenerDirectionValue a where withListenerDirectionPtr :: a -> (ListenerDirectionConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerDirectionConstPtr a => ListenerDirectionValue a where withListenerDirectionPtr = HoppyP.flip ($) . toListenerDirectionConst class (M94.QObjectConstPtr this) => ListenerDirectionConstPtr this where toListenerDirectionConst :: this -> ListenerDirectionConst listenerDirection_isValid :: (ListenerDirectionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerDirection_isValid arg'1 = withListenerDirectionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerDirection_isValid' arg'1') class (ListenerDirectionConstPtr this, M94.QObjectPtr this) => ListenerDirectionPtr this where toListenerDirection :: this -> ListenerDirection data ListenerDirectionConst = ListenerDirectionConst (HoppyF.Ptr ListenerDirectionConst) | ListenerDirectionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerDirectionConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerDirectionConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerDirectionConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerDirectionToConst :: ListenerDirection -> ListenerDirectionConst castListenerDirectionToConst (ListenerDirection ptr') = ListenerDirectionConst $ HoppyF.castPtr ptr' castListenerDirectionToConst (ListenerDirectionGc fptr' ptr') = ListenerDirectionConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerDirectionConst where nullptr = ListenerDirectionConst HoppyF.nullPtr withCppPtr (ListenerDirectionConst ptr') f' = f' ptr' withCppPtr (ListenerDirectionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerDirectionConst ptr') = ptr' toPtr (ListenerDirectionConstGc _ ptr') = ptr' touchCppPtr (ListenerDirectionConst _) = HoppyP.return () touchCppPtr (ListenerDirectionConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerDirectionConst where delete (ListenerDirectionConst ptr') = delete'ListenerDirection ptr' delete (ListenerDirectionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerDirectionConst", " object."] toGc this'@(ListenerDirectionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerDirectionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerDirection :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerDirectionConstGc {}) = HoppyP.return this' instance ListenerDirectionConstPtr ListenerDirectionConst where toListenerDirectionConst = HoppyP.id instance M94.QObjectConstPtr ListenerDirectionConst where toQObjectConst (ListenerDirectionConst ptr') = M94.QObjectConst $ castListenerDirectionToQObject ptr' toQObjectConst (ListenerDirectionConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerDirectionToQObject ptr' data ListenerDirection = ListenerDirection (HoppyF.Ptr ListenerDirection) | ListenerDirectionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerDirection) deriving (HoppyP.Show) instance HoppyP.Eq ListenerDirection where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerDirection where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerDirectionToNonconst :: ListenerDirectionConst -> ListenerDirection castListenerDirectionToNonconst (ListenerDirectionConst ptr') = ListenerDirection $ HoppyF.castPtr ptr' castListenerDirectionToNonconst (ListenerDirectionConstGc fptr' ptr') = ListenerDirectionGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerDirection where nullptr = ListenerDirection HoppyF.nullPtr withCppPtr (ListenerDirection ptr') f' = f' ptr' withCppPtr (ListenerDirectionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerDirection ptr') = ptr' toPtr (ListenerDirectionGc _ ptr') = ptr' touchCppPtr (ListenerDirection _) = HoppyP.return () touchCppPtr (ListenerDirectionGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerDirection where delete (ListenerDirection ptr') = delete'ListenerDirection $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerDirectionConst) delete (ListenerDirectionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerDirection", " object."] toGc this'@(ListenerDirection ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerDirectionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerDirection :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerDirectionGc {}) = HoppyP.return this' instance ListenerDirectionConstPtr ListenerDirection where toListenerDirectionConst (ListenerDirection ptr') = ListenerDirectionConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDirection -> HoppyF.Ptr ListenerDirectionConst) ptr' toListenerDirectionConst (ListenerDirectionGc fptr' ptr') = ListenerDirectionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDirection -> HoppyF.Ptr ListenerDirectionConst) ptr' instance ListenerDirectionPtr ListenerDirection where toListenerDirection = HoppyP.id instance M94.QObjectConstPtr ListenerDirection where toQObjectConst (ListenerDirection ptr') = M94.QObjectConst $ castListenerDirectionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDirection -> HoppyF.Ptr ListenerDirectionConst) ptr' toQObjectConst (ListenerDirectionGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerDirectionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDirection -> HoppyF.Ptr ListenerDirectionConst) ptr' instance M94.QObjectPtr ListenerDirection where toQObject (ListenerDirection ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerDirectionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDirection -> HoppyF.Ptr ListenerDirectionConst) ptr' toQObject (ListenerDirectionGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerDirectionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDirection -> HoppyF.Ptr ListenerDirectionConst) ptr' listenerDirection_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M2.QAbstractAnimationDirection -> HoppyP.IO ()) -> (HoppyP.IO ListenerDirection) listenerDirection_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackDirectionVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerDirection (listenerDirection_new' arg'1' arg'2' arg'3') class ListenerDirectionSuper a where downToListenerDirection :: a -> ListenerDirection instance ListenerDirectionSuper M94.QObject where downToListenerDirection = castListenerDirectionToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerDirectionConst $ castQObjectToListenerDirection ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerDirectionConstGc fptr' $ castQObjectToListenerDirection ptr' class ListenerDirectionSuperConst a where downToListenerDirectionConst :: a -> ListenerDirectionConst instance ListenerDirectionSuperConst M94.QObjectConst where downToListenerDirectionConst = cast' where cast' (M94.QObjectConst ptr') = ListenerDirectionConst $ castQObjectToListenerDirection ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerDirectionConstGc fptr' $ castQObjectToListenerDirection ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerDirection)) ListenerDirection where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerDirection)) ListenerDirection where decode = HoppyP.fmap ListenerDirection . HoppyF.peek class ListenerDockWidgetAreaValue a where withListenerDockWidgetAreaPtr :: a -> (ListenerDockWidgetAreaConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerDockWidgetAreaConstPtr a => ListenerDockWidgetAreaValue a where withListenerDockWidgetAreaPtr = HoppyP.flip ($) . toListenerDockWidgetAreaConst class (M94.QObjectConstPtr this) => ListenerDockWidgetAreaConstPtr this where toListenerDockWidgetAreaConst :: this -> ListenerDockWidgetAreaConst listenerDockWidgetArea_isValid :: (ListenerDockWidgetAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerDockWidgetArea_isValid arg'1 = withListenerDockWidgetAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerDockWidgetArea_isValid' arg'1') class (ListenerDockWidgetAreaConstPtr this, M94.QObjectPtr this) => ListenerDockWidgetAreaPtr this where toListenerDockWidgetArea :: this -> ListenerDockWidgetArea data ListenerDockWidgetAreaConst = ListenerDockWidgetAreaConst (HoppyF.Ptr ListenerDockWidgetAreaConst) | ListenerDockWidgetAreaConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerDockWidgetAreaConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerDockWidgetAreaConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerDockWidgetAreaConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerDockWidgetAreaToConst :: ListenerDockWidgetArea -> ListenerDockWidgetAreaConst castListenerDockWidgetAreaToConst (ListenerDockWidgetArea ptr') = ListenerDockWidgetAreaConst $ HoppyF.castPtr ptr' castListenerDockWidgetAreaToConst (ListenerDockWidgetAreaGc fptr' ptr') = ListenerDockWidgetAreaConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerDockWidgetAreaConst where nullptr = ListenerDockWidgetAreaConst HoppyF.nullPtr withCppPtr (ListenerDockWidgetAreaConst ptr') f' = f' ptr' withCppPtr (ListenerDockWidgetAreaConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerDockWidgetAreaConst ptr') = ptr' toPtr (ListenerDockWidgetAreaConstGc _ ptr') = ptr' touchCppPtr (ListenerDockWidgetAreaConst _) = HoppyP.return () touchCppPtr (ListenerDockWidgetAreaConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerDockWidgetAreaConst where delete (ListenerDockWidgetAreaConst ptr') = delete'ListenerDockWidgetArea ptr' delete (ListenerDockWidgetAreaConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerDockWidgetAreaConst", " object."] toGc this'@(ListenerDockWidgetAreaConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerDockWidgetAreaConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerDockWidgetArea :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerDockWidgetAreaConstGc {}) = HoppyP.return this' instance ListenerDockWidgetAreaConstPtr ListenerDockWidgetAreaConst where toListenerDockWidgetAreaConst = HoppyP.id instance M94.QObjectConstPtr ListenerDockWidgetAreaConst where toQObjectConst (ListenerDockWidgetAreaConst ptr') = M94.QObjectConst $ castListenerDockWidgetAreaToQObject ptr' toQObjectConst (ListenerDockWidgetAreaConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerDockWidgetAreaToQObject ptr' data ListenerDockWidgetArea = ListenerDockWidgetArea (HoppyF.Ptr ListenerDockWidgetArea) | ListenerDockWidgetAreaGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerDockWidgetArea) deriving (HoppyP.Show) instance HoppyP.Eq ListenerDockWidgetArea where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerDockWidgetArea where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerDockWidgetAreaToNonconst :: ListenerDockWidgetAreaConst -> ListenerDockWidgetArea castListenerDockWidgetAreaToNonconst (ListenerDockWidgetAreaConst ptr') = ListenerDockWidgetArea $ HoppyF.castPtr ptr' castListenerDockWidgetAreaToNonconst (ListenerDockWidgetAreaConstGc fptr' ptr') = ListenerDockWidgetAreaGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerDockWidgetArea where nullptr = ListenerDockWidgetArea HoppyF.nullPtr withCppPtr (ListenerDockWidgetArea ptr') f' = f' ptr' withCppPtr (ListenerDockWidgetAreaGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerDockWidgetArea ptr') = ptr' toPtr (ListenerDockWidgetAreaGc _ ptr') = ptr' touchCppPtr (ListenerDockWidgetArea _) = HoppyP.return () touchCppPtr (ListenerDockWidgetAreaGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerDockWidgetArea where delete (ListenerDockWidgetArea ptr') = delete'ListenerDockWidgetArea $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerDockWidgetAreaConst) delete (ListenerDockWidgetAreaGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerDockWidgetArea", " object."] toGc this'@(ListenerDockWidgetArea ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerDockWidgetAreaGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerDockWidgetArea :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerDockWidgetAreaGc {}) = HoppyP.return this' instance ListenerDockWidgetAreaConstPtr ListenerDockWidgetArea where toListenerDockWidgetAreaConst (ListenerDockWidgetArea ptr') = ListenerDockWidgetAreaConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetArea -> HoppyF.Ptr ListenerDockWidgetAreaConst) ptr' toListenerDockWidgetAreaConst (ListenerDockWidgetAreaGc fptr' ptr') = ListenerDockWidgetAreaConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetArea -> HoppyF.Ptr ListenerDockWidgetAreaConst) ptr' instance ListenerDockWidgetAreaPtr ListenerDockWidgetArea where toListenerDockWidgetArea = HoppyP.id instance M94.QObjectConstPtr ListenerDockWidgetArea where toQObjectConst (ListenerDockWidgetArea ptr') = M94.QObjectConst $ castListenerDockWidgetAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetArea -> HoppyF.Ptr ListenerDockWidgetAreaConst) ptr' toQObjectConst (ListenerDockWidgetAreaGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerDockWidgetAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetArea -> HoppyF.Ptr ListenerDockWidgetAreaConst) ptr' instance M94.QObjectPtr ListenerDockWidgetArea where toQObject (ListenerDockWidgetArea ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerDockWidgetAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetArea -> HoppyF.Ptr ListenerDockWidgetAreaConst) ptr' toQObject (ListenerDockWidgetAreaGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerDockWidgetAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetArea -> HoppyF.Ptr ListenerDockWidgetAreaConst) ptr' listenerDockWidgetArea_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtDockWidgetArea -> HoppyP.IO ()) -> (HoppyP.IO ListenerDockWidgetArea) listenerDockWidgetArea_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackDockWidgetAreaVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerDockWidgetArea (listenerDockWidgetArea_new' arg'1' arg'2' arg'3') class ListenerDockWidgetAreaSuper a where downToListenerDockWidgetArea :: a -> ListenerDockWidgetArea instance ListenerDockWidgetAreaSuper M94.QObject where downToListenerDockWidgetArea = castListenerDockWidgetAreaToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerDockWidgetAreaConst $ castQObjectToListenerDockWidgetArea ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerDockWidgetAreaConstGc fptr' $ castQObjectToListenerDockWidgetArea ptr' class ListenerDockWidgetAreaSuperConst a where downToListenerDockWidgetAreaConst :: a -> ListenerDockWidgetAreaConst instance ListenerDockWidgetAreaSuperConst M94.QObjectConst where downToListenerDockWidgetAreaConst = cast' where cast' (M94.QObjectConst ptr') = ListenerDockWidgetAreaConst $ castQObjectToListenerDockWidgetArea ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerDockWidgetAreaConstGc fptr' $ castQObjectToListenerDockWidgetArea ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerDockWidgetArea)) ListenerDockWidgetArea where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerDockWidgetArea)) ListenerDockWidgetArea where decode = HoppyP.fmap ListenerDockWidgetArea . HoppyF.peek class ListenerDockWidgetAreasValue a where withListenerDockWidgetAreasPtr :: a -> (ListenerDockWidgetAreasConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerDockWidgetAreasConstPtr a => ListenerDockWidgetAreasValue a where withListenerDockWidgetAreasPtr = HoppyP.flip ($) . toListenerDockWidgetAreasConst class (M94.QObjectConstPtr this) => ListenerDockWidgetAreasConstPtr this where toListenerDockWidgetAreasConst :: this -> ListenerDockWidgetAreasConst listenerDockWidgetAreas_isValid :: (ListenerDockWidgetAreasValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerDockWidgetAreas_isValid arg'1 = withListenerDockWidgetAreasPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerDockWidgetAreas_isValid' arg'1') class (ListenerDockWidgetAreasConstPtr this, M94.QObjectPtr this) => ListenerDockWidgetAreasPtr this where toListenerDockWidgetAreas :: this -> ListenerDockWidgetAreas data ListenerDockWidgetAreasConst = ListenerDockWidgetAreasConst (HoppyF.Ptr ListenerDockWidgetAreasConst) | ListenerDockWidgetAreasConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerDockWidgetAreasConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerDockWidgetAreasConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerDockWidgetAreasConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerDockWidgetAreasToConst :: ListenerDockWidgetAreas -> ListenerDockWidgetAreasConst castListenerDockWidgetAreasToConst (ListenerDockWidgetAreas ptr') = ListenerDockWidgetAreasConst $ HoppyF.castPtr ptr' castListenerDockWidgetAreasToConst (ListenerDockWidgetAreasGc fptr' ptr') = ListenerDockWidgetAreasConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerDockWidgetAreasConst where nullptr = ListenerDockWidgetAreasConst HoppyF.nullPtr withCppPtr (ListenerDockWidgetAreasConst ptr') f' = f' ptr' withCppPtr (ListenerDockWidgetAreasConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerDockWidgetAreasConst ptr') = ptr' toPtr (ListenerDockWidgetAreasConstGc _ ptr') = ptr' touchCppPtr (ListenerDockWidgetAreasConst _) = HoppyP.return () touchCppPtr (ListenerDockWidgetAreasConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerDockWidgetAreasConst where delete (ListenerDockWidgetAreasConst ptr') = delete'ListenerDockWidgetAreas ptr' delete (ListenerDockWidgetAreasConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerDockWidgetAreasConst", " object."] toGc this'@(ListenerDockWidgetAreasConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerDockWidgetAreasConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerDockWidgetAreas :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerDockWidgetAreasConstGc {}) = HoppyP.return this' instance ListenerDockWidgetAreasConstPtr ListenerDockWidgetAreasConst where toListenerDockWidgetAreasConst = HoppyP.id instance M94.QObjectConstPtr ListenerDockWidgetAreasConst where toQObjectConst (ListenerDockWidgetAreasConst ptr') = M94.QObjectConst $ castListenerDockWidgetAreasToQObject ptr' toQObjectConst (ListenerDockWidgetAreasConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerDockWidgetAreasToQObject ptr' data ListenerDockWidgetAreas = ListenerDockWidgetAreas (HoppyF.Ptr ListenerDockWidgetAreas) | ListenerDockWidgetAreasGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerDockWidgetAreas) deriving (HoppyP.Show) instance HoppyP.Eq ListenerDockWidgetAreas where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerDockWidgetAreas where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerDockWidgetAreasToNonconst :: ListenerDockWidgetAreasConst -> ListenerDockWidgetAreas castListenerDockWidgetAreasToNonconst (ListenerDockWidgetAreasConst ptr') = ListenerDockWidgetAreas $ HoppyF.castPtr ptr' castListenerDockWidgetAreasToNonconst (ListenerDockWidgetAreasConstGc fptr' ptr') = ListenerDockWidgetAreasGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerDockWidgetAreas where nullptr = ListenerDockWidgetAreas HoppyF.nullPtr withCppPtr (ListenerDockWidgetAreas ptr') f' = f' ptr' withCppPtr (ListenerDockWidgetAreasGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerDockWidgetAreas ptr') = ptr' toPtr (ListenerDockWidgetAreasGc _ ptr') = ptr' touchCppPtr (ListenerDockWidgetAreas _) = HoppyP.return () touchCppPtr (ListenerDockWidgetAreasGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerDockWidgetAreas where delete (ListenerDockWidgetAreas ptr') = delete'ListenerDockWidgetAreas $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerDockWidgetAreasConst) delete (ListenerDockWidgetAreasGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerDockWidgetAreas", " object."] toGc this'@(ListenerDockWidgetAreas ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerDockWidgetAreasGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerDockWidgetAreas :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerDockWidgetAreasGc {}) = HoppyP.return this' instance ListenerDockWidgetAreasConstPtr ListenerDockWidgetAreas where toListenerDockWidgetAreasConst (ListenerDockWidgetAreas ptr') = ListenerDockWidgetAreasConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetAreas -> HoppyF.Ptr ListenerDockWidgetAreasConst) ptr' toListenerDockWidgetAreasConst (ListenerDockWidgetAreasGc fptr' ptr') = ListenerDockWidgetAreasConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetAreas -> HoppyF.Ptr ListenerDockWidgetAreasConst) ptr' instance ListenerDockWidgetAreasPtr ListenerDockWidgetAreas where toListenerDockWidgetAreas = HoppyP.id instance M94.QObjectConstPtr ListenerDockWidgetAreas where toQObjectConst (ListenerDockWidgetAreas ptr') = M94.QObjectConst $ castListenerDockWidgetAreasToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetAreas -> HoppyF.Ptr ListenerDockWidgetAreasConst) ptr' toQObjectConst (ListenerDockWidgetAreasGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerDockWidgetAreasToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetAreas -> HoppyF.Ptr ListenerDockWidgetAreasConst) ptr' instance M94.QObjectPtr ListenerDockWidgetAreas where toQObject (ListenerDockWidgetAreas ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerDockWidgetAreasToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetAreas -> HoppyF.Ptr ListenerDockWidgetAreasConst) ptr' toQObject (ListenerDockWidgetAreasGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerDockWidgetAreasToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDockWidgetAreas -> HoppyF.Ptr ListenerDockWidgetAreasConst) ptr' listenerDockWidgetAreas_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtDockWidgetAreas -> HoppyP.IO ()) -> (HoppyP.IO ListenerDockWidgetAreas) listenerDockWidgetAreas_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackDockWidgetAreasVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerDockWidgetAreas (listenerDockWidgetAreas_new' arg'1' arg'2' arg'3') class ListenerDockWidgetAreasSuper a where downToListenerDockWidgetAreas :: a -> ListenerDockWidgetAreas instance ListenerDockWidgetAreasSuper M94.QObject where downToListenerDockWidgetAreas = castListenerDockWidgetAreasToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerDockWidgetAreasConst $ castQObjectToListenerDockWidgetAreas ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerDockWidgetAreasConstGc fptr' $ castQObjectToListenerDockWidgetAreas ptr' class ListenerDockWidgetAreasSuperConst a where downToListenerDockWidgetAreasConst :: a -> ListenerDockWidgetAreasConst instance ListenerDockWidgetAreasSuperConst M94.QObjectConst where downToListenerDockWidgetAreasConst = cast' where cast' (M94.QObjectConst ptr') = ListenerDockWidgetAreasConst $ castQObjectToListenerDockWidgetAreas ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerDockWidgetAreasConstGc fptr' $ castQObjectToListenerDockWidgetAreas ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerDockWidgetAreas)) ListenerDockWidgetAreas where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerDockWidgetAreas)) ListenerDockWidgetAreas where decode = HoppyP.fmap ListenerDockWidgetAreas . HoppyF.peek class ListenerDoubleValue a where withListenerDoublePtr :: a -> (ListenerDoubleConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerDoubleConstPtr a => ListenerDoubleValue a where withListenerDoublePtr = HoppyP.flip ($) . toListenerDoubleConst class (M94.QObjectConstPtr this) => ListenerDoubleConstPtr this where toListenerDoubleConst :: this -> ListenerDoubleConst listenerDouble_isValid :: (ListenerDoubleValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerDouble_isValid arg'1 = withListenerDoublePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerDouble_isValid' arg'1') class (ListenerDoubleConstPtr this, M94.QObjectPtr this) => ListenerDoublePtr this where toListenerDouble :: this -> ListenerDouble data ListenerDoubleConst = ListenerDoubleConst (HoppyF.Ptr ListenerDoubleConst) | ListenerDoubleConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerDoubleConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerDoubleConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerDoubleConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerDoubleToConst :: ListenerDouble -> ListenerDoubleConst castListenerDoubleToConst (ListenerDouble ptr') = ListenerDoubleConst $ HoppyF.castPtr ptr' castListenerDoubleToConst (ListenerDoubleGc fptr' ptr') = ListenerDoubleConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerDoubleConst where nullptr = ListenerDoubleConst HoppyF.nullPtr withCppPtr (ListenerDoubleConst ptr') f' = f' ptr' withCppPtr (ListenerDoubleConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerDoubleConst ptr') = ptr' toPtr (ListenerDoubleConstGc _ ptr') = ptr' touchCppPtr (ListenerDoubleConst _) = HoppyP.return () touchCppPtr (ListenerDoubleConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerDoubleConst where delete (ListenerDoubleConst ptr') = delete'ListenerDouble ptr' delete (ListenerDoubleConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerDoubleConst", " object."] toGc this'@(ListenerDoubleConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerDoubleConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerDouble :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerDoubleConstGc {}) = HoppyP.return this' instance ListenerDoubleConstPtr ListenerDoubleConst where toListenerDoubleConst = HoppyP.id instance M94.QObjectConstPtr ListenerDoubleConst where toQObjectConst (ListenerDoubleConst ptr') = M94.QObjectConst $ castListenerDoubleToQObject ptr' toQObjectConst (ListenerDoubleConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerDoubleToQObject ptr' data ListenerDouble = ListenerDouble (HoppyF.Ptr ListenerDouble) | ListenerDoubleGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerDouble) deriving (HoppyP.Show) instance HoppyP.Eq ListenerDouble where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerDouble where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerDoubleToNonconst :: ListenerDoubleConst -> ListenerDouble castListenerDoubleToNonconst (ListenerDoubleConst ptr') = ListenerDouble $ HoppyF.castPtr ptr' castListenerDoubleToNonconst (ListenerDoubleConstGc fptr' ptr') = ListenerDoubleGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerDouble where nullptr = ListenerDouble HoppyF.nullPtr withCppPtr (ListenerDouble ptr') f' = f' ptr' withCppPtr (ListenerDoubleGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerDouble ptr') = ptr' toPtr (ListenerDoubleGc _ ptr') = ptr' touchCppPtr (ListenerDouble _) = HoppyP.return () touchCppPtr (ListenerDoubleGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerDouble where delete (ListenerDouble ptr') = delete'ListenerDouble $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerDoubleConst) delete (ListenerDoubleGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerDouble", " object."] toGc this'@(ListenerDouble ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerDoubleGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerDouble :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerDoubleGc {}) = HoppyP.return this' instance ListenerDoubleConstPtr ListenerDouble where toListenerDoubleConst (ListenerDouble ptr') = ListenerDoubleConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDouble -> HoppyF.Ptr ListenerDoubleConst) ptr' toListenerDoubleConst (ListenerDoubleGc fptr' ptr') = ListenerDoubleConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDouble -> HoppyF.Ptr ListenerDoubleConst) ptr' instance ListenerDoublePtr ListenerDouble where toListenerDouble = HoppyP.id instance M94.QObjectConstPtr ListenerDouble where toQObjectConst (ListenerDouble ptr') = M94.QObjectConst $ castListenerDoubleToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDouble -> HoppyF.Ptr ListenerDoubleConst) ptr' toQObjectConst (ListenerDoubleGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerDoubleToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDouble -> HoppyF.Ptr ListenerDoubleConst) ptr' instance M94.QObjectPtr ListenerDouble where toQObject (ListenerDouble ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerDoubleToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDouble -> HoppyF.Ptr ListenerDoubleConst) ptr' toQObject (ListenerDoubleGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerDoubleToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerDouble -> HoppyF.Ptr ListenerDoubleConst) ptr' listenerDouble_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Double -> HoppyP.IO ()) -> (HoppyP.IO ListenerDouble) listenerDouble_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackDoubleVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerDouble (listenerDouble_new' arg'1' arg'2' arg'3') class ListenerDoubleSuper a where downToListenerDouble :: a -> ListenerDouble instance ListenerDoubleSuper M94.QObject where downToListenerDouble = castListenerDoubleToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerDoubleConst $ castQObjectToListenerDouble ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerDoubleConstGc fptr' $ castQObjectToListenerDouble ptr' class ListenerDoubleSuperConst a where downToListenerDoubleConst :: a -> ListenerDoubleConst instance ListenerDoubleSuperConst M94.QObjectConst where downToListenerDoubleConst = cast' where cast' (M94.QObjectConst ptr') = ListenerDoubleConst $ castQObjectToListenerDouble ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerDoubleConstGc fptr' $ castQObjectToListenerDouble ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerDouble)) ListenerDouble where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerDouble)) ListenerDouble where decode = HoppyP.fmap ListenerDouble . HoppyF.peek class ListenerIntValue a where withListenerIntPtr :: a -> (ListenerIntConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerIntConstPtr a => ListenerIntValue a where withListenerIntPtr = HoppyP.flip ($) . toListenerIntConst class (M94.QObjectConstPtr this) => ListenerIntConstPtr this where toListenerIntConst :: this -> ListenerIntConst listenerInt_isValid :: (ListenerIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerInt_isValid arg'1 = withListenerIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerInt_isValid' arg'1') class (ListenerIntConstPtr this, M94.QObjectPtr this) => ListenerIntPtr this where toListenerInt :: this -> ListenerInt data ListenerIntConst = ListenerIntConst (HoppyF.Ptr ListenerIntConst) | ListenerIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntToConst :: ListenerInt -> ListenerIntConst castListenerIntToConst (ListenerInt ptr') = ListenerIntConst $ HoppyF.castPtr ptr' castListenerIntToConst (ListenerIntGc fptr' ptr') = ListenerIntConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntConst where nullptr = ListenerIntConst HoppyF.nullPtr withCppPtr (ListenerIntConst ptr') f' = f' ptr' withCppPtr (ListenerIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntConst ptr') = ptr' toPtr (ListenerIntConstGc _ ptr') = ptr' touchCppPtr (ListenerIntConst _) = HoppyP.return () touchCppPtr (ListenerIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntConst where delete (ListenerIntConst ptr') = delete'ListenerInt ptr' delete (ListenerIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntConst", " object."] toGc this'@(ListenerIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntConstGc {}) = HoppyP.return this' instance ListenerIntConstPtr ListenerIntConst where toListenerIntConst = HoppyP.id instance M94.QObjectConstPtr ListenerIntConst where toQObjectConst (ListenerIntConst ptr') = M94.QObjectConst $ castListenerIntToQObject ptr' toQObjectConst (ListenerIntConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntToQObject ptr' data ListenerInt = ListenerInt (HoppyF.Ptr ListenerInt) | ListenerIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerInt) deriving (HoppyP.Show) instance HoppyP.Eq ListenerInt where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerInt where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntToNonconst :: ListenerIntConst -> ListenerInt castListenerIntToNonconst (ListenerIntConst ptr') = ListenerInt $ HoppyF.castPtr ptr' castListenerIntToNonconst (ListenerIntConstGc fptr' ptr') = ListenerIntGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerInt where nullptr = ListenerInt HoppyF.nullPtr withCppPtr (ListenerInt ptr') f' = f' ptr' withCppPtr (ListenerIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerInt ptr') = ptr' toPtr (ListenerIntGc _ ptr') = ptr' touchCppPtr (ListenerInt _) = HoppyP.return () touchCppPtr (ListenerIntGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerInt where delete (ListenerInt ptr') = delete'ListenerInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerIntConst) delete (ListenerIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerInt", " object."] toGc this'@(ListenerInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntGc {}) = HoppyP.return this' instance ListenerIntConstPtr ListenerInt where toListenerIntConst (ListenerInt ptr') = ListenerIntConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerInt -> HoppyF.Ptr ListenerIntConst) ptr' toListenerIntConst (ListenerIntGc fptr' ptr') = ListenerIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerInt -> HoppyF.Ptr ListenerIntConst) ptr' instance ListenerIntPtr ListenerInt where toListenerInt = HoppyP.id instance M94.QObjectConstPtr ListenerInt where toQObjectConst (ListenerInt ptr') = M94.QObjectConst $ castListenerIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerInt -> HoppyF.Ptr ListenerIntConst) ptr' toQObjectConst (ListenerIntGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerInt -> HoppyF.Ptr ListenerIntConst) ptr' instance M94.QObjectPtr ListenerInt where toQObject (ListenerInt ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerInt -> HoppyF.Ptr ListenerIntConst) ptr' toQObject (ListenerIntGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerInt -> HoppyF.Ptr ListenerIntConst) ptr' listenerInt_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Int -> HoppyP.IO ()) -> (HoppyP.IO ListenerInt) listenerInt_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackIntVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerInt (listenerInt_new' arg'1' arg'2' arg'3') class ListenerIntSuper a where downToListenerInt :: a -> ListenerInt instance ListenerIntSuper M94.QObject where downToListenerInt = castListenerIntToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerIntConst $ castQObjectToListenerInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntConstGc fptr' $ castQObjectToListenerInt ptr' class ListenerIntSuperConst a where downToListenerIntConst :: a -> ListenerIntConst instance ListenerIntSuperConst M94.QObjectConst where downToListenerIntConst = cast' where cast' (M94.QObjectConst ptr') = ListenerIntConst $ castQObjectToListenerInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntConstGc fptr' $ castQObjectToListenerInt ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerInt)) ListenerInt where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerInt)) ListenerInt where decode = HoppyP.fmap ListenerInt . HoppyF.peek class ListenerIntBoolValue a where withListenerIntBoolPtr :: a -> (ListenerIntBoolConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerIntBoolConstPtr a => ListenerIntBoolValue a where withListenerIntBoolPtr = HoppyP.flip ($) . toListenerIntBoolConst class (M94.QObjectConstPtr this) => ListenerIntBoolConstPtr this where toListenerIntBoolConst :: this -> ListenerIntBoolConst listenerIntBool_isValid :: (ListenerIntBoolValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerIntBool_isValid arg'1 = withListenerIntBoolPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerIntBool_isValid' arg'1') class (ListenerIntBoolConstPtr this, M94.QObjectPtr this) => ListenerIntBoolPtr this where toListenerIntBool :: this -> ListenerIntBool data ListenerIntBoolConst = ListenerIntBoolConst (HoppyF.Ptr ListenerIntBoolConst) | ListenerIntBoolConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntBoolConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntBoolConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntBoolConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntBoolToConst :: ListenerIntBool -> ListenerIntBoolConst castListenerIntBoolToConst (ListenerIntBool ptr') = ListenerIntBoolConst $ HoppyF.castPtr ptr' castListenerIntBoolToConst (ListenerIntBoolGc fptr' ptr') = ListenerIntBoolConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntBoolConst where nullptr = ListenerIntBoolConst HoppyF.nullPtr withCppPtr (ListenerIntBoolConst ptr') f' = f' ptr' withCppPtr (ListenerIntBoolConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntBoolConst ptr') = ptr' toPtr (ListenerIntBoolConstGc _ ptr') = ptr' touchCppPtr (ListenerIntBoolConst _) = HoppyP.return () touchCppPtr (ListenerIntBoolConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntBoolConst where delete (ListenerIntBoolConst ptr') = delete'ListenerIntBool ptr' delete (ListenerIntBoolConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntBoolConst", " object."] toGc this'@(ListenerIntBoolConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntBoolConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerIntBool :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntBoolConstGc {}) = HoppyP.return this' instance ListenerIntBoolConstPtr ListenerIntBoolConst where toListenerIntBoolConst = HoppyP.id instance M94.QObjectConstPtr ListenerIntBoolConst where toQObjectConst (ListenerIntBoolConst ptr') = M94.QObjectConst $ castListenerIntBoolToQObject ptr' toQObjectConst (ListenerIntBoolConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntBoolToQObject ptr' data ListenerIntBool = ListenerIntBool (HoppyF.Ptr ListenerIntBool) | ListenerIntBoolGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntBool) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntBool where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntBool where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntBoolToNonconst :: ListenerIntBoolConst -> ListenerIntBool castListenerIntBoolToNonconst (ListenerIntBoolConst ptr') = ListenerIntBool $ HoppyF.castPtr ptr' castListenerIntBoolToNonconst (ListenerIntBoolConstGc fptr' ptr') = ListenerIntBoolGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntBool where nullptr = ListenerIntBool HoppyF.nullPtr withCppPtr (ListenerIntBool ptr') f' = f' ptr' withCppPtr (ListenerIntBoolGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntBool ptr') = ptr' toPtr (ListenerIntBoolGc _ ptr') = ptr' touchCppPtr (ListenerIntBool _) = HoppyP.return () touchCppPtr (ListenerIntBoolGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntBool where delete (ListenerIntBool ptr') = delete'ListenerIntBool $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerIntBoolConst) delete (ListenerIntBoolGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntBool", " object."] toGc this'@(ListenerIntBool ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntBoolGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerIntBool :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntBoolGc {}) = HoppyP.return this' instance ListenerIntBoolConstPtr ListenerIntBool where toListenerIntBoolConst (ListenerIntBool ptr') = ListenerIntBoolConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntBool -> HoppyF.Ptr ListenerIntBoolConst) ptr' toListenerIntBoolConst (ListenerIntBoolGc fptr' ptr') = ListenerIntBoolConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntBool -> HoppyF.Ptr ListenerIntBoolConst) ptr' instance ListenerIntBoolPtr ListenerIntBool where toListenerIntBool = HoppyP.id instance M94.QObjectConstPtr ListenerIntBool where toQObjectConst (ListenerIntBool ptr') = M94.QObjectConst $ castListenerIntBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntBool -> HoppyF.Ptr ListenerIntBoolConst) ptr' toQObjectConst (ListenerIntBoolGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntBool -> HoppyF.Ptr ListenerIntBoolConst) ptr' instance M94.QObjectPtr ListenerIntBool where toQObject (ListenerIntBool ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntBool -> HoppyF.Ptr ListenerIntBoolConst) ptr' toQObject (ListenerIntBoolGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntBool -> HoppyF.Ptr ListenerIntBoolConst) ptr' listenerIntBool_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Int -> HoppyP.Bool -> HoppyP.IO ()) -> (HoppyP.IO ListenerIntBool) listenerIntBool_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackIntBoolVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerIntBool (listenerIntBool_new' arg'1' arg'2' arg'3') class ListenerIntBoolSuper a where downToListenerIntBool :: a -> ListenerIntBool instance ListenerIntBoolSuper M94.QObject where downToListenerIntBool = castListenerIntBoolToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerIntBoolConst $ castQObjectToListenerIntBool ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntBoolConstGc fptr' $ castQObjectToListenerIntBool ptr' class ListenerIntBoolSuperConst a where downToListenerIntBoolConst :: a -> ListenerIntBoolConst instance ListenerIntBoolSuperConst M94.QObjectConst where downToListenerIntBoolConst = cast' where cast' (M94.QObjectConst ptr') = ListenerIntBoolConst $ castQObjectToListenerIntBool ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntBoolConstGc fptr' $ castQObjectToListenerIntBool ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerIntBool)) ListenerIntBool where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerIntBool)) ListenerIntBool where decode = HoppyP.fmap ListenerIntBool . HoppyF.peek class ListenerIntExitStatusValue a where withListenerIntExitStatusPtr :: a -> (ListenerIntExitStatusConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerIntExitStatusConstPtr a => ListenerIntExitStatusValue a where withListenerIntExitStatusPtr = HoppyP.flip ($) . toListenerIntExitStatusConst class (M94.QObjectConstPtr this) => ListenerIntExitStatusConstPtr this where toListenerIntExitStatusConst :: this -> ListenerIntExitStatusConst listenerIntExitStatus_isValid :: (ListenerIntExitStatusValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerIntExitStatus_isValid arg'1 = withListenerIntExitStatusPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerIntExitStatus_isValid' arg'1') class (ListenerIntExitStatusConstPtr this, M94.QObjectPtr this) => ListenerIntExitStatusPtr this where toListenerIntExitStatus :: this -> ListenerIntExitStatus data ListenerIntExitStatusConst = ListenerIntExitStatusConst (HoppyF.Ptr ListenerIntExitStatusConst) | ListenerIntExitStatusConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntExitStatusConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntExitStatusConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntExitStatusConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntExitStatusToConst :: ListenerIntExitStatus -> ListenerIntExitStatusConst castListenerIntExitStatusToConst (ListenerIntExitStatus ptr') = ListenerIntExitStatusConst $ HoppyF.castPtr ptr' castListenerIntExitStatusToConst (ListenerIntExitStatusGc fptr' ptr') = ListenerIntExitStatusConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntExitStatusConst where nullptr = ListenerIntExitStatusConst HoppyF.nullPtr withCppPtr (ListenerIntExitStatusConst ptr') f' = f' ptr' withCppPtr (ListenerIntExitStatusConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntExitStatusConst ptr') = ptr' toPtr (ListenerIntExitStatusConstGc _ ptr') = ptr' touchCppPtr (ListenerIntExitStatusConst _) = HoppyP.return () touchCppPtr (ListenerIntExitStatusConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntExitStatusConst where delete (ListenerIntExitStatusConst ptr') = delete'ListenerIntExitStatus ptr' delete (ListenerIntExitStatusConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntExitStatusConst", " object."] toGc this'@(ListenerIntExitStatusConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntExitStatusConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerIntExitStatus :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntExitStatusConstGc {}) = HoppyP.return this' instance ListenerIntExitStatusConstPtr ListenerIntExitStatusConst where toListenerIntExitStatusConst = HoppyP.id instance M94.QObjectConstPtr ListenerIntExitStatusConst where toQObjectConst (ListenerIntExitStatusConst ptr') = M94.QObjectConst $ castListenerIntExitStatusToQObject ptr' toQObjectConst (ListenerIntExitStatusConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntExitStatusToQObject ptr' data ListenerIntExitStatus = ListenerIntExitStatus (HoppyF.Ptr ListenerIntExitStatus) | ListenerIntExitStatusGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntExitStatus) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntExitStatus where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntExitStatus where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntExitStatusToNonconst :: ListenerIntExitStatusConst -> ListenerIntExitStatus castListenerIntExitStatusToNonconst (ListenerIntExitStatusConst ptr') = ListenerIntExitStatus $ HoppyF.castPtr ptr' castListenerIntExitStatusToNonconst (ListenerIntExitStatusConstGc fptr' ptr') = ListenerIntExitStatusGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntExitStatus where nullptr = ListenerIntExitStatus HoppyF.nullPtr withCppPtr (ListenerIntExitStatus ptr') f' = f' ptr' withCppPtr (ListenerIntExitStatusGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntExitStatus ptr') = ptr' toPtr (ListenerIntExitStatusGc _ ptr') = ptr' touchCppPtr (ListenerIntExitStatus _) = HoppyP.return () touchCppPtr (ListenerIntExitStatusGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntExitStatus where delete (ListenerIntExitStatus ptr') = delete'ListenerIntExitStatus $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerIntExitStatusConst) delete (ListenerIntExitStatusGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntExitStatus", " object."] toGc this'@(ListenerIntExitStatus ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntExitStatusGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerIntExitStatus :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntExitStatusGc {}) = HoppyP.return this' instance ListenerIntExitStatusConstPtr ListenerIntExitStatus where toListenerIntExitStatusConst (ListenerIntExitStatus ptr') = ListenerIntExitStatusConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntExitStatus -> HoppyF.Ptr ListenerIntExitStatusConst) ptr' toListenerIntExitStatusConst (ListenerIntExitStatusGc fptr' ptr') = ListenerIntExitStatusConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntExitStatus -> HoppyF.Ptr ListenerIntExitStatusConst) ptr' instance ListenerIntExitStatusPtr ListenerIntExitStatus where toListenerIntExitStatus = HoppyP.id instance M94.QObjectConstPtr ListenerIntExitStatus where toQObjectConst (ListenerIntExitStatus ptr') = M94.QObjectConst $ castListenerIntExitStatusToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntExitStatus -> HoppyF.Ptr ListenerIntExitStatusConst) ptr' toQObjectConst (ListenerIntExitStatusGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntExitStatusToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntExitStatus -> HoppyF.Ptr ListenerIntExitStatusConst) ptr' instance M94.QObjectPtr ListenerIntExitStatus where toQObject (ListenerIntExitStatus ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntExitStatusToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntExitStatus -> HoppyF.Ptr ListenerIntExitStatusConst) ptr' toQObject (ListenerIntExitStatusGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntExitStatusToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntExitStatus -> HoppyF.Ptr ListenerIntExitStatusConst) ptr' listenerIntExitStatus_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Int -> M106.QProcessExitStatus -> HoppyP.IO ()) -> (HoppyP.IO ListenerIntExitStatus) listenerIntExitStatus_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackIntExitStatusVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerIntExitStatus (listenerIntExitStatus_new' arg'1' arg'2' arg'3') class ListenerIntExitStatusSuper a where downToListenerIntExitStatus :: a -> ListenerIntExitStatus instance ListenerIntExitStatusSuper M94.QObject where downToListenerIntExitStatus = castListenerIntExitStatusToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerIntExitStatusConst $ castQObjectToListenerIntExitStatus ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntExitStatusConstGc fptr' $ castQObjectToListenerIntExitStatus ptr' class ListenerIntExitStatusSuperConst a where downToListenerIntExitStatusConst :: a -> ListenerIntExitStatusConst instance ListenerIntExitStatusSuperConst M94.QObjectConst where downToListenerIntExitStatusConst = cast' where cast' (M94.QObjectConst ptr') = ListenerIntExitStatusConst $ castQObjectToListenerIntExitStatus ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntExitStatusConstGc fptr' $ castQObjectToListenerIntExitStatus ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerIntExitStatus)) ListenerIntExitStatus where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerIntExitStatus)) ListenerIntExitStatus where decode = HoppyP.fmap ListenerIntExitStatus . HoppyF.peek class ListenerIntIntValue a where withListenerIntIntPtr :: a -> (ListenerIntIntConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerIntIntConstPtr a => ListenerIntIntValue a where withListenerIntIntPtr = HoppyP.flip ($) . toListenerIntIntConst class (M94.QObjectConstPtr this) => ListenerIntIntConstPtr this where toListenerIntIntConst :: this -> ListenerIntIntConst listenerIntInt_isValid :: (ListenerIntIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerIntInt_isValid arg'1 = withListenerIntIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerIntInt_isValid' arg'1') class (ListenerIntIntConstPtr this, M94.QObjectPtr this) => ListenerIntIntPtr this where toListenerIntInt :: this -> ListenerIntInt data ListenerIntIntConst = ListenerIntIntConst (HoppyF.Ptr ListenerIntIntConst) | ListenerIntIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntIntConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntIntConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntIntConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntIntToConst :: ListenerIntInt -> ListenerIntIntConst castListenerIntIntToConst (ListenerIntInt ptr') = ListenerIntIntConst $ HoppyF.castPtr ptr' castListenerIntIntToConst (ListenerIntIntGc fptr' ptr') = ListenerIntIntConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntIntConst where nullptr = ListenerIntIntConst HoppyF.nullPtr withCppPtr (ListenerIntIntConst ptr') f' = f' ptr' withCppPtr (ListenerIntIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntIntConst ptr') = ptr' toPtr (ListenerIntIntConstGc _ ptr') = ptr' touchCppPtr (ListenerIntIntConst _) = HoppyP.return () touchCppPtr (ListenerIntIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntIntConst where delete (ListenerIntIntConst ptr') = delete'ListenerIntInt ptr' delete (ListenerIntIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntIntConst", " object."] toGc this'@(ListenerIntIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerIntInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntIntConstGc {}) = HoppyP.return this' instance ListenerIntIntConstPtr ListenerIntIntConst where toListenerIntIntConst = HoppyP.id instance M94.QObjectConstPtr ListenerIntIntConst where toQObjectConst (ListenerIntIntConst ptr') = M94.QObjectConst $ castListenerIntIntToQObject ptr' toQObjectConst (ListenerIntIntConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntIntToQObject ptr' data ListenerIntInt = ListenerIntInt (HoppyF.Ptr ListenerIntInt) | ListenerIntIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntInt) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntInt where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntInt where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntIntToNonconst :: ListenerIntIntConst -> ListenerIntInt castListenerIntIntToNonconst (ListenerIntIntConst ptr') = ListenerIntInt $ HoppyF.castPtr ptr' castListenerIntIntToNonconst (ListenerIntIntConstGc fptr' ptr') = ListenerIntIntGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntInt where nullptr = ListenerIntInt HoppyF.nullPtr withCppPtr (ListenerIntInt ptr') f' = f' ptr' withCppPtr (ListenerIntIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntInt ptr') = ptr' toPtr (ListenerIntIntGc _ ptr') = ptr' touchCppPtr (ListenerIntInt _) = HoppyP.return () touchCppPtr (ListenerIntIntGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntInt where delete (ListenerIntInt ptr') = delete'ListenerIntInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerIntIntConst) delete (ListenerIntIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntInt", " object."] toGc this'@(ListenerIntInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerIntInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntIntGc {}) = HoppyP.return this' instance ListenerIntIntConstPtr ListenerIntInt where toListenerIntIntConst (ListenerIntInt ptr') = ListenerIntIntConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntInt -> HoppyF.Ptr ListenerIntIntConst) ptr' toListenerIntIntConst (ListenerIntIntGc fptr' ptr') = ListenerIntIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntInt -> HoppyF.Ptr ListenerIntIntConst) ptr' instance ListenerIntIntPtr ListenerIntInt where toListenerIntInt = HoppyP.id instance M94.QObjectConstPtr ListenerIntInt where toQObjectConst (ListenerIntInt ptr') = M94.QObjectConst $ castListenerIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntInt -> HoppyF.Ptr ListenerIntIntConst) ptr' toQObjectConst (ListenerIntIntGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntInt -> HoppyF.Ptr ListenerIntIntConst) ptr' instance M94.QObjectPtr ListenerIntInt where toQObject (ListenerIntInt ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntInt -> HoppyF.Ptr ListenerIntIntConst) ptr' toQObject (ListenerIntIntGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntInt -> HoppyF.Ptr ListenerIntIntConst) ptr' listenerIntInt_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Int -> HoppyP.Int -> HoppyP.IO ()) -> (HoppyP.IO ListenerIntInt) listenerIntInt_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackIntIntVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerIntInt (listenerIntInt_new' arg'1' arg'2' arg'3') class ListenerIntIntSuper a where downToListenerIntInt :: a -> ListenerIntInt instance ListenerIntIntSuper M94.QObject where downToListenerIntInt = castListenerIntIntToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerIntIntConst $ castQObjectToListenerIntInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntIntConstGc fptr' $ castQObjectToListenerIntInt ptr' class ListenerIntIntSuperConst a where downToListenerIntIntConst :: a -> ListenerIntIntConst instance ListenerIntIntSuperConst M94.QObjectConst where downToListenerIntIntConst = cast' where cast' (M94.QObjectConst ptr') = ListenerIntIntConst $ castQObjectToListenerIntInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntIntConstGc fptr' $ castQObjectToListenerIntInt ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerIntInt)) ListenerIntInt where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerIntInt)) ListenerIntInt where decode = HoppyP.fmap ListenerIntInt . HoppyF.peek class ListenerIntQlonglongValue a where withListenerIntQlonglongPtr :: a -> (ListenerIntQlonglongConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerIntQlonglongConstPtr a => ListenerIntQlonglongValue a where withListenerIntQlonglongPtr = HoppyP.flip ($) . toListenerIntQlonglongConst class (M94.QObjectConstPtr this) => ListenerIntQlonglongConstPtr this where toListenerIntQlonglongConst :: this -> ListenerIntQlonglongConst listenerIntQlonglong_isValid :: (ListenerIntQlonglongValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerIntQlonglong_isValid arg'1 = withListenerIntQlonglongPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerIntQlonglong_isValid' arg'1') class (ListenerIntQlonglongConstPtr this, M94.QObjectPtr this) => ListenerIntQlonglongPtr this where toListenerIntQlonglong :: this -> ListenerIntQlonglong data ListenerIntQlonglongConst = ListenerIntQlonglongConst (HoppyF.Ptr ListenerIntQlonglongConst) | ListenerIntQlonglongConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntQlonglongConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntQlonglongConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntQlonglongConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntQlonglongToConst :: ListenerIntQlonglong -> ListenerIntQlonglongConst castListenerIntQlonglongToConst (ListenerIntQlonglong ptr') = ListenerIntQlonglongConst $ HoppyF.castPtr ptr' castListenerIntQlonglongToConst (ListenerIntQlonglongGc fptr' ptr') = ListenerIntQlonglongConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntQlonglongConst where nullptr = ListenerIntQlonglongConst HoppyF.nullPtr withCppPtr (ListenerIntQlonglongConst ptr') f' = f' ptr' withCppPtr (ListenerIntQlonglongConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntQlonglongConst ptr') = ptr' toPtr (ListenerIntQlonglongConstGc _ ptr') = ptr' touchCppPtr (ListenerIntQlonglongConst _) = HoppyP.return () touchCppPtr (ListenerIntQlonglongConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntQlonglongConst where delete (ListenerIntQlonglongConst ptr') = delete'ListenerIntQlonglong ptr' delete (ListenerIntQlonglongConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntQlonglongConst", " object."] toGc this'@(ListenerIntQlonglongConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntQlonglongConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerIntQlonglong :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntQlonglongConstGc {}) = HoppyP.return this' instance ListenerIntQlonglongConstPtr ListenerIntQlonglongConst where toListenerIntQlonglongConst = HoppyP.id instance M94.QObjectConstPtr ListenerIntQlonglongConst where toQObjectConst (ListenerIntQlonglongConst ptr') = M94.QObjectConst $ castListenerIntQlonglongToQObject ptr' toQObjectConst (ListenerIntQlonglongConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntQlonglongToQObject ptr' data ListenerIntQlonglong = ListenerIntQlonglong (HoppyF.Ptr ListenerIntQlonglong) | ListenerIntQlonglongGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerIntQlonglong) deriving (HoppyP.Show) instance HoppyP.Eq ListenerIntQlonglong where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerIntQlonglong where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerIntQlonglongToNonconst :: ListenerIntQlonglongConst -> ListenerIntQlonglong castListenerIntQlonglongToNonconst (ListenerIntQlonglongConst ptr') = ListenerIntQlonglong $ HoppyF.castPtr ptr' castListenerIntQlonglongToNonconst (ListenerIntQlonglongConstGc fptr' ptr') = ListenerIntQlonglongGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerIntQlonglong where nullptr = ListenerIntQlonglong HoppyF.nullPtr withCppPtr (ListenerIntQlonglong ptr') f' = f' ptr' withCppPtr (ListenerIntQlonglongGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerIntQlonglong ptr') = ptr' toPtr (ListenerIntQlonglongGc _ ptr') = ptr' touchCppPtr (ListenerIntQlonglong _) = HoppyP.return () touchCppPtr (ListenerIntQlonglongGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerIntQlonglong where delete (ListenerIntQlonglong ptr') = delete'ListenerIntQlonglong $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerIntQlonglongConst) delete (ListenerIntQlonglongGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerIntQlonglong", " object."] toGc this'@(ListenerIntQlonglong ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerIntQlonglongGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerIntQlonglong :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerIntQlonglongGc {}) = HoppyP.return this' instance ListenerIntQlonglongConstPtr ListenerIntQlonglong where toListenerIntQlonglongConst (ListenerIntQlonglong ptr') = ListenerIntQlonglongConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntQlonglong -> HoppyF.Ptr ListenerIntQlonglongConst) ptr' toListenerIntQlonglongConst (ListenerIntQlonglongGc fptr' ptr') = ListenerIntQlonglongConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntQlonglong -> HoppyF.Ptr ListenerIntQlonglongConst) ptr' instance ListenerIntQlonglongPtr ListenerIntQlonglong where toListenerIntQlonglong = HoppyP.id instance M94.QObjectConstPtr ListenerIntQlonglong where toQObjectConst (ListenerIntQlonglong ptr') = M94.QObjectConst $ castListenerIntQlonglongToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntQlonglong -> HoppyF.Ptr ListenerIntQlonglongConst) ptr' toQObjectConst (ListenerIntQlonglongGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerIntQlonglongToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntQlonglong -> HoppyF.Ptr ListenerIntQlonglongConst) ptr' instance M94.QObjectPtr ListenerIntQlonglong where toQObject (ListenerIntQlonglong ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntQlonglongToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntQlonglong -> HoppyF.Ptr ListenerIntQlonglongConst) ptr' toQObject (ListenerIntQlonglongGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerIntQlonglongToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerIntQlonglong -> HoppyF.Ptr ListenerIntQlonglongConst) ptr' listenerIntQlonglong_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Int -> HoppyDI.Int64 -> HoppyP.IO ()) -> (HoppyP.IO ListenerIntQlonglong) listenerIntQlonglong_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackIntQlonglongVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerIntQlonglong (listenerIntQlonglong_new' arg'1' arg'2' arg'3') class ListenerIntQlonglongSuper a where downToListenerIntQlonglong :: a -> ListenerIntQlonglong instance ListenerIntQlonglongSuper M94.QObject where downToListenerIntQlonglong = castListenerIntQlonglongToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerIntQlonglongConst $ castQObjectToListenerIntQlonglong ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntQlonglongConstGc fptr' $ castQObjectToListenerIntQlonglong ptr' class ListenerIntQlonglongSuperConst a where downToListenerIntQlonglongConst :: a -> ListenerIntQlonglongConst instance ListenerIntQlonglongSuperConst M94.QObjectConst where downToListenerIntQlonglongConst = cast' where cast' (M94.QObjectConst ptr') = ListenerIntQlonglongConst $ castQObjectToListenerIntQlonglong ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerIntQlonglongConstGc fptr' $ castQObjectToListenerIntQlonglong ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerIntQlonglong)) ListenerIntQlonglong where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerIntQlonglong)) ListenerIntQlonglong where decode = HoppyP.fmap ListenerIntQlonglong . HoppyF.peek class ListenerOrientationValue a where withListenerOrientationPtr :: a -> (ListenerOrientationConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerOrientationConstPtr a => ListenerOrientationValue a where withListenerOrientationPtr = HoppyP.flip ($) . toListenerOrientationConst class (M94.QObjectConstPtr this) => ListenerOrientationConstPtr this where toListenerOrientationConst :: this -> ListenerOrientationConst listenerOrientation_isValid :: (ListenerOrientationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerOrientation_isValid arg'1 = withListenerOrientationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerOrientation_isValid' arg'1') class (ListenerOrientationConstPtr this, M94.QObjectPtr this) => ListenerOrientationPtr this where toListenerOrientation :: this -> ListenerOrientation data ListenerOrientationConst = ListenerOrientationConst (HoppyF.Ptr ListenerOrientationConst) | ListenerOrientationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerOrientationConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerOrientationConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerOrientationConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerOrientationToConst :: ListenerOrientation -> ListenerOrientationConst castListenerOrientationToConst (ListenerOrientation ptr') = ListenerOrientationConst $ HoppyF.castPtr ptr' castListenerOrientationToConst (ListenerOrientationGc fptr' ptr') = ListenerOrientationConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerOrientationConst where nullptr = ListenerOrientationConst HoppyF.nullPtr withCppPtr (ListenerOrientationConst ptr') f' = f' ptr' withCppPtr (ListenerOrientationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerOrientationConst ptr') = ptr' toPtr (ListenerOrientationConstGc _ ptr') = ptr' touchCppPtr (ListenerOrientationConst _) = HoppyP.return () touchCppPtr (ListenerOrientationConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerOrientationConst where delete (ListenerOrientationConst ptr') = delete'ListenerOrientation ptr' delete (ListenerOrientationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerOrientationConst", " object."] toGc this'@(ListenerOrientationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerOrientationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerOrientation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerOrientationConstGc {}) = HoppyP.return this' instance ListenerOrientationConstPtr ListenerOrientationConst where toListenerOrientationConst = HoppyP.id instance M94.QObjectConstPtr ListenerOrientationConst where toQObjectConst (ListenerOrientationConst ptr') = M94.QObjectConst $ castListenerOrientationToQObject ptr' toQObjectConst (ListenerOrientationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerOrientationToQObject ptr' data ListenerOrientation = ListenerOrientation (HoppyF.Ptr ListenerOrientation) | ListenerOrientationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerOrientation) deriving (HoppyP.Show) instance HoppyP.Eq ListenerOrientation where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerOrientation where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerOrientationToNonconst :: ListenerOrientationConst -> ListenerOrientation castListenerOrientationToNonconst (ListenerOrientationConst ptr') = ListenerOrientation $ HoppyF.castPtr ptr' castListenerOrientationToNonconst (ListenerOrientationConstGc fptr' ptr') = ListenerOrientationGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerOrientation where nullptr = ListenerOrientation HoppyF.nullPtr withCppPtr (ListenerOrientation ptr') f' = f' ptr' withCppPtr (ListenerOrientationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerOrientation ptr') = ptr' toPtr (ListenerOrientationGc _ ptr') = ptr' touchCppPtr (ListenerOrientation _) = HoppyP.return () touchCppPtr (ListenerOrientationGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerOrientation where delete (ListenerOrientation ptr') = delete'ListenerOrientation $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerOrientationConst) delete (ListenerOrientationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerOrientation", " object."] toGc this'@(ListenerOrientation ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerOrientationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerOrientation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerOrientationGc {}) = HoppyP.return this' instance ListenerOrientationConstPtr ListenerOrientation where toListenerOrientationConst (ListenerOrientation ptr') = ListenerOrientationConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientation -> HoppyF.Ptr ListenerOrientationConst) ptr' toListenerOrientationConst (ListenerOrientationGc fptr' ptr') = ListenerOrientationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientation -> HoppyF.Ptr ListenerOrientationConst) ptr' instance ListenerOrientationPtr ListenerOrientation where toListenerOrientation = HoppyP.id instance M94.QObjectConstPtr ListenerOrientation where toQObjectConst (ListenerOrientation ptr') = M94.QObjectConst $ castListenerOrientationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientation -> HoppyF.Ptr ListenerOrientationConst) ptr' toQObjectConst (ListenerOrientationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerOrientationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientation -> HoppyF.Ptr ListenerOrientationConst) ptr' instance M94.QObjectPtr ListenerOrientation where toQObject (ListenerOrientation ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerOrientationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientation -> HoppyF.Ptr ListenerOrientationConst) ptr' toQObject (ListenerOrientationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerOrientationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientation -> HoppyF.Ptr ListenerOrientationConst) ptr' listenerOrientation_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtOrientation -> HoppyP.IO ()) -> (HoppyP.IO ListenerOrientation) listenerOrientation_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackOrientationVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerOrientation (listenerOrientation_new' arg'1' arg'2' arg'3') class ListenerOrientationSuper a where downToListenerOrientation :: a -> ListenerOrientation instance ListenerOrientationSuper M94.QObject where downToListenerOrientation = castListenerOrientationToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerOrientationConst $ castQObjectToListenerOrientation ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerOrientationConstGc fptr' $ castQObjectToListenerOrientation ptr' class ListenerOrientationSuperConst a where downToListenerOrientationConst :: a -> ListenerOrientationConst instance ListenerOrientationSuperConst M94.QObjectConst where downToListenerOrientationConst = cast' where cast' (M94.QObjectConst ptr') = ListenerOrientationConst $ castQObjectToListenerOrientation ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerOrientationConstGc fptr' $ castQObjectToListenerOrientation ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerOrientation)) ListenerOrientation where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerOrientation)) ListenerOrientation where decode = HoppyP.fmap ListenerOrientation . HoppyF.peek class ListenerOrientationIntIntValue a where withListenerOrientationIntIntPtr :: a -> (ListenerOrientationIntIntConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerOrientationIntIntConstPtr a => ListenerOrientationIntIntValue a where withListenerOrientationIntIntPtr = HoppyP.flip ($) . toListenerOrientationIntIntConst class (M94.QObjectConstPtr this) => ListenerOrientationIntIntConstPtr this where toListenerOrientationIntIntConst :: this -> ListenerOrientationIntIntConst listenerOrientationIntInt_isValid :: (ListenerOrientationIntIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerOrientationIntInt_isValid arg'1 = withListenerOrientationIntIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerOrientationIntInt_isValid' arg'1') class (ListenerOrientationIntIntConstPtr this, M94.QObjectPtr this) => ListenerOrientationIntIntPtr this where toListenerOrientationIntInt :: this -> ListenerOrientationIntInt data ListenerOrientationIntIntConst = ListenerOrientationIntIntConst (HoppyF.Ptr ListenerOrientationIntIntConst) | ListenerOrientationIntIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerOrientationIntIntConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerOrientationIntIntConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerOrientationIntIntConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerOrientationIntIntToConst :: ListenerOrientationIntInt -> ListenerOrientationIntIntConst castListenerOrientationIntIntToConst (ListenerOrientationIntInt ptr') = ListenerOrientationIntIntConst $ HoppyF.castPtr ptr' castListenerOrientationIntIntToConst (ListenerOrientationIntIntGc fptr' ptr') = ListenerOrientationIntIntConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerOrientationIntIntConst where nullptr = ListenerOrientationIntIntConst HoppyF.nullPtr withCppPtr (ListenerOrientationIntIntConst ptr') f' = f' ptr' withCppPtr (ListenerOrientationIntIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerOrientationIntIntConst ptr') = ptr' toPtr (ListenerOrientationIntIntConstGc _ ptr') = ptr' touchCppPtr (ListenerOrientationIntIntConst _) = HoppyP.return () touchCppPtr (ListenerOrientationIntIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerOrientationIntIntConst where delete (ListenerOrientationIntIntConst ptr') = delete'ListenerOrientationIntInt ptr' delete (ListenerOrientationIntIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerOrientationIntIntConst", " object."] toGc this'@(ListenerOrientationIntIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerOrientationIntIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerOrientationIntInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerOrientationIntIntConstGc {}) = HoppyP.return this' instance ListenerOrientationIntIntConstPtr ListenerOrientationIntIntConst where toListenerOrientationIntIntConst = HoppyP.id instance M94.QObjectConstPtr ListenerOrientationIntIntConst where toQObjectConst (ListenerOrientationIntIntConst ptr') = M94.QObjectConst $ castListenerOrientationIntIntToQObject ptr' toQObjectConst (ListenerOrientationIntIntConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerOrientationIntIntToQObject ptr' data ListenerOrientationIntInt = ListenerOrientationIntInt (HoppyF.Ptr ListenerOrientationIntInt) | ListenerOrientationIntIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerOrientationIntInt) deriving (HoppyP.Show) instance HoppyP.Eq ListenerOrientationIntInt where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerOrientationIntInt where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerOrientationIntIntToNonconst :: ListenerOrientationIntIntConst -> ListenerOrientationIntInt castListenerOrientationIntIntToNonconst (ListenerOrientationIntIntConst ptr') = ListenerOrientationIntInt $ HoppyF.castPtr ptr' castListenerOrientationIntIntToNonconst (ListenerOrientationIntIntConstGc fptr' ptr') = ListenerOrientationIntIntGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerOrientationIntInt where nullptr = ListenerOrientationIntInt HoppyF.nullPtr withCppPtr (ListenerOrientationIntInt ptr') f' = f' ptr' withCppPtr (ListenerOrientationIntIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerOrientationIntInt ptr') = ptr' toPtr (ListenerOrientationIntIntGc _ ptr') = ptr' touchCppPtr (ListenerOrientationIntInt _) = HoppyP.return () touchCppPtr (ListenerOrientationIntIntGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerOrientationIntInt where delete (ListenerOrientationIntInt ptr') = delete'ListenerOrientationIntInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerOrientationIntIntConst) delete (ListenerOrientationIntIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerOrientationIntInt", " object."] toGc this'@(ListenerOrientationIntInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerOrientationIntIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerOrientationIntInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerOrientationIntIntGc {}) = HoppyP.return this' instance ListenerOrientationIntIntConstPtr ListenerOrientationIntInt where toListenerOrientationIntIntConst (ListenerOrientationIntInt ptr') = ListenerOrientationIntIntConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientationIntInt -> HoppyF.Ptr ListenerOrientationIntIntConst) ptr' toListenerOrientationIntIntConst (ListenerOrientationIntIntGc fptr' ptr') = ListenerOrientationIntIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientationIntInt -> HoppyF.Ptr ListenerOrientationIntIntConst) ptr' instance ListenerOrientationIntIntPtr ListenerOrientationIntInt where toListenerOrientationIntInt = HoppyP.id instance M94.QObjectConstPtr ListenerOrientationIntInt where toQObjectConst (ListenerOrientationIntInt ptr') = M94.QObjectConst $ castListenerOrientationIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientationIntInt -> HoppyF.Ptr ListenerOrientationIntIntConst) ptr' toQObjectConst (ListenerOrientationIntIntGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerOrientationIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientationIntInt -> HoppyF.Ptr ListenerOrientationIntIntConst) ptr' instance M94.QObjectPtr ListenerOrientationIntInt where toQObject (ListenerOrientationIntInt ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerOrientationIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientationIntInt -> HoppyF.Ptr ListenerOrientationIntIntConst) ptr' toQObject (ListenerOrientationIntIntGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerOrientationIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerOrientationIntInt -> HoppyF.Ptr ListenerOrientationIntIntConst) ptr' listenerOrientationIntInt_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtOrientation -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ()) -> (HoppyP.IO ListenerOrientationIntInt) listenerOrientationIntInt_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackOrientationIntIntVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerOrientationIntInt (listenerOrientationIntInt_new' arg'1' arg'2' arg'3') class ListenerOrientationIntIntSuper a where downToListenerOrientationIntInt :: a -> ListenerOrientationIntInt instance ListenerOrientationIntIntSuper M94.QObject where downToListenerOrientationIntInt = castListenerOrientationIntIntToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerOrientationIntIntConst $ castQObjectToListenerOrientationIntInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerOrientationIntIntConstGc fptr' $ castQObjectToListenerOrientationIntInt ptr' class ListenerOrientationIntIntSuperConst a where downToListenerOrientationIntIntConst :: a -> ListenerOrientationIntIntConst instance ListenerOrientationIntIntSuperConst M94.QObjectConst where downToListenerOrientationIntIntConst = cast' where cast' (M94.QObjectConst ptr') = ListenerOrientationIntIntConst $ castQObjectToListenerOrientationIntInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerOrientationIntIntConstGc fptr' $ castQObjectToListenerOrientationIntInt ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerOrientationIntInt)) ListenerOrientationIntInt where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerOrientationIntInt)) ListenerOrientationIntInt where decode = HoppyP.fmap ListenerOrientationIntInt . HoppyF.peek class ListenerProcessErrorValue a where withListenerProcessErrorPtr :: a -> (ListenerProcessErrorConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerProcessErrorConstPtr a => ListenerProcessErrorValue a where withListenerProcessErrorPtr = HoppyP.flip ($) . toListenerProcessErrorConst class (M94.QObjectConstPtr this) => ListenerProcessErrorConstPtr this where toListenerProcessErrorConst :: this -> ListenerProcessErrorConst listenerProcessError_isValid :: (ListenerProcessErrorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerProcessError_isValid arg'1 = withListenerProcessErrorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerProcessError_isValid' arg'1') class (ListenerProcessErrorConstPtr this, M94.QObjectPtr this) => ListenerProcessErrorPtr this where toListenerProcessError :: this -> ListenerProcessError data ListenerProcessErrorConst = ListenerProcessErrorConst (HoppyF.Ptr ListenerProcessErrorConst) | ListenerProcessErrorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerProcessErrorConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerProcessErrorConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerProcessErrorConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerProcessErrorToConst :: ListenerProcessError -> ListenerProcessErrorConst castListenerProcessErrorToConst (ListenerProcessError ptr') = ListenerProcessErrorConst $ HoppyF.castPtr ptr' castListenerProcessErrorToConst (ListenerProcessErrorGc fptr' ptr') = ListenerProcessErrorConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerProcessErrorConst where nullptr = ListenerProcessErrorConst HoppyF.nullPtr withCppPtr (ListenerProcessErrorConst ptr') f' = f' ptr' withCppPtr (ListenerProcessErrorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerProcessErrorConst ptr') = ptr' toPtr (ListenerProcessErrorConstGc _ ptr') = ptr' touchCppPtr (ListenerProcessErrorConst _) = HoppyP.return () touchCppPtr (ListenerProcessErrorConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerProcessErrorConst where delete (ListenerProcessErrorConst ptr') = delete'ListenerProcessError ptr' delete (ListenerProcessErrorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerProcessErrorConst", " object."] toGc this'@(ListenerProcessErrorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerProcessErrorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerProcessError :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerProcessErrorConstGc {}) = HoppyP.return this' instance ListenerProcessErrorConstPtr ListenerProcessErrorConst where toListenerProcessErrorConst = HoppyP.id instance M94.QObjectConstPtr ListenerProcessErrorConst where toQObjectConst (ListenerProcessErrorConst ptr') = M94.QObjectConst $ castListenerProcessErrorToQObject ptr' toQObjectConst (ListenerProcessErrorConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerProcessErrorToQObject ptr' data ListenerProcessError = ListenerProcessError (HoppyF.Ptr ListenerProcessError) | ListenerProcessErrorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerProcessError) deriving (HoppyP.Show) instance HoppyP.Eq ListenerProcessError where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerProcessError where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerProcessErrorToNonconst :: ListenerProcessErrorConst -> ListenerProcessError castListenerProcessErrorToNonconst (ListenerProcessErrorConst ptr') = ListenerProcessError $ HoppyF.castPtr ptr' castListenerProcessErrorToNonconst (ListenerProcessErrorConstGc fptr' ptr') = ListenerProcessErrorGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerProcessError where nullptr = ListenerProcessError HoppyF.nullPtr withCppPtr (ListenerProcessError ptr') f' = f' ptr' withCppPtr (ListenerProcessErrorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerProcessError ptr') = ptr' toPtr (ListenerProcessErrorGc _ ptr') = ptr' touchCppPtr (ListenerProcessError _) = HoppyP.return () touchCppPtr (ListenerProcessErrorGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerProcessError where delete (ListenerProcessError ptr') = delete'ListenerProcessError $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerProcessErrorConst) delete (ListenerProcessErrorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerProcessError", " object."] toGc this'@(ListenerProcessError ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerProcessErrorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerProcessError :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerProcessErrorGc {}) = HoppyP.return this' instance ListenerProcessErrorConstPtr ListenerProcessError where toListenerProcessErrorConst (ListenerProcessError ptr') = ListenerProcessErrorConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessError -> HoppyF.Ptr ListenerProcessErrorConst) ptr' toListenerProcessErrorConst (ListenerProcessErrorGc fptr' ptr') = ListenerProcessErrorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessError -> HoppyF.Ptr ListenerProcessErrorConst) ptr' instance ListenerProcessErrorPtr ListenerProcessError where toListenerProcessError = HoppyP.id instance M94.QObjectConstPtr ListenerProcessError where toQObjectConst (ListenerProcessError ptr') = M94.QObjectConst $ castListenerProcessErrorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessError -> HoppyF.Ptr ListenerProcessErrorConst) ptr' toQObjectConst (ListenerProcessErrorGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerProcessErrorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessError -> HoppyF.Ptr ListenerProcessErrorConst) ptr' instance M94.QObjectPtr ListenerProcessError where toQObject (ListenerProcessError ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerProcessErrorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessError -> HoppyF.Ptr ListenerProcessErrorConst) ptr' toQObject (ListenerProcessErrorGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerProcessErrorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessError -> HoppyF.Ptr ListenerProcessErrorConst) ptr' listenerProcessError_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M106.QProcessProcessError -> HoppyP.IO ()) -> (HoppyP.IO ListenerProcessError) listenerProcessError_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackProcessErrorVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerProcessError (listenerProcessError_new' arg'1' arg'2' arg'3') class ListenerProcessErrorSuper a where downToListenerProcessError :: a -> ListenerProcessError instance ListenerProcessErrorSuper M94.QObject where downToListenerProcessError = castListenerProcessErrorToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerProcessErrorConst $ castQObjectToListenerProcessError ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerProcessErrorConstGc fptr' $ castQObjectToListenerProcessError ptr' class ListenerProcessErrorSuperConst a where downToListenerProcessErrorConst :: a -> ListenerProcessErrorConst instance ListenerProcessErrorSuperConst M94.QObjectConst where downToListenerProcessErrorConst = cast' where cast' (M94.QObjectConst ptr') = ListenerProcessErrorConst $ castQObjectToListenerProcessError ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerProcessErrorConstGc fptr' $ castQObjectToListenerProcessError ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerProcessError)) ListenerProcessError where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerProcessError)) ListenerProcessError where decode = HoppyP.fmap ListenerProcessError . HoppyF.peek class ListenerProcessStateValue a where withListenerProcessStatePtr :: a -> (ListenerProcessStateConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerProcessStateConstPtr a => ListenerProcessStateValue a where withListenerProcessStatePtr = HoppyP.flip ($) . toListenerProcessStateConst class (M94.QObjectConstPtr this) => ListenerProcessStateConstPtr this where toListenerProcessStateConst :: this -> ListenerProcessStateConst listenerProcessState_isValid :: (ListenerProcessStateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerProcessState_isValid arg'1 = withListenerProcessStatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerProcessState_isValid' arg'1') class (ListenerProcessStateConstPtr this, M94.QObjectPtr this) => ListenerProcessStatePtr this where toListenerProcessState :: this -> ListenerProcessState data ListenerProcessStateConst = ListenerProcessStateConst (HoppyF.Ptr ListenerProcessStateConst) | ListenerProcessStateConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerProcessStateConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerProcessStateConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerProcessStateConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerProcessStateToConst :: ListenerProcessState -> ListenerProcessStateConst castListenerProcessStateToConst (ListenerProcessState ptr') = ListenerProcessStateConst $ HoppyF.castPtr ptr' castListenerProcessStateToConst (ListenerProcessStateGc fptr' ptr') = ListenerProcessStateConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerProcessStateConst where nullptr = ListenerProcessStateConst HoppyF.nullPtr withCppPtr (ListenerProcessStateConst ptr') f' = f' ptr' withCppPtr (ListenerProcessStateConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerProcessStateConst ptr') = ptr' toPtr (ListenerProcessStateConstGc _ ptr') = ptr' touchCppPtr (ListenerProcessStateConst _) = HoppyP.return () touchCppPtr (ListenerProcessStateConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerProcessStateConst where delete (ListenerProcessStateConst ptr') = delete'ListenerProcessState ptr' delete (ListenerProcessStateConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerProcessStateConst", " object."] toGc this'@(ListenerProcessStateConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerProcessStateConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerProcessState :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerProcessStateConstGc {}) = HoppyP.return this' instance ListenerProcessStateConstPtr ListenerProcessStateConst where toListenerProcessStateConst = HoppyP.id instance M94.QObjectConstPtr ListenerProcessStateConst where toQObjectConst (ListenerProcessStateConst ptr') = M94.QObjectConst $ castListenerProcessStateToQObject ptr' toQObjectConst (ListenerProcessStateConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerProcessStateToQObject ptr' data ListenerProcessState = ListenerProcessState (HoppyF.Ptr ListenerProcessState) | ListenerProcessStateGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerProcessState) deriving (HoppyP.Show) instance HoppyP.Eq ListenerProcessState where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerProcessState where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerProcessStateToNonconst :: ListenerProcessStateConst -> ListenerProcessState castListenerProcessStateToNonconst (ListenerProcessStateConst ptr') = ListenerProcessState $ HoppyF.castPtr ptr' castListenerProcessStateToNonconst (ListenerProcessStateConstGc fptr' ptr') = ListenerProcessStateGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerProcessState where nullptr = ListenerProcessState HoppyF.nullPtr withCppPtr (ListenerProcessState ptr') f' = f' ptr' withCppPtr (ListenerProcessStateGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerProcessState ptr') = ptr' toPtr (ListenerProcessStateGc _ ptr') = ptr' touchCppPtr (ListenerProcessState _) = HoppyP.return () touchCppPtr (ListenerProcessStateGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerProcessState where delete (ListenerProcessState ptr') = delete'ListenerProcessState $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerProcessStateConst) delete (ListenerProcessStateGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerProcessState", " object."] toGc this'@(ListenerProcessState ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerProcessStateGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerProcessState :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerProcessStateGc {}) = HoppyP.return this' instance ListenerProcessStateConstPtr ListenerProcessState where toListenerProcessStateConst (ListenerProcessState ptr') = ListenerProcessStateConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessState -> HoppyF.Ptr ListenerProcessStateConst) ptr' toListenerProcessStateConst (ListenerProcessStateGc fptr' ptr') = ListenerProcessStateConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessState -> HoppyF.Ptr ListenerProcessStateConst) ptr' instance ListenerProcessStatePtr ListenerProcessState where toListenerProcessState = HoppyP.id instance M94.QObjectConstPtr ListenerProcessState where toQObjectConst (ListenerProcessState ptr') = M94.QObjectConst $ castListenerProcessStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessState -> HoppyF.Ptr ListenerProcessStateConst) ptr' toQObjectConst (ListenerProcessStateGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerProcessStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessState -> HoppyF.Ptr ListenerProcessStateConst) ptr' instance M94.QObjectPtr ListenerProcessState where toQObject (ListenerProcessState ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerProcessStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessState -> HoppyF.Ptr ListenerProcessStateConst) ptr' toQObject (ListenerProcessStateGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerProcessStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerProcessState -> HoppyF.Ptr ListenerProcessStateConst) ptr' listenerProcessState_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M106.QProcessProcessState -> HoppyP.IO ()) -> (HoppyP.IO ListenerProcessState) listenerProcessState_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackProcessStateVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerProcessState (listenerProcessState_new' arg'1' arg'2' arg'3') class ListenerProcessStateSuper a where downToListenerProcessState :: a -> ListenerProcessState instance ListenerProcessStateSuper M94.QObject where downToListenerProcessState = castListenerProcessStateToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerProcessStateConst $ castQObjectToListenerProcessState ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerProcessStateConstGc fptr' $ castQObjectToListenerProcessState ptr' class ListenerProcessStateSuperConst a where downToListenerProcessStateConst :: a -> ListenerProcessStateConst instance ListenerProcessStateSuperConst M94.QObjectConst where downToListenerProcessStateConst = cast' where cast' (M94.QObjectConst ptr') = ListenerProcessStateConst $ castQObjectToListenerProcessState ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerProcessStateConstGc fptr' $ castQObjectToListenerProcessState ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerProcessState)) ListenerProcessState where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerProcessState)) ListenerProcessState where decode = HoppyP.fmap ListenerProcessState . HoppyF.peek class ListenerPtrQAbstractButtonValue a where withListenerPtrQAbstractButtonPtr :: a -> (ListenerPtrQAbstractButtonConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQAbstractButtonConstPtr a => ListenerPtrQAbstractButtonValue a where withListenerPtrQAbstractButtonPtr = HoppyP.flip ($) . toListenerPtrQAbstractButtonConst class (M94.QObjectConstPtr this) => ListenerPtrQAbstractButtonConstPtr this where toListenerPtrQAbstractButtonConst :: this -> ListenerPtrQAbstractButtonConst listenerPtrQAbstractButton_isValid :: (ListenerPtrQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQAbstractButton_isValid arg'1 = withListenerPtrQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQAbstractButton_isValid' arg'1') class (ListenerPtrQAbstractButtonConstPtr this, M94.QObjectPtr this) => ListenerPtrQAbstractButtonPtr this where toListenerPtrQAbstractButton :: this -> ListenerPtrQAbstractButton data ListenerPtrQAbstractButtonConst = ListenerPtrQAbstractButtonConst (HoppyF.Ptr ListenerPtrQAbstractButtonConst) | ListenerPtrQAbstractButtonConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQAbstractButtonConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQAbstractButtonConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQAbstractButtonConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQAbstractButtonToConst :: ListenerPtrQAbstractButton -> ListenerPtrQAbstractButtonConst castListenerPtrQAbstractButtonToConst (ListenerPtrQAbstractButton ptr') = ListenerPtrQAbstractButtonConst $ HoppyF.castPtr ptr' castListenerPtrQAbstractButtonToConst (ListenerPtrQAbstractButtonGc fptr' ptr') = ListenerPtrQAbstractButtonConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQAbstractButtonConst where nullptr = ListenerPtrQAbstractButtonConst HoppyF.nullPtr withCppPtr (ListenerPtrQAbstractButtonConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQAbstractButtonConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQAbstractButtonConst ptr') = ptr' toPtr (ListenerPtrQAbstractButtonConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQAbstractButtonConst _) = HoppyP.return () touchCppPtr (ListenerPtrQAbstractButtonConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQAbstractButtonConst where delete (ListenerPtrQAbstractButtonConst ptr') = delete'ListenerPtrQAbstractButton ptr' delete (ListenerPtrQAbstractButtonConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQAbstractButtonConst", " object."] toGc this'@(ListenerPtrQAbstractButtonConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQAbstractButtonConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQAbstractButtonConstGc {}) = HoppyP.return this' instance ListenerPtrQAbstractButtonConstPtr ListenerPtrQAbstractButtonConst where toListenerPtrQAbstractButtonConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQAbstractButtonConst where toQObjectConst (ListenerPtrQAbstractButtonConst ptr') = M94.QObjectConst $ castListenerPtrQAbstractButtonToQObject ptr' toQObjectConst (ListenerPtrQAbstractButtonConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQAbstractButtonToQObject ptr' data ListenerPtrQAbstractButton = ListenerPtrQAbstractButton (HoppyF.Ptr ListenerPtrQAbstractButton) | ListenerPtrQAbstractButtonGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQAbstractButton) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQAbstractButton where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQAbstractButton where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQAbstractButtonToNonconst :: ListenerPtrQAbstractButtonConst -> ListenerPtrQAbstractButton castListenerPtrQAbstractButtonToNonconst (ListenerPtrQAbstractButtonConst ptr') = ListenerPtrQAbstractButton $ HoppyF.castPtr ptr' castListenerPtrQAbstractButtonToNonconst (ListenerPtrQAbstractButtonConstGc fptr' ptr') = ListenerPtrQAbstractButtonGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQAbstractButton where nullptr = ListenerPtrQAbstractButton HoppyF.nullPtr withCppPtr (ListenerPtrQAbstractButton ptr') f' = f' ptr' withCppPtr (ListenerPtrQAbstractButtonGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQAbstractButton ptr') = ptr' toPtr (ListenerPtrQAbstractButtonGc _ ptr') = ptr' touchCppPtr (ListenerPtrQAbstractButton _) = HoppyP.return () touchCppPtr (ListenerPtrQAbstractButtonGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQAbstractButton where delete (ListenerPtrQAbstractButton ptr') = delete'ListenerPtrQAbstractButton $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQAbstractButtonConst) delete (ListenerPtrQAbstractButtonGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQAbstractButton", " object."] toGc this'@(ListenerPtrQAbstractButton ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQAbstractButtonGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQAbstractButtonGc {}) = HoppyP.return this' instance ListenerPtrQAbstractButtonConstPtr ListenerPtrQAbstractButton where toListenerPtrQAbstractButtonConst (ListenerPtrQAbstractButton ptr') = ListenerPtrQAbstractButtonConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButton -> HoppyF.Ptr ListenerPtrQAbstractButtonConst) ptr' toListenerPtrQAbstractButtonConst (ListenerPtrQAbstractButtonGc fptr' ptr') = ListenerPtrQAbstractButtonConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButton -> HoppyF.Ptr ListenerPtrQAbstractButtonConst) ptr' instance ListenerPtrQAbstractButtonPtr ListenerPtrQAbstractButton where toListenerPtrQAbstractButton = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQAbstractButton where toQObjectConst (ListenerPtrQAbstractButton ptr') = M94.QObjectConst $ castListenerPtrQAbstractButtonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButton -> HoppyF.Ptr ListenerPtrQAbstractButtonConst) ptr' toQObjectConst (ListenerPtrQAbstractButtonGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQAbstractButtonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButton -> HoppyF.Ptr ListenerPtrQAbstractButtonConst) ptr' instance M94.QObjectPtr ListenerPtrQAbstractButton where toQObject (ListenerPtrQAbstractButton ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQAbstractButtonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButton -> HoppyF.Ptr ListenerPtrQAbstractButtonConst) ptr' toQObject (ListenerPtrQAbstractButtonGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQAbstractButtonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButton -> HoppyF.Ptr ListenerPtrQAbstractButtonConst) ptr' listenerPtrQAbstractButton_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M354.QAbstractButton -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQAbstractButton) listenerPtrQAbstractButton_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQAbstractButtonVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQAbstractButton (listenerPtrQAbstractButton_new' arg'1' arg'2' arg'3') class ListenerPtrQAbstractButtonSuper a where downToListenerPtrQAbstractButton :: a -> ListenerPtrQAbstractButton instance ListenerPtrQAbstractButtonSuper M94.QObject where downToListenerPtrQAbstractButton = castListenerPtrQAbstractButtonToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQAbstractButtonConst $ castQObjectToListenerPtrQAbstractButton ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQAbstractButtonConstGc fptr' $ castQObjectToListenerPtrQAbstractButton ptr' class ListenerPtrQAbstractButtonSuperConst a where downToListenerPtrQAbstractButtonConst :: a -> ListenerPtrQAbstractButtonConst instance ListenerPtrQAbstractButtonSuperConst M94.QObjectConst where downToListenerPtrQAbstractButtonConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQAbstractButtonConst $ castQObjectToListenerPtrQAbstractButton ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQAbstractButtonConstGc fptr' $ castQObjectToListenerPtrQAbstractButton ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQAbstractButton)) ListenerPtrQAbstractButton where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQAbstractButton)) ListenerPtrQAbstractButton where decode = HoppyP.fmap ListenerPtrQAbstractButton . HoppyF.peek class ListenerPtrQAbstractButtonBoolValue a where withListenerPtrQAbstractButtonBoolPtr :: a -> (ListenerPtrQAbstractButtonBoolConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQAbstractButtonBoolConstPtr a => ListenerPtrQAbstractButtonBoolValue a where withListenerPtrQAbstractButtonBoolPtr = HoppyP.flip ($) . toListenerPtrQAbstractButtonBoolConst class (M94.QObjectConstPtr this) => ListenerPtrQAbstractButtonBoolConstPtr this where toListenerPtrQAbstractButtonBoolConst :: this -> ListenerPtrQAbstractButtonBoolConst listenerPtrQAbstractButtonBool_isValid :: (ListenerPtrQAbstractButtonBoolValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQAbstractButtonBool_isValid arg'1 = withListenerPtrQAbstractButtonBoolPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQAbstractButtonBool_isValid' arg'1') class (ListenerPtrQAbstractButtonBoolConstPtr this, M94.QObjectPtr this) => ListenerPtrQAbstractButtonBoolPtr this where toListenerPtrQAbstractButtonBool :: this -> ListenerPtrQAbstractButtonBool data ListenerPtrQAbstractButtonBoolConst = ListenerPtrQAbstractButtonBoolConst (HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) | ListenerPtrQAbstractButtonBoolConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQAbstractButtonBoolConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQAbstractButtonBoolConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQAbstractButtonBoolToConst :: ListenerPtrQAbstractButtonBool -> ListenerPtrQAbstractButtonBoolConst castListenerPtrQAbstractButtonBoolToConst (ListenerPtrQAbstractButtonBool ptr') = ListenerPtrQAbstractButtonBoolConst $ HoppyF.castPtr ptr' castListenerPtrQAbstractButtonBoolToConst (ListenerPtrQAbstractButtonBoolGc fptr' ptr') = ListenerPtrQAbstractButtonBoolConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQAbstractButtonBoolConst where nullptr = ListenerPtrQAbstractButtonBoolConst HoppyF.nullPtr withCppPtr (ListenerPtrQAbstractButtonBoolConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQAbstractButtonBoolConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQAbstractButtonBoolConst ptr') = ptr' toPtr (ListenerPtrQAbstractButtonBoolConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQAbstractButtonBoolConst _) = HoppyP.return () touchCppPtr (ListenerPtrQAbstractButtonBoolConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQAbstractButtonBoolConst where delete (ListenerPtrQAbstractButtonBoolConst ptr') = delete'ListenerPtrQAbstractButtonBool ptr' delete (ListenerPtrQAbstractButtonBoolConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQAbstractButtonBoolConst", " object."] toGc this'@(ListenerPtrQAbstractButtonBoolConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQAbstractButtonBoolConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQAbstractButtonBool :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQAbstractButtonBoolConstGc {}) = HoppyP.return this' instance ListenerPtrQAbstractButtonBoolConstPtr ListenerPtrQAbstractButtonBoolConst where toListenerPtrQAbstractButtonBoolConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQAbstractButtonBoolConst where toQObjectConst (ListenerPtrQAbstractButtonBoolConst ptr') = M94.QObjectConst $ castListenerPtrQAbstractButtonBoolToQObject ptr' toQObjectConst (ListenerPtrQAbstractButtonBoolConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQAbstractButtonBoolToQObject ptr' data ListenerPtrQAbstractButtonBool = ListenerPtrQAbstractButtonBool (HoppyF.Ptr ListenerPtrQAbstractButtonBool) | ListenerPtrQAbstractButtonBoolGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQAbstractButtonBool) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQAbstractButtonBool where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQAbstractButtonBool where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQAbstractButtonBoolToNonconst :: ListenerPtrQAbstractButtonBoolConst -> ListenerPtrQAbstractButtonBool castListenerPtrQAbstractButtonBoolToNonconst (ListenerPtrQAbstractButtonBoolConst ptr') = ListenerPtrQAbstractButtonBool $ HoppyF.castPtr ptr' castListenerPtrQAbstractButtonBoolToNonconst (ListenerPtrQAbstractButtonBoolConstGc fptr' ptr') = ListenerPtrQAbstractButtonBoolGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQAbstractButtonBool where nullptr = ListenerPtrQAbstractButtonBool HoppyF.nullPtr withCppPtr (ListenerPtrQAbstractButtonBool ptr') f' = f' ptr' withCppPtr (ListenerPtrQAbstractButtonBoolGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQAbstractButtonBool ptr') = ptr' toPtr (ListenerPtrQAbstractButtonBoolGc _ ptr') = ptr' touchCppPtr (ListenerPtrQAbstractButtonBool _) = HoppyP.return () touchCppPtr (ListenerPtrQAbstractButtonBoolGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQAbstractButtonBool where delete (ListenerPtrQAbstractButtonBool ptr') = delete'ListenerPtrQAbstractButtonBool $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) delete (ListenerPtrQAbstractButtonBoolGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQAbstractButtonBool", " object."] toGc this'@(ListenerPtrQAbstractButtonBool ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQAbstractButtonBoolGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQAbstractButtonBool :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQAbstractButtonBoolGc {}) = HoppyP.return this' instance ListenerPtrQAbstractButtonBoolConstPtr ListenerPtrQAbstractButtonBool where toListenerPtrQAbstractButtonBoolConst (ListenerPtrQAbstractButtonBool ptr') = ListenerPtrQAbstractButtonBoolConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButtonBool -> HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) ptr' toListenerPtrQAbstractButtonBoolConst (ListenerPtrQAbstractButtonBoolGc fptr' ptr') = ListenerPtrQAbstractButtonBoolConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButtonBool -> HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) ptr' instance ListenerPtrQAbstractButtonBoolPtr ListenerPtrQAbstractButtonBool where toListenerPtrQAbstractButtonBool = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQAbstractButtonBool where toQObjectConst (ListenerPtrQAbstractButtonBool ptr') = M94.QObjectConst $ castListenerPtrQAbstractButtonBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButtonBool -> HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) ptr' toQObjectConst (ListenerPtrQAbstractButtonBoolGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQAbstractButtonBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButtonBool -> HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) ptr' instance M94.QObjectPtr ListenerPtrQAbstractButtonBool where toQObject (ListenerPtrQAbstractButtonBool ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQAbstractButtonBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButtonBool -> HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) ptr' toQObject (ListenerPtrQAbstractButtonBoolGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQAbstractButtonBoolToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractButtonBool -> HoppyF.Ptr ListenerPtrQAbstractButtonBoolConst) ptr' listenerPtrQAbstractButtonBool_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M354.QAbstractButton -> HoppyP.Bool -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQAbstractButtonBool) listenerPtrQAbstractButtonBool_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQAbstractButtonBoolVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQAbstractButtonBool (listenerPtrQAbstractButtonBool_new' arg'1' arg'2' arg'3') class ListenerPtrQAbstractButtonBoolSuper a where downToListenerPtrQAbstractButtonBool :: a -> ListenerPtrQAbstractButtonBool instance ListenerPtrQAbstractButtonBoolSuper M94.QObject where downToListenerPtrQAbstractButtonBool = castListenerPtrQAbstractButtonBoolToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQAbstractButtonBoolConst $ castQObjectToListenerPtrQAbstractButtonBool ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQAbstractButtonBoolConstGc fptr' $ castQObjectToListenerPtrQAbstractButtonBool ptr' class ListenerPtrQAbstractButtonBoolSuperConst a where downToListenerPtrQAbstractButtonBoolConst :: a -> ListenerPtrQAbstractButtonBoolConst instance ListenerPtrQAbstractButtonBoolSuperConst M94.QObjectConst where downToListenerPtrQAbstractButtonBoolConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQAbstractButtonBoolConst $ castQObjectToListenerPtrQAbstractButtonBool ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQAbstractButtonBoolConstGc fptr' $ castQObjectToListenerPtrQAbstractButtonBool ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQAbstractButtonBool)) ListenerPtrQAbstractButtonBool where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQAbstractButtonBool)) ListenerPtrQAbstractButtonBool where decode = HoppyP.fmap ListenerPtrQAbstractButtonBool . HoppyF.peek class ListenerPtrQAbstractItemModelValue a where withListenerPtrQAbstractItemModelPtr :: a -> (ListenerPtrQAbstractItemModelConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQAbstractItemModelConstPtr a => ListenerPtrQAbstractItemModelValue a where withListenerPtrQAbstractItemModelPtr = HoppyP.flip ($) . toListenerPtrQAbstractItemModelConst class (M94.QObjectConstPtr this) => ListenerPtrQAbstractItemModelConstPtr this where toListenerPtrQAbstractItemModelConst :: this -> ListenerPtrQAbstractItemModelConst listenerPtrQAbstractItemModel_isValid :: (ListenerPtrQAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQAbstractItemModel_isValid arg'1 = withListenerPtrQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQAbstractItemModel_isValid' arg'1') class (ListenerPtrQAbstractItemModelConstPtr this, M94.QObjectPtr this) => ListenerPtrQAbstractItemModelPtr this where toListenerPtrQAbstractItemModel :: this -> ListenerPtrQAbstractItemModel data ListenerPtrQAbstractItemModelConst = ListenerPtrQAbstractItemModelConst (HoppyF.Ptr ListenerPtrQAbstractItemModelConst) | ListenerPtrQAbstractItemModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQAbstractItemModelConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQAbstractItemModelConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQAbstractItemModelConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQAbstractItemModelToConst :: ListenerPtrQAbstractItemModel -> ListenerPtrQAbstractItemModelConst castListenerPtrQAbstractItemModelToConst (ListenerPtrQAbstractItemModel ptr') = ListenerPtrQAbstractItemModelConst $ HoppyF.castPtr ptr' castListenerPtrQAbstractItemModelToConst (ListenerPtrQAbstractItemModelGc fptr' ptr') = ListenerPtrQAbstractItemModelConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQAbstractItemModelConst where nullptr = ListenerPtrQAbstractItemModelConst HoppyF.nullPtr withCppPtr (ListenerPtrQAbstractItemModelConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQAbstractItemModelConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQAbstractItemModelConst ptr') = ptr' toPtr (ListenerPtrQAbstractItemModelConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQAbstractItemModelConst _) = HoppyP.return () touchCppPtr (ListenerPtrQAbstractItemModelConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQAbstractItemModelConst where delete (ListenerPtrQAbstractItemModelConst ptr') = delete'ListenerPtrQAbstractItemModel ptr' delete (ListenerPtrQAbstractItemModelConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQAbstractItemModelConst", " object."] toGc this'@(ListenerPtrQAbstractItemModelConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQAbstractItemModelConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQAbstractItemModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQAbstractItemModelConstGc {}) = HoppyP.return this' instance ListenerPtrQAbstractItemModelConstPtr ListenerPtrQAbstractItemModelConst where toListenerPtrQAbstractItemModelConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQAbstractItemModelConst where toQObjectConst (ListenerPtrQAbstractItemModelConst ptr') = M94.QObjectConst $ castListenerPtrQAbstractItemModelToQObject ptr' toQObjectConst (ListenerPtrQAbstractItemModelConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQAbstractItemModelToQObject ptr' data ListenerPtrQAbstractItemModel = ListenerPtrQAbstractItemModel (HoppyF.Ptr ListenerPtrQAbstractItemModel) | ListenerPtrQAbstractItemModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQAbstractItemModel) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQAbstractItemModel where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQAbstractItemModel where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQAbstractItemModelToNonconst :: ListenerPtrQAbstractItemModelConst -> ListenerPtrQAbstractItemModel castListenerPtrQAbstractItemModelToNonconst (ListenerPtrQAbstractItemModelConst ptr') = ListenerPtrQAbstractItemModel $ HoppyF.castPtr ptr' castListenerPtrQAbstractItemModelToNonconst (ListenerPtrQAbstractItemModelConstGc fptr' ptr') = ListenerPtrQAbstractItemModelGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQAbstractItemModel where nullptr = ListenerPtrQAbstractItemModel HoppyF.nullPtr withCppPtr (ListenerPtrQAbstractItemModel ptr') f' = f' ptr' withCppPtr (ListenerPtrQAbstractItemModelGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQAbstractItemModel ptr') = ptr' toPtr (ListenerPtrQAbstractItemModelGc _ ptr') = ptr' touchCppPtr (ListenerPtrQAbstractItemModel _) = HoppyP.return () touchCppPtr (ListenerPtrQAbstractItemModelGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQAbstractItemModel where delete (ListenerPtrQAbstractItemModel ptr') = delete'ListenerPtrQAbstractItemModel $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQAbstractItemModelConst) delete (ListenerPtrQAbstractItemModelGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQAbstractItemModel", " object."] toGc this'@(ListenerPtrQAbstractItemModel ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQAbstractItemModelGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQAbstractItemModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQAbstractItemModelGc {}) = HoppyP.return this' instance ListenerPtrQAbstractItemModelConstPtr ListenerPtrQAbstractItemModel where toListenerPtrQAbstractItemModelConst (ListenerPtrQAbstractItemModel ptr') = ListenerPtrQAbstractItemModelConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractItemModel -> HoppyF.Ptr ListenerPtrQAbstractItemModelConst) ptr' toListenerPtrQAbstractItemModelConst (ListenerPtrQAbstractItemModelGc fptr' ptr') = ListenerPtrQAbstractItemModelConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractItemModel -> HoppyF.Ptr ListenerPtrQAbstractItemModelConst) ptr' instance ListenerPtrQAbstractItemModelPtr ListenerPtrQAbstractItemModel where toListenerPtrQAbstractItemModel = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQAbstractItemModel where toQObjectConst (ListenerPtrQAbstractItemModel ptr') = M94.QObjectConst $ castListenerPtrQAbstractItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractItemModel -> HoppyF.Ptr ListenerPtrQAbstractItemModelConst) ptr' toQObjectConst (ListenerPtrQAbstractItemModelGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQAbstractItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractItemModel -> HoppyF.Ptr ListenerPtrQAbstractItemModelConst) ptr' instance M94.QObjectPtr ListenerPtrQAbstractItemModel where toQObject (ListenerPtrQAbstractItemModel ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQAbstractItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractItemModel -> HoppyF.Ptr ListenerPtrQAbstractItemModelConst) ptr' toQObject (ListenerPtrQAbstractItemModelGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQAbstractItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAbstractItemModel -> HoppyF.Ptr ListenerPtrQAbstractItemModelConst) ptr' listenerPtrQAbstractItemModel_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M4.QAbstractItemModel -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQAbstractItemModel) listenerPtrQAbstractItemModel_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQAbstractItemModelVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQAbstractItemModel (listenerPtrQAbstractItemModel_new' arg'1' arg'2' arg'3') class ListenerPtrQAbstractItemModelSuper a where downToListenerPtrQAbstractItemModel :: a -> ListenerPtrQAbstractItemModel instance ListenerPtrQAbstractItemModelSuper M94.QObject where downToListenerPtrQAbstractItemModel = castListenerPtrQAbstractItemModelToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQAbstractItemModelConst $ castQObjectToListenerPtrQAbstractItemModel ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQAbstractItemModelConstGc fptr' $ castQObjectToListenerPtrQAbstractItemModel ptr' class ListenerPtrQAbstractItemModelSuperConst a where downToListenerPtrQAbstractItemModelConst :: a -> ListenerPtrQAbstractItemModelConst instance ListenerPtrQAbstractItemModelSuperConst M94.QObjectConst where downToListenerPtrQAbstractItemModelConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQAbstractItemModelConst $ castQObjectToListenerPtrQAbstractItemModel ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQAbstractItemModelConstGc fptr' $ castQObjectToListenerPtrQAbstractItemModel ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQAbstractItemModel)) ListenerPtrQAbstractItemModel where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQAbstractItemModel)) ListenerPtrQAbstractItemModel where decode = HoppyP.fmap ListenerPtrQAbstractItemModel . HoppyF.peek class ListenerPtrQActionValue a where withListenerPtrQActionPtr :: a -> (ListenerPtrQActionConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQActionConstPtr a => ListenerPtrQActionValue a where withListenerPtrQActionPtr = HoppyP.flip ($) . toListenerPtrQActionConst class (M94.QObjectConstPtr this) => ListenerPtrQActionConstPtr this where toListenerPtrQActionConst :: this -> ListenerPtrQActionConst listenerPtrQAction_isValid :: (ListenerPtrQActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQAction_isValid arg'1 = withListenerPtrQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQAction_isValid' arg'1') class (ListenerPtrQActionConstPtr this, M94.QObjectPtr this) => ListenerPtrQActionPtr this where toListenerPtrQAction :: this -> ListenerPtrQAction data ListenerPtrQActionConst = ListenerPtrQActionConst (HoppyF.Ptr ListenerPtrQActionConst) | ListenerPtrQActionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQActionConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQActionConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQActionConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQActionToConst :: ListenerPtrQAction -> ListenerPtrQActionConst castListenerPtrQActionToConst (ListenerPtrQAction ptr') = ListenerPtrQActionConst $ HoppyF.castPtr ptr' castListenerPtrQActionToConst (ListenerPtrQActionGc fptr' ptr') = ListenerPtrQActionConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQActionConst where nullptr = ListenerPtrQActionConst HoppyF.nullPtr withCppPtr (ListenerPtrQActionConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQActionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQActionConst ptr') = ptr' toPtr (ListenerPtrQActionConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQActionConst _) = HoppyP.return () touchCppPtr (ListenerPtrQActionConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQActionConst where delete (ListenerPtrQActionConst ptr') = delete'ListenerPtrQAction ptr' delete (ListenerPtrQActionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQActionConst", " object."] toGc this'@(ListenerPtrQActionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQActionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQAction :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQActionConstGc {}) = HoppyP.return this' instance ListenerPtrQActionConstPtr ListenerPtrQActionConst where toListenerPtrQActionConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQActionConst where toQObjectConst (ListenerPtrQActionConst ptr') = M94.QObjectConst $ castListenerPtrQActionToQObject ptr' toQObjectConst (ListenerPtrQActionConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQActionToQObject ptr' data ListenerPtrQAction = ListenerPtrQAction (HoppyF.Ptr ListenerPtrQAction) | ListenerPtrQActionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQAction) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQAction where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQAction where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQActionToNonconst :: ListenerPtrQActionConst -> ListenerPtrQAction castListenerPtrQActionToNonconst (ListenerPtrQActionConst ptr') = ListenerPtrQAction $ HoppyF.castPtr ptr' castListenerPtrQActionToNonconst (ListenerPtrQActionConstGc fptr' ptr') = ListenerPtrQActionGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQAction where nullptr = ListenerPtrQAction HoppyF.nullPtr withCppPtr (ListenerPtrQAction ptr') f' = f' ptr' withCppPtr (ListenerPtrQActionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQAction ptr') = ptr' toPtr (ListenerPtrQActionGc _ ptr') = ptr' touchCppPtr (ListenerPtrQAction _) = HoppyP.return () touchCppPtr (ListenerPtrQActionGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQAction where delete (ListenerPtrQAction ptr') = delete'ListenerPtrQAction $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQActionConst) delete (ListenerPtrQActionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQAction", " object."] toGc this'@(ListenerPtrQAction ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQActionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQAction :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQActionGc {}) = HoppyP.return this' instance ListenerPtrQActionConstPtr ListenerPtrQAction where toListenerPtrQActionConst (ListenerPtrQAction ptr') = ListenerPtrQActionConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAction -> HoppyF.Ptr ListenerPtrQActionConst) ptr' toListenerPtrQActionConst (ListenerPtrQActionGc fptr' ptr') = ListenerPtrQActionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAction -> HoppyF.Ptr ListenerPtrQActionConst) ptr' instance ListenerPtrQActionPtr ListenerPtrQAction where toListenerPtrQAction = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQAction where toQObjectConst (ListenerPtrQAction ptr') = M94.QObjectConst $ castListenerPtrQActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAction -> HoppyF.Ptr ListenerPtrQActionConst) ptr' toQObjectConst (ListenerPtrQActionGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAction -> HoppyF.Ptr ListenerPtrQActionConst) ptr' instance M94.QObjectPtr ListenerPtrQAction where toQObject (ListenerPtrQAction ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAction -> HoppyF.Ptr ListenerPtrQActionConst) ptr' toQObject (ListenerPtrQActionGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQAction -> HoppyF.Ptr ListenerPtrQActionConst) ptr' listenerPtrQAction_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M368.QAction -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQAction) listenerPtrQAction_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQActionVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQAction (listenerPtrQAction_new' arg'1' arg'2' arg'3') class ListenerPtrQActionSuper a where downToListenerPtrQAction :: a -> ListenerPtrQAction instance ListenerPtrQActionSuper M94.QObject where downToListenerPtrQAction = castListenerPtrQActionToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQActionConst $ castQObjectToListenerPtrQAction ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQActionConstGc fptr' $ castQObjectToListenerPtrQAction ptr' class ListenerPtrQActionSuperConst a where downToListenerPtrQActionConst :: a -> ListenerPtrQActionConst instance ListenerPtrQActionSuperConst M94.QObjectConst where downToListenerPtrQActionConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQActionConst $ castQObjectToListenerPtrQAction ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQActionConstGc fptr' $ castQObjectToListenerPtrQAction ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQAction)) ListenerPtrQAction where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQAction)) ListenerPtrQAction where decode = HoppyP.fmap ListenerPtrQAction . HoppyF.peek class ListenerPtrQMdiSubWindowValue a where withListenerPtrQMdiSubWindowPtr :: a -> (ListenerPtrQMdiSubWindowConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQMdiSubWindowConstPtr a => ListenerPtrQMdiSubWindowValue a where withListenerPtrQMdiSubWindowPtr = HoppyP.flip ($) . toListenerPtrQMdiSubWindowConst class (M94.QObjectConstPtr this) => ListenerPtrQMdiSubWindowConstPtr this where toListenerPtrQMdiSubWindowConst :: this -> ListenerPtrQMdiSubWindowConst listenerPtrQMdiSubWindow_isValid :: (ListenerPtrQMdiSubWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQMdiSubWindow_isValid arg'1 = withListenerPtrQMdiSubWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQMdiSubWindow_isValid' arg'1') class (ListenerPtrQMdiSubWindowConstPtr this, M94.QObjectPtr this) => ListenerPtrQMdiSubWindowPtr this where toListenerPtrQMdiSubWindow :: this -> ListenerPtrQMdiSubWindow data ListenerPtrQMdiSubWindowConst = ListenerPtrQMdiSubWindowConst (HoppyF.Ptr ListenerPtrQMdiSubWindowConst) | ListenerPtrQMdiSubWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQMdiSubWindowConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQMdiSubWindowConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQMdiSubWindowConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQMdiSubWindowToConst :: ListenerPtrQMdiSubWindow -> ListenerPtrQMdiSubWindowConst castListenerPtrQMdiSubWindowToConst (ListenerPtrQMdiSubWindow ptr') = ListenerPtrQMdiSubWindowConst $ HoppyF.castPtr ptr' castListenerPtrQMdiSubWindowToConst (ListenerPtrQMdiSubWindowGc fptr' ptr') = ListenerPtrQMdiSubWindowConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQMdiSubWindowConst where nullptr = ListenerPtrQMdiSubWindowConst HoppyF.nullPtr withCppPtr (ListenerPtrQMdiSubWindowConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQMdiSubWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQMdiSubWindowConst ptr') = ptr' toPtr (ListenerPtrQMdiSubWindowConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQMdiSubWindowConst _) = HoppyP.return () touchCppPtr (ListenerPtrQMdiSubWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQMdiSubWindowConst where delete (ListenerPtrQMdiSubWindowConst ptr') = delete'ListenerPtrQMdiSubWindow ptr' delete (ListenerPtrQMdiSubWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQMdiSubWindowConst", " object."] toGc this'@(ListenerPtrQMdiSubWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQMdiSubWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQMdiSubWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQMdiSubWindowConstGc {}) = HoppyP.return this' instance ListenerPtrQMdiSubWindowConstPtr ListenerPtrQMdiSubWindowConst where toListenerPtrQMdiSubWindowConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQMdiSubWindowConst where toQObjectConst (ListenerPtrQMdiSubWindowConst ptr') = M94.QObjectConst $ castListenerPtrQMdiSubWindowToQObject ptr' toQObjectConst (ListenerPtrQMdiSubWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQMdiSubWindowToQObject ptr' data ListenerPtrQMdiSubWindow = ListenerPtrQMdiSubWindow (HoppyF.Ptr ListenerPtrQMdiSubWindow) | ListenerPtrQMdiSubWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQMdiSubWindow) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQMdiSubWindow where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQMdiSubWindow where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQMdiSubWindowToNonconst :: ListenerPtrQMdiSubWindowConst -> ListenerPtrQMdiSubWindow castListenerPtrQMdiSubWindowToNonconst (ListenerPtrQMdiSubWindowConst ptr') = ListenerPtrQMdiSubWindow $ HoppyF.castPtr ptr' castListenerPtrQMdiSubWindowToNonconst (ListenerPtrQMdiSubWindowConstGc fptr' ptr') = ListenerPtrQMdiSubWindowGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQMdiSubWindow where nullptr = ListenerPtrQMdiSubWindow HoppyF.nullPtr withCppPtr (ListenerPtrQMdiSubWindow ptr') f' = f' ptr' withCppPtr (ListenerPtrQMdiSubWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQMdiSubWindow ptr') = ptr' toPtr (ListenerPtrQMdiSubWindowGc _ ptr') = ptr' touchCppPtr (ListenerPtrQMdiSubWindow _) = HoppyP.return () touchCppPtr (ListenerPtrQMdiSubWindowGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQMdiSubWindow where delete (ListenerPtrQMdiSubWindow ptr') = delete'ListenerPtrQMdiSubWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQMdiSubWindowConst) delete (ListenerPtrQMdiSubWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQMdiSubWindow", " object."] toGc this'@(ListenerPtrQMdiSubWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQMdiSubWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQMdiSubWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQMdiSubWindowGc {}) = HoppyP.return this' instance ListenerPtrQMdiSubWindowConstPtr ListenerPtrQMdiSubWindow where toListenerPtrQMdiSubWindowConst (ListenerPtrQMdiSubWindow ptr') = ListenerPtrQMdiSubWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQMdiSubWindow -> HoppyF.Ptr ListenerPtrQMdiSubWindowConst) ptr' toListenerPtrQMdiSubWindowConst (ListenerPtrQMdiSubWindowGc fptr' ptr') = ListenerPtrQMdiSubWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQMdiSubWindow -> HoppyF.Ptr ListenerPtrQMdiSubWindowConst) ptr' instance ListenerPtrQMdiSubWindowPtr ListenerPtrQMdiSubWindow where toListenerPtrQMdiSubWindow = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQMdiSubWindow where toQObjectConst (ListenerPtrQMdiSubWindow ptr') = M94.QObjectConst $ castListenerPtrQMdiSubWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQMdiSubWindow -> HoppyF.Ptr ListenerPtrQMdiSubWindowConst) ptr' toQObjectConst (ListenerPtrQMdiSubWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQMdiSubWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQMdiSubWindow -> HoppyF.Ptr ListenerPtrQMdiSubWindowConst) ptr' instance M94.QObjectPtr ListenerPtrQMdiSubWindow where toQObject (ListenerPtrQMdiSubWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQMdiSubWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQMdiSubWindow -> HoppyF.Ptr ListenerPtrQMdiSubWindowConst) ptr' toQObject (ListenerPtrQMdiSubWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQMdiSubWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQMdiSubWindow -> HoppyF.Ptr ListenerPtrQMdiSubWindowConst) ptr' listenerPtrQMdiSubWindow_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M446.QMdiSubWindow -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQMdiSubWindow) listenerPtrQMdiSubWindow_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQMdiSubWindowVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQMdiSubWindow (listenerPtrQMdiSubWindow_new' arg'1' arg'2' arg'3') class ListenerPtrQMdiSubWindowSuper a where downToListenerPtrQMdiSubWindow :: a -> ListenerPtrQMdiSubWindow instance ListenerPtrQMdiSubWindowSuper M94.QObject where downToListenerPtrQMdiSubWindow = castListenerPtrQMdiSubWindowToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQMdiSubWindowConst $ castQObjectToListenerPtrQMdiSubWindow ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQMdiSubWindowConstGc fptr' $ castQObjectToListenerPtrQMdiSubWindow ptr' class ListenerPtrQMdiSubWindowSuperConst a where downToListenerPtrQMdiSubWindowConst :: a -> ListenerPtrQMdiSubWindowConst instance ListenerPtrQMdiSubWindowSuperConst M94.QObjectConst where downToListenerPtrQMdiSubWindowConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQMdiSubWindowConst $ castQObjectToListenerPtrQMdiSubWindow ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQMdiSubWindowConstGc fptr' $ castQObjectToListenerPtrQMdiSubWindow ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQMdiSubWindow)) ListenerPtrQMdiSubWindow where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQMdiSubWindow)) ListenerPtrQMdiSubWindow where decode = HoppyP.fmap ListenerPtrQMdiSubWindow . HoppyF.peek class ListenerPtrQObjectValue a where withListenerPtrQObjectPtr :: a -> (ListenerPtrQObjectConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQObjectConstPtr a => ListenerPtrQObjectValue a where withListenerPtrQObjectPtr = HoppyP.flip ($) . toListenerPtrQObjectConst class (M94.QObjectConstPtr this) => ListenerPtrQObjectConstPtr this where toListenerPtrQObjectConst :: this -> ListenerPtrQObjectConst listenerPtrQObject_isValid :: (ListenerPtrQObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQObject_isValid arg'1 = withListenerPtrQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQObject_isValid' arg'1') class (ListenerPtrQObjectConstPtr this, M94.QObjectPtr this) => ListenerPtrQObjectPtr this where toListenerPtrQObject :: this -> ListenerPtrQObject data ListenerPtrQObjectConst = ListenerPtrQObjectConst (HoppyF.Ptr ListenerPtrQObjectConst) | ListenerPtrQObjectConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQObjectConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQObjectConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQObjectConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQObjectToConst :: ListenerPtrQObject -> ListenerPtrQObjectConst castListenerPtrQObjectToConst (ListenerPtrQObject ptr') = ListenerPtrQObjectConst $ HoppyF.castPtr ptr' castListenerPtrQObjectToConst (ListenerPtrQObjectGc fptr' ptr') = ListenerPtrQObjectConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQObjectConst where nullptr = ListenerPtrQObjectConst HoppyF.nullPtr withCppPtr (ListenerPtrQObjectConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQObjectConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQObjectConst ptr') = ptr' toPtr (ListenerPtrQObjectConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQObjectConst _) = HoppyP.return () touchCppPtr (ListenerPtrQObjectConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQObjectConst where delete (ListenerPtrQObjectConst ptr') = delete'ListenerPtrQObject ptr' delete (ListenerPtrQObjectConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQObjectConst", " object."] toGc this'@(ListenerPtrQObjectConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQObjectConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQObject :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQObjectConstGc {}) = HoppyP.return this' instance ListenerPtrQObjectConstPtr ListenerPtrQObjectConst where toListenerPtrQObjectConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQObjectConst where toQObjectConst (ListenerPtrQObjectConst ptr') = M94.QObjectConst $ castListenerPtrQObjectToQObject ptr' toQObjectConst (ListenerPtrQObjectConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQObjectToQObject ptr' data ListenerPtrQObject = ListenerPtrQObject (HoppyF.Ptr ListenerPtrQObject) | ListenerPtrQObjectGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQObject) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQObject where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQObject where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQObjectToNonconst :: ListenerPtrQObjectConst -> ListenerPtrQObject castListenerPtrQObjectToNonconst (ListenerPtrQObjectConst ptr') = ListenerPtrQObject $ HoppyF.castPtr ptr' castListenerPtrQObjectToNonconst (ListenerPtrQObjectConstGc fptr' ptr') = ListenerPtrQObjectGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQObject where nullptr = ListenerPtrQObject HoppyF.nullPtr withCppPtr (ListenerPtrQObject ptr') f' = f' ptr' withCppPtr (ListenerPtrQObjectGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQObject ptr') = ptr' toPtr (ListenerPtrQObjectGc _ ptr') = ptr' touchCppPtr (ListenerPtrQObject _) = HoppyP.return () touchCppPtr (ListenerPtrQObjectGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQObject where delete (ListenerPtrQObject ptr') = delete'ListenerPtrQObject $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQObjectConst) delete (ListenerPtrQObjectGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQObject", " object."] toGc this'@(ListenerPtrQObject ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQObjectGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQObject :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQObjectGc {}) = HoppyP.return this' instance ListenerPtrQObjectConstPtr ListenerPtrQObject where toListenerPtrQObjectConst (ListenerPtrQObject ptr') = ListenerPtrQObjectConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQObject -> HoppyF.Ptr ListenerPtrQObjectConst) ptr' toListenerPtrQObjectConst (ListenerPtrQObjectGc fptr' ptr') = ListenerPtrQObjectConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQObject -> HoppyF.Ptr ListenerPtrQObjectConst) ptr' instance ListenerPtrQObjectPtr ListenerPtrQObject where toListenerPtrQObject = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQObject where toQObjectConst (ListenerPtrQObject ptr') = M94.QObjectConst $ castListenerPtrQObjectToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQObject -> HoppyF.Ptr ListenerPtrQObjectConst) ptr' toQObjectConst (ListenerPtrQObjectGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQObjectToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQObject -> HoppyF.Ptr ListenerPtrQObjectConst) ptr' instance M94.QObjectPtr ListenerPtrQObject where toQObject (ListenerPtrQObject ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQObjectToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQObject -> HoppyF.Ptr ListenerPtrQObjectConst) ptr' toQObject (ListenerPtrQObjectGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQObjectToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQObject -> HoppyF.Ptr ListenerPtrQObjectConst) ptr' listenerPtrQObject_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M94.QObject -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQObject) listenerPtrQObject_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQObjectVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQObject (listenerPtrQObject_new' arg'1' arg'2' arg'3') class ListenerPtrQObjectSuper a where downToListenerPtrQObject :: a -> ListenerPtrQObject instance ListenerPtrQObjectSuper M94.QObject where downToListenerPtrQObject = castListenerPtrQObjectToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQObjectConst $ castQObjectToListenerPtrQObject ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQObjectConstGc fptr' $ castQObjectToListenerPtrQObject ptr' class ListenerPtrQObjectSuperConst a where downToListenerPtrQObjectConst :: a -> ListenerPtrQObjectConst instance ListenerPtrQObjectSuperConst M94.QObjectConst where downToListenerPtrQObjectConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQObjectConst $ castQObjectToListenerPtrQObject ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQObjectConstGc fptr' $ castQObjectToListenerPtrQObject ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQObject)) ListenerPtrQObject where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQObject)) ListenerPtrQObject where decode = HoppyP.fmap ListenerPtrQObject . HoppyF.peek class ListenerPtrQTreeWidgetItemValue a where withListenerPtrQTreeWidgetItemPtr :: a -> (ListenerPtrQTreeWidgetItemConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQTreeWidgetItemConstPtr a => ListenerPtrQTreeWidgetItemValue a where withListenerPtrQTreeWidgetItemPtr = HoppyP.flip ($) . toListenerPtrQTreeWidgetItemConst class (M94.QObjectConstPtr this) => ListenerPtrQTreeWidgetItemConstPtr this where toListenerPtrQTreeWidgetItemConst :: this -> ListenerPtrQTreeWidgetItemConst listenerPtrQTreeWidgetItem_isValid :: (ListenerPtrQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQTreeWidgetItem_isValid arg'1 = withListenerPtrQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQTreeWidgetItem_isValid' arg'1') class (ListenerPtrQTreeWidgetItemConstPtr this, M94.QObjectPtr this) => ListenerPtrQTreeWidgetItemPtr this where toListenerPtrQTreeWidgetItem :: this -> ListenerPtrQTreeWidgetItem data ListenerPtrQTreeWidgetItemConst = ListenerPtrQTreeWidgetItemConst (HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) | ListenerPtrQTreeWidgetItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQTreeWidgetItemConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQTreeWidgetItemConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQTreeWidgetItemToConst :: ListenerPtrQTreeWidgetItem -> ListenerPtrQTreeWidgetItemConst castListenerPtrQTreeWidgetItemToConst (ListenerPtrQTreeWidgetItem ptr') = ListenerPtrQTreeWidgetItemConst $ HoppyF.castPtr ptr' castListenerPtrQTreeWidgetItemToConst (ListenerPtrQTreeWidgetItemGc fptr' ptr') = ListenerPtrQTreeWidgetItemConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQTreeWidgetItemConst where nullptr = ListenerPtrQTreeWidgetItemConst HoppyF.nullPtr withCppPtr (ListenerPtrQTreeWidgetItemConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQTreeWidgetItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQTreeWidgetItemConst ptr') = ptr' toPtr (ListenerPtrQTreeWidgetItemConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQTreeWidgetItemConst _) = HoppyP.return () touchCppPtr (ListenerPtrQTreeWidgetItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQTreeWidgetItemConst where delete (ListenerPtrQTreeWidgetItemConst ptr') = delete'ListenerPtrQTreeWidgetItem ptr' delete (ListenerPtrQTreeWidgetItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQTreeWidgetItemConst", " object."] toGc this'@(ListenerPtrQTreeWidgetItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQTreeWidgetItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQTreeWidgetItemConstGc {}) = HoppyP.return this' instance ListenerPtrQTreeWidgetItemConstPtr ListenerPtrQTreeWidgetItemConst where toListenerPtrQTreeWidgetItemConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQTreeWidgetItemConst where toQObjectConst (ListenerPtrQTreeWidgetItemConst ptr') = M94.QObjectConst $ castListenerPtrQTreeWidgetItemToQObject ptr' toQObjectConst (ListenerPtrQTreeWidgetItemConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQTreeWidgetItemToQObject ptr' data ListenerPtrQTreeWidgetItem = ListenerPtrQTreeWidgetItem (HoppyF.Ptr ListenerPtrQTreeWidgetItem) | ListenerPtrQTreeWidgetItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQTreeWidgetItem) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQTreeWidgetItem where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQTreeWidgetItem where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQTreeWidgetItemToNonconst :: ListenerPtrQTreeWidgetItemConst -> ListenerPtrQTreeWidgetItem castListenerPtrQTreeWidgetItemToNonconst (ListenerPtrQTreeWidgetItemConst ptr') = ListenerPtrQTreeWidgetItem $ HoppyF.castPtr ptr' castListenerPtrQTreeWidgetItemToNonconst (ListenerPtrQTreeWidgetItemConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQTreeWidgetItem where nullptr = ListenerPtrQTreeWidgetItem HoppyF.nullPtr withCppPtr (ListenerPtrQTreeWidgetItem ptr') f' = f' ptr' withCppPtr (ListenerPtrQTreeWidgetItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQTreeWidgetItem ptr') = ptr' toPtr (ListenerPtrQTreeWidgetItemGc _ ptr') = ptr' touchCppPtr (ListenerPtrQTreeWidgetItem _) = HoppyP.return () touchCppPtr (ListenerPtrQTreeWidgetItemGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQTreeWidgetItem where delete (ListenerPtrQTreeWidgetItem ptr') = delete'ListenerPtrQTreeWidgetItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) delete (ListenerPtrQTreeWidgetItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQTreeWidgetItem", " object."] toGc this'@(ListenerPtrQTreeWidgetItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQTreeWidgetItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQTreeWidgetItemGc {}) = HoppyP.return this' instance ListenerPtrQTreeWidgetItemConstPtr ListenerPtrQTreeWidgetItem where toListenerPtrQTreeWidgetItemConst (ListenerPtrQTreeWidgetItem ptr') = ListenerPtrQTreeWidgetItemConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) ptr' toListenerPtrQTreeWidgetItemConst (ListenerPtrQTreeWidgetItemGc fptr' ptr') = ListenerPtrQTreeWidgetItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) ptr' instance ListenerPtrQTreeWidgetItemPtr ListenerPtrQTreeWidgetItem where toListenerPtrQTreeWidgetItem = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQTreeWidgetItem where toQObjectConst (ListenerPtrQTreeWidgetItem ptr') = M94.QObjectConst $ castListenerPtrQTreeWidgetItemToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) ptr' toQObjectConst (ListenerPtrQTreeWidgetItemGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQTreeWidgetItemToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) ptr' instance M94.QObjectPtr ListenerPtrQTreeWidgetItem where toQObject (ListenerPtrQTreeWidgetItem ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQTreeWidgetItemToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) ptr' toQObject (ListenerPtrQTreeWidgetItemGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQTreeWidgetItemToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemConst) ptr' listenerPtrQTreeWidgetItem_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M502.QTreeWidgetItem -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQTreeWidgetItem) listenerPtrQTreeWidgetItem_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQTreeWidgetItemVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQTreeWidgetItem (listenerPtrQTreeWidgetItem_new' arg'1' arg'2' arg'3') class ListenerPtrQTreeWidgetItemSuper a where downToListenerPtrQTreeWidgetItem :: a -> ListenerPtrQTreeWidgetItem instance ListenerPtrQTreeWidgetItemSuper M94.QObject where downToListenerPtrQTreeWidgetItem = castListenerPtrQTreeWidgetItemToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQTreeWidgetItemConst $ castQObjectToListenerPtrQTreeWidgetItem ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemConstGc fptr' $ castQObjectToListenerPtrQTreeWidgetItem ptr' class ListenerPtrQTreeWidgetItemSuperConst a where downToListenerPtrQTreeWidgetItemConst :: a -> ListenerPtrQTreeWidgetItemConst instance ListenerPtrQTreeWidgetItemSuperConst M94.QObjectConst where downToListenerPtrQTreeWidgetItemConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQTreeWidgetItemConst $ castQObjectToListenerPtrQTreeWidgetItem ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemConstGc fptr' $ castQObjectToListenerPtrQTreeWidgetItem ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQTreeWidgetItem)) ListenerPtrQTreeWidgetItem where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQTreeWidgetItem)) ListenerPtrQTreeWidgetItem where decode = HoppyP.fmap ListenerPtrQTreeWidgetItem . HoppyF.peek class ListenerPtrQTreeWidgetItemIntValue a where withListenerPtrQTreeWidgetItemIntPtr :: a -> (ListenerPtrQTreeWidgetItemIntConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQTreeWidgetItemIntConstPtr a => ListenerPtrQTreeWidgetItemIntValue a where withListenerPtrQTreeWidgetItemIntPtr = HoppyP.flip ($) . toListenerPtrQTreeWidgetItemIntConst class (M94.QObjectConstPtr this) => ListenerPtrQTreeWidgetItemIntConstPtr this where toListenerPtrQTreeWidgetItemIntConst :: this -> ListenerPtrQTreeWidgetItemIntConst listenerPtrQTreeWidgetItemInt_isValid :: (ListenerPtrQTreeWidgetItemIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQTreeWidgetItemInt_isValid arg'1 = withListenerPtrQTreeWidgetItemIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQTreeWidgetItemInt_isValid' arg'1') class (ListenerPtrQTreeWidgetItemIntConstPtr this, M94.QObjectPtr this) => ListenerPtrQTreeWidgetItemIntPtr this where toListenerPtrQTreeWidgetItemInt :: this -> ListenerPtrQTreeWidgetItemInt data ListenerPtrQTreeWidgetItemIntConst = ListenerPtrQTreeWidgetItemIntConst (HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) | ListenerPtrQTreeWidgetItemIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQTreeWidgetItemIntConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQTreeWidgetItemIntConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQTreeWidgetItemIntToConst :: ListenerPtrQTreeWidgetItemInt -> ListenerPtrQTreeWidgetItemIntConst castListenerPtrQTreeWidgetItemIntToConst (ListenerPtrQTreeWidgetItemInt ptr') = ListenerPtrQTreeWidgetItemIntConst $ HoppyF.castPtr ptr' castListenerPtrQTreeWidgetItemIntToConst (ListenerPtrQTreeWidgetItemIntGc fptr' ptr') = ListenerPtrQTreeWidgetItemIntConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQTreeWidgetItemIntConst where nullptr = ListenerPtrQTreeWidgetItemIntConst HoppyF.nullPtr withCppPtr (ListenerPtrQTreeWidgetItemIntConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQTreeWidgetItemIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQTreeWidgetItemIntConst ptr') = ptr' toPtr (ListenerPtrQTreeWidgetItemIntConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQTreeWidgetItemIntConst _) = HoppyP.return () touchCppPtr (ListenerPtrQTreeWidgetItemIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQTreeWidgetItemIntConst where delete (ListenerPtrQTreeWidgetItemIntConst ptr') = delete'ListenerPtrQTreeWidgetItemInt ptr' delete (ListenerPtrQTreeWidgetItemIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQTreeWidgetItemIntConst", " object."] toGc this'@(ListenerPtrQTreeWidgetItemIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQTreeWidgetItemIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQTreeWidgetItemInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQTreeWidgetItemIntConstGc {}) = HoppyP.return this' instance ListenerPtrQTreeWidgetItemIntConstPtr ListenerPtrQTreeWidgetItemIntConst where toListenerPtrQTreeWidgetItemIntConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQTreeWidgetItemIntConst where toQObjectConst (ListenerPtrQTreeWidgetItemIntConst ptr') = M94.QObjectConst $ castListenerPtrQTreeWidgetItemIntToQObject ptr' toQObjectConst (ListenerPtrQTreeWidgetItemIntConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQTreeWidgetItemIntToQObject ptr' data ListenerPtrQTreeWidgetItemInt = ListenerPtrQTreeWidgetItemInt (HoppyF.Ptr ListenerPtrQTreeWidgetItemInt) | ListenerPtrQTreeWidgetItemIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQTreeWidgetItemInt) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQTreeWidgetItemInt where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQTreeWidgetItemInt where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQTreeWidgetItemIntToNonconst :: ListenerPtrQTreeWidgetItemIntConst -> ListenerPtrQTreeWidgetItemInt castListenerPtrQTreeWidgetItemIntToNonconst (ListenerPtrQTreeWidgetItemIntConst ptr') = ListenerPtrQTreeWidgetItemInt $ HoppyF.castPtr ptr' castListenerPtrQTreeWidgetItemIntToNonconst (ListenerPtrQTreeWidgetItemIntConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemIntGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQTreeWidgetItemInt where nullptr = ListenerPtrQTreeWidgetItemInt HoppyF.nullPtr withCppPtr (ListenerPtrQTreeWidgetItemInt ptr') f' = f' ptr' withCppPtr (ListenerPtrQTreeWidgetItemIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQTreeWidgetItemInt ptr') = ptr' toPtr (ListenerPtrQTreeWidgetItemIntGc _ ptr') = ptr' touchCppPtr (ListenerPtrQTreeWidgetItemInt _) = HoppyP.return () touchCppPtr (ListenerPtrQTreeWidgetItemIntGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQTreeWidgetItemInt where delete (ListenerPtrQTreeWidgetItemInt ptr') = delete'ListenerPtrQTreeWidgetItemInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) delete (ListenerPtrQTreeWidgetItemIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQTreeWidgetItemInt", " object."] toGc this'@(ListenerPtrQTreeWidgetItemInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQTreeWidgetItemIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQTreeWidgetItemInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQTreeWidgetItemIntGc {}) = HoppyP.return this' instance ListenerPtrQTreeWidgetItemIntConstPtr ListenerPtrQTreeWidgetItemInt where toListenerPtrQTreeWidgetItemIntConst (ListenerPtrQTreeWidgetItemInt ptr') = ListenerPtrQTreeWidgetItemIntConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemInt -> HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) ptr' toListenerPtrQTreeWidgetItemIntConst (ListenerPtrQTreeWidgetItemIntGc fptr' ptr') = ListenerPtrQTreeWidgetItemIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemInt -> HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) ptr' instance ListenerPtrQTreeWidgetItemIntPtr ListenerPtrQTreeWidgetItemInt where toListenerPtrQTreeWidgetItemInt = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQTreeWidgetItemInt where toQObjectConst (ListenerPtrQTreeWidgetItemInt ptr') = M94.QObjectConst $ castListenerPtrQTreeWidgetItemIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemInt -> HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) ptr' toQObjectConst (ListenerPtrQTreeWidgetItemIntGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQTreeWidgetItemIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemInt -> HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) ptr' instance M94.QObjectPtr ListenerPtrQTreeWidgetItemInt where toQObject (ListenerPtrQTreeWidgetItemInt ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQTreeWidgetItemIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemInt -> HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) ptr' toQObject (ListenerPtrQTreeWidgetItemIntGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQTreeWidgetItemIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemInt -> HoppyF.Ptr ListenerPtrQTreeWidgetItemIntConst) ptr' listenerPtrQTreeWidgetItemInt_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M502.QTreeWidgetItem -> HoppyP.Int -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQTreeWidgetItemInt) listenerPtrQTreeWidgetItemInt_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQTreeWidgetItemIntVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQTreeWidgetItemInt (listenerPtrQTreeWidgetItemInt_new' arg'1' arg'2' arg'3') class ListenerPtrQTreeWidgetItemIntSuper a where downToListenerPtrQTreeWidgetItemInt :: a -> ListenerPtrQTreeWidgetItemInt instance ListenerPtrQTreeWidgetItemIntSuper M94.QObject where downToListenerPtrQTreeWidgetItemInt = castListenerPtrQTreeWidgetItemIntToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQTreeWidgetItemIntConst $ castQObjectToListenerPtrQTreeWidgetItemInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemIntConstGc fptr' $ castQObjectToListenerPtrQTreeWidgetItemInt ptr' class ListenerPtrQTreeWidgetItemIntSuperConst a where downToListenerPtrQTreeWidgetItemIntConst :: a -> ListenerPtrQTreeWidgetItemIntConst instance ListenerPtrQTreeWidgetItemIntSuperConst M94.QObjectConst where downToListenerPtrQTreeWidgetItemIntConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQTreeWidgetItemIntConst $ castQObjectToListenerPtrQTreeWidgetItemInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemIntConstGc fptr' $ castQObjectToListenerPtrQTreeWidgetItemInt ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQTreeWidgetItemInt)) ListenerPtrQTreeWidgetItemInt where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQTreeWidgetItemInt)) ListenerPtrQTreeWidgetItemInt where decode = HoppyP.fmap ListenerPtrQTreeWidgetItemInt . HoppyF.peek class ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemValue a where withListenerPtrQTreeWidgetItemPtrQTreeWidgetItemPtr :: a -> (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstPtr a => ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemValue a where withListenerPtrQTreeWidgetItemPtrQTreeWidgetItemPtr = HoppyP.flip ($) . toListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst class (M94.QObjectConstPtr this) => ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstPtr this where toListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst :: this -> ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_isValid :: (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_isValid arg'1 = withListenerPtrQTreeWidgetItemPtrQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_isValid' arg'1') class (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstPtr this, M94.QObjectPtr this) => ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemPtr this where toListenerPtrQTreeWidgetItemPtrQTreeWidgetItem :: this -> ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem data ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst (HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) | ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToConst :: ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem -> ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToConst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst $ HoppyF.castPtr ptr' castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToConst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc fptr' ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst where nullptr = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst HoppyF.nullPtr withCppPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst ptr') = ptr' toPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst _) = HoppyP.return () touchCppPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst where delete (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst ptr') = delete'ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr' delete (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst", " object."] toGc this'@(ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc {}) = HoppyP.return this' instance ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstPtr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst where toListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst where toQObjectConst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst ptr') = M94.QObjectConst $ castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToQObject ptr' toQObjectConst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToQObject ptr' data ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem (HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem) | ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToNonconst :: ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst -> ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToNonconst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem $ HoppyF.castPtr ptr' castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToNonconst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where nullptr = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem HoppyF.nullPtr withCppPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr') f' = f' ptr' withCppPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr') = ptr' toPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc _ ptr') = ptr' touchCppPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem _) = HoppyP.return () touchCppPtr (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where delete (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr') = delete'ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) delete (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem", " object."] toGc this'@(ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc {}) = HoppyP.return this' instance ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstPtr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where toListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) ptr' toListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc fptr' ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) ptr' instance ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemPtr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where toListenerPtrQTreeWidgetItemPtrQTreeWidgetItem = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where toQObjectConst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr') = M94.QObjectConst $ castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) ptr' toQObjectConst (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) ptr' instance M94.QObjectPtr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where toQObject (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) ptr' toQObject (ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem -> HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst) ptr' listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M502.QTreeWidgetItem -> M502.QTreeWidgetItem -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem) listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQTreeWidgetItemPtrQTreeWidgetItemVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem (listenerPtrQTreeWidgetItemPtrQTreeWidgetItem_new' arg'1' arg'2' arg'3') class ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemSuper a where downToListenerPtrQTreeWidgetItemPtrQTreeWidgetItem :: a -> ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem instance ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemSuper M94.QObject where downToListenerPtrQTreeWidgetItemPtrQTreeWidgetItem = castListenerPtrQTreeWidgetItemPtrQTreeWidgetItemToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst $ castQObjectToListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc fptr' $ castQObjectToListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr' class ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemSuperConst a where downToListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst :: a -> ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst instance ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemSuperConst M94.QObjectConst where downToListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConst $ castQObjectToListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQTreeWidgetItemPtrQTreeWidgetItemConstGc fptr' $ castQObjectToListenerPtrQTreeWidgetItemPtrQTreeWidgetItem ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem)) ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem)) ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem where decode = HoppyP.fmap ListenerPtrQTreeWidgetItemPtrQTreeWidgetItem . HoppyF.peek class ListenerPtrQWidgetPtrQWidgetValue a where withListenerPtrQWidgetPtrQWidgetPtr :: a -> (ListenerPtrQWidgetPtrQWidgetConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerPtrQWidgetPtrQWidgetConstPtr a => ListenerPtrQWidgetPtrQWidgetValue a where withListenerPtrQWidgetPtrQWidgetPtr = HoppyP.flip ($) . toListenerPtrQWidgetPtrQWidgetConst class (M94.QObjectConstPtr this) => ListenerPtrQWidgetPtrQWidgetConstPtr this where toListenerPtrQWidgetPtrQWidgetConst :: this -> ListenerPtrQWidgetPtrQWidgetConst listenerPtrQWidgetPtrQWidget_isValid :: (ListenerPtrQWidgetPtrQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerPtrQWidgetPtrQWidget_isValid arg'1 = withListenerPtrQWidgetPtrQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerPtrQWidgetPtrQWidget_isValid' arg'1') class (ListenerPtrQWidgetPtrQWidgetConstPtr this, M94.QObjectPtr this) => ListenerPtrQWidgetPtrQWidgetPtr this where toListenerPtrQWidgetPtrQWidget :: this -> ListenerPtrQWidgetPtrQWidget data ListenerPtrQWidgetPtrQWidgetConst = ListenerPtrQWidgetPtrQWidgetConst (HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) | ListenerPtrQWidgetPtrQWidgetConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQWidgetPtrQWidgetConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQWidgetPtrQWidgetConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQWidgetPtrQWidgetToConst :: ListenerPtrQWidgetPtrQWidget -> ListenerPtrQWidgetPtrQWidgetConst castListenerPtrQWidgetPtrQWidgetToConst (ListenerPtrQWidgetPtrQWidget ptr') = ListenerPtrQWidgetPtrQWidgetConst $ HoppyF.castPtr ptr' castListenerPtrQWidgetPtrQWidgetToConst (ListenerPtrQWidgetPtrQWidgetGc fptr' ptr') = ListenerPtrQWidgetPtrQWidgetConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQWidgetPtrQWidgetConst where nullptr = ListenerPtrQWidgetPtrQWidgetConst HoppyF.nullPtr withCppPtr (ListenerPtrQWidgetPtrQWidgetConst ptr') f' = f' ptr' withCppPtr (ListenerPtrQWidgetPtrQWidgetConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQWidgetPtrQWidgetConst ptr') = ptr' toPtr (ListenerPtrQWidgetPtrQWidgetConstGc _ ptr') = ptr' touchCppPtr (ListenerPtrQWidgetPtrQWidgetConst _) = HoppyP.return () touchCppPtr (ListenerPtrQWidgetPtrQWidgetConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQWidgetPtrQWidgetConst where delete (ListenerPtrQWidgetPtrQWidgetConst ptr') = delete'ListenerPtrQWidgetPtrQWidget ptr' delete (ListenerPtrQWidgetPtrQWidgetConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQWidgetPtrQWidgetConst", " object."] toGc this'@(ListenerPtrQWidgetPtrQWidgetConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQWidgetPtrQWidgetConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQWidgetPtrQWidget :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQWidgetPtrQWidgetConstGc {}) = HoppyP.return this' instance ListenerPtrQWidgetPtrQWidgetConstPtr ListenerPtrQWidgetPtrQWidgetConst where toListenerPtrQWidgetPtrQWidgetConst = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQWidgetPtrQWidgetConst where toQObjectConst (ListenerPtrQWidgetPtrQWidgetConst ptr') = M94.QObjectConst $ castListenerPtrQWidgetPtrQWidgetToQObject ptr' toQObjectConst (ListenerPtrQWidgetPtrQWidgetConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQWidgetPtrQWidgetToQObject ptr' data ListenerPtrQWidgetPtrQWidget = ListenerPtrQWidgetPtrQWidget (HoppyF.Ptr ListenerPtrQWidgetPtrQWidget) | ListenerPtrQWidgetPtrQWidgetGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerPtrQWidgetPtrQWidget) deriving (HoppyP.Show) instance HoppyP.Eq ListenerPtrQWidgetPtrQWidget where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerPtrQWidgetPtrQWidget where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerPtrQWidgetPtrQWidgetToNonconst :: ListenerPtrQWidgetPtrQWidgetConst -> ListenerPtrQWidgetPtrQWidget castListenerPtrQWidgetPtrQWidgetToNonconst (ListenerPtrQWidgetPtrQWidgetConst ptr') = ListenerPtrQWidgetPtrQWidget $ HoppyF.castPtr ptr' castListenerPtrQWidgetPtrQWidgetToNonconst (ListenerPtrQWidgetPtrQWidgetConstGc fptr' ptr') = ListenerPtrQWidgetPtrQWidgetGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerPtrQWidgetPtrQWidget where nullptr = ListenerPtrQWidgetPtrQWidget HoppyF.nullPtr withCppPtr (ListenerPtrQWidgetPtrQWidget ptr') f' = f' ptr' withCppPtr (ListenerPtrQWidgetPtrQWidgetGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerPtrQWidgetPtrQWidget ptr') = ptr' toPtr (ListenerPtrQWidgetPtrQWidgetGc _ ptr') = ptr' touchCppPtr (ListenerPtrQWidgetPtrQWidget _) = HoppyP.return () touchCppPtr (ListenerPtrQWidgetPtrQWidgetGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerPtrQWidgetPtrQWidget where delete (ListenerPtrQWidgetPtrQWidget ptr') = delete'ListenerPtrQWidgetPtrQWidget $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) delete (ListenerPtrQWidgetPtrQWidgetGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerPtrQWidgetPtrQWidget", " object."] toGc this'@(ListenerPtrQWidgetPtrQWidget ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerPtrQWidgetPtrQWidgetGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerPtrQWidgetPtrQWidget :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerPtrQWidgetPtrQWidgetGc {}) = HoppyP.return this' instance ListenerPtrQWidgetPtrQWidgetConstPtr ListenerPtrQWidgetPtrQWidget where toListenerPtrQWidgetPtrQWidgetConst (ListenerPtrQWidgetPtrQWidget ptr') = ListenerPtrQWidgetPtrQWidgetConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidget -> HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) ptr' toListenerPtrQWidgetPtrQWidgetConst (ListenerPtrQWidgetPtrQWidgetGc fptr' ptr') = ListenerPtrQWidgetPtrQWidgetConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidget -> HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) ptr' instance ListenerPtrQWidgetPtrQWidgetPtr ListenerPtrQWidgetPtrQWidget where toListenerPtrQWidgetPtrQWidget = HoppyP.id instance M94.QObjectConstPtr ListenerPtrQWidgetPtrQWidget where toQObjectConst (ListenerPtrQWidgetPtrQWidget ptr') = M94.QObjectConst $ castListenerPtrQWidgetPtrQWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidget -> HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) ptr' toQObjectConst (ListenerPtrQWidgetPtrQWidgetGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerPtrQWidgetPtrQWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidget -> HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) ptr' instance M94.QObjectPtr ListenerPtrQWidgetPtrQWidget where toQObject (ListenerPtrQWidgetPtrQWidget ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQWidgetPtrQWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidget -> HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) ptr' toQObject (ListenerPtrQWidgetPtrQWidgetGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerPtrQWidgetPtrQWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerPtrQWidgetPtrQWidget -> HoppyF.Ptr ListenerPtrQWidgetPtrQWidgetConst) ptr' listenerPtrQWidgetPtrQWidget_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M506.QWidget -> M506.QWidget -> HoppyP.IO ()) -> (HoppyP.IO ListenerPtrQWidgetPtrQWidget) listenerPtrQWidgetPtrQWidget_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackPtrQWidgetPtrQWidgetVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerPtrQWidgetPtrQWidget (listenerPtrQWidgetPtrQWidget_new' arg'1' arg'2' arg'3') class ListenerPtrQWidgetPtrQWidgetSuper a where downToListenerPtrQWidgetPtrQWidget :: a -> ListenerPtrQWidgetPtrQWidget instance ListenerPtrQWidgetPtrQWidgetSuper M94.QObject where downToListenerPtrQWidgetPtrQWidget = castListenerPtrQWidgetPtrQWidgetToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerPtrQWidgetPtrQWidgetConst $ castQObjectToListenerPtrQWidgetPtrQWidget ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQWidgetPtrQWidgetConstGc fptr' $ castQObjectToListenerPtrQWidgetPtrQWidget ptr' class ListenerPtrQWidgetPtrQWidgetSuperConst a where downToListenerPtrQWidgetPtrQWidgetConst :: a -> ListenerPtrQWidgetPtrQWidgetConst instance ListenerPtrQWidgetPtrQWidgetSuperConst M94.QObjectConst where downToListenerPtrQWidgetPtrQWidgetConst = cast' where cast' (M94.QObjectConst ptr') = ListenerPtrQWidgetPtrQWidgetConst $ castQObjectToListenerPtrQWidgetPtrQWidget ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerPtrQWidgetPtrQWidgetConstGc fptr' $ castQObjectToListenerPtrQWidgetPtrQWidget ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQWidgetPtrQWidget)) ListenerPtrQWidgetPtrQWidget where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerPtrQWidgetPtrQWidget)) ListenerPtrQWidgetPtrQWidget where decode = HoppyP.fmap ListenerPtrQWidgetPtrQWidget . HoppyF.peek class ListenerQAbstractAnimationValue a where withListenerQAbstractAnimationPtr :: a -> (ListenerQAbstractAnimationConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQAbstractAnimationConstPtr a => ListenerQAbstractAnimationValue a where withListenerQAbstractAnimationPtr = HoppyP.flip ($) . toListenerQAbstractAnimationConst class (M94.QObjectConstPtr this) => ListenerQAbstractAnimationConstPtr this where toListenerQAbstractAnimationConst :: this -> ListenerQAbstractAnimationConst listenerQAbstractAnimation_isValid :: (ListenerQAbstractAnimationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQAbstractAnimation_isValid arg'1 = withListenerQAbstractAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQAbstractAnimation_isValid' arg'1') class (ListenerQAbstractAnimationConstPtr this, M94.QObjectPtr this) => ListenerQAbstractAnimationPtr this where toListenerQAbstractAnimation :: this -> ListenerQAbstractAnimation data ListenerQAbstractAnimationConst = ListenerQAbstractAnimationConst (HoppyF.Ptr ListenerQAbstractAnimationConst) | ListenerQAbstractAnimationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQAbstractAnimationConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQAbstractAnimationConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQAbstractAnimationConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQAbstractAnimationToConst :: ListenerQAbstractAnimation -> ListenerQAbstractAnimationConst castListenerQAbstractAnimationToConst (ListenerQAbstractAnimation ptr') = ListenerQAbstractAnimationConst $ HoppyF.castPtr ptr' castListenerQAbstractAnimationToConst (ListenerQAbstractAnimationGc fptr' ptr') = ListenerQAbstractAnimationConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQAbstractAnimationConst where nullptr = ListenerQAbstractAnimationConst HoppyF.nullPtr withCppPtr (ListenerQAbstractAnimationConst ptr') f' = f' ptr' withCppPtr (ListenerQAbstractAnimationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQAbstractAnimationConst ptr') = ptr' toPtr (ListenerQAbstractAnimationConstGc _ ptr') = ptr' touchCppPtr (ListenerQAbstractAnimationConst _) = HoppyP.return () touchCppPtr (ListenerQAbstractAnimationConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQAbstractAnimationConst where delete (ListenerQAbstractAnimationConst ptr') = delete'ListenerQAbstractAnimation ptr' delete (ListenerQAbstractAnimationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQAbstractAnimationConst", " object."] toGc this'@(ListenerQAbstractAnimationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQAbstractAnimationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQAbstractAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQAbstractAnimationConstGc {}) = HoppyP.return this' instance ListenerQAbstractAnimationConstPtr ListenerQAbstractAnimationConst where toListenerQAbstractAnimationConst = HoppyP.id instance M94.QObjectConstPtr ListenerQAbstractAnimationConst where toQObjectConst (ListenerQAbstractAnimationConst ptr') = M94.QObjectConst $ castListenerQAbstractAnimationToQObject ptr' toQObjectConst (ListenerQAbstractAnimationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQAbstractAnimationToQObject ptr' data ListenerQAbstractAnimation = ListenerQAbstractAnimation (HoppyF.Ptr ListenerQAbstractAnimation) | ListenerQAbstractAnimationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQAbstractAnimation) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQAbstractAnimation where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQAbstractAnimation where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQAbstractAnimationToNonconst :: ListenerQAbstractAnimationConst -> ListenerQAbstractAnimation castListenerQAbstractAnimationToNonconst (ListenerQAbstractAnimationConst ptr') = ListenerQAbstractAnimation $ HoppyF.castPtr ptr' castListenerQAbstractAnimationToNonconst (ListenerQAbstractAnimationConstGc fptr' ptr') = ListenerQAbstractAnimationGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQAbstractAnimation where nullptr = ListenerQAbstractAnimation HoppyF.nullPtr withCppPtr (ListenerQAbstractAnimation ptr') f' = f' ptr' withCppPtr (ListenerQAbstractAnimationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQAbstractAnimation ptr') = ptr' toPtr (ListenerQAbstractAnimationGc _ ptr') = ptr' touchCppPtr (ListenerQAbstractAnimation _) = HoppyP.return () touchCppPtr (ListenerQAbstractAnimationGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQAbstractAnimation where delete (ListenerQAbstractAnimation ptr') = delete'ListenerQAbstractAnimation $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQAbstractAnimationConst) delete (ListenerQAbstractAnimationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQAbstractAnimation", " object."] toGc this'@(ListenerQAbstractAnimation ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQAbstractAnimationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQAbstractAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQAbstractAnimationGc {}) = HoppyP.return this' instance ListenerQAbstractAnimationConstPtr ListenerQAbstractAnimation where toListenerQAbstractAnimationConst (ListenerQAbstractAnimation ptr') = ListenerQAbstractAnimationConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractAnimation -> HoppyF.Ptr ListenerQAbstractAnimationConst) ptr' toListenerQAbstractAnimationConst (ListenerQAbstractAnimationGc fptr' ptr') = ListenerQAbstractAnimationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractAnimation -> HoppyF.Ptr ListenerQAbstractAnimationConst) ptr' instance ListenerQAbstractAnimationPtr ListenerQAbstractAnimation where toListenerQAbstractAnimation = HoppyP.id instance M94.QObjectConstPtr ListenerQAbstractAnimation where toQObjectConst (ListenerQAbstractAnimation ptr') = M94.QObjectConst $ castListenerQAbstractAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractAnimation -> HoppyF.Ptr ListenerQAbstractAnimationConst) ptr' toQObjectConst (ListenerQAbstractAnimationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQAbstractAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractAnimation -> HoppyF.Ptr ListenerQAbstractAnimationConst) ptr' instance M94.QObjectPtr ListenerQAbstractAnimation where toQObject (ListenerQAbstractAnimation ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQAbstractAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractAnimation -> HoppyF.Ptr ListenerQAbstractAnimationConst) ptr' toQObject (ListenerQAbstractAnimationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQAbstractAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractAnimation -> HoppyF.Ptr ListenerQAbstractAnimationConst) ptr' listenerQAbstractAnimation_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M2.QAbstractAnimation -> HoppyP.IO ()) -> (HoppyP.IO ListenerQAbstractAnimation) listenerQAbstractAnimation_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQAbstractAnimationVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQAbstractAnimation (listenerQAbstractAnimation_new' arg'1' arg'2' arg'3') class ListenerQAbstractAnimationSuper a where downToListenerQAbstractAnimation :: a -> ListenerQAbstractAnimation instance ListenerQAbstractAnimationSuper M94.QObject where downToListenerQAbstractAnimation = castListenerQAbstractAnimationToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQAbstractAnimationConst $ castQObjectToListenerQAbstractAnimation ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQAbstractAnimationConstGc fptr' $ castQObjectToListenerQAbstractAnimation ptr' class ListenerQAbstractAnimationSuperConst a where downToListenerQAbstractAnimationConst :: a -> ListenerQAbstractAnimationConst instance ListenerQAbstractAnimationSuperConst M94.QObjectConst where downToListenerQAbstractAnimationConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQAbstractAnimationConst $ castQObjectToListenerQAbstractAnimation ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQAbstractAnimationConstGc fptr' $ castQObjectToListenerQAbstractAnimation ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQAbstractAnimation)) ListenerQAbstractAnimation where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQAbstractAnimation)) ListenerQAbstractAnimation where decode = HoppyP.fmap ListenerQAbstractAnimation . HoppyF.peek class ListenerQAbstractSliderActionValue a where withListenerQAbstractSliderActionPtr :: a -> (ListenerQAbstractSliderActionConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQAbstractSliderActionConstPtr a => ListenerQAbstractSliderActionValue a where withListenerQAbstractSliderActionPtr = HoppyP.flip ($) . toListenerQAbstractSliderActionConst class (M94.QObjectConstPtr this) => ListenerQAbstractSliderActionConstPtr this where toListenerQAbstractSliderActionConst :: this -> ListenerQAbstractSliderActionConst listenerQAbstractSliderAction_isValid :: (ListenerQAbstractSliderActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQAbstractSliderAction_isValid arg'1 = withListenerQAbstractSliderActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQAbstractSliderAction_isValid' arg'1') class (ListenerQAbstractSliderActionConstPtr this, M94.QObjectPtr this) => ListenerQAbstractSliderActionPtr this where toListenerQAbstractSliderAction :: this -> ListenerQAbstractSliderAction data ListenerQAbstractSliderActionConst = ListenerQAbstractSliderActionConst (HoppyF.Ptr ListenerQAbstractSliderActionConst) | ListenerQAbstractSliderActionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQAbstractSliderActionConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQAbstractSliderActionConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQAbstractSliderActionConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQAbstractSliderActionToConst :: ListenerQAbstractSliderAction -> ListenerQAbstractSliderActionConst castListenerQAbstractSliderActionToConst (ListenerQAbstractSliderAction ptr') = ListenerQAbstractSliderActionConst $ HoppyF.castPtr ptr' castListenerQAbstractSliderActionToConst (ListenerQAbstractSliderActionGc fptr' ptr') = ListenerQAbstractSliderActionConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQAbstractSliderActionConst where nullptr = ListenerQAbstractSliderActionConst HoppyF.nullPtr withCppPtr (ListenerQAbstractSliderActionConst ptr') f' = f' ptr' withCppPtr (ListenerQAbstractSliderActionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQAbstractSliderActionConst ptr') = ptr' toPtr (ListenerQAbstractSliderActionConstGc _ ptr') = ptr' touchCppPtr (ListenerQAbstractSliderActionConst _) = HoppyP.return () touchCppPtr (ListenerQAbstractSliderActionConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQAbstractSliderActionConst where delete (ListenerQAbstractSliderActionConst ptr') = delete'ListenerQAbstractSliderAction ptr' delete (ListenerQAbstractSliderActionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQAbstractSliderActionConst", " object."] toGc this'@(ListenerQAbstractSliderActionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQAbstractSliderActionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQAbstractSliderAction :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQAbstractSliderActionConstGc {}) = HoppyP.return this' instance ListenerQAbstractSliderActionConstPtr ListenerQAbstractSliderActionConst where toListenerQAbstractSliderActionConst = HoppyP.id instance M94.QObjectConstPtr ListenerQAbstractSliderActionConst where toQObjectConst (ListenerQAbstractSliderActionConst ptr') = M94.QObjectConst $ castListenerQAbstractSliderActionToQObject ptr' toQObjectConst (ListenerQAbstractSliderActionConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQAbstractSliderActionToQObject ptr' data ListenerQAbstractSliderAction = ListenerQAbstractSliderAction (HoppyF.Ptr ListenerQAbstractSliderAction) | ListenerQAbstractSliderActionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQAbstractSliderAction) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQAbstractSliderAction where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQAbstractSliderAction where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQAbstractSliderActionToNonconst :: ListenerQAbstractSliderActionConst -> ListenerQAbstractSliderAction castListenerQAbstractSliderActionToNonconst (ListenerQAbstractSliderActionConst ptr') = ListenerQAbstractSliderAction $ HoppyF.castPtr ptr' castListenerQAbstractSliderActionToNonconst (ListenerQAbstractSliderActionConstGc fptr' ptr') = ListenerQAbstractSliderActionGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQAbstractSliderAction where nullptr = ListenerQAbstractSliderAction HoppyF.nullPtr withCppPtr (ListenerQAbstractSliderAction ptr') f' = f' ptr' withCppPtr (ListenerQAbstractSliderActionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQAbstractSliderAction ptr') = ptr' toPtr (ListenerQAbstractSliderActionGc _ ptr') = ptr' touchCppPtr (ListenerQAbstractSliderAction _) = HoppyP.return () touchCppPtr (ListenerQAbstractSliderActionGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQAbstractSliderAction where delete (ListenerQAbstractSliderAction ptr') = delete'ListenerQAbstractSliderAction $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQAbstractSliderActionConst) delete (ListenerQAbstractSliderActionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQAbstractSliderAction", " object."] toGc this'@(ListenerQAbstractSliderAction ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQAbstractSliderActionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQAbstractSliderAction :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQAbstractSliderActionGc {}) = HoppyP.return this' instance ListenerQAbstractSliderActionConstPtr ListenerQAbstractSliderAction where toListenerQAbstractSliderActionConst (ListenerQAbstractSliderAction ptr') = ListenerQAbstractSliderActionConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractSliderAction -> HoppyF.Ptr ListenerQAbstractSliderActionConst) ptr' toListenerQAbstractSliderActionConst (ListenerQAbstractSliderActionGc fptr' ptr') = ListenerQAbstractSliderActionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractSliderAction -> HoppyF.Ptr ListenerQAbstractSliderActionConst) ptr' instance ListenerQAbstractSliderActionPtr ListenerQAbstractSliderAction where toListenerQAbstractSliderAction = HoppyP.id instance M94.QObjectConstPtr ListenerQAbstractSliderAction where toQObjectConst (ListenerQAbstractSliderAction ptr') = M94.QObjectConst $ castListenerQAbstractSliderActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractSliderAction -> HoppyF.Ptr ListenerQAbstractSliderActionConst) ptr' toQObjectConst (ListenerQAbstractSliderActionGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQAbstractSliderActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractSliderAction -> HoppyF.Ptr ListenerQAbstractSliderActionConst) ptr' instance M94.QObjectPtr ListenerQAbstractSliderAction where toQObject (ListenerQAbstractSliderAction ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQAbstractSliderActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractSliderAction -> HoppyF.Ptr ListenerQAbstractSliderActionConst) ptr' toQObject (ListenerQAbstractSliderActionGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQAbstractSliderActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQAbstractSliderAction -> HoppyF.Ptr ListenerQAbstractSliderActionConst) ptr' listenerQAbstractSliderAction_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M364.QAbstractSliderAction -> HoppyP.IO ()) -> (HoppyP.IO ListenerQAbstractSliderAction) listenerQAbstractSliderAction_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQAbstractSliderActionVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQAbstractSliderAction (listenerQAbstractSliderAction_new' arg'1' arg'2' arg'3') class ListenerQAbstractSliderActionSuper a where downToListenerQAbstractSliderAction :: a -> ListenerQAbstractSliderAction instance ListenerQAbstractSliderActionSuper M94.QObject where downToListenerQAbstractSliderAction = castListenerQAbstractSliderActionToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQAbstractSliderActionConst $ castQObjectToListenerQAbstractSliderAction ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQAbstractSliderActionConstGc fptr' $ castQObjectToListenerQAbstractSliderAction ptr' class ListenerQAbstractSliderActionSuperConst a where downToListenerQAbstractSliderActionConst :: a -> ListenerQAbstractSliderActionConst instance ListenerQAbstractSliderActionSuperConst M94.QObjectConst where downToListenerQAbstractSliderActionConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQAbstractSliderActionConst $ castQObjectToListenerQAbstractSliderAction ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQAbstractSliderActionConstGc fptr' $ castQObjectToListenerQAbstractSliderAction ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQAbstractSliderAction)) ListenerQAbstractSliderAction where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQAbstractSliderAction)) ListenerQAbstractSliderAction where decode = HoppyP.fmap ListenerQAbstractSliderAction . HoppyF.peek class ListenerQClipboardModeValue a where withListenerQClipboardModePtr :: a -> (ListenerQClipboardModeConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQClipboardModeConstPtr a => ListenerQClipboardModeValue a where withListenerQClipboardModePtr = HoppyP.flip ($) . toListenerQClipboardModeConst class (M94.QObjectConstPtr this) => ListenerQClipboardModeConstPtr this where toListenerQClipboardModeConst :: this -> ListenerQClipboardModeConst listenerQClipboardMode_isValid :: (ListenerQClipboardModeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQClipboardMode_isValid arg'1 = withListenerQClipboardModePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQClipboardMode_isValid' arg'1') class (ListenerQClipboardModeConstPtr this, M94.QObjectPtr this) => ListenerQClipboardModePtr this where toListenerQClipboardMode :: this -> ListenerQClipboardMode data ListenerQClipboardModeConst = ListenerQClipboardModeConst (HoppyF.Ptr ListenerQClipboardModeConst) | ListenerQClipboardModeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQClipboardModeConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQClipboardModeConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQClipboardModeConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQClipboardModeToConst :: ListenerQClipboardMode -> ListenerQClipboardModeConst castListenerQClipboardModeToConst (ListenerQClipboardMode ptr') = ListenerQClipboardModeConst $ HoppyF.castPtr ptr' castListenerQClipboardModeToConst (ListenerQClipboardModeGc fptr' ptr') = ListenerQClipboardModeConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQClipboardModeConst where nullptr = ListenerQClipboardModeConst HoppyF.nullPtr withCppPtr (ListenerQClipboardModeConst ptr') f' = f' ptr' withCppPtr (ListenerQClipboardModeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQClipboardModeConst ptr') = ptr' toPtr (ListenerQClipboardModeConstGc _ ptr') = ptr' touchCppPtr (ListenerQClipboardModeConst _) = HoppyP.return () touchCppPtr (ListenerQClipboardModeConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQClipboardModeConst where delete (ListenerQClipboardModeConst ptr') = delete'ListenerQClipboardMode ptr' delete (ListenerQClipboardModeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQClipboardModeConst", " object."] toGc this'@(ListenerQClipboardModeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQClipboardModeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQClipboardMode :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQClipboardModeConstGc {}) = HoppyP.return this' instance ListenerQClipboardModeConstPtr ListenerQClipboardModeConst where toListenerQClipboardModeConst = HoppyP.id instance M94.QObjectConstPtr ListenerQClipboardModeConst where toQObjectConst (ListenerQClipboardModeConst ptr') = M94.QObjectConst $ castListenerQClipboardModeToQObject ptr' toQObjectConst (ListenerQClipboardModeConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQClipboardModeToQObject ptr' data ListenerQClipboardMode = ListenerQClipboardMode (HoppyF.Ptr ListenerQClipboardMode) | ListenerQClipboardModeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQClipboardMode) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQClipboardMode where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQClipboardMode where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQClipboardModeToNonconst :: ListenerQClipboardModeConst -> ListenerQClipboardMode castListenerQClipboardModeToNonconst (ListenerQClipboardModeConst ptr') = ListenerQClipboardMode $ HoppyF.castPtr ptr' castListenerQClipboardModeToNonconst (ListenerQClipboardModeConstGc fptr' ptr') = ListenerQClipboardModeGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQClipboardMode where nullptr = ListenerQClipboardMode HoppyF.nullPtr withCppPtr (ListenerQClipboardMode ptr') f' = f' ptr' withCppPtr (ListenerQClipboardModeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQClipboardMode ptr') = ptr' toPtr (ListenerQClipboardModeGc _ ptr') = ptr' touchCppPtr (ListenerQClipboardMode _) = HoppyP.return () touchCppPtr (ListenerQClipboardModeGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQClipboardMode where delete (ListenerQClipboardMode ptr') = delete'ListenerQClipboardMode $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQClipboardModeConst) delete (ListenerQClipboardModeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQClipboardMode", " object."] toGc this'@(ListenerQClipboardMode ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQClipboardModeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQClipboardMode :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQClipboardModeGc {}) = HoppyP.return this' instance ListenerQClipboardModeConstPtr ListenerQClipboardMode where toListenerQClipboardModeConst (ListenerQClipboardMode ptr') = ListenerQClipboardModeConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQClipboardMode -> HoppyF.Ptr ListenerQClipboardModeConst) ptr' toListenerQClipboardModeConst (ListenerQClipboardModeGc fptr' ptr') = ListenerQClipboardModeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQClipboardMode -> HoppyF.Ptr ListenerQClipboardModeConst) ptr' instance ListenerQClipboardModePtr ListenerQClipboardMode where toListenerQClipboardMode = HoppyP.id instance M94.QObjectConstPtr ListenerQClipboardMode where toQObjectConst (ListenerQClipboardMode ptr') = M94.QObjectConst $ castListenerQClipboardModeToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQClipboardMode -> HoppyF.Ptr ListenerQClipboardModeConst) ptr' toQObjectConst (ListenerQClipboardModeGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQClipboardModeToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQClipboardMode -> HoppyF.Ptr ListenerQClipboardModeConst) ptr' instance M94.QObjectPtr ListenerQClipboardMode where toQObject (ListenerQClipboardMode ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQClipboardModeToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQClipboardMode -> HoppyF.Ptr ListenerQClipboardModeConst) ptr' toQObject (ListenerQClipboardModeGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQClipboardModeToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQClipboardMode -> HoppyF.Ptr ListenerQClipboardModeConst) ptr' listenerQClipboardMode_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M248.QClipboardMode -> HoppyP.IO ()) -> (HoppyP.IO ListenerQClipboardMode) listenerQClipboardMode_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQClipboardModeVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQClipboardMode (listenerQClipboardMode_new' arg'1' arg'2' arg'3') class ListenerQClipboardModeSuper a where downToListenerQClipboardMode :: a -> ListenerQClipboardMode instance ListenerQClipboardModeSuper M94.QObject where downToListenerQClipboardMode = castListenerQClipboardModeToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQClipboardModeConst $ castQObjectToListenerQClipboardMode ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQClipboardModeConstGc fptr' $ castQObjectToListenerQClipboardMode ptr' class ListenerQClipboardModeSuperConst a where downToListenerQClipboardModeConst :: a -> ListenerQClipboardModeConst instance ListenerQClipboardModeSuperConst M94.QObjectConst where downToListenerQClipboardModeConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQClipboardModeConst $ castQObjectToListenerQClipboardMode ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQClipboardModeConstGc fptr' $ castQObjectToListenerQClipboardMode ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQClipboardMode)) ListenerQClipboardMode where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQClipboardMode)) ListenerQClipboardMode where decode = HoppyP.fmap ListenerQClipboardMode . HoppyF.peek class ListenerQDateValue a where withListenerQDatePtr :: a -> (ListenerQDateConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQDateConstPtr a => ListenerQDateValue a where withListenerQDatePtr = HoppyP.flip ($) . toListenerQDateConst class (M94.QObjectConstPtr this) => ListenerQDateConstPtr this where toListenerQDateConst :: this -> ListenerQDateConst listenerQDate_isValid :: (ListenerQDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQDate_isValid arg'1 = withListenerQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQDate_isValid' arg'1') class (ListenerQDateConstPtr this, M94.QObjectPtr this) => ListenerQDatePtr this where toListenerQDate :: this -> ListenerQDate data ListenerQDateConst = ListenerQDateConst (HoppyF.Ptr ListenerQDateConst) | ListenerQDateConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQDateConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQDateConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQDateConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQDateToConst :: ListenerQDate -> ListenerQDateConst castListenerQDateToConst (ListenerQDate ptr') = ListenerQDateConst $ HoppyF.castPtr ptr' castListenerQDateToConst (ListenerQDateGc fptr' ptr') = ListenerQDateConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQDateConst where nullptr = ListenerQDateConst HoppyF.nullPtr withCppPtr (ListenerQDateConst ptr') f' = f' ptr' withCppPtr (ListenerQDateConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQDateConst ptr') = ptr' toPtr (ListenerQDateConstGc _ ptr') = ptr' touchCppPtr (ListenerQDateConst _) = HoppyP.return () touchCppPtr (ListenerQDateConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQDateConst where delete (ListenerQDateConst ptr') = delete'ListenerQDate ptr' delete (ListenerQDateConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQDateConst", " object."] toGc this'@(ListenerQDateConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQDateConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQDate :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQDateConstGc {}) = HoppyP.return this' instance ListenerQDateConstPtr ListenerQDateConst where toListenerQDateConst = HoppyP.id instance M94.QObjectConstPtr ListenerQDateConst where toQObjectConst (ListenerQDateConst ptr') = M94.QObjectConst $ castListenerQDateToQObject ptr' toQObjectConst (ListenerQDateConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQDateToQObject ptr' data ListenerQDate = ListenerQDate (HoppyF.Ptr ListenerQDate) | ListenerQDateGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQDate) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQDate where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQDate where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQDateToNonconst :: ListenerQDateConst -> ListenerQDate castListenerQDateToNonconst (ListenerQDateConst ptr') = ListenerQDate $ HoppyF.castPtr ptr' castListenerQDateToNonconst (ListenerQDateConstGc fptr' ptr') = ListenerQDateGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQDate where nullptr = ListenerQDate HoppyF.nullPtr withCppPtr (ListenerQDate ptr') f' = f' ptr' withCppPtr (ListenerQDateGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQDate ptr') = ptr' toPtr (ListenerQDateGc _ ptr') = ptr' touchCppPtr (ListenerQDate _) = HoppyP.return () touchCppPtr (ListenerQDateGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQDate where delete (ListenerQDate ptr') = delete'ListenerQDate $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQDateConst) delete (ListenerQDateGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQDate", " object."] toGc this'@(ListenerQDate ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQDateGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQDate :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQDateGc {}) = HoppyP.return this' instance ListenerQDateConstPtr ListenerQDate where toListenerQDateConst (ListenerQDate ptr') = ListenerQDateConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDate -> HoppyF.Ptr ListenerQDateConst) ptr' toListenerQDateConst (ListenerQDateGc fptr' ptr') = ListenerQDateConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDate -> HoppyF.Ptr ListenerQDateConst) ptr' instance ListenerQDatePtr ListenerQDate where toListenerQDate = HoppyP.id instance M94.QObjectConstPtr ListenerQDate where toQObjectConst (ListenerQDate ptr') = M94.QObjectConst $ castListenerQDateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDate -> HoppyF.Ptr ListenerQDateConst) ptr' toQObjectConst (ListenerQDateGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQDateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDate -> HoppyF.Ptr ListenerQDateConst) ptr' instance M94.QObjectPtr ListenerQDate where toQObject (ListenerQDate ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQDateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDate -> HoppyF.Ptr ListenerQDateConst) ptr' toQObject (ListenerQDateGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQDateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDate -> HoppyF.Ptr ListenerQDateConst) ptr' listenerQDate_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M22.QDate -> HoppyP.IO ()) -> (HoppyP.IO ListenerQDate) listenerQDate_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQDateVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQDate (listenerQDate_new' arg'1' arg'2' arg'3') class ListenerQDateSuper a where downToListenerQDate :: a -> ListenerQDate instance ListenerQDateSuper M94.QObject where downToListenerQDate = castListenerQDateToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQDateConst $ castQObjectToListenerQDate ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQDateConstGc fptr' $ castQObjectToListenerQDate ptr' class ListenerQDateSuperConst a where downToListenerQDateConst :: a -> ListenerQDateConst instance ListenerQDateSuperConst M94.QObjectConst where downToListenerQDateConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQDateConst $ castQObjectToListenerQDate ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQDateConstGc fptr' $ castQObjectToListenerQDate ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQDate)) ListenerQDate where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQDate)) ListenerQDate where decode = HoppyP.fmap ListenerQDate . HoppyF.peek class ListenerQDockWidgetFeaturesValue a where withListenerQDockWidgetFeaturesPtr :: a -> (ListenerQDockWidgetFeaturesConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQDockWidgetFeaturesConstPtr a => ListenerQDockWidgetFeaturesValue a where withListenerQDockWidgetFeaturesPtr = HoppyP.flip ($) . toListenerQDockWidgetFeaturesConst class (M94.QObjectConstPtr this) => ListenerQDockWidgetFeaturesConstPtr this where toListenerQDockWidgetFeaturesConst :: this -> ListenerQDockWidgetFeaturesConst listenerQDockWidgetFeatures_isValid :: (ListenerQDockWidgetFeaturesValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQDockWidgetFeatures_isValid arg'1 = withListenerQDockWidgetFeaturesPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQDockWidgetFeatures_isValid' arg'1') class (ListenerQDockWidgetFeaturesConstPtr this, M94.QObjectPtr this) => ListenerQDockWidgetFeaturesPtr this where toListenerQDockWidgetFeatures :: this -> ListenerQDockWidgetFeatures data ListenerQDockWidgetFeaturesConst = ListenerQDockWidgetFeaturesConst (HoppyF.Ptr ListenerQDockWidgetFeaturesConst) | ListenerQDockWidgetFeaturesConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQDockWidgetFeaturesConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQDockWidgetFeaturesConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQDockWidgetFeaturesConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQDockWidgetFeaturesToConst :: ListenerQDockWidgetFeatures -> ListenerQDockWidgetFeaturesConst castListenerQDockWidgetFeaturesToConst (ListenerQDockWidgetFeatures ptr') = ListenerQDockWidgetFeaturesConst $ HoppyF.castPtr ptr' castListenerQDockWidgetFeaturesToConst (ListenerQDockWidgetFeaturesGc fptr' ptr') = ListenerQDockWidgetFeaturesConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQDockWidgetFeaturesConst where nullptr = ListenerQDockWidgetFeaturesConst HoppyF.nullPtr withCppPtr (ListenerQDockWidgetFeaturesConst ptr') f' = f' ptr' withCppPtr (ListenerQDockWidgetFeaturesConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQDockWidgetFeaturesConst ptr') = ptr' toPtr (ListenerQDockWidgetFeaturesConstGc _ ptr') = ptr' touchCppPtr (ListenerQDockWidgetFeaturesConst _) = HoppyP.return () touchCppPtr (ListenerQDockWidgetFeaturesConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQDockWidgetFeaturesConst where delete (ListenerQDockWidgetFeaturesConst ptr') = delete'ListenerQDockWidgetFeatures ptr' delete (ListenerQDockWidgetFeaturesConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQDockWidgetFeaturesConst", " object."] toGc this'@(ListenerQDockWidgetFeaturesConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQDockWidgetFeaturesConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQDockWidgetFeatures :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQDockWidgetFeaturesConstGc {}) = HoppyP.return this' instance ListenerQDockWidgetFeaturesConstPtr ListenerQDockWidgetFeaturesConst where toListenerQDockWidgetFeaturesConst = HoppyP.id instance M94.QObjectConstPtr ListenerQDockWidgetFeaturesConst where toQObjectConst (ListenerQDockWidgetFeaturesConst ptr') = M94.QObjectConst $ castListenerQDockWidgetFeaturesToQObject ptr' toQObjectConst (ListenerQDockWidgetFeaturesConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQDockWidgetFeaturesToQObject ptr' data ListenerQDockWidgetFeatures = ListenerQDockWidgetFeatures (HoppyF.Ptr ListenerQDockWidgetFeatures) | ListenerQDockWidgetFeaturesGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQDockWidgetFeatures) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQDockWidgetFeatures where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQDockWidgetFeatures where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQDockWidgetFeaturesToNonconst :: ListenerQDockWidgetFeaturesConst -> ListenerQDockWidgetFeatures castListenerQDockWidgetFeaturesToNonconst (ListenerQDockWidgetFeaturesConst ptr') = ListenerQDockWidgetFeatures $ HoppyF.castPtr ptr' castListenerQDockWidgetFeaturesToNonconst (ListenerQDockWidgetFeaturesConstGc fptr' ptr') = ListenerQDockWidgetFeaturesGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQDockWidgetFeatures where nullptr = ListenerQDockWidgetFeatures HoppyF.nullPtr withCppPtr (ListenerQDockWidgetFeatures ptr') f' = f' ptr' withCppPtr (ListenerQDockWidgetFeaturesGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQDockWidgetFeatures ptr') = ptr' toPtr (ListenerQDockWidgetFeaturesGc _ ptr') = ptr' touchCppPtr (ListenerQDockWidgetFeatures _) = HoppyP.return () touchCppPtr (ListenerQDockWidgetFeaturesGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQDockWidgetFeatures where delete (ListenerQDockWidgetFeatures ptr') = delete'ListenerQDockWidgetFeatures $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQDockWidgetFeaturesConst) delete (ListenerQDockWidgetFeaturesGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQDockWidgetFeatures", " object."] toGc this'@(ListenerQDockWidgetFeatures ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQDockWidgetFeaturesGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQDockWidgetFeatures :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQDockWidgetFeaturesGc {}) = HoppyP.return this' instance ListenerQDockWidgetFeaturesConstPtr ListenerQDockWidgetFeatures where toListenerQDockWidgetFeaturesConst (ListenerQDockWidgetFeatures ptr') = ListenerQDockWidgetFeaturesConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDockWidgetFeatures -> HoppyF.Ptr ListenerQDockWidgetFeaturesConst) ptr' toListenerQDockWidgetFeaturesConst (ListenerQDockWidgetFeaturesGc fptr' ptr') = ListenerQDockWidgetFeaturesConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDockWidgetFeatures -> HoppyF.Ptr ListenerQDockWidgetFeaturesConst) ptr' instance ListenerQDockWidgetFeaturesPtr ListenerQDockWidgetFeatures where toListenerQDockWidgetFeatures = HoppyP.id instance M94.QObjectConstPtr ListenerQDockWidgetFeatures where toQObjectConst (ListenerQDockWidgetFeatures ptr') = M94.QObjectConst $ castListenerQDockWidgetFeaturesToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDockWidgetFeatures -> HoppyF.Ptr ListenerQDockWidgetFeaturesConst) ptr' toQObjectConst (ListenerQDockWidgetFeaturesGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQDockWidgetFeaturesToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDockWidgetFeatures -> HoppyF.Ptr ListenerQDockWidgetFeaturesConst) ptr' instance M94.QObjectPtr ListenerQDockWidgetFeatures where toQObject (ListenerQDockWidgetFeatures ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQDockWidgetFeaturesToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDockWidgetFeatures -> HoppyF.Ptr ListenerQDockWidgetFeaturesConst) ptr' toQObject (ListenerQDockWidgetFeaturesGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQDockWidgetFeaturesToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQDockWidgetFeatures -> HoppyF.Ptr ListenerQDockWidgetFeaturesConst) ptr' listenerQDockWidgetFeatures_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M392.QDockWidgetDockWidgetFeatures -> HoppyP.IO ()) -> (HoppyP.IO ListenerQDockWidgetFeatures) listenerQDockWidgetFeatures_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQDockWidgetFeaturesVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQDockWidgetFeatures (listenerQDockWidgetFeatures_new' arg'1' arg'2' arg'3') class ListenerQDockWidgetFeaturesSuper a where downToListenerQDockWidgetFeatures :: a -> ListenerQDockWidgetFeatures instance ListenerQDockWidgetFeaturesSuper M94.QObject where downToListenerQDockWidgetFeatures = castListenerQDockWidgetFeaturesToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQDockWidgetFeaturesConst $ castQObjectToListenerQDockWidgetFeatures ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQDockWidgetFeaturesConstGc fptr' $ castQObjectToListenerQDockWidgetFeatures ptr' class ListenerQDockWidgetFeaturesSuperConst a where downToListenerQDockWidgetFeaturesConst :: a -> ListenerQDockWidgetFeaturesConst instance ListenerQDockWidgetFeaturesSuperConst M94.QObjectConst where downToListenerQDockWidgetFeaturesConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQDockWidgetFeaturesConst $ castQObjectToListenerQDockWidgetFeatures ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQDockWidgetFeaturesConstGc fptr' $ castQObjectToListenerQDockWidgetFeatures ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQDockWidgetFeatures)) ListenerQDockWidgetFeatures where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQDockWidgetFeatures)) ListenerQDockWidgetFeatures where decode = HoppyP.fmap ListenerQDockWidgetFeatures . HoppyF.peek class ListenerQModelIndexValue a where withListenerQModelIndexPtr :: a -> (ListenerQModelIndexConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQModelIndexConstPtr a => ListenerQModelIndexValue a where withListenerQModelIndexPtr = HoppyP.flip ($) . toListenerQModelIndexConst class (M94.QObjectConstPtr this) => ListenerQModelIndexConstPtr this where toListenerQModelIndexConst :: this -> ListenerQModelIndexConst listenerQModelIndex_isValid :: (ListenerQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQModelIndex_isValid arg'1 = withListenerQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQModelIndex_isValid' arg'1') class (ListenerQModelIndexConstPtr this, M94.QObjectPtr this) => ListenerQModelIndexPtr this where toListenerQModelIndex :: this -> ListenerQModelIndex data ListenerQModelIndexConst = ListenerQModelIndexConst (HoppyF.Ptr ListenerQModelIndexConst) | ListenerQModelIndexConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexToConst :: ListenerQModelIndex -> ListenerQModelIndexConst castListenerQModelIndexToConst (ListenerQModelIndex ptr') = ListenerQModelIndexConst $ HoppyF.castPtr ptr' castListenerQModelIndexToConst (ListenerQModelIndexGc fptr' ptr') = ListenerQModelIndexConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexConst where nullptr = ListenerQModelIndexConst HoppyF.nullPtr withCppPtr (ListenerQModelIndexConst ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexConst ptr') = ptr' toPtr (ListenerQModelIndexConstGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexConst _) = HoppyP.return () touchCppPtr (ListenerQModelIndexConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexConst where delete (ListenerQModelIndexConst ptr') = delete'ListenerQModelIndex ptr' delete (ListenerQModelIndexConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexConst", " object."] toGc this'@(ListenerQModelIndexConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexConstGc {}) = HoppyP.return this' instance ListenerQModelIndexConstPtr ListenerQModelIndexConst where toListenerQModelIndexConst = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexConst where toQObjectConst (ListenerQModelIndexConst ptr') = M94.QObjectConst $ castListenerQModelIndexToQObject ptr' toQObjectConst (ListenerQModelIndexConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexToQObject ptr' data ListenerQModelIndex = ListenerQModelIndex (HoppyF.Ptr ListenerQModelIndex) | ListenerQModelIndexGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndex) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndex where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndex where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexToNonconst :: ListenerQModelIndexConst -> ListenerQModelIndex castListenerQModelIndexToNonconst (ListenerQModelIndexConst ptr') = ListenerQModelIndex $ HoppyF.castPtr ptr' castListenerQModelIndexToNonconst (ListenerQModelIndexConstGc fptr' ptr') = ListenerQModelIndexGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndex where nullptr = ListenerQModelIndex HoppyF.nullPtr withCppPtr (ListenerQModelIndex ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndex ptr') = ptr' toPtr (ListenerQModelIndexGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndex _) = HoppyP.return () touchCppPtr (ListenerQModelIndexGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndex where delete (ListenerQModelIndex ptr') = delete'ListenerQModelIndex $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQModelIndexConst) delete (ListenerQModelIndexGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndex", " object."] toGc this'@(ListenerQModelIndex ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexGc {}) = HoppyP.return this' instance ListenerQModelIndexConstPtr ListenerQModelIndex where toListenerQModelIndexConst (ListenerQModelIndex ptr') = ListenerQModelIndexConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndex -> HoppyF.Ptr ListenerQModelIndexConst) ptr' toListenerQModelIndexConst (ListenerQModelIndexGc fptr' ptr') = ListenerQModelIndexConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndex -> HoppyF.Ptr ListenerQModelIndexConst) ptr' instance ListenerQModelIndexPtr ListenerQModelIndex where toListenerQModelIndex = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndex where toQObjectConst (ListenerQModelIndex ptr') = M94.QObjectConst $ castListenerQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndex -> HoppyF.Ptr ListenerQModelIndexConst) ptr' toQObjectConst (ListenerQModelIndexGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndex -> HoppyF.Ptr ListenerQModelIndexConst) ptr' instance M94.QObjectPtr ListenerQModelIndex where toQObject (ListenerQModelIndex ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndex -> HoppyF.Ptr ListenerQModelIndexConst) ptr' toQObject (ListenerQModelIndexGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndex -> HoppyF.Ptr ListenerQModelIndexConst) ptr' listenerQModelIndex_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M92.QModelIndex -> HoppyP.IO ()) -> (HoppyP.IO ListenerQModelIndex) listenerQModelIndex_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQModelIndexVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQModelIndex (listenerQModelIndex_new' arg'1' arg'2' arg'3') class ListenerQModelIndexSuper a where downToListenerQModelIndex :: a -> ListenerQModelIndex instance ListenerQModelIndexSuper M94.QObject where downToListenerQModelIndex = castListenerQModelIndexToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQModelIndexConst $ castQObjectToListenerQModelIndex ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexConstGc fptr' $ castQObjectToListenerQModelIndex ptr' class ListenerQModelIndexSuperConst a where downToListenerQModelIndexConst :: a -> ListenerQModelIndexConst instance ListenerQModelIndexSuperConst M94.QObjectConst where downToListenerQModelIndexConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQModelIndexConst $ castQObjectToListenerQModelIndex ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexConstGc fptr' $ castQObjectToListenerQModelIndex ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndex)) ListenerQModelIndex where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndex)) ListenerQModelIndex where decode = HoppyP.fmap ListenerQModelIndex . HoppyF.peek class ListenerQModelIndexIntIntValue a where withListenerQModelIndexIntIntPtr :: a -> (ListenerQModelIndexIntIntConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQModelIndexIntIntConstPtr a => ListenerQModelIndexIntIntValue a where withListenerQModelIndexIntIntPtr = HoppyP.flip ($) . toListenerQModelIndexIntIntConst class (M94.QObjectConstPtr this) => ListenerQModelIndexIntIntConstPtr this where toListenerQModelIndexIntIntConst :: this -> ListenerQModelIndexIntIntConst listenerQModelIndexIntInt_isValid :: (ListenerQModelIndexIntIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQModelIndexIntInt_isValid arg'1 = withListenerQModelIndexIntIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQModelIndexIntInt_isValid' arg'1') class (ListenerQModelIndexIntIntConstPtr this, M94.QObjectPtr this) => ListenerQModelIndexIntIntPtr this where toListenerQModelIndexIntInt :: this -> ListenerQModelIndexIntInt data ListenerQModelIndexIntIntConst = ListenerQModelIndexIntIntConst (HoppyF.Ptr ListenerQModelIndexIntIntConst) | ListenerQModelIndexIntIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexIntIntConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexIntIntConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexIntIntConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexIntIntToConst :: ListenerQModelIndexIntInt -> ListenerQModelIndexIntIntConst castListenerQModelIndexIntIntToConst (ListenerQModelIndexIntInt ptr') = ListenerQModelIndexIntIntConst $ HoppyF.castPtr ptr' castListenerQModelIndexIntIntToConst (ListenerQModelIndexIntIntGc fptr' ptr') = ListenerQModelIndexIntIntConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexIntIntConst where nullptr = ListenerQModelIndexIntIntConst HoppyF.nullPtr withCppPtr (ListenerQModelIndexIntIntConst ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexIntIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexIntIntConst ptr') = ptr' toPtr (ListenerQModelIndexIntIntConstGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexIntIntConst _) = HoppyP.return () touchCppPtr (ListenerQModelIndexIntIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexIntIntConst where delete (ListenerQModelIndexIntIntConst ptr') = delete'ListenerQModelIndexIntInt ptr' delete (ListenerQModelIndexIntIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexIntIntConst", " object."] toGc this'@(ListenerQModelIndexIntIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexIntIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndexIntInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexIntIntConstGc {}) = HoppyP.return this' instance ListenerQModelIndexIntIntConstPtr ListenerQModelIndexIntIntConst where toListenerQModelIndexIntIntConst = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexIntIntConst where toQObjectConst (ListenerQModelIndexIntIntConst ptr') = M94.QObjectConst $ castListenerQModelIndexIntIntToQObject ptr' toQObjectConst (ListenerQModelIndexIntIntConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexIntIntToQObject ptr' data ListenerQModelIndexIntInt = ListenerQModelIndexIntInt (HoppyF.Ptr ListenerQModelIndexIntInt) | ListenerQModelIndexIntIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexIntInt) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexIntInt where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexIntInt where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexIntIntToNonconst :: ListenerQModelIndexIntIntConst -> ListenerQModelIndexIntInt castListenerQModelIndexIntIntToNonconst (ListenerQModelIndexIntIntConst ptr') = ListenerQModelIndexIntInt $ HoppyF.castPtr ptr' castListenerQModelIndexIntIntToNonconst (ListenerQModelIndexIntIntConstGc fptr' ptr') = ListenerQModelIndexIntIntGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexIntInt where nullptr = ListenerQModelIndexIntInt HoppyF.nullPtr withCppPtr (ListenerQModelIndexIntInt ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexIntIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexIntInt ptr') = ptr' toPtr (ListenerQModelIndexIntIntGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexIntInt _) = HoppyP.return () touchCppPtr (ListenerQModelIndexIntIntGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexIntInt where delete (ListenerQModelIndexIntInt ptr') = delete'ListenerQModelIndexIntInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQModelIndexIntIntConst) delete (ListenerQModelIndexIntIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexIntInt", " object."] toGc this'@(ListenerQModelIndexIntInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexIntIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndexIntInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexIntIntGc {}) = HoppyP.return this' instance ListenerQModelIndexIntIntConstPtr ListenerQModelIndexIntInt where toListenerQModelIndexIntIntConst (ListenerQModelIndexIntInt ptr') = ListenerQModelIndexIntIntConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntInt -> HoppyF.Ptr ListenerQModelIndexIntIntConst) ptr' toListenerQModelIndexIntIntConst (ListenerQModelIndexIntIntGc fptr' ptr') = ListenerQModelIndexIntIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntInt -> HoppyF.Ptr ListenerQModelIndexIntIntConst) ptr' instance ListenerQModelIndexIntIntPtr ListenerQModelIndexIntInt where toListenerQModelIndexIntInt = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexIntInt where toQObjectConst (ListenerQModelIndexIntInt ptr') = M94.QObjectConst $ castListenerQModelIndexIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntInt -> HoppyF.Ptr ListenerQModelIndexIntIntConst) ptr' toQObjectConst (ListenerQModelIndexIntIntGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntInt -> HoppyF.Ptr ListenerQModelIndexIntIntConst) ptr' instance M94.QObjectPtr ListenerQModelIndexIntInt where toQObject (ListenerQModelIndexIntInt ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntInt -> HoppyF.Ptr ListenerQModelIndexIntIntConst) ptr' toQObject (ListenerQModelIndexIntIntGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexIntIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntInt -> HoppyF.Ptr ListenerQModelIndexIntIntConst) ptr' listenerQModelIndexIntInt_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ()) -> (HoppyP.IO ListenerQModelIndexIntInt) listenerQModelIndexIntInt_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQModelIndexIntIntVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQModelIndexIntInt (listenerQModelIndexIntInt_new' arg'1' arg'2' arg'3') class ListenerQModelIndexIntIntSuper a where downToListenerQModelIndexIntInt :: a -> ListenerQModelIndexIntInt instance ListenerQModelIndexIntIntSuper M94.QObject where downToListenerQModelIndexIntInt = castListenerQModelIndexIntIntToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQModelIndexIntIntConst $ castQObjectToListenerQModelIndexIntInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexIntIntConstGc fptr' $ castQObjectToListenerQModelIndexIntInt ptr' class ListenerQModelIndexIntIntSuperConst a where downToListenerQModelIndexIntIntConst :: a -> ListenerQModelIndexIntIntConst instance ListenerQModelIndexIntIntSuperConst M94.QObjectConst where downToListenerQModelIndexIntIntConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQModelIndexIntIntConst $ castQObjectToListenerQModelIndexIntInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexIntIntConstGc fptr' $ castQObjectToListenerQModelIndexIntInt ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndexIntInt)) ListenerQModelIndexIntInt where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndexIntInt)) ListenerQModelIndexIntInt where decode = HoppyP.fmap ListenerQModelIndexIntInt . HoppyF.peek class ListenerQModelIndexIntIntQModelIndexIntValue a where withListenerQModelIndexIntIntQModelIndexIntPtr :: a -> (ListenerQModelIndexIntIntQModelIndexIntConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQModelIndexIntIntQModelIndexIntConstPtr a => ListenerQModelIndexIntIntQModelIndexIntValue a where withListenerQModelIndexIntIntQModelIndexIntPtr = HoppyP.flip ($) . toListenerQModelIndexIntIntQModelIndexIntConst class (M94.QObjectConstPtr this) => ListenerQModelIndexIntIntQModelIndexIntConstPtr this where toListenerQModelIndexIntIntQModelIndexIntConst :: this -> ListenerQModelIndexIntIntQModelIndexIntConst listenerQModelIndexIntIntQModelIndexInt_isValid :: (ListenerQModelIndexIntIntQModelIndexIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQModelIndexIntIntQModelIndexInt_isValid arg'1 = withListenerQModelIndexIntIntQModelIndexIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQModelIndexIntIntQModelIndexInt_isValid' arg'1') class (ListenerQModelIndexIntIntQModelIndexIntConstPtr this, M94.QObjectPtr this) => ListenerQModelIndexIntIntQModelIndexIntPtr this where toListenerQModelIndexIntIntQModelIndexInt :: this -> ListenerQModelIndexIntIntQModelIndexInt data ListenerQModelIndexIntIntQModelIndexIntConst = ListenerQModelIndexIntIntQModelIndexIntConst (HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) | ListenerQModelIndexIntIntQModelIndexIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexIntIntQModelIndexIntConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexIntIntQModelIndexIntConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexIntIntQModelIndexIntToConst :: ListenerQModelIndexIntIntQModelIndexInt -> ListenerQModelIndexIntIntQModelIndexIntConst castListenerQModelIndexIntIntQModelIndexIntToConst (ListenerQModelIndexIntIntQModelIndexInt ptr') = ListenerQModelIndexIntIntQModelIndexIntConst $ HoppyF.castPtr ptr' castListenerQModelIndexIntIntQModelIndexIntToConst (ListenerQModelIndexIntIntQModelIndexIntGc fptr' ptr') = ListenerQModelIndexIntIntQModelIndexIntConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexIntIntQModelIndexIntConst where nullptr = ListenerQModelIndexIntIntQModelIndexIntConst HoppyF.nullPtr withCppPtr (ListenerQModelIndexIntIntQModelIndexIntConst ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexIntIntQModelIndexIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexIntIntQModelIndexIntConst ptr') = ptr' toPtr (ListenerQModelIndexIntIntQModelIndexIntConstGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexIntIntQModelIndexIntConst _) = HoppyP.return () touchCppPtr (ListenerQModelIndexIntIntQModelIndexIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexIntIntQModelIndexIntConst where delete (ListenerQModelIndexIntIntQModelIndexIntConst ptr') = delete'ListenerQModelIndexIntIntQModelIndexInt ptr' delete (ListenerQModelIndexIntIntQModelIndexIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexIntIntQModelIndexIntConst", " object."] toGc this'@(ListenerQModelIndexIntIntQModelIndexIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexIntIntQModelIndexIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndexIntIntQModelIndexInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexIntIntQModelIndexIntConstGc {}) = HoppyP.return this' instance ListenerQModelIndexIntIntQModelIndexIntConstPtr ListenerQModelIndexIntIntQModelIndexIntConst where toListenerQModelIndexIntIntQModelIndexIntConst = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexIntIntQModelIndexIntConst where toQObjectConst (ListenerQModelIndexIntIntQModelIndexIntConst ptr') = M94.QObjectConst $ castListenerQModelIndexIntIntQModelIndexIntToQObject ptr' toQObjectConst (ListenerQModelIndexIntIntQModelIndexIntConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexIntIntQModelIndexIntToQObject ptr' data ListenerQModelIndexIntIntQModelIndexInt = ListenerQModelIndexIntIntQModelIndexInt (HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt) | ListenerQModelIndexIntIntQModelIndexIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexIntIntQModelIndexInt where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexIntIntQModelIndexInt where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexIntIntQModelIndexIntToNonconst :: ListenerQModelIndexIntIntQModelIndexIntConst -> ListenerQModelIndexIntIntQModelIndexInt castListenerQModelIndexIntIntQModelIndexIntToNonconst (ListenerQModelIndexIntIntQModelIndexIntConst ptr') = ListenerQModelIndexIntIntQModelIndexInt $ HoppyF.castPtr ptr' castListenerQModelIndexIntIntQModelIndexIntToNonconst (ListenerQModelIndexIntIntQModelIndexIntConstGc fptr' ptr') = ListenerQModelIndexIntIntQModelIndexIntGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexIntIntQModelIndexInt where nullptr = ListenerQModelIndexIntIntQModelIndexInt HoppyF.nullPtr withCppPtr (ListenerQModelIndexIntIntQModelIndexInt ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexIntIntQModelIndexIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexIntIntQModelIndexInt ptr') = ptr' toPtr (ListenerQModelIndexIntIntQModelIndexIntGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexIntIntQModelIndexInt _) = HoppyP.return () touchCppPtr (ListenerQModelIndexIntIntQModelIndexIntGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexIntIntQModelIndexInt where delete (ListenerQModelIndexIntIntQModelIndexInt ptr') = delete'ListenerQModelIndexIntIntQModelIndexInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) delete (ListenerQModelIndexIntIntQModelIndexIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexIntIntQModelIndexInt", " object."] toGc this'@(ListenerQModelIndexIntIntQModelIndexInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexIntIntQModelIndexIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndexIntIntQModelIndexInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexIntIntQModelIndexIntGc {}) = HoppyP.return this' instance ListenerQModelIndexIntIntQModelIndexIntConstPtr ListenerQModelIndexIntIntQModelIndexInt where toListenerQModelIndexIntIntQModelIndexIntConst (ListenerQModelIndexIntIntQModelIndexInt ptr') = ListenerQModelIndexIntIntQModelIndexIntConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt -> HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) ptr' toListenerQModelIndexIntIntQModelIndexIntConst (ListenerQModelIndexIntIntQModelIndexIntGc fptr' ptr') = ListenerQModelIndexIntIntQModelIndexIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt -> HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) ptr' instance ListenerQModelIndexIntIntQModelIndexIntPtr ListenerQModelIndexIntIntQModelIndexInt where toListenerQModelIndexIntIntQModelIndexInt = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexIntIntQModelIndexInt where toQObjectConst (ListenerQModelIndexIntIntQModelIndexInt ptr') = M94.QObjectConst $ castListenerQModelIndexIntIntQModelIndexIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt -> HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) ptr' toQObjectConst (ListenerQModelIndexIntIntQModelIndexIntGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexIntIntQModelIndexIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt -> HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) ptr' instance M94.QObjectPtr ListenerQModelIndexIntIntQModelIndexInt where toQObject (ListenerQModelIndexIntIntQModelIndexInt ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexIntIntQModelIndexIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt -> HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) ptr' toQObject (ListenerQModelIndexIntIntQModelIndexIntGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexIntIntQModelIndexIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt -> HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexIntConst) ptr' listenerQModelIndexIntIntQModelIndexInt_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> M92.QModelIndex -> HoppyP.Int -> HoppyP.IO ()) -> (HoppyP.IO ListenerQModelIndexIntIntQModelIndexInt) listenerQModelIndexIntIntQModelIndexInt_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQModelIndexIntIntQModelIndexIntVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQModelIndexIntIntQModelIndexInt (listenerQModelIndexIntIntQModelIndexInt_new' arg'1' arg'2' arg'3') class ListenerQModelIndexIntIntQModelIndexIntSuper a where downToListenerQModelIndexIntIntQModelIndexInt :: a -> ListenerQModelIndexIntIntQModelIndexInt instance ListenerQModelIndexIntIntQModelIndexIntSuper M94.QObject where downToListenerQModelIndexIntIntQModelIndexInt = castListenerQModelIndexIntIntQModelIndexIntToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQModelIndexIntIntQModelIndexIntConst $ castQObjectToListenerQModelIndexIntIntQModelIndexInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexIntIntQModelIndexIntConstGc fptr' $ castQObjectToListenerQModelIndexIntIntQModelIndexInt ptr' class ListenerQModelIndexIntIntQModelIndexIntSuperConst a where downToListenerQModelIndexIntIntQModelIndexIntConst :: a -> ListenerQModelIndexIntIntQModelIndexIntConst instance ListenerQModelIndexIntIntQModelIndexIntSuperConst M94.QObjectConst where downToListenerQModelIndexIntIntQModelIndexIntConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQModelIndexIntIntQModelIndexIntConst $ castQObjectToListenerQModelIndexIntIntQModelIndexInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexIntIntQModelIndexIntConstGc fptr' $ castQObjectToListenerQModelIndexIntIntQModelIndexInt ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt)) ListenerQModelIndexIntIntQModelIndexInt where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndexIntIntQModelIndexInt)) ListenerQModelIndexIntIntQModelIndexInt where decode = HoppyP.fmap ListenerQModelIndexIntIntQModelIndexInt . HoppyF.peek class ListenerQModelIndexQModelIndexValue a where withListenerQModelIndexQModelIndexPtr :: a -> (ListenerQModelIndexQModelIndexConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQModelIndexQModelIndexConstPtr a => ListenerQModelIndexQModelIndexValue a where withListenerQModelIndexQModelIndexPtr = HoppyP.flip ($) . toListenerQModelIndexQModelIndexConst class (M94.QObjectConstPtr this) => ListenerQModelIndexQModelIndexConstPtr this where toListenerQModelIndexQModelIndexConst :: this -> ListenerQModelIndexQModelIndexConst listenerQModelIndexQModelIndex_isValid :: (ListenerQModelIndexQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQModelIndexQModelIndex_isValid arg'1 = withListenerQModelIndexQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQModelIndexQModelIndex_isValid' arg'1') class (ListenerQModelIndexQModelIndexConstPtr this, M94.QObjectPtr this) => ListenerQModelIndexQModelIndexPtr this where toListenerQModelIndexQModelIndex :: this -> ListenerQModelIndexQModelIndex data ListenerQModelIndexQModelIndexConst = ListenerQModelIndexQModelIndexConst (HoppyF.Ptr ListenerQModelIndexQModelIndexConst) | ListenerQModelIndexQModelIndexConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexQModelIndexConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexQModelIndexConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexQModelIndexConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexQModelIndexToConst :: ListenerQModelIndexQModelIndex -> ListenerQModelIndexQModelIndexConst castListenerQModelIndexQModelIndexToConst (ListenerQModelIndexQModelIndex ptr') = ListenerQModelIndexQModelIndexConst $ HoppyF.castPtr ptr' castListenerQModelIndexQModelIndexToConst (ListenerQModelIndexQModelIndexGc fptr' ptr') = ListenerQModelIndexQModelIndexConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexQModelIndexConst where nullptr = ListenerQModelIndexQModelIndexConst HoppyF.nullPtr withCppPtr (ListenerQModelIndexQModelIndexConst ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexQModelIndexConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexQModelIndexConst ptr') = ptr' toPtr (ListenerQModelIndexQModelIndexConstGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexQModelIndexConst _) = HoppyP.return () touchCppPtr (ListenerQModelIndexQModelIndexConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexQModelIndexConst where delete (ListenerQModelIndexQModelIndexConst ptr') = delete'ListenerQModelIndexQModelIndex ptr' delete (ListenerQModelIndexQModelIndexConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexQModelIndexConst", " object."] toGc this'@(ListenerQModelIndexQModelIndexConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexQModelIndexConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndexQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexQModelIndexConstGc {}) = HoppyP.return this' instance ListenerQModelIndexQModelIndexConstPtr ListenerQModelIndexQModelIndexConst where toListenerQModelIndexQModelIndexConst = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexQModelIndexConst where toQObjectConst (ListenerQModelIndexQModelIndexConst ptr') = M94.QObjectConst $ castListenerQModelIndexQModelIndexToQObject ptr' toQObjectConst (ListenerQModelIndexQModelIndexConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexQModelIndexToQObject ptr' data ListenerQModelIndexQModelIndex = ListenerQModelIndexQModelIndex (HoppyF.Ptr ListenerQModelIndexQModelIndex) | ListenerQModelIndexQModelIndexGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexQModelIndex) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexQModelIndex where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexQModelIndex where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexQModelIndexToNonconst :: ListenerQModelIndexQModelIndexConst -> ListenerQModelIndexQModelIndex castListenerQModelIndexQModelIndexToNonconst (ListenerQModelIndexQModelIndexConst ptr') = ListenerQModelIndexQModelIndex $ HoppyF.castPtr ptr' castListenerQModelIndexQModelIndexToNonconst (ListenerQModelIndexQModelIndexConstGc fptr' ptr') = ListenerQModelIndexQModelIndexGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexQModelIndex where nullptr = ListenerQModelIndexQModelIndex HoppyF.nullPtr withCppPtr (ListenerQModelIndexQModelIndex ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexQModelIndexGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexQModelIndex ptr') = ptr' toPtr (ListenerQModelIndexQModelIndexGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexQModelIndex _) = HoppyP.return () touchCppPtr (ListenerQModelIndexQModelIndexGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexQModelIndex where delete (ListenerQModelIndexQModelIndex ptr') = delete'ListenerQModelIndexQModelIndex $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQModelIndexQModelIndexConst) delete (ListenerQModelIndexQModelIndexGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexQModelIndex", " object."] toGc this'@(ListenerQModelIndexQModelIndex ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexQModelIndexGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndexQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexQModelIndexGc {}) = HoppyP.return this' instance ListenerQModelIndexQModelIndexConstPtr ListenerQModelIndexQModelIndex where toListenerQModelIndexQModelIndexConst (ListenerQModelIndexQModelIndex ptr') = ListenerQModelIndexQModelIndexConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndex -> HoppyF.Ptr ListenerQModelIndexQModelIndexConst) ptr' toListenerQModelIndexQModelIndexConst (ListenerQModelIndexQModelIndexGc fptr' ptr') = ListenerQModelIndexQModelIndexConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndex -> HoppyF.Ptr ListenerQModelIndexQModelIndexConst) ptr' instance ListenerQModelIndexQModelIndexPtr ListenerQModelIndexQModelIndex where toListenerQModelIndexQModelIndex = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexQModelIndex where toQObjectConst (ListenerQModelIndexQModelIndex ptr') = M94.QObjectConst $ castListenerQModelIndexQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndex -> HoppyF.Ptr ListenerQModelIndexQModelIndexConst) ptr' toQObjectConst (ListenerQModelIndexQModelIndexGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndex -> HoppyF.Ptr ListenerQModelIndexQModelIndexConst) ptr' instance M94.QObjectPtr ListenerQModelIndexQModelIndex where toQObject (ListenerQModelIndexQModelIndex ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndex -> HoppyF.Ptr ListenerQModelIndexQModelIndexConst) ptr' toQObject (ListenerQModelIndexQModelIndexGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndex -> HoppyF.Ptr ListenerQModelIndexQModelIndexConst) ptr' listenerQModelIndexQModelIndex_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M92.QModelIndex -> M92.QModelIndex -> HoppyP.IO ()) -> (HoppyP.IO ListenerQModelIndexQModelIndex) listenerQModelIndexQModelIndex_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQModelIndexQModelIndexVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQModelIndexQModelIndex (listenerQModelIndexQModelIndex_new' arg'1' arg'2' arg'3') class ListenerQModelIndexQModelIndexSuper a where downToListenerQModelIndexQModelIndex :: a -> ListenerQModelIndexQModelIndex instance ListenerQModelIndexQModelIndexSuper M94.QObject where downToListenerQModelIndexQModelIndex = castListenerQModelIndexQModelIndexToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQModelIndexQModelIndexConst $ castQObjectToListenerQModelIndexQModelIndex ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexQModelIndexConstGc fptr' $ castQObjectToListenerQModelIndexQModelIndex ptr' class ListenerQModelIndexQModelIndexSuperConst a where downToListenerQModelIndexQModelIndexConst :: a -> ListenerQModelIndexQModelIndexConst instance ListenerQModelIndexQModelIndexSuperConst M94.QObjectConst where downToListenerQModelIndexQModelIndexConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQModelIndexQModelIndexConst $ castQObjectToListenerQModelIndexQModelIndex ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexQModelIndexConstGc fptr' $ castQObjectToListenerQModelIndexQModelIndex ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndexQModelIndex)) ListenerQModelIndexQModelIndex where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndexQModelIndex)) ListenerQModelIndexQModelIndex where decode = HoppyP.fmap ListenerQModelIndexQModelIndex . HoppyF.peek class ListenerQModelIndexQModelIndexQVectorIntValue a where withListenerQModelIndexQModelIndexQVectorIntPtr :: a -> (ListenerQModelIndexQModelIndexQVectorIntConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQModelIndexQModelIndexQVectorIntConstPtr a => ListenerQModelIndexQModelIndexQVectorIntValue a where withListenerQModelIndexQModelIndexQVectorIntPtr = HoppyP.flip ($) . toListenerQModelIndexQModelIndexQVectorIntConst class (M94.QObjectConstPtr this) => ListenerQModelIndexQModelIndexQVectorIntConstPtr this where toListenerQModelIndexQModelIndexQVectorIntConst :: this -> ListenerQModelIndexQModelIndexQVectorIntConst listenerQModelIndexQModelIndexQVectorInt_isValid :: (ListenerQModelIndexQModelIndexQVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQModelIndexQModelIndexQVectorInt_isValid arg'1 = withListenerQModelIndexQModelIndexQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQModelIndexQModelIndexQVectorInt_isValid' arg'1') class (ListenerQModelIndexQModelIndexQVectorIntConstPtr this, M94.QObjectPtr this) => ListenerQModelIndexQModelIndexQVectorIntPtr this where toListenerQModelIndexQModelIndexQVectorInt :: this -> ListenerQModelIndexQModelIndexQVectorInt data ListenerQModelIndexQModelIndexQVectorIntConst = ListenerQModelIndexQModelIndexQVectorIntConst (HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) | ListenerQModelIndexQModelIndexQVectorIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexQModelIndexQVectorIntConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexQModelIndexQVectorIntConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexQModelIndexQVectorIntToConst :: ListenerQModelIndexQModelIndexQVectorInt -> ListenerQModelIndexQModelIndexQVectorIntConst castListenerQModelIndexQModelIndexQVectorIntToConst (ListenerQModelIndexQModelIndexQVectorInt ptr') = ListenerQModelIndexQModelIndexQVectorIntConst $ HoppyF.castPtr ptr' castListenerQModelIndexQModelIndexQVectorIntToConst (ListenerQModelIndexQModelIndexQVectorIntGc fptr' ptr') = ListenerQModelIndexQModelIndexQVectorIntConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexQModelIndexQVectorIntConst where nullptr = ListenerQModelIndexQModelIndexQVectorIntConst HoppyF.nullPtr withCppPtr (ListenerQModelIndexQModelIndexQVectorIntConst ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexQModelIndexQVectorIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexQModelIndexQVectorIntConst ptr') = ptr' toPtr (ListenerQModelIndexQModelIndexQVectorIntConstGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexQModelIndexQVectorIntConst _) = HoppyP.return () touchCppPtr (ListenerQModelIndexQModelIndexQVectorIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexQModelIndexQVectorIntConst where delete (ListenerQModelIndexQModelIndexQVectorIntConst ptr') = delete'ListenerQModelIndexQModelIndexQVectorInt ptr' delete (ListenerQModelIndexQModelIndexQVectorIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexQModelIndexQVectorIntConst", " object."] toGc this'@(ListenerQModelIndexQModelIndexQVectorIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexQModelIndexQVectorIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndexQModelIndexQVectorInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexQModelIndexQVectorIntConstGc {}) = HoppyP.return this' instance ListenerQModelIndexQModelIndexQVectorIntConstPtr ListenerQModelIndexQModelIndexQVectorIntConst where toListenerQModelIndexQModelIndexQVectorIntConst = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexQModelIndexQVectorIntConst where toQObjectConst (ListenerQModelIndexQModelIndexQVectorIntConst ptr') = M94.QObjectConst $ castListenerQModelIndexQModelIndexQVectorIntToQObject ptr' toQObjectConst (ListenerQModelIndexQModelIndexQVectorIntConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexQModelIndexQVectorIntToQObject ptr' data ListenerQModelIndexQModelIndexQVectorInt = ListenerQModelIndexQModelIndexQVectorInt (HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt) | ListenerQModelIndexQModelIndexQVectorIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQModelIndexQModelIndexQVectorInt where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQModelIndexQModelIndexQVectorInt where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQModelIndexQModelIndexQVectorIntToNonconst :: ListenerQModelIndexQModelIndexQVectorIntConst -> ListenerQModelIndexQModelIndexQVectorInt castListenerQModelIndexQModelIndexQVectorIntToNonconst (ListenerQModelIndexQModelIndexQVectorIntConst ptr') = ListenerQModelIndexQModelIndexQVectorInt $ HoppyF.castPtr ptr' castListenerQModelIndexQModelIndexQVectorIntToNonconst (ListenerQModelIndexQModelIndexQVectorIntConstGc fptr' ptr') = ListenerQModelIndexQModelIndexQVectorIntGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQModelIndexQModelIndexQVectorInt where nullptr = ListenerQModelIndexQModelIndexQVectorInt HoppyF.nullPtr withCppPtr (ListenerQModelIndexQModelIndexQVectorInt ptr') f' = f' ptr' withCppPtr (ListenerQModelIndexQModelIndexQVectorIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQModelIndexQModelIndexQVectorInt ptr') = ptr' toPtr (ListenerQModelIndexQModelIndexQVectorIntGc _ ptr') = ptr' touchCppPtr (ListenerQModelIndexQModelIndexQVectorInt _) = HoppyP.return () touchCppPtr (ListenerQModelIndexQModelIndexQVectorIntGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQModelIndexQModelIndexQVectorInt where delete (ListenerQModelIndexQModelIndexQVectorInt ptr') = delete'ListenerQModelIndexQModelIndexQVectorInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) delete (ListenerQModelIndexQModelIndexQVectorIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQModelIndexQModelIndexQVectorInt", " object."] toGc this'@(ListenerQModelIndexQModelIndexQVectorInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQModelIndexQModelIndexQVectorIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQModelIndexQModelIndexQVectorInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQModelIndexQModelIndexQVectorIntGc {}) = HoppyP.return this' instance ListenerQModelIndexQModelIndexQVectorIntConstPtr ListenerQModelIndexQModelIndexQVectorInt where toListenerQModelIndexQModelIndexQVectorIntConst (ListenerQModelIndexQModelIndexQVectorInt ptr') = ListenerQModelIndexQModelIndexQVectorIntConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt -> HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) ptr' toListenerQModelIndexQModelIndexQVectorIntConst (ListenerQModelIndexQModelIndexQVectorIntGc fptr' ptr') = ListenerQModelIndexQModelIndexQVectorIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt -> HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) ptr' instance ListenerQModelIndexQModelIndexQVectorIntPtr ListenerQModelIndexQModelIndexQVectorInt where toListenerQModelIndexQModelIndexQVectorInt = HoppyP.id instance M94.QObjectConstPtr ListenerQModelIndexQModelIndexQVectorInt where toQObjectConst (ListenerQModelIndexQModelIndexQVectorInt ptr') = M94.QObjectConst $ castListenerQModelIndexQModelIndexQVectorIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt -> HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) ptr' toQObjectConst (ListenerQModelIndexQModelIndexQVectorIntGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQModelIndexQModelIndexQVectorIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt -> HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) ptr' instance M94.QObjectPtr ListenerQModelIndexQModelIndexQVectorInt where toQObject (ListenerQModelIndexQModelIndexQVectorInt ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexQModelIndexQVectorIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt -> HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) ptr' toQObject (ListenerQModelIndexQModelIndexQVectorIntGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQModelIndexQModelIndexQVectorIntToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt -> HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorIntConst) ptr' listenerQModelIndexQModelIndexQVectorInt_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M92.QModelIndex -> M92.QModelIndex -> M214.QVectorInt -> HoppyP.IO ()) -> (HoppyP.IO ListenerQModelIndexQModelIndexQVectorInt) listenerQModelIndexQModelIndexQVectorInt_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQModelIndexQModelIndexQVectorIntVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQModelIndexQModelIndexQVectorInt (listenerQModelIndexQModelIndexQVectorInt_new' arg'1' arg'2' arg'3') class ListenerQModelIndexQModelIndexQVectorIntSuper a where downToListenerQModelIndexQModelIndexQVectorInt :: a -> ListenerQModelIndexQModelIndexQVectorInt instance ListenerQModelIndexQModelIndexQVectorIntSuper M94.QObject where downToListenerQModelIndexQModelIndexQVectorInt = castListenerQModelIndexQModelIndexQVectorIntToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQModelIndexQModelIndexQVectorIntConst $ castQObjectToListenerQModelIndexQModelIndexQVectorInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexQModelIndexQVectorIntConstGc fptr' $ castQObjectToListenerQModelIndexQModelIndexQVectorInt ptr' class ListenerQModelIndexQModelIndexQVectorIntSuperConst a where downToListenerQModelIndexQModelIndexQVectorIntConst :: a -> ListenerQModelIndexQModelIndexQVectorIntConst instance ListenerQModelIndexQModelIndexQVectorIntSuperConst M94.QObjectConst where downToListenerQModelIndexQModelIndexQVectorIntConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQModelIndexQModelIndexQVectorIntConst $ castQObjectToListenerQModelIndexQModelIndexQVectorInt ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQModelIndexQModelIndexQVectorIntConstGc fptr' $ castQObjectToListenerQModelIndexQModelIndexQVectorInt ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt)) ListenerQModelIndexQModelIndexQVectorInt where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQModelIndexQModelIndexQVectorInt)) ListenerQModelIndexQModelIndexQVectorInt where decode = HoppyP.fmap ListenerQModelIndexQModelIndexQVectorInt . HoppyF.peek class ListenerQPointValue a where withListenerQPointPtr :: a -> (ListenerQPointConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQPointConstPtr a => ListenerQPointValue a where withListenerQPointPtr = HoppyP.flip ($) . toListenerQPointConst class (M94.QObjectConstPtr this) => ListenerQPointConstPtr this where toListenerQPointConst :: this -> ListenerQPointConst listenerQPoint_isValid :: (ListenerQPointValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQPoint_isValid arg'1 = withListenerQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQPoint_isValid' arg'1') class (ListenerQPointConstPtr this, M94.QObjectPtr this) => ListenerQPointPtr this where toListenerQPoint :: this -> ListenerQPoint data ListenerQPointConst = ListenerQPointConst (HoppyF.Ptr ListenerQPointConst) | ListenerQPointConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQPointConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQPointConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQPointConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQPointToConst :: ListenerQPoint -> ListenerQPointConst castListenerQPointToConst (ListenerQPoint ptr') = ListenerQPointConst $ HoppyF.castPtr ptr' castListenerQPointToConst (ListenerQPointGc fptr' ptr') = ListenerQPointConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQPointConst where nullptr = ListenerQPointConst HoppyF.nullPtr withCppPtr (ListenerQPointConst ptr') f' = f' ptr' withCppPtr (ListenerQPointConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQPointConst ptr') = ptr' toPtr (ListenerQPointConstGc _ ptr') = ptr' touchCppPtr (ListenerQPointConst _) = HoppyP.return () touchCppPtr (ListenerQPointConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQPointConst where delete (ListenerQPointConst ptr') = delete'ListenerQPoint ptr' delete (ListenerQPointConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQPointConst", " object."] toGc this'@(ListenerQPointConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQPointConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQPoint :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQPointConstGc {}) = HoppyP.return this' instance ListenerQPointConstPtr ListenerQPointConst where toListenerQPointConst = HoppyP.id instance M94.QObjectConstPtr ListenerQPointConst where toQObjectConst (ListenerQPointConst ptr') = M94.QObjectConst $ castListenerQPointToQObject ptr' toQObjectConst (ListenerQPointConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQPointToQObject ptr' data ListenerQPoint = ListenerQPoint (HoppyF.Ptr ListenerQPoint) | ListenerQPointGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQPoint) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQPoint where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQPoint where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQPointToNonconst :: ListenerQPointConst -> ListenerQPoint castListenerQPointToNonconst (ListenerQPointConst ptr') = ListenerQPoint $ HoppyF.castPtr ptr' castListenerQPointToNonconst (ListenerQPointConstGc fptr' ptr') = ListenerQPointGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQPoint where nullptr = ListenerQPoint HoppyF.nullPtr withCppPtr (ListenerQPoint ptr') f' = f' ptr' withCppPtr (ListenerQPointGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQPoint ptr') = ptr' toPtr (ListenerQPointGc _ ptr') = ptr' touchCppPtr (ListenerQPoint _) = HoppyP.return () touchCppPtr (ListenerQPointGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQPoint where delete (ListenerQPoint ptr') = delete'ListenerQPoint $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQPointConst) delete (ListenerQPointGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQPoint", " object."] toGc this'@(ListenerQPoint ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQPointGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQPoint :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQPointGc {}) = HoppyP.return this' instance ListenerQPointConstPtr ListenerQPoint where toListenerQPointConst (ListenerQPoint ptr') = ListenerQPointConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQPoint -> HoppyF.Ptr ListenerQPointConst) ptr' toListenerQPointConst (ListenerQPointGc fptr' ptr') = ListenerQPointConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQPoint -> HoppyF.Ptr ListenerQPointConst) ptr' instance ListenerQPointPtr ListenerQPoint where toListenerQPoint = HoppyP.id instance M94.QObjectConstPtr ListenerQPoint where toQObjectConst (ListenerQPoint ptr') = M94.QObjectConst $ castListenerQPointToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQPoint -> HoppyF.Ptr ListenerQPointConst) ptr' toQObjectConst (ListenerQPointGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQPointToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQPoint -> HoppyF.Ptr ListenerQPointConst) ptr' instance M94.QObjectPtr ListenerQPoint where toQObject (ListenerQPoint ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQPointToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQPoint -> HoppyF.Ptr ListenerQPointConst) ptr' toQObject (ListenerQPointGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQPointToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQPoint -> HoppyF.Ptr ListenerQPointConst) ptr' listenerQPoint_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HPoint.HPoint -> HoppyP.IO ()) -> (HoppyP.IO ListenerQPoint) listenerQPoint_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQPointVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQPoint (listenerQPoint_new' arg'1' arg'2' arg'3') class ListenerQPointSuper a where downToListenerQPoint :: a -> ListenerQPoint instance ListenerQPointSuper M94.QObject where downToListenerQPoint = castListenerQPointToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQPointConst $ castQObjectToListenerQPoint ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQPointConstGc fptr' $ castQObjectToListenerQPoint ptr' class ListenerQPointSuperConst a where downToListenerQPointConst :: a -> ListenerQPointConst instance ListenerQPointSuperConst M94.QObjectConst where downToListenerQPointConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQPointConst $ castQObjectToListenerQPoint ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQPointConstGc fptr' $ castQObjectToListenerQPoint ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQPoint)) ListenerQPoint where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQPoint)) ListenerQPoint where decode = HoppyP.fmap ListenerQPoint . HoppyF.peek class ListenerQSizeValue a where withListenerQSizePtr :: a -> (ListenerQSizeConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQSizeConstPtr a => ListenerQSizeValue a where withListenerQSizePtr = HoppyP.flip ($) . toListenerQSizeConst class (M94.QObjectConstPtr this) => ListenerQSizeConstPtr this where toListenerQSizeConst :: this -> ListenerQSizeConst listenerQSize_isValid :: (ListenerQSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQSize_isValid arg'1 = withListenerQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQSize_isValid' arg'1') class (ListenerQSizeConstPtr this, M94.QObjectPtr this) => ListenerQSizePtr this where toListenerQSize :: this -> ListenerQSize data ListenerQSizeConst = ListenerQSizeConst (HoppyF.Ptr ListenerQSizeConst) | ListenerQSizeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQSizeConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQSizeConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQSizeConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQSizeToConst :: ListenerQSize -> ListenerQSizeConst castListenerQSizeToConst (ListenerQSize ptr') = ListenerQSizeConst $ HoppyF.castPtr ptr' castListenerQSizeToConst (ListenerQSizeGc fptr' ptr') = ListenerQSizeConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQSizeConst where nullptr = ListenerQSizeConst HoppyF.nullPtr withCppPtr (ListenerQSizeConst ptr') f' = f' ptr' withCppPtr (ListenerQSizeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQSizeConst ptr') = ptr' toPtr (ListenerQSizeConstGc _ ptr') = ptr' touchCppPtr (ListenerQSizeConst _) = HoppyP.return () touchCppPtr (ListenerQSizeConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQSizeConst where delete (ListenerQSizeConst ptr') = delete'ListenerQSize ptr' delete (ListenerQSizeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQSizeConst", " object."] toGc this'@(ListenerQSizeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQSizeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQSize :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQSizeConstGc {}) = HoppyP.return this' instance ListenerQSizeConstPtr ListenerQSizeConst where toListenerQSizeConst = HoppyP.id instance M94.QObjectConstPtr ListenerQSizeConst where toQObjectConst (ListenerQSizeConst ptr') = M94.QObjectConst $ castListenerQSizeToQObject ptr' toQObjectConst (ListenerQSizeConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQSizeToQObject ptr' data ListenerQSize = ListenerQSize (HoppyF.Ptr ListenerQSize) | ListenerQSizeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQSize) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQSize where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQSize where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQSizeToNonconst :: ListenerQSizeConst -> ListenerQSize castListenerQSizeToNonconst (ListenerQSizeConst ptr') = ListenerQSize $ HoppyF.castPtr ptr' castListenerQSizeToNonconst (ListenerQSizeConstGc fptr' ptr') = ListenerQSizeGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQSize where nullptr = ListenerQSize HoppyF.nullPtr withCppPtr (ListenerQSize ptr') f' = f' ptr' withCppPtr (ListenerQSizeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQSize ptr') = ptr' toPtr (ListenerQSizeGc _ ptr') = ptr' touchCppPtr (ListenerQSize _) = HoppyP.return () touchCppPtr (ListenerQSizeGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQSize where delete (ListenerQSize ptr') = delete'ListenerQSize $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQSizeConst) delete (ListenerQSizeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQSize", " object."] toGc this'@(ListenerQSize ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQSizeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQSize :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQSizeGc {}) = HoppyP.return this' instance ListenerQSizeConstPtr ListenerQSize where toListenerQSizeConst (ListenerQSize ptr') = ListenerQSizeConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSize -> HoppyF.Ptr ListenerQSizeConst) ptr' toListenerQSizeConst (ListenerQSizeGc fptr' ptr') = ListenerQSizeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSize -> HoppyF.Ptr ListenerQSizeConst) ptr' instance ListenerQSizePtr ListenerQSize where toListenerQSize = HoppyP.id instance M94.QObjectConstPtr ListenerQSize where toQObjectConst (ListenerQSize ptr') = M94.QObjectConst $ castListenerQSizeToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSize -> HoppyF.Ptr ListenerQSizeConst) ptr' toQObjectConst (ListenerQSizeGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQSizeToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSize -> HoppyF.Ptr ListenerQSizeConst) ptr' instance M94.QObjectPtr ListenerQSize where toQObject (ListenerQSize ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQSizeToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSize -> HoppyF.Ptr ListenerQSizeConst) ptr' toQObject (ListenerQSizeGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQSizeToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSize -> HoppyF.Ptr ListenerQSizeConst) ptr' listenerQSize_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HSize.HSize -> HoppyP.IO ()) -> (HoppyP.IO ListenerQSize) listenerQSize_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQSizeVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQSize (listenerQSize_new' arg'1' arg'2' arg'3') class ListenerQSizeSuper a where downToListenerQSize :: a -> ListenerQSize instance ListenerQSizeSuper M94.QObject where downToListenerQSize = castListenerQSizeToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQSizeConst $ castQObjectToListenerQSize ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQSizeConstGc fptr' $ castQObjectToListenerQSize ptr' class ListenerQSizeSuperConst a where downToListenerQSizeConst :: a -> ListenerQSizeConst instance ListenerQSizeSuperConst M94.QObjectConst where downToListenerQSizeConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQSizeConst $ castQObjectToListenerQSize ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQSizeConstGc fptr' $ castQObjectToListenerQSize ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQSize)) ListenerQSize where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQSize)) ListenerQSize where decode = HoppyP.fmap ListenerQSize . HoppyF.peek class ListenerQStringValue a where withListenerQStringPtr :: a -> (ListenerQStringConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQStringConstPtr a => ListenerQStringValue a where withListenerQStringPtr = HoppyP.flip ($) . toListenerQStringConst class (M94.QObjectConstPtr this) => ListenerQStringConstPtr this where toListenerQStringConst :: this -> ListenerQStringConst listenerQString_isValid :: (ListenerQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQString_isValid arg'1 = withListenerQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQString_isValid' arg'1') class (ListenerQStringConstPtr this, M94.QObjectPtr this) => ListenerQStringPtr this where toListenerQString :: this -> ListenerQString data ListenerQStringConst = ListenerQStringConst (HoppyF.Ptr ListenerQStringConst) | ListenerQStringConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQStringConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQStringConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQStringConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQStringToConst :: ListenerQString -> ListenerQStringConst castListenerQStringToConst (ListenerQString ptr') = ListenerQStringConst $ HoppyF.castPtr ptr' castListenerQStringToConst (ListenerQStringGc fptr' ptr') = ListenerQStringConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQStringConst where nullptr = ListenerQStringConst HoppyF.nullPtr withCppPtr (ListenerQStringConst ptr') f' = f' ptr' withCppPtr (ListenerQStringConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQStringConst ptr') = ptr' toPtr (ListenerQStringConstGc _ ptr') = ptr' touchCppPtr (ListenerQStringConst _) = HoppyP.return () touchCppPtr (ListenerQStringConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQStringConst where delete (ListenerQStringConst ptr') = delete'ListenerQString ptr' delete (ListenerQStringConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQStringConst", " object."] toGc this'@(ListenerQStringConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQStringConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQString :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQStringConstGc {}) = HoppyP.return this' instance ListenerQStringConstPtr ListenerQStringConst where toListenerQStringConst = HoppyP.id instance M94.QObjectConstPtr ListenerQStringConst where toQObjectConst (ListenerQStringConst ptr') = M94.QObjectConst $ castListenerQStringToQObject ptr' toQObjectConst (ListenerQStringConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQStringToQObject ptr' data ListenerQString = ListenerQString (HoppyF.Ptr ListenerQString) | ListenerQStringGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQString) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQString where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQString where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQStringToNonconst :: ListenerQStringConst -> ListenerQString castListenerQStringToNonconst (ListenerQStringConst ptr') = ListenerQString $ HoppyF.castPtr ptr' castListenerQStringToNonconst (ListenerQStringConstGc fptr' ptr') = ListenerQStringGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQString where nullptr = ListenerQString HoppyF.nullPtr withCppPtr (ListenerQString ptr') f' = f' ptr' withCppPtr (ListenerQStringGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQString ptr') = ptr' toPtr (ListenerQStringGc _ ptr') = ptr' touchCppPtr (ListenerQString _) = HoppyP.return () touchCppPtr (ListenerQStringGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQString where delete (ListenerQString ptr') = delete'ListenerQString $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQStringConst) delete (ListenerQStringGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQString", " object."] toGc this'@(ListenerQString ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQStringGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQString :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQStringGc {}) = HoppyP.return this' instance ListenerQStringConstPtr ListenerQString where toListenerQStringConst (ListenerQString ptr') = ListenerQStringConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQString -> HoppyF.Ptr ListenerQStringConst) ptr' toListenerQStringConst (ListenerQStringGc fptr' ptr') = ListenerQStringConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQString -> HoppyF.Ptr ListenerQStringConst) ptr' instance ListenerQStringPtr ListenerQString where toListenerQString = HoppyP.id instance M94.QObjectConstPtr ListenerQString where toQObjectConst (ListenerQString ptr') = M94.QObjectConst $ castListenerQStringToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQString -> HoppyF.Ptr ListenerQStringConst) ptr' toQObjectConst (ListenerQStringGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQStringToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQString -> HoppyF.Ptr ListenerQStringConst) ptr' instance M94.QObjectPtr ListenerQString where toQObject (ListenerQString ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQStringToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQString -> HoppyF.Ptr ListenerQStringConst) ptr' toQObject (ListenerQStringGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQStringToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQString -> HoppyF.Ptr ListenerQStringConst) ptr' listenerQString_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (QtahP.String -> HoppyP.IO ()) -> (HoppyP.IO ListenerQString) listenerQString_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQStringVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQString (listenerQString_new' arg'1' arg'2' arg'3') class ListenerQStringSuper a where downToListenerQString :: a -> ListenerQString instance ListenerQStringSuper M94.QObject where downToListenerQString = castListenerQStringToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQStringConst $ castQObjectToListenerQString ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQStringConstGc fptr' $ castQObjectToListenerQString ptr' class ListenerQStringSuperConst a where downToListenerQStringConst :: a -> ListenerQStringConst instance ListenerQStringSuperConst M94.QObjectConst where downToListenerQStringConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQStringConst $ castQObjectToListenerQString ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQStringConstGc fptr' $ castQObjectToListenerQString ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQString)) ListenerQString where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQString)) ListenerQString where decode = HoppyP.fmap ListenerQString . HoppyF.peek class ListenerQSystemTrayIconActivationReasonValue a where withListenerQSystemTrayIconActivationReasonPtr :: a -> (ListenerQSystemTrayIconActivationReasonConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQSystemTrayIconActivationReasonConstPtr a => ListenerQSystemTrayIconActivationReasonValue a where withListenerQSystemTrayIconActivationReasonPtr = HoppyP.flip ($) . toListenerQSystemTrayIconActivationReasonConst class (M94.QObjectConstPtr this) => ListenerQSystemTrayIconActivationReasonConstPtr this where toListenerQSystemTrayIconActivationReasonConst :: this -> ListenerQSystemTrayIconActivationReasonConst listenerQSystemTrayIconActivationReason_isValid :: (ListenerQSystemTrayIconActivationReasonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQSystemTrayIconActivationReason_isValid arg'1 = withListenerQSystemTrayIconActivationReasonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQSystemTrayIconActivationReason_isValid' arg'1') class (ListenerQSystemTrayIconActivationReasonConstPtr this, M94.QObjectPtr this) => ListenerQSystemTrayIconActivationReasonPtr this where toListenerQSystemTrayIconActivationReason :: this -> ListenerQSystemTrayIconActivationReason data ListenerQSystemTrayIconActivationReasonConst = ListenerQSystemTrayIconActivationReasonConst (HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) | ListenerQSystemTrayIconActivationReasonConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQSystemTrayIconActivationReasonConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQSystemTrayIconActivationReasonConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQSystemTrayIconActivationReasonToConst :: ListenerQSystemTrayIconActivationReason -> ListenerQSystemTrayIconActivationReasonConst castListenerQSystemTrayIconActivationReasonToConst (ListenerQSystemTrayIconActivationReason ptr') = ListenerQSystemTrayIconActivationReasonConst $ HoppyF.castPtr ptr' castListenerQSystemTrayIconActivationReasonToConst (ListenerQSystemTrayIconActivationReasonGc fptr' ptr') = ListenerQSystemTrayIconActivationReasonConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQSystemTrayIconActivationReasonConst where nullptr = ListenerQSystemTrayIconActivationReasonConst HoppyF.nullPtr withCppPtr (ListenerQSystemTrayIconActivationReasonConst ptr') f' = f' ptr' withCppPtr (ListenerQSystemTrayIconActivationReasonConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQSystemTrayIconActivationReasonConst ptr') = ptr' toPtr (ListenerQSystemTrayIconActivationReasonConstGc _ ptr') = ptr' touchCppPtr (ListenerQSystemTrayIconActivationReasonConst _) = HoppyP.return () touchCppPtr (ListenerQSystemTrayIconActivationReasonConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQSystemTrayIconActivationReasonConst where delete (ListenerQSystemTrayIconActivationReasonConst ptr') = delete'ListenerQSystemTrayIconActivationReason ptr' delete (ListenerQSystemTrayIconActivationReasonConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQSystemTrayIconActivationReasonConst", " object."] toGc this'@(ListenerQSystemTrayIconActivationReasonConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQSystemTrayIconActivationReasonConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQSystemTrayIconActivationReason :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQSystemTrayIconActivationReasonConstGc {}) = HoppyP.return this' instance ListenerQSystemTrayIconActivationReasonConstPtr ListenerQSystemTrayIconActivationReasonConst where toListenerQSystemTrayIconActivationReasonConst = HoppyP.id instance M94.QObjectConstPtr ListenerQSystemTrayIconActivationReasonConst where toQObjectConst (ListenerQSystemTrayIconActivationReasonConst ptr') = M94.QObjectConst $ castListenerQSystemTrayIconActivationReasonToQObject ptr' toQObjectConst (ListenerQSystemTrayIconActivationReasonConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQSystemTrayIconActivationReasonToQObject ptr' data ListenerQSystemTrayIconActivationReason = ListenerQSystemTrayIconActivationReason (HoppyF.Ptr ListenerQSystemTrayIconActivationReason) | ListenerQSystemTrayIconActivationReasonGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQSystemTrayIconActivationReason) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQSystemTrayIconActivationReason where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQSystemTrayIconActivationReason where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQSystemTrayIconActivationReasonToNonconst :: ListenerQSystemTrayIconActivationReasonConst -> ListenerQSystemTrayIconActivationReason castListenerQSystemTrayIconActivationReasonToNonconst (ListenerQSystemTrayIconActivationReasonConst ptr') = ListenerQSystemTrayIconActivationReason $ HoppyF.castPtr ptr' castListenerQSystemTrayIconActivationReasonToNonconst (ListenerQSystemTrayIconActivationReasonConstGc fptr' ptr') = ListenerQSystemTrayIconActivationReasonGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQSystemTrayIconActivationReason where nullptr = ListenerQSystemTrayIconActivationReason HoppyF.nullPtr withCppPtr (ListenerQSystemTrayIconActivationReason ptr') f' = f' ptr' withCppPtr (ListenerQSystemTrayIconActivationReasonGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQSystemTrayIconActivationReason ptr') = ptr' toPtr (ListenerQSystemTrayIconActivationReasonGc _ ptr') = ptr' touchCppPtr (ListenerQSystemTrayIconActivationReason _) = HoppyP.return () touchCppPtr (ListenerQSystemTrayIconActivationReasonGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQSystemTrayIconActivationReason where delete (ListenerQSystemTrayIconActivationReason ptr') = delete'ListenerQSystemTrayIconActivationReason $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) delete (ListenerQSystemTrayIconActivationReasonGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQSystemTrayIconActivationReason", " object."] toGc this'@(ListenerQSystemTrayIconActivationReason ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQSystemTrayIconActivationReasonGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQSystemTrayIconActivationReason :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQSystemTrayIconActivationReasonGc {}) = HoppyP.return this' instance ListenerQSystemTrayIconActivationReasonConstPtr ListenerQSystemTrayIconActivationReason where toListenerQSystemTrayIconActivationReasonConst (ListenerQSystemTrayIconActivationReason ptr') = ListenerQSystemTrayIconActivationReasonConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSystemTrayIconActivationReason -> HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) ptr' toListenerQSystemTrayIconActivationReasonConst (ListenerQSystemTrayIconActivationReasonGc fptr' ptr') = ListenerQSystemTrayIconActivationReasonConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSystemTrayIconActivationReason -> HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) ptr' instance ListenerQSystemTrayIconActivationReasonPtr ListenerQSystemTrayIconActivationReason where toListenerQSystemTrayIconActivationReason = HoppyP.id instance M94.QObjectConstPtr ListenerQSystemTrayIconActivationReason where toQObjectConst (ListenerQSystemTrayIconActivationReason ptr') = M94.QObjectConst $ castListenerQSystemTrayIconActivationReasonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSystemTrayIconActivationReason -> HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) ptr' toQObjectConst (ListenerQSystemTrayIconActivationReasonGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQSystemTrayIconActivationReasonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSystemTrayIconActivationReason -> HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) ptr' instance M94.QObjectPtr ListenerQSystemTrayIconActivationReason where toQObject (ListenerQSystemTrayIconActivationReason ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQSystemTrayIconActivationReasonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSystemTrayIconActivationReason -> HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) ptr' toQObject (ListenerQSystemTrayIconActivationReasonGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQSystemTrayIconActivationReasonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQSystemTrayIconActivationReason -> HoppyF.Ptr ListenerQSystemTrayIconActivationReasonConst) ptr' listenerQSystemTrayIconActivationReason_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M486.QSystemTrayIconActivationReason -> HoppyP.IO ()) -> (HoppyP.IO ListenerQSystemTrayIconActivationReason) listenerQSystemTrayIconActivationReason_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQSystemTrayIconActivationReasonVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQSystemTrayIconActivationReason (listenerQSystemTrayIconActivationReason_new' arg'1' arg'2' arg'3') class ListenerQSystemTrayIconActivationReasonSuper a where downToListenerQSystemTrayIconActivationReason :: a -> ListenerQSystemTrayIconActivationReason instance ListenerQSystemTrayIconActivationReasonSuper M94.QObject where downToListenerQSystemTrayIconActivationReason = castListenerQSystemTrayIconActivationReasonToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQSystemTrayIconActivationReasonConst $ castQObjectToListenerQSystemTrayIconActivationReason ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQSystemTrayIconActivationReasonConstGc fptr' $ castQObjectToListenerQSystemTrayIconActivationReason ptr' class ListenerQSystemTrayIconActivationReasonSuperConst a where downToListenerQSystemTrayIconActivationReasonConst :: a -> ListenerQSystemTrayIconActivationReasonConst instance ListenerQSystemTrayIconActivationReasonSuperConst M94.QObjectConst where downToListenerQSystemTrayIconActivationReasonConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQSystemTrayIconActivationReasonConst $ castQObjectToListenerQSystemTrayIconActivationReason ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQSystemTrayIconActivationReasonConstGc fptr' $ castQObjectToListenerQSystemTrayIconActivationReason ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQSystemTrayIconActivationReason)) ListenerQSystemTrayIconActivationReason where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQSystemTrayIconActivationReason)) ListenerQSystemTrayIconActivationReason where decode = HoppyP.fmap ListenerQSystemTrayIconActivationReason . HoppyF.peek class ListenerQWindowVisibilityValue a where withListenerQWindowVisibilityPtr :: a -> (ListenerQWindowVisibilityConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQWindowVisibilityConstPtr a => ListenerQWindowVisibilityValue a where withListenerQWindowVisibilityPtr = HoppyP.flip ($) . toListenerQWindowVisibilityConst class (M94.QObjectConstPtr this) => ListenerQWindowVisibilityConstPtr this where toListenerQWindowVisibilityConst :: this -> ListenerQWindowVisibilityConst listenerQWindowVisibility_isValid :: (ListenerQWindowVisibilityValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQWindowVisibility_isValid arg'1 = withListenerQWindowVisibilityPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQWindowVisibility_isValid' arg'1') class (ListenerQWindowVisibilityConstPtr this, M94.QObjectPtr this) => ListenerQWindowVisibilityPtr this where toListenerQWindowVisibility :: this -> ListenerQWindowVisibility data ListenerQWindowVisibilityConst = ListenerQWindowVisibilityConst (HoppyF.Ptr ListenerQWindowVisibilityConst) | ListenerQWindowVisibilityConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQWindowVisibilityConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQWindowVisibilityConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQWindowVisibilityConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQWindowVisibilityToConst :: ListenerQWindowVisibility -> ListenerQWindowVisibilityConst castListenerQWindowVisibilityToConst (ListenerQWindowVisibility ptr') = ListenerQWindowVisibilityConst $ HoppyF.castPtr ptr' castListenerQWindowVisibilityToConst (ListenerQWindowVisibilityGc fptr' ptr') = ListenerQWindowVisibilityConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQWindowVisibilityConst where nullptr = ListenerQWindowVisibilityConst HoppyF.nullPtr withCppPtr (ListenerQWindowVisibilityConst ptr') f' = f' ptr' withCppPtr (ListenerQWindowVisibilityConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQWindowVisibilityConst ptr') = ptr' toPtr (ListenerQWindowVisibilityConstGc _ ptr') = ptr' touchCppPtr (ListenerQWindowVisibilityConst _) = HoppyP.return () touchCppPtr (ListenerQWindowVisibilityConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQWindowVisibilityConst where delete (ListenerQWindowVisibilityConst ptr') = delete'ListenerQWindowVisibility ptr' delete (ListenerQWindowVisibilityConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQWindowVisibilityConst", " object."] toGc this'@(ListenerQWindowVisibilityConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQWindowVisibilityConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQWindowVisibility :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQWindowVisibilityConstGc {}) = HoppyP.return this' instance ListenerQWindowVisibilityConstPtr ListenerQWindowVisibilityConst where toListenerQWindowVisibilityConst = HoppyP.id instance M94.QObjectConstPtr ListenerQWindowVisibilityConst where toQObjectConst (ListenerQWindowVisibilityConst ptr') = M94.QObjectConst $ castListenerQWindowVisibilityToQObject ptr' toQObjectConst (ListenerQWindowVisibilityConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQWindowVisibilityToQObject ptr' data ListenerQWindowVisibility = ListenerQWindowVisibility (HoppyF.Ptr ListenerQWindowVisibility) | ListenerQWindowVisibilityGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQWindowVisibility) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQWindowVisibility where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQWindowVisibility where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQWindowVisibilityToNonconst :: ListenerQWindowVisibilityConst -> ListenerQWindowVisibility castListenerQWindowVisibilityToNonconst (ListenerQWindowVisibilityConst ptr') = ListenerQWindowVisibility $ HoppyF.castPtr ptr' castListenerQWindowVisibilityToNonconst (ListenerQWindowVisibilityConstGc fptr' ptr') = ListenerQWindowVisibilityGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQWindowVisibility where nullptr = ListenerQWindowVisibility HoppyF.nullPtr withCppPtr (ListenerQWindowVisibility ptr') f' = f' ptr' withCppPtr (ListenerQWindowVisibilityGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQWindowVisibility ptr') = ptr' toPtr (ListenerQWindowVisibilityGc _ ptr') = ptr' touchCppPtr (ListenerQWindowVisibility _) = HoppyP.return () touchCppPtr (ListenerQWindowVisibilityGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQWindowVisibility where delete (ListenerQWindowVisibility ptr') = delete'ListenerQWindowVisibility $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQWindowVisibilityConst) delete (ListenerQWindowVisibilityGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQWindowVisibility", " object."] toGc this'@(ListenerQWindowVisibility ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQWindowVisibilityGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQWindowVisibility :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQWindowVisibilityGc {}) = HoppyP.return this' instance ListenerQWindowVisibilityConstPtr ListenerQWindowVisibility where toListenerQWindowVisibilityConst (ListenerQWindowVisibility ptr') = ListenerQWindowVisibilityConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQWindowVisibility -> HoppyF.Ptr ListenerQWindowVisibilityConst) ptr' toListenerQWindowVisibilityConst (ListenerQWindowVisibilityGc fptr' ptr') = ListenerQWindowVisibilityConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQWindowVisibility -> HoppyF.Ptr ListenerQWindowVisibilityConst) ptr' instance ListenerQWindowVisibilityPtr ListenerQWindowVisibility where toListenerQWindowVisibility = HoppyP.id instance M94.QObjectConstPtr ListenerQWindowVisibility where toQObjectConst (ListenerQWindowVisibility ptr') = M94.QObjectConst $ castListenerQWindowVisibilityToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQWindowVisibility -> HoppyF.Ptr ListenerQWindowVisibilityConst) ptr' toQObjectConst (ListenerQWindowVisibilityGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQWindowVisibilityToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQWindowVisibility -> HoppyF.Ptr ListenerQWindowVisibilityConst) ptr' instance M94.QObjectPtr ListenerQWindowVisibility where toQObject (ListenerQWindowVisibility ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQWindowVisibilityToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQWindowVisibility -> HoppyF.Ptr ListenerQWindowVisibilityConst) ptr' toQObject (ListenerQWindowVisibilityGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQWindowVisibilityToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQWindowVisibility -> HoppyF.Ptr ListenerQWindowVisibilityConst) ptr' listenerQWindowVisibility_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M342.QWindowVisibility -> HoppyP.IO ()) -> (HoppyP.IO ListenerQWindowVisibility) listenerQWindowVisibility_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQWindowVisibilityVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQWindowVisibility (listenerQWindowVisibility_new' arg'1' arg'2' arg'3') class ListenerQWindowVisibilitySuper a where downToListenerQWindowVisibility :: a -> ListenerQWindowVisibility instance ListenerQWindowVisibilitySuper M94.QObject where downToListenerQWindowVisibility = castListenerQWindowVisibilityToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQWindowVisibilityConst $ castQObjectToListenerQWindowVisibility ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQWindowVisibilityConstGc fptr' $ castQObjectToListenerQWindowVisibility ptr' class ListenerQWindowVisibilitySuperConst a where downToListenerQWindowVisibilityConst :: a -> ListenerQWindowVisibilityConst instance ListenerQWindowVisibilitySuperConst M94.QObjectConst where downToListenerQWindowVisibilityConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQWindowVisibilityConst $ castQObjectToListenerQWindowVisibility ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQWindowVisibilityConstGc fptr' $ castQObjectToListenerQWindowVisibility ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQWindowVisibility)) ListenerQWindowVisibility where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQWindowVisibility)) ListenerQWindowVisibility where decode = HoppyP.fmap ListenerQWindowVisibility . HoppyF.peek class ListenerQlonglongValue a where withListenerQlonglongPtr :: a -> (ListenerQlonglongConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQlonglongConstPtr a => ListenerQlonglongValue a where withListenerQlonglongPtr = HoppyP.flip ($) . toListenerQlonglongConst class (M94.QObjectConstPtr this) => ListenerQlonglongConstPtr this where toListenerQlonglongConst :: this -> ListenerQlonglongConst listenerQlonglong_isValid :: (ListenerQlonglongValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQlonglong_isValid arg'1 = withListenerQlonglongPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQlonglong_isValid' arg'1') class (ListenerQlonglongConstPtr this, M94.QObjectPtr this) => ListenerQlonglongPtr this where toListenerQlonglong :: this -> ListenerQlonglong data ListenerQlonglongConst = ListenerQlonglongConst (HoppyF.Ptr ListenerQlonglongConst) | ListenerQlonglongConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQlonglongConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQlonglongConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQlonglongConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQlonglongToConst :: ListenerQlonglong -> ListenerQlonglongConst castListenerQlonglongToConst (ListenerQlonglong ptr') = ListenerQlonglongConst $ HoppyF.castPtr ptr' castListenerQlonglongToConst (ListenerQlonglongGc fptr' ptr') = ListenerQlonglongConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQlonglongConst where nullptr = ListenerQlonglongConst HoppyF.nullPtr withCppPtr (ListenerQlonglongConst ptr') f' = f' ptr' withCppPtr (ListenerQlonglongConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQlonglongConst ptr') = ptr' toPtr (ListenerQlonglongConstGc _ ptr') = ptr' touchCppPtr (ListenerQlonglongConst _) = HoppyP.return () touchCppPtr (ListenerQlonglongConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQlonglongConst where delete (ListenerQlonglongConst ptr') = delete'ListenerQlonglong ptr' delete (ListenerQlonglongConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQlonglongConst", " object."] toGc this'@(ListenerQlonglongConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQlonglongConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQlonglong :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQlonglongConstGc {}) = HoppyP.return this' instance ListenerQlonglongConstPtr ListenerQlonglongConst where toListenerQlonglongConst = HoppyP.id instance M94.QObjectConstPtr ListenerQlonglongConst where toQObjectConst (ListenerQlonglongConst ptr') = M94.QObjectConst $ castListenerQlonglongToQObject ptr' toQObjectConst (ListenerQlonglongConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQlonglongToQObject ptr' data ListenerQlonglong = ListenerQlonglong (HoppyF.Ptr ListenerQlonglong) | ListenerQlonglongGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQlonglong) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQlonglong where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQlonglong where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQlonglongToNonconst :: ListenerQlonglongConst -> ListenerQlonglong castListenerQlonglongToNonconst (ListenerQlonglongConst ptr') = ListenerQlonglong $ HoppyF.castPtr ptr' castListenerQlonglongToNonconst (ListenerQlonglongConstGc fptr' ptr') = ListenerQlonglongGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQlonglong where nullptr = ListenerQlonglong HoppyF.nullPtr withCppPtr (ListenerQlonglong ptr') f' = f' ptr' withCppPtr (ListenerQlonglongGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQlonglong ptr') = ptr' toPtr (ListenerQlonglongGc _ ptr') = ptr' touchCppPtr (ListenerQlonglong _) = HoppyP.return () touchCppPtr (ListenerQlonglongGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQlonglong where delete (ListenerQlonglong ptr') = delete'ListenerQlonglong $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQlonglongConst) delete (ListenerQlonglongGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQlonglong", " object."] toGc this'@(ListenerQlonglong ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQlonglongGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQlonglong :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQlonglongGc {}) = HoppyP.return this' instance ListenerQlonglongConstPtr ListenerQlonglong where toListenerQlonglongConst (ListenerQlonglong ptr') = ListenerQlonglongConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQlonglong -> HoppyF.Ptr ListenerQlonglongConst) ptr' toListenerQlonglongConst (ListenerQlonglongGc fptr' ptr') = ListenerQlonglongConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQlonglong -> HoppyF.Ptr ListenerQlonglongConst) ptr' instance ListenerQlonglongPtr ListenerQlonglong where toListenerQlonglong = HoppyP.id instance M94.QObjectConstPtr ListenerQlonglong where toQObjectConst (ListenerQlonglong ptr') = M94.QObjectConst $ castListenerQlonglongToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQlonglong -> HoppyF.Ptr ListenerQlonglongConst) ptr' toQObjectConst (ListenerQlonglongGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQlonglongToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQlonglong -> HoppyF.Ptr ListenerQlonglongConst) ptr' instance M94.QObjectPtr ListenerQlonglong where toQObject (ListenerQlonglong ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQlonglongToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQlonglong -> HoppyF.Ptr ListenerQlonglongConst) ptr' toQObject (ListenerQlonglongGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQlonglongToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQlonglong -> HoppyF.Ptr ListenerQlonglongConst) ptr' listenerQlonglong_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyDI.Int64 -> HoppyP.IO ()) -> (HoppyP.IO ListenerQlonglong) listenerQlonglong_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQlonglongVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQlonglong (listenerQlonglong_new' arg'1' arg'2' arg'3') class ListenerQlonglongSuper a where downToListenerQlonglong :: a -> ListenerQlonglong instance ListenerQlonglongSuper M94.QObject where downToListenerQlonglong = castListenerQlonglongToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQlonglongConst $ castQObjectToListenerQlonglong ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQlonglongConstGc fptr' $ castQObjectToListenerQlonglong ptr' class ListenerQlonglongSuperConst a where downToListenerQlonglongConst :: a -> ListenerQlonglongConst instance ListenerQlonglongSuperConst M94.QObjectConst where downToListenerQlonglongConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQlonglongConst $ castQObjectToListenerQlonglong ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQlonglongConstGc fptr' $ castQObjectToListenerQlonglong ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQlonglong)) ListenerQlonglong where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQlonglong)) ListenerQlonglong where decode = HoppyP.fmap ListenerQlonglong . HoppyF.peek class ListenerQrealValue a where withListenerQrealPtr :: a -> (ListenerQrealConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerQrealConstPtr a => ListenerQrealValue a where withListenerQrealPtr = HoppyP.flip ($) . toListenerQrealConst class (M94.QObjectConstPtr this) => ListenerQrealConstPtr this where toListenerQrealConst :: this -> ListenerQrealConst listenerQreal_isValid :: (ListenerQrealValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerQreal_isValid arg'1 = withListenerQrealPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerQreal_isValid' arg'1') class (ListenerQrealConstPtr this, M94.QObjectPtr this) => ListenerQrealPtr this where toListenerQreal :: this -> ListenerQreal data ListenerQrealConst = ListenerQrealConst (HoppyF.Ptr ListenerQrealConst) | ListenerQrealConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQrealConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQrealConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQrealConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQrealToConst :: ListenerQreal -> ListenerQrealConst castListenerQrealToConst (ListenerQreal ptr') = ListenerQrealConst $ HoppyF.castPtr ptr' castListenerQrealToConst (ListenerQrealGc fptr' ptr') = ListenerQrealConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQrealConst where nullptr = ListenerQrealConst HoppyF.nullPtr withCppPtr (ListenerQrealConst ptr') f' = f' ptr' withCppPtr (ListenerQrealConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQrealConst ptr') = ptr' toPtr (ListenerQrealConstGc _ ptr') = ptr' touchCppPtr (ListenerQrealConst _) = HoppyP.return () touchCppPtr (ListenerQrealConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQrealConst where delete (ListenerQrealConst ptr') = delete'ListenerQreal ptr' delete (ListenerQrealConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQrealConst", " object."] toGc this'@(ListenerQrealConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQrealConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQreal :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQrealConstGc {}) = HoppyP.return this' instance ListenerQrealConstPtr ListenerQrealConst where toListenerQrealConst = HoppyP.id instance M94.QObjectConstPtr ListenerQrealConst where toQObjectConst (ListenerQrealConst ptr') = M94.QObjectConst $ castListenerQrealToQObject ptr' toQObjectConst (ListenerQrealConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQrealToQObject ptr' data ListenerQreal = ListenerQreal (HoppyF.Ptr ListenerQreal) | ListenerQrealGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerQreal) deriving (HoppyP.Show) instance HoppyP.Eq ListenerQreal where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerQreal where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerQrealToNonconst :: ListenerQrealConst -> ListenerQreal castListenerQrealToNonconst (ListenerQrealConst ptr') = ListenerQreal $ HoppyF.castPtr ptr' castListenerQrealToNonconst (ListenerQrealConstGc fptr' ptr') = ListenerQrealGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerQreal where nullptr = ListenerQreal HoppyF.nullPtr withCppPtr (ListenerQreal ptr') f' = f' ptr' withCppPtr (ListenerQrealGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerQreal ptr') = ptr' toPtr (ListenerQrealGc _ ptr') = ptr' touchCppPtr (ListenerQreal _) = HoppyP.return () touchCppPtr (ListenerQrealGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerQreal where delete (ListenerQreal ptr') = delete'ListenerQreal $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerQrealConst) delete (ListenerQrealGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerQreal", " object."] toGc this'@(ListenerQreal ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerQrealGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerQreal :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerQrealGc {}) = HoppyP.return this' instance ListenerQrealConstPtr ListenerQreal where toListenerQrealConst (ListenerQreal ptr') = ListenerQrealConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQreal -> HoppyF.Ptr ListenerQrealConst) ptr' toListenerQrealConst (ListenerQrealGc fptr' ptr') = ListenerQrealConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQreal -> HoppyF.Ptr ListenerQrealConst) ptr' instance ListenerQrealPtr ListenerQreal where toListenerQreal = HoppyP.id instance M94.QObjectConstPtr ListenerQreal where toQObjectConst (ListenerQreal ptr') = M94.QObjectConst $ castListenerQrealToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQreal -> HoppyF.Ptr ListenerQrealConst) ptr' toQObjectConst (ListenerQrealGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerQrealToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQreal -> HoppyF.Ptr ListenerQrealConst) ptr' instance M94.QObjectPtr ListenerQreal where toQObject (ListenerQreal ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQrealToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQreal -> HoppyF.Ptr ListenerQrealConst) ptr' toQObject (ListenerQrealGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerQrealToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerQreal -> HoppyF.Ptr ListenerQrealConst) ptr' listenerQreal_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Double -> HoppyP.IO ()) -> (HoppyP.IO ListenerQreal) listenerQreal_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackQrealVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerQreal (listenerQreal_new' arg'1' arg'2' arg'3') class ListenerQrealSuper a where downToListenerQreal :: a -> ListenerQreal instance ListenerQrealSuper M94.QObject where downToListenerQreal = castListenerQrealToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerQrealConst $ castQObjectToListenerQreal ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQrealConstGc fptr' $ castQObjectToListenerQreal ptr' class ListenerQrealSuperConst a where downToListenerQrealConst :: a -> ListenerQrealConst instance ListenerQrealSuperConst M94.QObjectConst where downToListenerQrealConst = cast' where cast' (M94.QObjectConst ptr') = ListenerQrealConst $ castQObjectToListenerQreal ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerQrealConstGc fptr' $ castQObjectToListenerQreal ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerQreal)) ListenerQreal where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerQreal)) ListenerQreal where decode = HoppyP.fmap ListenerQreal . HoppyF.peek class ListenerRefConstQIconValue a where withListenerRefConstQIconPtr :: a -> (ListenerRefConstQIconConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerRefConstQIconConstPtr a => ListenerRefConstQIconValue a where withListenerRefConstQIconPtr = HoppyP.flip ($) . toListenerRefConstQIconConst class (M94.QObjectConstPtr this) => ListenerRefConstQIconConstPtr this where toListenerRefConstQIconConst :: this -> ListenerRefConstQIconConst listenerRefConstQIcon_isValid :: (ListenerRefConstQIconValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerRefConstQIcon_isValid arg'1 = withListenerRefConstQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerRefConstQIcon_isValid' arg'1') class (ListenerRefConstQIconConstPtr this, M94.QObjectPtr this) => ListenerRefConstQIconPtr this where toListenerRefConstQIcon :: this -> ListenerRefConstQIcon data ListenerRefConstQIconConst = ListenerRefConstQIconConst (HoppyF.Ptr ListenerRefConstQIconConst) | ListenerRefConstQIconConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQIconConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQIconConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQIconConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQIconToConst :: ListenerRefConstQIcon -> ListenerRefConstQIconConst castListenerRefConstQIconToConst (ListenerRefConstQIcon ptr') = ListenerRefConstQIconConst $ HoppyF.castPtr ptr' castListenerRefConstQIconToConst (ListenerRefConstQIconGc fptr' ptr') = ListenerRefConstQIconConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQIconConst where nullptr = ListenerRefConstQIconConst HoppyF.nullPtr withCppPtr (ListenerRefConstQIconConst ptr') f' = f' ptr' withCppPtr (ListenerRefConstQIconConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQIconConst ptr') = ptr' toPtr (ListenerRefConstQIconConstGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQIconConst _) = HoppyP.return () touchCppPtr (ListenerRefConstQIconConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQIconConst where delete (ListenerRefConstQIconConst ptr') = delete'ListenerRefConstQIcon ptr' delete (ListenerRefConstQIconConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQIconConst", " object."] toGc this'@(ListenerRefConstQIconConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQIconConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQIcon :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQIconConstGc {}) = HoppyP.return this' instance ListenerRefConstQIconConstPtr ListenerRefConstQIconConst where toListenerRefConstQIconConst = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQIconConst where toQObjectConst (ListenerRefConstQIconConst ptr') = M94.QObjectConst $ castListenerRefConstQIconToQObject ptr' toQObjectConst (ListenerRefConstQIconConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQIconToQObject ptr' data ListenerRefConstQIcon = ListenerRefConstQIcon (HoppyF.Ptr ListenerRefConstQIcon) | ListenerRefConstQIconGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQIcon) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQIcon where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQIcon where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQIconToNonconst :: ListenerRefConstQIconConst -> ListenerRefConstQIcon castListenerRefConstQIconToNonconst (ListenerRefConstQIconConst ptr') = ListenerRefConstQIcon $ HoppyF.castPtr ptr' castListenerRefConstQIconToNonconst (ListenerRefConstQIconConstGc fptr' ptr') = ListenerRefConstQIconGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQIcon where nullptr = ListenerRefConstQIcon HoppyF.nullPtr withCppPtr (ListenerRefConstQIcon ptr') f' = f' ptr' withCppPtr (ListenerRefConstQIconGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQIcon ptr') = ptr' toPtr (ListenerRefConstQIconGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQIcon _) = HoppyP.return () touchCppPtr (ListenerRefConstQIconGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQIcon where delete (ListenerRefConstQIcon ptr') = delete'ListenerRefConstQIcon $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerRefConstQIconConst) delete (ListenerRefConstQIconGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQIcon", " object."] toGc this'@(ListenerRefConstQIcon ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQIconGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQIcon :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQIconGc {}) = HoppyP.return this' instance ListenerRefConstQIconConstPtr ListenerRefConstQIcon where toListenerRefConstQIconConst (ListenerRefConstQIcon ptr') = ListenerRefConstQIconConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQIcon -> HoppyF.Ptr ListenerRefConstQIconConst) ptr' toListenerRefConstQIconConst (ListenerRefConstQIconGc fptr' ptr') = ListenerRefConstQIconConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQIcon -> HoppyF.Ptr ListenerRefConstQIconConst) ptr' instance ListenerRefConstQIconPtr ListenerRefConstQIcon where toListenerRefConstQIcon = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQIcon where toQObjectConst (ListenerRefConstQIcon ptr') = M94.QObjectConst $ castListenerRefConstQIconToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQIcon -> HoppyF.Ptr ListenerRefConstQIconConst) ptr' toQObjectConst (ListenerRefConstQIconGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQIconToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQIcon -> HoppyF.Ptr ListenerRefConstQIconConst) ptr' instance M94.QObjectPtr ListenerRefConstQIcon where toQObject (ListenerRefConstQIcon ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQIconToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQIcon -> HoppyF.Ptr ListenerRefConstQIconConst) ptr' toQObject (ListenerRefConstQIconGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQIconToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQIcon -> HoppyF.Ptr ListenerRefConstQIconConst) ptr' listenerRefConstQIcon_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M288.QIconConst -> HoppyP.IO ()) -> (HoppyP.IO ListenerRefConstQIcon) listenerRefConstQIcon_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackRefConstQIconVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerRefConstQIcon (listenerRefConstQIcon_new' arg'1' arg'2' arg'3') class ListenerRefConstQIconSuper a where downToListenerRefConstQIcon :: a -> ListenerRefConstQIcon instance ListenerRefConstQIconSuper M94.QObject where downToListenerRefConstQIcon = castListenerRefConstQIconToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerRefConstQIconConst $ castQObjectToListenerRefConstQIcon ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQIconConstGc fptr' $ castQObjectToListenerRefConstQIcon ptr' class ListenerRefConstQIconSuperConst a where downToListenerRefConstQIconConst :: a -> ListenerRefConstQIconConst instance ListenerRefConstQIconSuperConst M94.QObjectConst where downToListenerRefConstQIconConst = cast' where cast' (M94.QObjectConst ptr') = ListenerRefConstQIconConst $ castQObjectToListenerRefConstQIcon ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQIconConstGc fptr' $ castQObjectToListenerRefConstQIcon ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQIcon)) ListenerRefConstQIcon where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQIcon)) ListenerRefConstQIcon where decode = HoppyP.fmap ListenerRefConstQIcon . HoppyF.peek class ListenerRefConstQItemSelectionRefConstQItemSelectionValue a where withListenerRefConstQItemSelectionRefConstQItemSelectionPtr :: a -> (ListenerRefConstQItemSelectionRefConstQItemSelectionConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerRefConstQItemSelectionRefConstQItemSelectionConstPtr a => ListenerRefConstQItemSelectionRefConstQItemSelectionValue a where withListenerRefConstQItemSelectionRefConstQItemSelectionPtr = HoppyP.flip ($) . toListenerRefConstQItemSelectionRefConstQItemSelectionConst class (M94.QObjectConstPtr this) => ListenerRefConstQItemSelectionRefConstQItemSelectionConstPtr this where toListenerRefConstQItemSelectionRefConstQItemSelectionConst :: this -> ListenerRefConstQItemSelectionRefConstQItemSelectionConst listenerRefConstQItemSelectionRefConstQItemSelection_isValid :: (ListenerRefConstQItemSelectionRefConstQItemSelectionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerRefConstQItemSelectionRefConstQItemSelection_isValid arg'1 = withListenerRefConstQItemSelectionRefConstQItemSelectionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerRefConstQItemSelectionRefConstQItemSelection_isValid' arg'1') class (ListenerRefConstQItemSelectionRefConstQItemSelectionConstPtr this, M94.QObjectPtr this) => ListenerRefConstQItemSelectionRefConstQItemSelectionPtr this where toListenerRefConstQItemSelectionRefConstQItemSelection :: this -> ListenerRefConstQItemSelectionRefConstQItemSelection data ListenerRefConstQItemSelectionRefConstQItemSelectionConst = ListenerRefConstQItemSelectionRefConstQItemSelectionConst (HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) | ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQItemSelectionRefConstQItemSelectionConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQItemSelectionRefConstQItemSelectionConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQItemSelectionRefConstQItemSelectionToConst :: ListenerRefConstQItemSelectionRefConstQItemSelection -> ListenerRefConstQItemSelectionRefConstQItemSelectionConst castListenerRefConstQItemSelectionRefConstQItemSelectionToConst (ListenerRefConstQItemSelectionRefConstQItemSelection ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionConst $ HoppyF.castPtr ptr' castListenerRefConstQItemSelectionRefConstQItemSelectionToConst (ListenerRefConstQItemSelectionRefConstQItemSelectionGc fptr' ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQItemSelectionRefConstQItemSelectionConst where nullptr = ListenerRefConstQItemSelectionRefConstQItemSelectionConst HoppyF.nullPtr withCppPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionConst ptr') f' = f' ptr' withCppPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionConst ptr') = ptr' toPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionConst _) = HoppyP.return () touchCppPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQItemSelectionRefConstQItemSelectionConst where delete (ListenerRefConstQItemSelectionRefConstQItemSelectionConst ptr') = delete'ListenerRefConstQItemSelectionRefConstQItemSelection ptr' delete (ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQItemSelectionRefConstQItemSelectionConst", " object."] toGc this'@(ListenerRefConstQItemSelectionRefConstQItemSelectionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQItemSelectionRefConstQItemSelection :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc {}) = HoppyP.return this' instance ListenerRefConstQItemSelectionRefConstQItemSelectionConstPtr ListenerRefConstQItemSelectionRefConstQItemSelectionConst where toListenerRefConstQItemSelectionRefConstQItemSelectionConst = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQItemSelectionRefConstQItemSelectionConst where toQObjectConst (ListenerRefConstQItemSelectionRefConstQItemSelectionConst ptr') = M94.QObjectConst $ castListenerRefConstQItemSelectionRefConstQItemSelectionToQObject ptr' toQObjectConst (ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQItemSelectionRefConstQItemSelectionToQObject ptr' data ListenerRefConstQItemSelectionRefConstQItemSelection = ListenerRefConstQItemSelectionRefConstQItemSelection (HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection) | ListenerRefConstQItemSelectionRefConstQItemSelectionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQItemSelectionRefConstQItemSelection where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQItemSelectionRefConstQItemSelection where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQItemSelectionRefConstQItemSelectionToNonconst :: ListenerRefConstQItemSelectionRefConstQItemSelectionConst -> ListenerRefConstQItemSelectionRefConstQItemSelection castListenerRefConstQItemSelectionRefConstQItemSelectionToNonconst (ListenerRefConstQItemSelectionRefConstQItemSelectionConst ptr') = ListenerRefConstQItemSelectionRefConstQItemSelection $ HoppyF.castPtr ptr' castListenerRefConstQItemSelectionRefConstQItemSelectionToNonconst (ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc fptr' ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQItemSelectionRefConstQItemSelection where nullptr = ListenerRefConstQItemSelectionRefConstQItemSelection HoppyF.nullPtr withCppPtr (ListenerRefConstQItemSelectionRefConstQItemSelection ptr') f' = f' ptr' withCppPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQItemSelectionRefConstQItemSelection ptr') = ptr' toPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQItemSelectionRefConstQItemSelection _) = HoppyP.return () touchCppPtr (ListenerRefConstQItemSelectionRefConstQItemSelectionGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQItemSelectionRefConstQItemSelection where delete (ListenerRefConstQItemSelectionRefConstQItemSelection ptr') = delete'ListenerRefConstQItemSelectionRefConstQItemSelection $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) delete (ListenerRefConstQItemSelectionRefConstQItemSelectionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQItemSelectionRefConstQItemSelection", " object."] toGc this'@(ListenerRefConstQItemSelectionRefConstQItemSelection ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQItemSelectionRefConstQItemSelectionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQItemSelectionRefConstQItemSelection :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQItemSelectionRefConstQItemSelectionGc {}) = HoppyP.return this' instance ListenerRefConstQItemSelectionRefConstQItemSelectionConstPtr ListenerRefConstQItemSelectionRefConstQItemSelection where toListenerRefConstQItemSelectionRefConstQItemSelectionConst (ListenerRefConstQItemSelectionRefConstQItemSelection ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection -> HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) ptr' toListenerRefConstQItemSelectionRefConstQItemSelectionConst (ListenerRefConstQItemSelectionRefConstQItemSelectionGc fptr' ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection -> HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) ptr' instance ListenerRefConstQItemSelectionRefConstQItemSelectionPtr ListenerRefConstQItemSelectionRefConstQItemSelection where toListenerRefConstQItemSelectionRefConstQItemSelection = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQItemSelectionRefConstQItemSelection where toQObjectConst (ListenerRefConstQItemSelectionRefConstQItemSelection ptr') = M94.QObjectConst $ castListenerRefConstQItemSelectionRefConstQItemSelectionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection -> HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) ptr' toQObjectConst (ListenerRefConstQItemSelectionRefConstQItemSelectionGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQItemSelectionRefConstQItemSelectionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection -> HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) ptr' instance M94.QObjectPtr ListenerRefConstQItemSelectionRefConstQItemSelection where toQObject (ListenerRefConstQItemSelectionRefConstQItemSelection ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQItemSelectionRefConstQItemSelectionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection -> HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) ptr' toQObject (ListenerRefConstQItemSelectionRefConstQItemSelectionGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQItemSelectionRefConstQItemSelectionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection -> HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelectionConst) ptr' listenerRefConstQItemSelectionRefConstQItemSelection_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M50.QItemSelectionConst -> M50.QItemSelectionConst -> HoppyP.IO ()) -> (HoppyP.IO ListenerRefConstQItemSelectionRefConstQItemSelection) listenerRefConstQItemSelectionRefConstQItemSelection_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackRefConstQItemSelectionRefConstQItemSelectionVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerRefConstQItemSelectionRefConstQItemSelection (listenerRefConstQItemSelectionRefConstQItemSelection_new' arg'1' arg'2' arg'3') class ListenerRefConstQItemSelectionRefConstQItemSelectionSuper a where downToListenerRefConstQItemSelectionRefConstQItemSelection :: a -> ListenerRefConstQItemSelectionRefConstQItemSelection instance ListenerRefConstQItemSelectionRefConstQItemSelectionSuper M94.QObject where downToListenerRefConstQItemSelectionRefConstQItemSelection = castListenerRefConstQItemSelectionRefConstQItemSelectionToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionConst $ castQObjectToListenerRefConstQItemSelectionRefConstQItemSelection ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc fptr' $ castQObjectToListenerRefConstQItemSelectionRefConstQItemSelection ptr' class ListenerRefConstQItemSelectionRefConstQItemSelectionSuperConst a where downToListenerRefConstQItemSelectionRefConstQItemSelectionConst :: a -> ListenerRefConstQItemSelectionRefConstQItemSelectionConst instance ListenerRefConstQItemSelectionRefConstQItemSelectionSuperConst M94.QObjectConst where downToListenerRefConstQItemSelectionRefConstQItemSelectionConst = cast' where cast' (M94.QObjectConst ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionConst $ castQObjectToListenerRefConstQItemSelectionRefConstQItemSelection ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQItemSelectionRefConstQItemSelectionConstGc fptr' $ castQObjectToListenerRefConstQItemSelectionRefConstQItemSelection ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection)) ListenerRefConstQItemSelectionRefConstQItemSelection where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQItemSelectionRefConstQItemSelection)) ListenerRefConstQItemSelectionRefConstQItemSelection where decode = HoppyP.fmap ListenerRefConstQItemSelectionRefConstQItemSelection . HoppyF.peek class ListenerRefConstQListQModelIndexValue a where withListenerRefConstQListQModelIndexPtr :: a -> (ListenerRefConstQListQModelIndexConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerRefConstQListQModelIndexConstPtr a => ListenerRefConstQListQModelIndexValue a where withListenerRefConstQListQModelIndexPtr = HoppyP.flip ($) . toListenerRefConstQListQModelIndexConst class (M94.QObjectConstPtr this) => ListenerRefConstQListQModelIndexConstPtr this where toListenerRefConstQListQModelIndexConst :: this -> ListenerRefConstQListQModelIndexConst listenerRefConstQListQModelIndex_isValid :: (ListenerRefConstQListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerRefConstQListQModelIndex_isValid arg'1 = withListenerRefConstQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerRefConstQListQModelIndex_isValid' arg'1') class (ListenerRefConstQListQModelIndexConstPtr this, M94.QObjectPtr this) => ListenerRefConstQListQModelIndexPtr this where toListenerRefConstQListQModelIndex :: this -> ListenerRefConstQListQModelIndex data ListenerRefConstQListQModelIndexConst = ListenerRefConstQListQModelIndexConst (HoppyF.Ptr ListenerRefConstQListQModelIndexConst) | ListenerRefConstQListQModelIndexConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQListQModelIndexConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQListQModelIndexConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQListQModelIndexConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQListQModelIndexToConst :: ListenerRefConstQListQModelIndex -> ListenerRefConstQListQModelIndexConst castListenerRefConstQListQModelIndexToConst (ListenerRefConstQListQModelIndex ptr') = ListenerRefConstQListQModelIndexConst $ HoppyF.castPtr ptr' castListenerRefConstQListQModelIndexToConst (ListenerRefConstQListQModelIndexGc fptr' ptr') = ListenerRefConstQListQModelIndexConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQListQModelIndexConst where nullptr = ListenerRefConstQListQModelIndexConst HoppyF.nullPtr withCppPtr (ListenerRefConstQListQModelIndexConst ptr') f' = f' ptr' withCppPtr (ListenerRefConstQListQModelIndexConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQListQModelIndexConst ptr') = ptr' toPtr (ListenerRefConstQListQModelIndexConstGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQListQModelIndexConst _) = HoppyP.return () touchCppPtr (ListenerRefConstQListQModelIndexConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQListQModelIndexConst where delete (ListenerRefConstQListQModelIndexConst ptr') = delete'ListenerRefConstQListQModelIndex ptr' delete (ListenerRefConstQListQModelIndexConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQListQModelIndexConst", " object."] toGc this'@(ListenerRefConstQListQModelIndexConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQListQModelIndexConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQListQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQListQModelIndexConstGc {}) = HoppyP.return this' instance ListenerRefConstQListQModelIndexConstPtr ListenerRefConstQListQModelIndexConst where toListenerRefConstQListQModelIndexConst = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQListQModelIndexConst where toQObjectConst (ListenerRefConstQListQModelIndexConst ptr') = M94.QObjectConst $ castListenerRefConstQListQModelIndexToQObject ptr' toQObjectConst (ListenerRefConstQListQModelIndexConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQListQModelIndexToQObject ptr' data ListenerRefConstQListQModelIndex = ListenerRefConstQListQModelIndex (HoppyF.Ptr ListenerRefConstQListQModelIndex) | ListenerRefConstQListQModelIndexGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQListQModelIndex) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQListQModelIndex where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQListQModelIndex where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQListQModelIndexToNonconst :: ListenerRefConstQListQModelIndexConst -> ListenerRefConstQListQModelIndex castListenerRefConstQListQModelIndexToNonconst (ListenerRefConstQListQModelIndexConst ptr') = ListenerRefConstQListQModelIndex $ HoppyF.castPtr ptr' castListenerRefConstQListQModelIndexToNonconst (ListenerRefConstQListQModelIndexConstGc fptr' ptr') = ListenerRefConstQListQModelIndexGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQListQModelIndex where nullptr = ListenerRefConstQListQModelIndex HoppyF.nullPtr withCppPtr (ListenerRefConstQListQModelIndex ptr') f' = f' ptr' withCppPtr (ListenerRefConstQListQModelIndexGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQListQModelIndex ptr') = ptr' toPtr (ListenerRefConstQListQModelIndexGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQListQModelIndex _) = HoppyP.return () touchCppPtr (ListenerRefConstQListQModelIndexGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQListQModelIndex where delete (ListenerRefConstQListQModelIndex ptr') = delete'ListenerRefConstQListQModelIndex $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerRefConstQListQModelIndexConst) delete (ListenerRefConstQListQModelIndexGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQListQModelIndex", " object."] toGc this'@(ListenerRefConstQListQModelIndex ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQListQModelIndexGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQListQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQListQModelIndexGc {}) = HoppyP.return this' instance ListenerRefConstQListQModelIndexConstPtr ListenerRefConstQListQModelIndex where toListenerRefConstQListQModelIndexConst (ListenerRefConstQListQModelIndex ptr') = ListenerRefConstQListQModelIndexConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQListQModelIndex -> HoppyF.Ptr ListenerRefConstQListQModelIndexConst) ptr' toListenerRefConstQListQModelIndexConst (ListenerRefConstQListQModelIndexGc fptr' ptr') = ListenerRefConstQListQModelIndexConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQListQModelIndex -> HoppyF.Ptr ListenerRefConstQListQModelIndexConst) ptr' instance ListenerRefConstQListQModelIndexPtr ListenerRefConstQListQModelIndex where toListenerRefConstQListQModelIndex = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQListQModelIndex where toQObjectConst (ListenerRefConstQListQModelIndex ptr') = M94.QObjectConst $ castListenerRefConstQListQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQListQModelIndex -> HoppyF.Ptr ListenerRefConstQListQModelIndexConst) ptr' toQObjectConst (ListenerRefConstQListQModelIndexGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQListQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQListQModelIndex -> HoppyF.Ptr ListenerRefConstQListQModelIndexConst) ptr' instance M94.QObjectPtr ListenerRefConstQListQModelIndex where toQObject (ListenerRefConstQListQModelIndex ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQListQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQListQModelIndex -> HoppyF.Ptr ListenerRefConstQListQModelIndexConst) ptr' toQObject (ListenerRefConstQListQModelIndexGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQListQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQListQModelIndex -> HoppyF.Ptr ListenerRefConstQListQModelIndexConst) ptr' listenerRefConstQListQModelIndex_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M200.QListQModelIndexConst -> HoppyP.IO ()) -> (HoppyP.IO ListenerRefConstQListQModelIndex) listenerRefConstQListQModelIndex_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackRefConstQListQModelIndexVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerRefConstQListQModelIndex (listenerRefConstQListQModelIndex_new' arg'1' arg'2' arg'3') class ListenerRefConstQListQModelIndexSuper a where downToListenerRefConstQListQModelIndex :: a -> ListenerRefConstQListQModelIndex instance ListenerRefConstQListQModelIndexSuper M94.QObject where downToListenerRefConstQListQModelIndex = castListenerRefConstQListQModelIndexToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerRefConstQListQModelIndexConst $ castQObjectToListenerRefConstQListQModelIndex ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQListQModelIndexConstGc fptr' $ castQObjectToListenerRefConstQListQModelIndex ptr' class ListenerRefConstQListQModelIndexSuperConst a where downToListenerRefConstQListQModelIndexConst :: a -> ListenerRefConstQListQModelIndexConst instance ListenerRefConstQListQModelIndexSuperConst M94.QObjectConst where downToListenerRefConstQListQModelIndexConst = cast' where cast' (M94.QObjectConst ptr') = ListenerRefConstQListQModelIndexConst $ castQObjectToListenerRefConstQListQModelIndex ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQListQModelIndexConstGc fptr' $ castQObjectToListenerRefConstQListQModelIndex ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQListQModelIndex)) ListenerRefConstQListQModelIndex where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQListQModelIndex)) ListenerRefConstQListQModelIndex where decode = HoppyP.fmap ListenerRefConstQListQModelIndex . HoppyF.peek class ListenerRefConstQModelIndexValue a where withListenerRefConstQModelIndexPtr :: a -> (ListenerRefConstQModelIndexConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerRefConstQModelIndexConstPtr a => ListenerRefConstQModelIndexValue a where withListenerRefConstQModelIndexPtr = HoppyP.flip ($) . toListenerRefConstQModelIndexConst class (M94.QObjectConstPtr this) => ListenerRefConstQModelIndexConstPtr this where toListenerRefConstQModelIndexConst :: this -> ListenerRefConstQModelIndexConst listenerRefConstQModelIndex_isValid :: (ListenerRefConstQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerRefConstQModelIndex_isValid arg'1 = withListenerRefConstQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerRefConstQModelIndex_isValid' arg'1') class (ListenerRefConstQModelIndexConstPtr this, M94.QObjectPtr this) => ListenerRefConstQModelIndexPtr this where toListenerRefConstQModelIndex :: this -> ListenerRefConstQModelIndex data ListenerRefConstQModelIndexConst = ListenerRefConstQModelIndexConst (HoppyF.Ptr ListenerRefConstQModelIndexConst) | ListenerRefConstQModelIndexConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQModelIndexConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQModelIndexConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQModelIndexConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQModelIndexToConst :: ListenerRefConstQModelIndex -> ListenerRefConstQModelIndexConst castListenerRefConstQModelIndexToConst (ListenerRefConstQModelIndex ptr') = ListenerRefConstQModelIndexConst $ HoppyF.castPtr ptr' castListenerRefConstQModelIndexToConst (ListenerRefConstQModelIndexGc fptr' ptr') = ListenerRefConstQModelIndexConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQModelIndexConst where nullptr = ListenerRefConstQModelIndexConst HoppyF.nullPtr withCppPtr (ListenerRefConstQModelIndexConst ptr') f' = f' ptr' withCppPtr (ListenerRefConstQModelIndexConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQModelIndexConst ptr') = ptr' toPtr (ListenerRefConstQModelIndexConstGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQModelIndexConst _) = HoppyP.return () touchCppPtr (ListenerRefConstQModelIndexConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQModelIndexConst where delete (ListenerRefConstQModelIndexConst ptr') = delete'ListenerRefConstQModelIndex ptr' delete (ListenerRefConstQModelIndexConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQModelIndexConst", " object."] toGc this'@(ListenerRefConstQModelIndexConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQModelIndexConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQModelIndexConstGc {}) = HoppyP.return this' instance ListenerRefConstQModelIndexConstPtr ListenerRefConstQModelIndexConst where toListenerRefConstQModelIndexConst = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQModelIndexConst where toQObjectConst (ListenerRefConstQModelIndexConst ptr') = M94.QObjectConst $ castListenerRefConstQModelIndexToQObject ptr' toQObjectConst (ListenerRefConstQModelIndexConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQModelIndexToQObject ptr' data ListenerRefConstQModelIndex = ListenerRefConstQModelIndex (HoppyF.Ptr ListenerRefConstQModelIndex) | ListenerRefConstQModelIndexGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQModelIndex) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQModelIndex where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQModelIndex where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQModelIndexToNonconst :: ListenerRefConstQModelIndexConst -> ListenerRefConstQModelIndex castListenerRefConstQModelIndexToNonconst (ListenerRefConstQModelIndexConst ptr') = ListenerRefConstQModelIndex $ HoppyF.castPtr ptr' castListenerRefConstQModelIndexToNonconst (ListenerRefConstQModelIndexConstGc fptr' ptr') = ListenerRefConstQModelIndexGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQModelIndex where nullptr = ListenerRefConstQModelIndex HoppyF.nullPtr withCppPtr (ListenerRefConstQModelIndex ptr') f' = f' ptr' withCppPtr (ListenerRefConstQModelIndexGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQModelIndex ptr') = ptr' toPtr (ListenerRefConstQModelIndexGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQModelIndex _) = HoppyP.return () touchCppPtr (ListenerRefConstQModelIndexGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQModelIndex where delete (ListenerRefConstQModelIndex ptr') = delete'ListenerRefConstQModelIndex $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerRefConstQModelIndexConst) delete (ListenerRefConstQModelIndexGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQModelIndex", " object."] toGc this'@(ListenerRefConstQModelIndex ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQModelIndexGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQModelIndexGc {}) = HoppyP.return this' instance ListenerRefConstQModelIndexConstPtr ListenerRefConstQModelIndex where toListenerRefConstQModelIndexConst (ListenerRefConstQModelIndex ptr') = ListenerRefConstQModelIndexConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQModelIndex -> HoppyF.Ptr ListenerRefConstQModelIndexConst) ptr' toListenerRefConstQModelIndexConst (ListenerRefConstQModelIndexGc fptr' ptr') = ListenerRefConstQModelIndexConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQModelIndex -> HoppyF.Ptr ListenerRefConstQModelIndexConst) ptr' instance ListenerRefConstQModelIndexPtr ListenerRefConstQModelIndex where toListenerRefConstQModelIndex = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQModelIndex where toQObjectConst (ListenerRefConstQModelIndex ptr') = M94.QObjectConst $ castListenerRefConstQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQModelIndex -> HoppyF.Ptr ListenerRefConstQModelIndexConst) ptr' toQObjectConst (ListenerRefConstQModelIndexGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQModelIndex -> HoppyF.Ptr ListenerRefConstQModelIndexConst) ptr' instance M94.QObjectPtr ListenerRefConstQModelIndex where toQObject (ListenerRefConstQModelIndex ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQModelIndex -> HoppyF.Ptr ListenerRefConstQModelIndexConst) ptr' toQObject (ListenerRefConstQModelIndexGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQModelIndexToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQModelIndex -> HoppyF.Ptr ListenerRefConstQModelIndexConst) ptr' listenerRefConstQModelIndex_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M92.QModelIndexConst -> HoppyP.IO ()) -> (HoppyP.IO ListenerRefConstQModelIndex) listenerRefConstQModelIndex_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackRefConstQModelIndexVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerRefConstQModelIndex (listenerRefConstQModelIndex_new' arg'1' arg'2' arg'3') class ListenerRefConstQModelIndexSuper a where downToListenerRefConstQModelIndex :: a -> ListenerRefConstQModelIndex instance ListenerRefConstQModelIndexSuper M94.QObject where downToListenerRefConstQModelIndex = castListenerRefConstQModelIndexToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerRefConstQModelIndexConst $ castQObjectToListenerRefConstQModelIndex ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQModelIndexConstGc fptr' $ castQObjectToListenerRefConstQModelIndex ptr' class ListenerRefConstQModelIndexSuperConst a where downToListenerRefConstQModelIndexConst :: a -> ListenerRefConstQModelIndexConst instance ListenerRefConstQModelIndexSuperConst M94.QObjectConst where downToListenerRefConstQModelIndexConst = cast' where cast' (M94.QObjectConst ptr') = ListenerRefConstQModelIndexConst $ castQObjectToListenerRefConstQModelIndex ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQModelIndexConstGc fptr' $ castQObjectToListenerRefConstQModelIndex ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQModelIndex)) ListenerRefConstQModelIndex where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQModelIndex)) ListenerRefConstQModelIndex where decode = HoppyP.fmap ListenerRefConstQModelIndex . HoppyF.peek class ListenerRefConstQVariantValue a where withListenerRefConstQVariantPtr :: a -> (ListenerRefConstQVariantConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerRefConstQVariantConstPtr a => ListenerRefConstQVariantValue a where withListenerRefConstQVariantPtr = HoppyP.flip ($) . toListenerRefConstQVariantConst class (M94.QObjectConstPtr this) => ListenerRefConstQVariantConstPtr this where toListenerRefConstQVariantConst :: this -> ListenerRefConstQVariantConst listenerRefConstQVariant_isValid :: (ListenerRefConstQVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerRefConstQVariant_isValid arg'1 = withListenerRefConstQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerRefConstQVariant_isValid' arg'1') class (ListenerRefConstQVariantConstPtr this, M94.QObjectPtr this) => ListenerRefConstQVariantPtr this where toListenerRefConstQVariant :: this -> ListenerRefConstQVariant data ListenerRefConstQVariantConst = ListenerRefConstQVariantConst (HoppyF.Ptr ListenerRefConstQVariantConst) | ListenerRefConstQVariantConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQVariantConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQVariantConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQVariantConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQVariantToConst :: ListenerRefConstQVariant -> ListenerRefConstQVariantConst castListenerRefConstQVariantToConst (ListenerRefConstQVariant ptr') = ListenerRefConstQVariantConst $ HoppyF.castPtr ptr' castListenerRefConstQVariantToConst (ListenerRefConstQVariantGc fptr' ptr') = ListenerRefConstQVariantConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQVariantConst where nullptr = ListenerRefConstQVariantConst HoppyF.nullPtr withCppPtr (ListenerRefConstQVariantConst ptr') f' = f' ptr' withCppPtr (ListenerRefConstQVariantConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQVariantConst ptr') = ptr' toPtr (ListenerRefConstQVariantConstGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQVariantConst _) = HoppyP.return () touchCppPtr (ListenerRefConstQVariantConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQVariantConst where delete (ListenerRefConstQVariantConst ptr') = delete'ListenerRefConstQVariant ptr' delete (ListenerRefConstQVariantConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQVariantConst", " object."] toGc this'@(ListenerRefConstQVariantConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQVariantConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQVariant :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQVariantConstGc {}) = HoppyP.return this' instance ListenerRefConstQVariantConstPtr ListenerRefConstQVariantConst where toListenerRefConstQVariantConst = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQVariantConst where toQObjectConst (ListenerRefConstQVariantConst ptr') = M94.QObjectConst $ castListenerRefConstQVariantToQObject ptr' toQObjectConst (ListenerRefConstQVariantConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQVariantToQObject ptr' data ListenerRefConstQVariant = ListenerRefConstQVariant (HoppyF.Ptr ListenerRefConstQVariant) | ListenerRefConstQVariantGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerRefConstQVariant) deriving (HoppyP.Show) instance HoppyP.Eq ListenerRefConstQVariant where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerRefConstQVariant where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerRefConstQVariantToNonconst :: ListenerRefConstQVariantConst -> ListenerRefConstQVariant castListenerRefConstQVariantToNonconst (ListenerRefConstQVariantConst ptr') = ListenerRefConstQVariant $ HoppyF.castPtr ptr' castListenerRefConstQVariantToNonconst (ListenerRefConstQVariantConstGc fptr' ptr') = ListenerRefConstQVariantGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerRefConstQVariant where nullptr = ListenerRefConstQVariant HoppyF.nullPtr withCppPtr (ListenerRefConstQVariant ptr') f' = f' ptr' withCppPtr (ListenerRefConstQVariantGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerRefConstQVariant ptr') = ptr' toPtr (ListenerRefConstQVariantGc _ ptr') = ptr' touchCppPtr (ListenerRefConstQVariant _) = HoppyP.return () touchCppPtr (ListenerRefConstQVariantGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerRefConstQVariant where delete (ListenerRefConstQVariant ptr') = delete'ListenerRefConstQVariant $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerRefConstQVariantConst) delete (ListenerRefConstQVariantGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerRefConstQVariant", " object."] toGc this'@(ListenerRefConstQVariant ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerRefConstQVariantGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerRefConstQVariant :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerRefConstQVariantGc {}) = HoppyP.return this' instance ListenerRefConstQVariantConstPtr ListenerRefConstQVariant where toListenerRefConstQVariantConst (ListenerRefConstQVariant ptr') = ListenerRefConstQVariantConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQVariant -> HoppyF.Ptr ListenerRefConstQVariantConst) ptr' toListenerRefConstQVariantConst (ListenerRefConstQVariantGc fptr' ptr') = ListenerRefConstQVariantConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQVariant -> HoppyF.Ptr ListenerRefConstQVariantConst) ptr' instance ListenerRefConstQVariantPtr ListenerRefConstQVariant where toListenerRefConstQVariant = HoppyP.id instance M94.QObjectConstPtr ListenerRefConstQVariant where toQObjectConst (ListenerRefConstQVariant ptr') = M94.QObjectConst $ castListenerRefConstQVariantToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQVariant -> HoppyF.Ptr ListenerRefConstQVariantConst) ptr' toQObjectConst (ListenerRefConstQVariantGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerRefConstQVariantToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQVariant -> HoppyF.Ptr ListenerRefConstQVariantConst) ptr' instance M94.QObjectPtr ListenerRefConstQVariant where toQObject (ListenerRefConstQVariant ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQVariantToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQVariant -> HoppyF.Ptr ListenerRefConstQVariantConst) ptr' toQObject (ListenerRefConstQVariantGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerRefConstQVariantToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerRefConstQVariant -> HoppyF.Ptr ListenerRefConstQVariantConst) ptr' listenerRefConstQVariant_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M168.QVariantConst -> HoppyP.IO ()) -> (HoppyP.IO ListenerRefConstQVariant) listenerRefConstQVariant_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackRefConstQVariantVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerRefConstQVariant (listenerRefConstQVariant_new' arg'1' arg'2' arg'3') class ListenerRefConstQVariantSuper a where downToListenerRefConstQVariant :: a -> ListenerRefConstQVariant instance ListenerRefConstQVariantSuper M94.QObject where downToListenerRefConstQVariant = castListenerRefConstQVariantToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerRefConstQVariantConst $ castQObjectToListenerRefConstQVariant ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQVariantConstGc fptr' $ castQObjectToListenerRefConstQVariant ptr' class ListenerRefConstQVariantSuperConst a where downToListenerRefConstQVariantConst :: a -> ListenerRefConstQVariantConst instance ListenerRefConstQVariantSuperConst M94.QObjectConst where downToListenerRefConstQVariantConst = cast' where cast' (M94.QObjectConst ptr') = ListenerRefConstQVariantConst $ castQObjectToListenerRefConstQVariant ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerRefConstQVariantConstGc fptr' $ castQObjectToListenerRefConstQVariant ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQVariant)) ListenerRefConstQVariant where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerRefConstQVariant)) ListenerRefConstQVariant where decode = HoppyP.fmap ListenerRefConstQVariant . HoppyF.peek class ListenerScreenOrientationValue a where withListenerScreenOrientationPtr :: a -> (ListenerScreenOrientationConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerScreenOrientationConstPtr a => ListenerScreenOrientationValue a where withListenerScreenOrientationPtr = HoppyP.flip ($) . toListenerScreenOrientationConst class (M94.QObjectConstPtr this) => ListenerScreenOrientationConstPtr this where toListenerScreenOrientationConst :: this -> ListenerScreenOrientationConst listenerScreenOrientation_isValid :: (ListenerScreenOrientationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerScreenOrientation_isValid arg'1 = withListenerScreenOrientationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerScreenOrientation_isValid' arg'1') class (ListenerScreenOrientationConstPtr this, M94.QObjectPtr this) => ListenerScreenOrientationPtr this where toListenerScreenOrientation :: this -> ListenerScreenOrientation data ListenerScreenOrientationConst = ListenerScreenOrientationConst (HoppyF.Ptr ListenerScreenOrientationConst) | ListenerScreenOrientationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerScreenOrientationConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerScreenOrientationConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerScreenOrientationConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerScreenOrientationToConst :: ListenerScreenOrientation -> ListenerScreenOrientationConst castListenerScreenOrientationToConst (ListenerScreenOrientation ptr') = ListenerScreenOrientationConst $ HoppyF.castPtr ptr' castListenerScreenOrientationToConst (ListenerScreenOrientationGc fptr' ptr') = ListenerScreenOrientationConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerScreenOrientationConst where nullptr = ListenerScreenOrientationConst HoppyF.nullPtr withCppPtr (ListenerScreenOrientationConst ptr') f' = f' ptr' withCppPtr (ListenerScreenOrientationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerScreenOrientationConst ptr') = ptr' toPtr (ListenerScreenOrientationConstGc _ ptr') = ptr' touchCppPtr (ListenerScreenOrientationConst _) = HoppyP.return () touchCppPtr (ListenerScreenOrientationConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerScreenOrientationConst where delete (ListenerScreenOrientationConst ptr') = delete'ListenerScreenOrientation ptr' delete (ListenerScreenOrientationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerScreenOrientationConst", " object."] toGc this'@(ListenerScreenOrientationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerScreenOrientationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerScreenOrientation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerScreenOrientationConstGc {}) = HoppyP.return this' instance ListenerScreenOrientationConstPtr ListenerScreenOrientationConst where toListenerScreenOrientationConst = HoppyP.id instance M94.QObjectConstPtr ListenerScreenOrientationConst where toQObjectConst (ListenerScreenOrientationConst ptr') = M94.QObjectConst $ castListenerScreenOrientationToQObject ptr' toQObjectConst (ListenerScreenOrientationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerScreenOrientationToQObject ptr' data ListenerScreenOrientation = ListenerScreenOrientation (HoppyF.Ptr ListenerScreenOrientation) | ListenerScreenOrientationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerScreenOrientation) deriving (HoppyP.Show) instance HoppyP.Eq ListenerScreenOrientation where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerScreenOrientation where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerScreenOrientationToNonconst :: ListenerScreenOrientationConst -> ListenerScreenOrientation castListenerScreenOrientationToNonconst (ListenerScreenOrientationConst ptr') = ListenerScreenOrientation $ HoppyF.castPtr ptr' castListenerScreenOrientationToNonconst (ListenerScreenOrientationConstGc fptr' ptr') = ListenerScreenOrientationGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerScreenOrientation where nullptr = ListenerScreenOrientation HoppyF.nullPtr withCppPtr (ListenerScreenOrientation ptr') f' = f' ptr' withCppPtr (ListenerScreenOrientationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerScreenOrientation ptr') = ptr' toPtr (ListenerScreenOrientationGc _ ptr') = ptr' touchCppPtr (ListenerScreenOrientation _) = HoppyP.return () touchCppPtr (ListenerScreenOrientationGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerScreenOrientation where delete (ListenerScreenOrientation ptr') = delete'ListenerScreenOrientation $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerScreenOrientationConst) delete (ListenerScreenOrientationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerScreenOrientation", " object."] toGc this'@(ListenerScreenOrientation ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerScreenOrientationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerScreenOrientation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerScreenOrientationGc {}) = HoppyP.return this' instance ListenerScreenOrientationConstPtr ListenerScreenOrientation where toListenerScreenOrientationConst (ListenerScreenOrientation ptr') = ListenerScreenOrientationConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerScreenOrientation -> HoppyF.Ptr ListenerScreenOrientationConst) ptr' toListenerScreenOrientationConst (ListenerScreenOrientationGc fptr' ptr') = ListenerScreenOrientationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerScreenOrientation -> HoppyF.Ptr ListenerScreenOrientationConst) ptr' instance ListenerScreenOrientationPtr ListenerScreenOrientation where toListenerScreenOrientation = HoppyP.id instance M94.QObjectConstPtr ListenerScreenOrientation where toQObjectConst (ListenerScreenOrientation ptr') = M94.QObjectConst $ castListenerScreenOrientationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerScreenOrientation -> HoppyF.Ptr ListenerScreenOrientationConst) ptr' toQObjectConst (ListenerScreenOrientationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerScreenOrientationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerScreenOrientation -> HoppyF.Ptr ListenerScreenOrientationConst) ptr' instance M94.QObjectPtr ListenerScreenOrientation where toQObject (ListenerScreenOrientation ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerScreenOrientationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerScreenOrientation -> HoppyF.Ptr ListenerScreenOrientationConst) ptr' toQObject (ListenerScreenOrientationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerScreenOrientationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerScreenOrientation -> HoppyF.Ptr ListenerScreenOrientationConst) ptr' listenerScreenOrientation_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtScreenOrientation -> HoppyP.IO ()) -> (HoppyP.IO ListenerScreenOrientation) listenerScreenOrientation_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackScreenOrientationVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerScreenOrientation (listenerScreenOrientation_new' arg'1' arg'2' arg'3') class ListenerScreenOrientationSuper a where downToListenerScreenOrientation :: a -> ListenerScreenOrientation instance ListenerScreenOrientationSuper M94.QObject where downToListenerScreenOrientation = castListenerScreenOrientationToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerScreenOrientationConst $ castQObjectToListenerScreenOrientation ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerScreenOrientationConstGc fptr' $ castQObjectToListenerScreenOrientation ptr' class ListenerScreenOrientationSuperConst a where downToListenerScreenOrientationConst :: a -> ListenerScreenOrientationConst instance ListenerScreenOrientationSuperConst M94.QObjectConst where downToListenerScreenOrientationConst = cast' where cast' (M94.QObjectConst ptr') = ListenerScreenOrientationConst $ castQObjectToListenerScreenOrientation ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerScreenOrientationConstGc fptr' $ castQObjectToListenerScreenOrientation ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerScreenOrientation)) ListenerScreenOrientation where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerScreenOrientation)) ListenerScreenOrientation where decode = HoppyP.fmap ListenerScreenOrientation . HoppyF.peek class ListenerStateStateValue a where withListenerStateStatePtr :: a -> (ListenerStateStateConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerStateStateConstPtr a => ListenerStateStateValue a where withListenerStateStatePtr = HoppyP.flip ($) . toListenerStateStateConst class (M94.QObjectConstPtr this) => ListenerStateStateConstPtr this where toListenerStateStateConst :: this -> ListenerStateStateConst listenerStateState_isValid :: (ListenerStateStateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerStateState_isValid arg'1 = withListenerStateStatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerStateState_isValid' arg'1') class (ListenerStateStateConstPtr this, M94.QObjectPtr this) => ListenerStateStatePtr this where toListenerStateState :: this -> ListenerStateState data ListenerStateStateConst = ListenerStateStateConst (HoppyF.Ptr ListenerStateStateConst) | ListenerStateStateConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerStateStateConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerStateStateConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerStateStateConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerStateStateToConst :: ListenerStateState -> ListenerStateStateConst castListenerStateStateToConst (ListenerStateState ptr') = ListenerStateStateConst $ HoppyF.castPtr ptr' castListenerStateStateToConst (ListenerStateStateGc fptr' ptr') = ListenerStateStateConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerStateStateConst where nullptr = ListenerStateStateConst HoppyF.nullPtr withCppPtr (ListenerStateStateConst ptr') f' = f' ptr' withCppPtr (ListenerStateStateConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerStateStateConst ptr') = ptr' toPtr (ListenerStateStateConstGc _ ptr') = ptr' touchCppPtr (ListenerStateStateConst _) = HoppyP.return () touchCppPtr (ListenerStateStateConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerStateStateConst where delete (ListenerStateStateConst ptr') = delete'ListenerStateState ptr' delete (ListenerStateStateConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerStateStateConst", " object."] toGc this'@(ListenerStateStateConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerStateStateConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerStateState :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerStateStateConstGc {}) = HoppyP.return this' instance ListenerStateStateConstPtr ListenerStateStateConst where toListenerStateStateConst = HoppyP.id instance M94.QObjectConstPtr ListenerStateStateConst where toQObjectConst (ListenerStateStateConst ptr') = M94.QObjectConst $ castListenerStateStateToQObject ptr' toQObjectConst (ListenerStateStateConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerStateStateToQObject ptr' data ListenerStateState = ListenerStateState (HoppyF.Ptr ListenerStateState) | ListenerStateStateGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerStateState) deriving (HoppyP.Show) instance HoppyP.Eq ListenerStateState where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerStateState where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerStateStateToNonconst :: ListenerStateStateConst -> ListenerStateState castListenerStateStateToNonconst (ListenerStateStateConst ptr') = ListenerStateState $ HoppyF.castPtr ptr' castListenerStateStateToNonconst (ListenerStateStateConstGc fptr' ptr') = ListenerStateStateGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerStateState where nullptr = ListenerStateState HoppyF.nullPtr withCppPtr (ListenerStateState ptr') f' = f' ptr' withCppPtr (ListenerStateStateGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerStateState ptr') = ptr' toPtr (ListenerStateStateGc _ ptr') = ptr' touchCppPtr (ListenerStateState _) = HoppyP.return () touchCppPtr (ListenerStateStateGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerStateState where delete (ListenerStateState ptr') = delete'ListenerStateState $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerStateStateConst) delete (ListenerStateStateGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerStateState", " object."] toGc this'@(ListenerStateState ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerStateStateGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerStateState :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerStateStateGc {}) = HoppyP.return this' instance ListenerStateStateConstPtr ListenerStateState where toListenerStateStateConst (ListenerStateState ptr') = ListenerStateStateConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerStateState -> HoppyF.Ptr ListenerStateStateConst) ptr' toListenerStateStateConst (ListenerStateStateGc fptr' ptr') = ListenerStateStateConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerStateState -> HoppyF.Ptr ListenerStateStateConst) ptr' instance ListenerStateStatePtr ListenerStateState where toListenerStateState = HoppyP.id instance M94.QObjectConstPtr ListenerStateState where toQObjectConst (ListenerStateState ptr') = M94.QObjectConst $ castListenerStateStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerStateState -> HoppyF.Ptr ListenerStateStateConst) ptr' toQObjectConst (ListenerStateStateGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerStateStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerStateState -> HoppyF.Ptr ListenerStateStateConst) ptr' instance M94.QObjectPtr ListenerStateState where toQObject (ListenerStateState ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerStateStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerStateState -> HoppyF.Ptr ListenerStateStateConst) ptr' toQObject (ListenerStateStateGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerStateStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerStateState -> HoppyF.Ptr ListenerStateStateConst) ptr' listenerStateState_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M2.QAbstractAnimationState -> M2.QAbstractAnimationState -> HoppyP.IO ()) -> (HoppyP.IO ListenerStateState) listenerStateState_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackStateStateVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerStateState (listenerStateState_new' arg'1' arg'2' arg'3') class ListenerStateStateSuper a where downToListenerStateState :: a -> ListenerStateState instance ListenerStateStateSuper M94.QObject where downToListenerStateState = castListenerStateStateToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerStateStateConst $ castQObjectToListenerStateState ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerStateStateConstGc fptr' $ castQObjectToListenerStateState ptr' class ListenerStateStateSuperConst a where downToListenerStateStateConst :: a -> ListenerStateStateConst instance ListenerStateStateSuperConst M94.QObjectConst where downToListenerStateStateConst = cast' where cast' (M94.QObjectConst ptr') = ListenerStateStateConst $ castQObjectToListenerStateState ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerStateStateConstGc fptr' $ castQObjectToListenerStateState ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerStateState)) ListenerStateState where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerStateState)) ListenerStateState where decode = HoppyP.fmap ListenerStateState . HoppyF.peek class ListenerToolBarAreasValue a where withListenerToolBarAreasPtr :: a -> (ListenerToolBarAreasConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerToolBarAreasConstPtr a => ListenerToolBarAreasValue a where withListenerToolBarAreasPtr = HoppyP.flip ($) . toListenerToolBarAreasConst class (M94.QObjectConstPtr this) => ListenerToolBarAreasConstPtr this where toListenerToolBarAreasConst :: this -> ListenerToolBarAreasConst listenerToolBarAreas_isValid :: (ListenerToolBarAreasValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerToolBarAreas_isValid arg'1 = withListenerToolBarAreasPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerToolBarAreas_isValid' arg'1') class (ListenerToolBarAreasConstPtr this, M94.QObjectPtr this) => ListenerToolBarAreasPtr this where toListenerToolBarAreas :: this -> ListenerToolBarAreas data ListenerToolBarAreasConst = ListenerToolBarAreasConst (HoppyF.Ptr ListenerToolBarAreasConst) | ListenerToolBarAreasConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerToolBarAreasConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerToolBarAreasConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerToolBarAreasConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerToolBarAreasToConst :: ListenerToolBarAreas -> ListenerToolBarAreasConst castListenerToolBarAreasToConst (ListenerToolBarAreas ptr') = ListenerToolBarAreasConst $ HoppyF.castPtr ptr' castListenerToolBarAreasToConst (ListenerToolBarAreasGc fptr' ptr') = ListenerToolBarAreasConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerToolBarAreasConst where nullptr = ListenerToolBarAreasConst HoppyF.nullPtr withCppPtr (ListenerToolBarAreasConst ptr') f' = f' ptr' withCppPtr (ListenerToolBarAreasConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerToolBarAreasConst ptr') = ptr' toPtr (ListenerToolBarAreasConstGc _ ptr') = ptr' touchCppPtr (ListenerToolBarAreasConst _) = HoppyP.return () touchCppPtr (ListenerToolBarAreasConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerToolBarAreasConst where delete (ListenerToolBarAreasConst ptr') = delete'ListenerToolBarAreas ptr' delete (ListenerToolBarAreasConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerToolBarAreasConst", " object."] toGc this'@(ListenerToolBarAreasConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerToolBarAreasConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerToolBarAreas :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerToolBarAreasConstGc {}) = HoppyP.return this' instance ListenerToolBarAreasConstPtr ListenerToolBarAreasConst where toListenerToolBarAreasConst = HoppyP.id instance M94.QObjectConstPtr ListenerToolBarAreasConst where toQObjectConst (ListenerToolBarAreasConst ptr') = M94.QObjectConst $ castListenerToolBarAreasToQObject ptr' toQObjectConst (ListenerToolBarAreasConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerToolBarAreasToQObject ptr' data ListenerToolBarAreas = ListenerToolBarAreas (HoppyF.Ptr ListenerToolBarAreas) | ListenerToolBarAreasGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerToolBarAreas) deriving (HoppyP.Show) instance HoppyP.Eq ListenerToolBarAreas where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerToolBarAreas where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerToolBarAreasToNonconst :: ListenerToolBarAreasConst -> ListenerToolBarAreas castListenerToolBarAreasToNonconst (ListenerToolBarAreasConst ptr') = ListenerToolBarAreas $ HoppyF.castPtr ptr' castListenerToolBarAreasToNonconst (ListenerToolBarAreasConstGc fptr' ptr') = ListenerToolBarAreasGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerToolBarAreas where nullptr = ListenerToolBarAreas HoppyF.nullPtr withCppPtr (ListenerToolBarAreas ptr') f' = f' ptr' withCppPtr (ListenerToolBarAreasGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerToolBarAreas ptr') = ptr' toPtr (ListenerToolBarAreasGc _ ptr') = ptr' touchCppPtr (ListenerToolBarAreas _) = HoppyP.return () touchCppPtr (ListenerToolBarAreasGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerToolBarAreas where delete (ListenerToolBarAreas ptr') = delete'ListenerToolBarAreas $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerToolBarAreasConst) delete (ListenerToolBarAreasGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerToolBarAreas", " object."] toGc this'@(ListenerToolBarAreas ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerToolBarAreasGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerToolBarAreas :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerToolBarAreasGc {}) = HoppyP.return this' instance ListenerToolBarAreasConstPtr ListenerToolBarAreas where toListenerToolBarAreasConst (ListenerToolBarAreas ptr') = ListenerToolBarAreasConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolBarAreas -> HoppyF.Ptr ListenerToolBarAreasConst) ptr' toListenerToolBarAreasConst (ListenerToolBarAreasGc fptr' ptr') = ListenerToolBarAreasConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolBarAreas -> HoppyF.Ptr ListenerToolBarAreasConst) ptr' instance ListenerToolBarAreasPtr ListenerToolBarAreas where toListenerToolBarAreas = HoppyP.id instance M94.QObjectConstPtr ListenerToolBarAreas where toQObjectConst (ListenerToolBarAreas ptr') = M94.QObjectConst $ castListenerToolBarAreasToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolBarAreas -> HoppyF.Ptr ListenerToolBarAreasConst) ptr' toQObjectConst (ListenerToolBarAreasGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerToolBarAreasToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolBarAreas -> HoppyF.Ptr ListenerToolBarAreasConst) ptr' instance M94.QObjectPtr ListenerToolBarAreas where toQObject (ListenerToolBarAreas ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerToolBarAreasToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolBarAreas -> HoppyF.Ptr ListenerToolBarAreasConst) ptr' toQObject (ListenerToolBarAreasGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerToolBarAreasToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolBarAreas -> HoppyF.Ptr ListenerToolBarAreasConst) ptr' listenerToolBarAreas_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtToolBarAreas -> HoppyP.IO ()) -> (HoppyP.IO ListenerToolBarAreas) listenerToolBarAreas_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackToolBarAreasVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerToolBarAreas (listenerToolBarAreas_new' arg'1' arg'2' arg'3') class ListenerToolBarAreasSuper a where downToListenerToolBarAreas :: a -> ListenerToolBarAreas instance ListenerToolBarAreasSuper M94.QObject where downToListenerToolBarAreas = castListenerToolBarAreasToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerToolBarAreasConst $ castQObjectToListenerToolBarAreas ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerToolBarAreasConstGc fptr' $ castQObjectToListenerToolBarAreas ptr' class ListenerToolBarAreasSuperConst a where downToListenerToolBarAreasConst :: a -> ListenerToolBarAreasConst instance ListenerToolBarAreasSuperConst M94.QObjectConst where downToListenerToolBarAreasConst = cast' where cast' (M94.QObjectConst ptr') = ListenerToolBarAreasConst $ castQObjectToListenerToolBarAreas ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerToolBarAreasConstGc fptr' $ castQObjectToListenerToolBarAreas ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerToolBarAreas)) ListenerToolBarAreas where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerToolBarAreas)) ListenerToolBarAreas where decode = HoppyP.fmap ListenerToolBarAreas . HoppyF.peek class ListenerToolButtonStyleValue a where withListenerToolButtonStylePtr :: a -> (ListenerToolButtonStyleConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerToolButtonStyleConstPtr a => ListenerToolButtonStyleValue a where withListenerToolButtonStylePtr = HoppyP.flip ($) . toListenerToolButtonStyleConst class (M94.QObjectConstPtr this) => ListenerToolButtonStyleConstPtr this where toListenerToolButtonStyleConst :: this -> ListenerToolButtonStyleConst listenerToolButtonStyle_isValid :: (ListenerToolButtonStyleValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerToolButtonStyle_isValid arg'1 = withListenerToolButtonStylePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerToolButtonStyle_isValid' arg'1') class (ListenerToolButtonStyleConstPtr this, M94.QObjectPtr this) => ListenerToolButtonStylePtr this where toListenerToolButtonStyle :: this -> ListenerToolButtonStyle data ListenerToolButtonStyleConst = ListenerToolButtonStyleConst (HoppyF.Ptr ListenerToolButtonStyleConst) | ListenerToolButtonStyleConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerToolButtonStyleConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerToolButtonStyleConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerToolButtonStyleConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerToolButtonStyleToConst :: ListenerToolButtonStyle -> ListenerToolButtonStyleConst castListenerToolButtonStyleToConst (ListenerToolButtonStyle ptr') = ListenerToolButtonStyleConst $ HoppyF.castPtr ptr' castListenerToolButtonStyleToConst (ListenerToolButtonStyleGc fptr' ptr') = ListenerToolButtonStyleConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerToolButtonStyleConst where nullptr = ListenerToolButtonStyleConst HoppyF.nullPtr withCppPtr (ListenerToolButtonStyleConst ptr') f' = f' ptr' withCppPtr (ListenerToolButtonStyleConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerToolButtonStyleConst ptr') = ptr' toPtr (ListenerToolButtonStyleConstGc _ ptr') = ptr' touchCppPtr (ListenerToolButtonStyleConst _) = HoppyP.return () touchCppPtr (ListenerToolButtonStyleConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerToolButtonStyleConst where delete (ListenerToolButtonStyleConst ptr') = delete'ListenerToolButtonStyle ptr' delete (ListenerToolButtonStyleConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerToolButtonStyleConst", " object."] toGc this'@(ListenerToolButtonStyleConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerToolButtonStyleConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerToolButtonStyle :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerToolButtonStyleConstGc {}) = HoppyP.return this' instance ListenerToolButtonStyleConstPtr ListenerToolButtonStyleConst where toListenerToolButtonStyleConst = HoppyP.id instance M94.QObjectConstPtr ListenerToolButtonStyleConst where toQObjectConst (ListenerToolButtonStyleConst ptr') = M94.QObjectConst $ castListenerToolButtonStyleToQObject ptr' toQObjectConst (ListenerToolButtonStyleConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerToolButtonStyleToQObject ptr' data ListenerToolButtonStyle = ListenerToolButtonStyle (HoppyF.Ptr ListenerToolButtonStyle) | ListenerToolButtonStyleGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerToolButtonStyle) deriving (HoppyP.Show) instance HoppyP.Eq ListenerToolButtonStyle where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerToolButtonStyle where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerToolButtonStyleToNonconst :: ListenerToolButtonStyleConst -> ListenerToolButtonStyle castListenerToolButtonStyleToNonconst (ListenerToolButtonStyleConst ptr') = ListenerToolButtonStyle $ HoppyF.castPtr ptr' castListenerToolButtonStyleToNonconst (ListenerToolButtonStyleConstGc fptr' ptr') = ListenerToolButtonStyleGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerToolButtonStyle where nullptr = ListenerToolButtonStyle HoppyF.nullPtr withCppPtr (ListenerToolButtonStyle ptr') f' = f' ptr' withCppPtr (ListenerToolButtonStyleGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerToolButtonStyle ptr') = ptr' toPtr (ListenerToolButtonStyleGc _ ptr') = ptr' touchCppPtr (ListenerToolButtonStyle _) = HoppyP.return () touchCppPtr (ListenerToolButtonStyleGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerToolButtonStyle where delete (ListenerToolButtonStyle ptr') = delete'ListenerToolButtonStyle $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerToolButtonStyleConst) delete (ListenerToolButtonStyleGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerToolButtonStyle", " object."] toGc this'@(ListenerToolButtonStyle ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerToolButtonStyleGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerToolButtonStyle :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerToolButtonStyleGc {}) = HoppyP.return this' instance ListenerToolButtonStyleConstPtr ListenerToolButtonStyle where toListenerToolButtonStyleConst (ListenerToolButtonStyle ptr') = ListenerToolButtonStyleConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolButtonStyle -> HoppyF.Ptr ListenerToolButtonStyleConst) ptr' toListenerToolButtonStyleConst (ListenerToolButtonStyleGc fptr' ptr') = ListenerToolButtonStyleConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolButtonStyle -> HoppyF.Ptr ListenerToolButtonStyleConst) ptr' instance ListenerToolButtonStylePtr ListenerToolButtonStyle where toListenerToolButtonStyle = HoppyP.id instance M94.QObjectConstPtr ListenerToolButtonStyle where toQObjectConst (ListenerToolButtonStyle ptr') = M94.QObjectConst $ castListenerToolButtonStyleToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolButtonStyle -> HoppyF.Ptr ListenerToolButtonStyleConst) ptr' toQObjectConst (ListenerToolButtonStyleGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerToolButtonStyleToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolButtonStyle -> HoppyF.Ptr ListenerToolButtonStyleConst) ptr' instance M94.QObjectPtr ListenerToolButtonStyle where toQObject (ListenerToolButtonStyle ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerToolButtonStyleToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolButtonStyle -> HoppyF.Ptr ListenerToolButtonStyleConst) ptr' toQObject (ListenerToolButtonStyleGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerToolButtonStyleToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerToolButtonStyle -> HoppyF.Ptr ListenerToolButtonStyleConst) ptr' listenerToolButtonStyle_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtToolButtonStyle -> HoppyP.IO ()) -> (HoppyP.IO ListenerToolButtonStyle) listenerToolButtonStyle_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackToolButtonStyleVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerToolButtonStyle (listenerToolButtonStyle_new' arg'1' arg'2' arg'3') class ListenerToolButtonStyleSuper a where downToListenerToolButtonStyle :: a -> ListenerToolButtonStyle instance ListenerToolButtonStyleSuper M94.QObject where downToListenerToolButtonStyle = castListenerToolButtonStyleToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerToolButtonStyleConst $ castQObjectToListenerToolButtonStyle ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerToolButtonStyleConstGc fptr' $ castQObjectToListenerToolButtonStyle ptr' class ListenerToolButtonStyleSuperConst a where downToListenerToolButtonStyleConst :: a -> ListenerToolButtonStyleConst instance ListenerToolButtonStyleSuperConst M94.QObjectConst where downToListenerToolButtonStyleConst = cast' where cast' (M94.QObjectConst ptr') = ListenerToolButtonStyleConst $ castQObjectToListenerToolButtonStyle ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerToolButtonStyleConstGc fptr' $ castQObjectToListenerToolButtonStyle ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerToolButtonStyle)) ListenerToolButtonStyle where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerToolButtonStyle)) ListenerToolButtonStyle where decode = HoppyP.fmap ListenerToolButtonStyle . HoppyF.peek class ListenerWindowModalityValue a where withListenerWindowModalityPtr :: a -> (ListenerWindowModalityConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerWindowModalityConstPtr a => ListenerWindowModalityValue a where withListenerWindowModalityPtr = HoppyP.flip ($) . toListenerWindowModalityConst class (M94.QObjectConstPtr this) => ListenerWindowModalityConstPtr this where toListenerWindowModalityConst :: this -> ListenerWindowModalityConst listenerWindowModality_isValid :: (ListenerWindowModalityValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerWindowModality_isValid arg'1 = withListenerWindowModalityPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerWindowModality_isValid' arg'1') class (ListenerWindowModalityConstPtr this, M94.QObjectPtr this) => ListenerWindowModalityPtr this where toListenerWindowModality :: this -> ListenerWindowModality data ListenerWindowModalityConst = ListenerWindowModalityConst (HoppyF.Ptr ListenerWindowModalityConst) | ListenerWindowModalityConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerWindowModalityConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerWindowModalityConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerWindowModalityConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerWindowModalityToConst :: ListenerWindowModality -> ListenerWindowModalityConst castListenerWindowModalityToConst (ListenerWindowModality ptr') = ListenerWindowModalityConst $ HoppyF.castPtr ptr' castListenerWindowModalityToConst (ListenerWindowModalityGc fptr' ptr') = ListenerWindowModalityConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerWindowModalityConst where nullptr = ListenerWindowModalityConst HoppyF.nullPtr withCppPtr (ListenerWindowModalityConst ptr') f' = f' ptr' withCppPtr (ListenerWindowModalityConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerWindowModalityConst ptr') = ptr' toPtr (ListenerWindowModalityConstGc _ ptr') = ptr' touchCppPtr (ListenerWindowModalityConst _) = HoppyP.return () touchCppPtr (ListenerWindowModalityConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerWindowModalityConst where delete (ListenerWindowModalityConst ptr') = delete'ListenerWindowModality ptr' delete (ListenerWindowModalityConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerWindowModalityConst", " object."] toGc this'@(ListenerWindowModalityConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerWindowModalityConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerWindowModality :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerWindowModalityConstGc {}) = HoppyP.return this' instance ListenerWindowModalityConstPtr ListenerWindowModalityConst where toListenerWindowModalityConst = HoppyP.id instance M94.QObjectConstPtr ListenerWindowModalityConst where toQObjectConst (ListenerWindowModalityConst ptr') = M94.QObjectConst $ castListenerWindowModalityToQObject ptr' toQObjectConst (ListenerWindowModalityConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerWindowModalityToQObject ptr' data ListenerWindowModality = ListenerWindowModality (HoppyF.Ptr ListenerWindowModality) | ListenerWindowModalityGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerWindowModality) deriving (HoppyP.Show) instance HoppyP.Eq ListenerWindowModality where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerWindowModality where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerWindowModalityToNonconst :: ListenerWindowModalityConst -> ListenerWindowModality castListenerWindowModalityToNonconst (ListenerWindowModalityConst ptr') = ListenerWindowModality $ HoppyF.castPtr ptr' castListenerWindowModalityToNonconst (ListenerWindowModalityConstGc fptr' ptr') = ListenerWindowModalityGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerWindowModality where nullptr = ListenerWindowModality HoppyF.nullPtr withCppPtr (ListenerWindowModality ptr') f' = f' ptr' withCppPtr (ListenerWindowModalityGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerWindowModality ptr') = ptr' toPtr (ListenerWindowModalityGc _ ptr') = ptr' touchCppPtr (ListenerWindowModality _) = HoppyP.return () touchCppPtr (ListenerWindowModalityGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerWindowModality where delete (ListenerWindowModality ptr') = delete'ListenerWindowModality $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerWindowModalityConst) delete (ListenerWindowModalityGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerWindowModality", " object."] toGc this'@(ListenerWindowModality ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerWindowModalityGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerWindowModality :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerWindowModalityGc {}) = HoppyP.return this' instance ListenerWindowModalityConstPtr ListenerWindowModality where toListenerWindowModalityConst (ListenerWindowModality ptr') = ListenerWindowModalityConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowModality -> HoppyF.Ptr ListenerWindowModalityConst) ptr' toListenerWindowModalityConst (ListenerWindowModalityGc fptr' ptr') = ListenerWindowModalityConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowModality -> HoppyF.Ptr ListenerWindowModalityConst) ptr' instance ListenerWindowModalityPtr ListenerWindowModality where toListenerWindowModality = HoppyP.id instance M94.QObjectConstPtr ListenerWindowModality where toQObjectConst (ListenerWindowModality ptr') = M94.QObjectConst $ castListenerWindowModalityToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowModality -> HoppyF.Ptr ListenerWindowModalityConst) ptr' toQObjectConst (ListenerWindowModalityGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerWindowModalityToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowModality -> HoppyF.Ptr ListenerWindowModalityConst) ptr' instance M94.QObjectPtr ListenerWindowModality where toQObject (ListenerWindowModality ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerWindowModalityToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowModality -> HoppyF.Ptr ListenerWindowModalityConst) ptr' toQObject (ListenerWindowModalityGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerWindowModalityToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowModality -> HoppyF.Ptr ListenerWindowModalityConst) ptr' listenerWindowModality_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtWindowModality -> HoppyP.IO ()) -> (HoppyP.IO ListenerWindowModality) listenerWindowModality_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackWindowModalityVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerWindowModality (listenerWindowModality_new' arg'1' arg'2' arg'3') class ListenerWindowModalitySuper a where downToListenerWindowModality :: a -> ListenerWindowModality instance ListenerWindowModalitySuper M94.QObject where downToListenerWindowModality = castListenerWindowModalityToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerWindowModalityConst $ castQObjectToListenerWindowModality ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerWindowModalityConstGc fptr' $ castQObjectToListenerWindowModality ptr' class ListenerWindowModalitySuperConst a where downToListenerWindowModalityConst :: a -> ListenerWindowModalityConst instance ListenerWindowModalitySuperConst M94.QObjectConst where downToListenerWindowModalityConst = cast' where cast' (M94.QObjectConst ptr') = ListenerWindowModalityConst $ castQObjectToListenerWindowModality ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerWindowModalityConstGc fptr' $ castQObjectToListenerWindowModality ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerWindowModality)) ListenerWindowModality where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerWindowModality)) ListenerWindowModality where decode = HoppyP.fmap ListenerWindowModality . HoppyF.peek class ListenerWindowStateValue a where withListenerWindowStatePtr :: a -> (ListenerWindowStateConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerWindowStateConstPtr a => ListenerWindowStateValue a where withListenerWindowStatePtr = HoppyP.flip ($) . toListenerWindowStateConst class (M94.QObjectConstPtr this) => ListenerWindowStateConstPtr this where toListenerWindowStateConst :: this -> ListenerWindowStateConst listenerWindowState_isValid :: (ListenerWindowStateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerWindowState_isValid arg'1 = withListenerWindowStatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerWindowState_isValid' arg'1') class (ListenerWindowStateConstPtr this, M94.QObjectPtr this) => ListenerWindowStatePtr this where toListenerWindowState :: this -> ListenerWindowState data ListenerWindowStateConst = ListenerWindowStateConst (HoppyF.Ptr ListenerWindowStateConst) | ListenerWindowStateConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerWindowStateConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerWindowStateConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerWindowStateConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerWindowStateToConst :: ListenerWindowState -> ListenerWindowStateConst castListenerWindowStateToConst (ListenerWindowState ptr') = ListenerWindowStateConst $ HoppyF.castPtr ptr' castListenerWindowStateToConst (ListenerWindowStateGc fptr' ptr') = ListenerWindowStateConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerWindowStateConst where nullptr = ListenerWindowStateConst HoppyF.nullPtr withCppPtr (ListenerWindowStateConst ptr') f' = f' ptr' withCppPtr (ListenerWindowStateConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerWindowStateConst ptr') = ptr' toPtr (ListenerWindowStateConstGc _ ptr') = ptr' touchCppPtr (ListenerWindowStateConst _) = HoppyP.return () touchCppPtr (ListenerWindowStateConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerWindowStateConst where delete (ListenerWindowStateConst ptr') = delete'ListenerWindowState ptr' delete (ListenerWindowStateConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerWindowStateConst", " object."] toGc this'@(ListenerWindowStateConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerWindowStateConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerWindowState :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerWindowStateConstGc {}) = HoppyP.return this' instance ListenerWindowStateConstPtr ListenerWindowStateConst where toListenerWindowStateConst = HoppyP.id instance M94.QObjectConstPtr ListenerWindowStateConst where toQObjectConst (ListenerWindowStateConst ptr') = M94.QObjectConst $ castListenerWindowStateToQObject ptr' toQObjectConst (ListenerWindowStateConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerWindowStateToQObject ptr' data ListenerWindowState = ListenerWindowState (HoppyF.Ptr ListenerWindowState) | ListenerWindowStateGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerWindowState) deriving (HoppyP.Show) instance HoppyP.Eq ListenerWindowState where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerWindowState where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerWindowStateToNonconst :: ListenerWindowStateConst -> ListenerWindowState castListenerWindowStateToNonconst (ListenerWindowStateConst ptr') = ListenerWindowState $ HoppyF.castPtr ptr' castListenerWindowStateToNonconst (ListenerWindowStateConstGc fptr' ptr') = ListenerWindowStateGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerWindowState where nullptr = ListenerWindowState HoppyF.nullPtr withCppPtr (ListenerWindowState ptr') f' = f' ptr' withCppPtr (ListenerWindowStateGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerWindowState ptr') = ptr' toPtr (ListenerWindowStateGc _ ptr') = ptr' touchCppPtr (ListenerWindowState _) = HoppyP.return () touchCppPtr (ListenerWindowStateGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerWindowState where delete (ListenerWindowState ptr') = delete'ListenerWindowState $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerWindowStateConst) delete (ListenerWindowStateGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerWindowState", " object."] toGc this'@(ListenerWindowState ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerWindowStateGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerWindowState :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerWindowStateGc {}) = HoppyP.return this' instance ListenerWindowStateConstPtr ListenerWindowState where toListenerWindowStateConst (ListenerWindowState ptr') = ListenerWindowStateConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowState -> HoppyF.Ptr ListenerWindowStateConst) ptr' toListenerWindowStateConst (ListenerWindowStateGc fptr' ptr') = ListenerWindowStateConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowState -> HoppyF.Ptr ListenerWindowStateConst) ptr' instance ListenerWindowStatePtr ListenerWindowState where toListenerWindowState = HoppyP.id instance M94.QObjectConstPtr ListenerWindowState where toQObjectConst (ListenerWindowState ptr') = M94.QObjectConst $ castListenerWindowStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowState -> HoppyF.Ptr ListenerWindowStateConst) ptr' toQObjectConst (ListenerWindowStateGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerWindowStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowState -> HoppyF.Ptr ListenerWindowStateConst) ptr' instance M94.QObjectPtr ListenerWindowState where toQObject (ListenerWindowState ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerWindowStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowState -> HoppyF.Ptr ListenerWindowStateConst) ptr' toQObject (ListenerWindowStateGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerWindowStateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowState -> HoppyF.Ptr ListenerWindowStateConst) ptr' listenerWindowState_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtWindowState -> HoppyP.IO ()) -> (HoppyP.IO ListenerWindowState) listenerWindowState_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackWindowStateVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerWindowState (listenerWindowState_new' arg'1' arg'2' arg'3') class ListenerWindowStateSuper a where downToListenerWindowState :: a -> ListenerWindowState instance ListenerWindowStateSuper M94.QObject where downToListenerWindowState = castListenerWindowStateToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerWindowStateConst $ castQObjectToListenerWindowState ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerWindowStateConstGc fptr' $ castQObjectToListenerWindowState ptr' class ListenerWindowStateSuperConst a where downToListenerWindowStateConst :: a -> ListenerWindowStateConst instance ListenerWindowStateSuperConst M94.QObjectConst where downToListenerWindowStateConst = cast' where cast' (M94.QObjectConst ptr') = ListenerWindowStateConst $ castQObjectToListenerWindowState ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerWindowStateConstGc fptr' $ castQObjectToListenerWindowState ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerWindowState)) ListenerWindowState where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerWindowState)) ListenerWindowState where decode = HoppyP.fmap ListenerWindowState . HoppyF.peek class ListenerWindowStatesWindowStatesValue a where withListenerWindowStatesWindowStatesPtr :: a -> (ListenerWindowStatesWindowStatesConst -> HoppyP.IO b) -> HoppyP.IO b instance {-# OVERLAPPABLE #-} ListenerWindowStatesWindowStatesConstPtr a => ListenerWindowStatesWindowStatesValue a where withListenerWindowStatesWindowStatesPtr = HoppyP.flip ($) . toListenerWindowStatesWindowStatesConst class (M94.QObjectConstPtr this) => ListenerWindowStatesWindowStatesConstPtr this where toListenerWindowStatesWindowStatesConst :: this -> ListenerWindowStatesWindowStatesConst listenerWindowStatesWindowStates_isValid :: (ListenerWindowStatesWindowStatesValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool) listenerWindowStatesWindowStates_isValid arg'1 = withListenerWindowStatesWindowStatesPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' -> ( (HoppyP.return . (/= 0)) ) =<< (listenerWindowStatesWindowStates_isValid' arg'1') class (ListenerWindowStatesWindowStatesConstPtr this, M94.QObjectPtr this) => ListenerWindowStatesWindowStatesPtr this where toListenerWindowStatesWindowStates :: this -> ListenerWindowStatesWindowStates data ListenerWindowStatesWindowStatesConst = ListenerWindowStatesWindowStatesConst (HoppyF.Ptr ListenerWindowStatesWindowStatesConst) | ListenerWindowStatesWindowStatesConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerWindowStatesWindowStatesConst) deriving (HoppyP.Show) instance HoppyP.Eq ListenerWindowStatesWindowStatesConst where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerWindowStatesWindowStatesConst where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerWindowStatesWindowStatesToConst :: ListenerWindowStatesWindowStates -> ListenerWindowStatesWindowStatesConst castListenerWindowStatesWindowStatesToConst (ListenerWindowStatesWindowStates ptr') = ListenerWindowStatesWindowStatesConst $ HoppyF.castPtr ptr' castListenerWindowStatesWindowStatesToConst (ListenerWindowStatesWindowStatesGc fptr' ptr') = ListenerWindowStatesWindowStatesConstGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerWindowStatesWindowStatesConst where nullptr = ListenerWindowStatesWindowStatesConst HoppyF.nullPtr withCppPtr (ListenerWindowStatesWindowStatesConst ptr') f' = f' ptr' withCppPtr (ListenerWindowStatesWindowStatesConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerWindowStatesWindowStatesConst ptr') = ptr' toPtr (ListenerWindowStatesWindowStatesConstGc _ ptr') = ptr' touchCppPtr (ListenerWindowStatesWindowStatesConst _) = HoppyP.return () touchCppPtr (ListenerWindowStatesWindowStatesConstGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerWindowStatesWindowStatesConst where delete (ListenerWindowStatesWindowStatesConst ptr') = delete'ListenerWindowStatesWindowStates ptr' delete (ListenerWindowStatesWindowStatesConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerWindowStatesWindowStatesConst", " object."] toGc this'@(ListenerWindowStatesWindowStatesConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerWindowStatesWindowStatesConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerWindowStatesWindowStates :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerWindowStatesWindowStatesConstGc {}) = HoppyP.return this' instance ListenerWindowStatesWindowStatesConstPtr ListenerWindowStatesWindowStatesConst where toListenerWindowStatesWindowStatesConst = HoppyP.id instance M94.QObjectConstPtr ListenerWindowStatesWindowStatesConst where toQObjectConst (ListenerWindowStatesWindowStatesConst ptr') = M94.QObjectConst $ castListenerWindowStatesWindowStatesToQObject ptr' toQObjectConst (ListenerWindowStatesWindowStatesConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerWindowStatesWindowStatesToQObject ptr' data ListenerWindowStatesWindowStates = ListenerWindowStatesWindowStates (HoppyF.Ptr ListenerWindowStatesWindowStates) | ListenerWindowStatesWindowStatesGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ListenerWindowStatesWindowStates) deriving (HoppyP.Show) instance HoppyP.Eq ListenerWindowStatesWindowStates where x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y instance HoppyP.Ord ListenerWindowStatesWindowStates where compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y) castListenerWindowStatesWindowStatesToNonconst :: ListenerWindowStatesWindowStatesConst -> ListenerWindowStatesWindowStates castListenerWindowStatesWindowStatesToNonconst (ListenerWindowStatesWindowStatesConst ptr') = ListenerWindowStatesWindowStates $ HoppyF.castPtr ptr' castListenerWindowStatesWindowStatesToNonconst (ListenerWindowStatesWindowStatesConstGc fptr' ptr') = ListenerWindowStatesWindowStatesGc fptr' $ HoppyF.castPtr ptr' instance HoppyFHR.CppPtr ListenerWindowStatesWindowStates where nullptr = ListenerWindowStatesWindowStates HoppyF.nullPtr withCppPtr (ListenerWindowStatesWindowStates ptr') f' = f' ptr' withCppPtr (ListenerWindowStatesWindowStatesGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr' toPtr (ListenerWindowStatesWindowStates ptr') = ptr' toPtr (ListenerWindowStatesWindowStatesGc _ ptr') = ptr' touchCppPtr (ListenerWindowStatesWindowStates _) = HoppyP.return () touchCppPtr (ListenerWindowStatesWindowStatesGc fptr' _) = HoppyF.touchForeignPtr fptr' instance HoppyFHR.Deletable ListenerWindowStatesWindowStates where delete (ListenerWindowStatesWindowStates ptr') = delete'ListenerWindowStatesWindowStates $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ListenerWindowStatesWindowStatesConst) delete (ListenerWindowStatesWindowStatesGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ListenerWindowStatesWindowStates", " object."] toGc this'@(ListenerWindowStatesWindowStates ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ListenerWindowStatesWindowStatesGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'ListenerWindowStatesWindowStates :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ()) toGc this'@(ListenerWindowStatesWindowStatesGc {}) = HoppyP.return this' instance ListenerWindowStatesWindowStatesConstPtr ListenerWindowStatesWindowStates where toListenerWindowStatesWindowStatesConst (ListenerWindowStatesWindowStates ptr') = ListenerWindowStatesWindowStatesConst $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowStatesWindowStates -> HoppyF.Ptr ListenerWindowStatesWindowStatesConst) ptr' toListenerWindowStatesWindowStatesConst (ListenerWindowStatesWindowStatesGc fptr' ptr') = ListenerWindowStatesWindowStatesConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowStatesWindowStates -> HoppyF.Ptr ListenerWindowStatesWindowStatesConst) ptr' instance ListenerWindowStatesWindowStatesPtr ListenerWindowStatesWindowStates where toListenerWindowStatesWindowStates = HoppyP.id instance M94.QObjectConstPtr ListenerWindowStatesWindowStates where toQObjectConst (ListenerWindowStatesWindowStates ptr') = M94.QObjectConst $ castListenerWindowStatesWindowStatesToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowStatesWindowStates -> HoppyF.Ptr ListenerWindowStatesWindowStatesConst) ptr' toQObjectConst (ListenerWindowStatesWindowStatesGc fptr' ptr') = M94.QObjectConstGc fptr' $ castListenerWindowStatesWindowStatesToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowStatesWindowStates -> HoppyF.Ptr ListenerWindowStatesWindowStatesConst) ptr' instance M94.QObjectPtr ListenerWindowStatesWindowStates where toQObject (ListenerWindowStatesWindowStates ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerWindowStatesWindowStatesToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowStatesWindowStates -> HoppyF.Ptr ListenerWindowStatesWindowStatesConst) ptr' toQObject (ListenerWindowStatesWindowStatesGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castListenerWindowStatesWindowStatesToQObject $ (HoppyF.castPtr :: HoppyF.Ptr ListenerWindowStatesWindowStates -> HoppyF.Ptr ListenerWindowStatesWindowStatesConst) ptr' listenerWindowStatesWindowStates_new :: (M94.QObjectPtr arg'1, M1.StdStringValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtWindowStates -> M190.QtWindowStates -> HoppyP.IO ()) -> (HoppyP.IO ListenerWindowStatesWindowStates) listenerWindowStatesWindowStates_new arg'1 arg'2 arg'3 = HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' -> M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' -> ( M348.callbackWindowStatesWindowStatesVoid_new ) arg'3 >>= \arg'3' -> HoppyP.fmap ListenerWindowStatesWindowStates (listenerWindowStatesWindowStates_new' arg'1' arg'2' arg'3') class ListenerWindowStatesWindowStatesSuper a where downToListenerWindowStatesWindowStates :: a -> ListenerWindowStatesWindowStates instance ListenerWindowStatesWindowStatesSuper M94.QObject where downToListenerWindowStatesWindowStates = castListenerWindowStatesWindowStatesToNonconst . cast' . M94.castQObjectToConst where cast' (M94.QObjectConst ptr') = ListenerWindowStatesWindowStatesConst $ castQObjectToListenerWindowStatesWindowStates ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerWindowStatesWindowStatesConstGc fptr' $ castQObjectToListenerWindowStatesWindowStates ptr' class ListenerWindowStatesWindowStatesSuperConst a where downToListenerWindowStatesWindowStatesConst :: a -> ListenerWindowStatesWindowStatesConst instance ListenerWindowStatesWindowStatesSuperConst M94.QObjectConst where downToListenerWindowStatesWindowStatesConst = cast' where cast' (M94.QObjectConst ptr') = ListenerWindowStatesWindowStatesConst $ castQObjectToListenerWindowStatesWindowStates ptr' cast' (M94.QObjectConstGc fptr' ptr') = ListenerWindowStatesWindowStatesConstGc fptr' $ castQObjectToListenerWindowStatesWindowStates ptr' instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr ListenerWindowStatesWindowStates)) ListenerWindowStatesWindowStates where assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value' instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr ListenerWindowStatesWindowStates)) ListenerWindowStatesWindowStates where decode = HoppyP.fmap ListenerWindowStatesWindowStates . HoppyF.peek