module Qtc.Enums.Core.QEvent (
QEventType, eTimer, eMouseButtonPress, eMouseButtonRelease, eMouseButtonDblClick, eMouseMove, eKeyPress, eKeyRelease, eFocusIn, eFocusOut, eEnter, eLeave, ePaint, eMove, eResize, eCreate, eDestroy, eShow, eHide, eQuit, eParentChange, eParentAboutToChange, eThreadChange, eWindowActivate, eWindowDeactivate, eShowToParent, eHideToParent, eWheel, eWindowTitleChange, eWindowIconChange, eApplicationWindowIconChange, eApplicationFontChange, eApplicationLayoutDirectionChange, eApplicationPaletteChange, ePaletteChange, eSpeech, eMetaCall, eSockAct, eWinEventAct, eDeferredDelete, eDragEnter, eDragMove, eDragLeave, eDrop, eDragResponse, eChildAdded, eChildPolished, eChildRemoved, eShowWindowRequest, ePolishRequest, eLayoutRequest, eUpdateRequest, eUpdateLater, eEmbeddingControl, eActivateControl, eDeactivateControl, eContextMenu, eInputMethod, eAccessibilityPrepare, eTabletMove, eLocaleChange, eLanguageChange, eLayoutDirectionChange, eStyle, eTabletPress, eTabletRelease, eOkRequest, eHelpRequest, eIconDrag, eFontChange, eEnabledChange, eActivationChange, eStyleChange, eIconTextChange, eModifiedChange, eMouseTrackingChange, eWindowBlocked, eWindowUnblocked, eWindowStateChange, eStatusTip, eActionChanged, eActionAdded, eActionRemoved, eFileOpen, eShortcut, eShortcutOverride, eWhatsThisClicked, eToolBarChange, eApplicationActivate, eApplicationActivated, eApplicationDeactivate, eApplicationDeactivated, eQueryWhatsThis, eEnterWhatsThisMode, eLeaveWhatsThisMode, eZOrderChange, eHoverEnter, eHoverLeave, eHoverMove, eAccessibilityHelp, eAccessibilityDescription, eAcceptDropsChange, eMenubarUpdated, eZeroTimerEvent, eGraphicsSceneMouseMove, eGraphicsSceneMousePress, eGraphicsSceneMouseRelease, eGraphicsSceneMouseDoubleClick, eGraphicsSceneContextMenu, eGraphicsSceneHoverEnter, eGraphicsSceneHoverMove, eGraphicsSceneHoverLeave, eGraphicsSceneHelp, eGraphicsSceneDragEnter, eGraphicsSceneDragMove, eGraphicsSceneDragLeave, eGraphicsSceneDrop, eGraphicsSceneWheel, eKeyboardLayoutChange, eDynamicPropertyChange, eTabletEnterProximity, eTabletLeaveProximity, eNonClientAreaMouseMove, eNonClientAreaMouseButtonPress, eNonClientAreaMouseButtonRelease, eNonClientAreaMouseButtonDblClick, eMacSizeChange, eContentsRectChange
)
where
import Foreign.C.Types
import Qtc.Classes.Base
import Qtc.ClassTypes.Core (QObject, TQObject, qObjectFromPtr)
import Qtc.Core.Base (Qcs, connectSlot, qtc_connectSlot_int, wrapSlotHandler_int)
import Qtc.Enums.Base
import Qtc.Enums.Classes.Core
data CQEventType = CQEventType Int deriving (Eq, Ord)
type QEventType = QEnum(CQEventType)
ieQEventType :: Int -> QEventType
ieQEventType x = QEnum (CQEventType x)
instance QEnumC (CQEventType) where
qEnum_toInt (QEnum (CQEventType x)) = x
qEnum_fromInt x = QEnum (CQEventType x)
withQEnumResult x
= do
ti <- x
return $ qEnum_fromInt $ fromIntegral ti
withQEnumListResult x
= do
til <- x
return $ map qEnum_fromInt til
instance Qcs (QObject c -> QEventType -> IO ()) where
connectSlot _qsig_obj _qsig_nam _qslt_obj _qslt_nam _handler
= do
funptr <- wrapSlotHandler_int slotHandlerWrapper_int
stptr <- newStablePtr (Wrap _handler)
withObjectPtr _qsig_obj $ \cobj_sig ->
withCWString _qsig_nam $ \cstr_sig ->
withObjectPtr _qslt_obj $ \cobj_slt ->
withCWString _qslt_nam $ \cstr_slt ->
qtc_connectSlot_int cobj_sig cstr_sig cobj_slt cstr_slt (toCFunPtr funptr) (castStablePtrToPtr stptr)
return ()
where
slotHandlerWrapper_int :: Ptr fun -> Ptr () -> Ptr (TQObject c) -> CInt -> IO ()
slotHandlerWrapper_int funptr stptr qobjptr cint
= do qobj <- qObjectFromPtr qobjptr
let hint = fromCInt cint
if (objectIsNull qobj)
then do when (stptr/=ptrNull)
(freeStablePtr (castPtrToStablePtr stptr))
when (funptr/=ptrNull)
(freeHaskellFunPtr (castPtrToFunPtr funptr))
else _handler qobj (qEnum_fromInt hint)
return ()
instance QeNone QEventType where
eNone
= ieQEventType $ 0
eTimer :: QEventType
eTimer
= ieQEventType $ 1
eMouseButtonPress :: QEventType
eMouseButtonPress
= ieQEventType $ 2
eMouseButtonRelease :: QEventType
eMouseButtonRelease
= ieQEventType $ 3
eMouseButtonDblClick :: QEventType
eMouseButtonDblClick
= ieQEventType $ 4
eMouseMove :: QEventType
eMouseMove
= ieQEventType $ 5
eKeyPress :: QEventType
eKeyPress
= ieQEventType $ 6
eKeyRelease :: QEventType
eKeyRelease
= ieQEventType $ 7
eFocusIn :: QEventType
eFocusIn
= ieQEventType $ 8
eFocusOut :: QEventType
eFocusOut
= ieQEventType $ 9
eEnter :: QEventType
eEnter
= ieQEventType $ 10
eLeave :: QEventType
eLeave
= ieQEventType $ 11
ePaint :: QEventType
ePaint
= ieQEventType $ 12
eMove :: QEventType
eMove
= ieQEventType $ 13
eResize :: QEventType
eResize
= ieQEventType $ 14
eCreate :: QEventType
eCreate
= ieQEventType $ 15
eDestroy :: QEventType
eDestroy
= ieQEventType $ 16
eShow :: QEventType
eShow
= ieQEventType $ 17
eHide :: QEventType
eHide
= ieQEventType $ 18
instance QeClose QEventType where
eClose
= ieQEventType $ 19
eQuit :: QEventType
eQuit
= ieQEventType $ 20
eParentChange :: QEventType
eParentChange
= ieQEventType $ 21
eParentAboutToChange :: QEventType
eParentAboutToChange
= ieQEventType $ 131
eThreadChange :: QEventType
eThreadChange
= ieQEventType $ 22
eWindowActivate :: QEventType
eWindowActivate
= ieQEventType $ 24
eWindowDeactivate :: QEventType
eWindowDeactivate
= ieQEventType $ 25
eShowToParent :: QEventType
eShowToParent
= ieQEventType $ 26
eHideToParent :: QEventType
eHideToParent
= ieQEventType $ 27
eWheel :: QEventType
eWheel
= ieQEventType $ 31
eWindowTitleChange :: QEventType
eWindowTitleChange
= ieQEventType $ 33
eWindowIconChange :: QEventType
eWindowIconChange
= ieQEventType $ 34
eApplicationWindowIconChange :: QEventType
eApplicationWindowIconChange
= ieQEventType $ 35
eApplicationFontChange :: QEventType
eApplicationFontChange
= ieQEventType $ 36
eApplicationLayoutDirectionChange :: QEventType
eApplicationLayoutDirectionChange
= ieQEventType $ 37
eApplicationPaletteChange :: QEventType
eApplicationPaletteChange
= ieQEventType $ 38
ePaletteChange :: QEventType
ePaletteChange
= ieQEventType $ 39
instance QeClipboard QEventType where
eClipboard
= ieQEventType $ 40
eSpeech :: QEventType
eSpeech
= ieQEventType $ 42
eMetaCall :: QEventType
eMetaCall
= ieQEventType $ 43
eSockAct :: QEventType
eSockAct
= ieQEventType $ 50
eWinEventAct :: QEventType
eWinEventAct
= ieQEventType $ 132
eDeferredDelete :: QEventType
eDeferredDelete
= ieQEventType $ 52
eDragEnter :: QEventType
eDragEnter
= ieQEventType $ 60
eDragMove :: QEventType
eDragMove
= ieQEventType $ 61
eDragLeave :: QEventType
eDragLeave
= ieQEventType $ 62
eDrop :: QEventType
eDrop
= ieQEventType $ 63
eDragResponse :: QEventType
eDragResponse
= ieQEventType $ 64
eChildAdded :: QEventType
eChildAdded
= ieQEventType $ 68
eChildPolished :: QEventType
eChildPolished
= ieQEventType $ 69
eChildRemoved :: QEventType
eChildRemoved
= ieQEventType $ 71
eShowWindowRequest :: QEventType
eShowWindowRequest
= ieQEventType $ 73
ePolishRequest :: QEventType
ePolishRequest
= ieQEventType $ 74
instance QePolish QEventType where
ePolish
= ieQEventType $ 75
eLayoutRequest :: QEventType
eLayoutRequest
= ieQEventType $ 76
eUpdateRequest :: QEventType
eUpdateRequest
= ieQEventType $ 77
eUpdateLater :: QEventType
eUpdateLater
= ieQEventType $ 78
eEmbeddingControl :: QEventType
eEmbeddingControl
= ieQEventType $ 79
eActivateControl :: QEventType
eActivateControl
= ieQEventType $ 80
eDeactivateControl :: QEventType
eDeactivateControl
= ieQEventType $ 81
eContextMenu :: QEventType
eContextMenu
= ieQEventType $ 82
eInputMethod :: QEventType
eInputMethod
= ieQEventType $ 83
eAccessibilityPrepare :: QEventType
eAccessibilityPrepare
= ieQEventType $ 86
eTabletMove :: QEventType
eTabletMove
= ieQEventType $ 87
eLocaleChange :: QEventType
eLocaleChange
= ieQEventType $ 88
eLanguageChange :: QEventType
eLanguageChange
= ieQEventType $ 89
eLayoutDirectionChange :: QEventType
eLayoutDirectionChange
= ieQEventType $ 90
eStyle :: QEventType
eStyle
= ieQEventType $ 91
eTabletPress :: QEventType
eTabletPress
= ieQEventType $ 92
eTabletRelease :: QEventType
eTabletRelease
= ieQEventType $ 93
eOkRequest :: QEventType
eOkRequest
= ieQEventType $ 94
eHelpRequest :: QEventType
eHelpRequest
= ieQEventType $ 95
eIconDrag :: QEventType
eIconDrag
= ieQEventType $ 96
eFontChange :: QEventType
eFontChange
= ieQEventType $ 97
eEnabledChange :: QEventType
eEnabledChange
= ieQEventType $ 98
eActivationChange :: QEventType
eActivationChange
= ieQEventType $ 99
eStyleChange :: QEventType
eStyleChange
= ieQEventType $ 100
eIconTextChange :: QEventType
eIconTextChange
= ieQEventType $ 101
eModifiedChange :: QEventType
eModifiedChange
= ieQEventType $ 102
eMouseTrackingChange :: QEventType
eMouseTrackingChange
= ieQEventType $ 109
eWindowBlocked :: QEventType
eWindowBlocked
= ieQEventType $ 103
eWindowUnblocked :: QEventType
eWindowUnblocked
= ieQEventType $ 104
eWindowStateChange :: QEventType
eWindowStateChange
= ieQEventType $ 105
instance QeToolTip QEventType where
eToolTip
= ieQEventType $ 110
instance QeWhatsThis QEventType where
eWhatsThis
= ieQEventType $ 111
eStatusTip :: QEventType
eStatusTip
= ieQEventType $ 112
eActionChanged :: QEventType
eActionChanged
= ieQEventType $ 113
eActionAdded :: QEventType
eActionAdded
= ieQEventType $ 114
eActionRemoved :: QEventType
eActionRemoved
= ieQEventType $ 115
eFileOpen :: QEventType
eFileOpen
= ieQEventType $ 116
eShortcut :: QEventType
eShortcut
= ieQEventType $ 117
eShortcutOverride :: QEventType
eShortcutOverride
= ieQEventType $ 51
eWhatsThisClicked :: QEventType
eWhatsThisClicked
= ieQEventType $ 118
eToolBarChange :: QEventType
eToolBarChange
= ieQEventType $ 120
eApplicationActivate :: QEventType
eApplicationActivate
= ieQEventType $ 121
eApplicationActivated :: QEventType
eApplicationActivated
= ieQEventType $ 121
eApplicationDeactivate :: QEventType
eApplicationDeactivate
= ieQEventType $ 122
eApplicationDeactivated :: QEventType
eApplicationDeactivated
= ieQEventType $ 122
eQueryWhatsThis :: QEventType
eQueryWhatsThis
= ieQEventType $ 123
eEnterWhatsThisMode :: QEventType
eEnterWhatsThisMode
= ieQEventType $ 124
eLeaveWhatsThisMode :: QEventType
eLeaveWhatsThisMode
= ieQEventType $ 125
eZOrderChange :: QEventType
eZOrderChange
= ieQEventType $ 126
eHoverEnter :: QEventType
eHoverEnter
= ieQEventType $ 127
eHoverLeave :: QEventType
eHoverLeave
= ieQEventType $ 128
eHoverMove :: QEventType
eHoverMove
= ieQEventType $ 129
eAccessibilityHelp :: QEventType
eAccessibilityHelp
= ieQEventType $ 119
eAccessibilityDescription :: QEventType
eAccessibilityDescription
= ieQEventType $ 130
eAcceptDropsChange :: QEventType
eAcceptDropsChange
= ieQEventType $ 152
eMenubarUpdated :: QEventType
eMenubarUpdated
= ieQEventType $ 153
eZeroTimerEvent :: QEventType
eZeroTimerEvent
= ieQEventType $ 154
eGraphicsSceneMouseMove :: QEventType
eGraphicsSceneMouseMove
= ieQEventType $ 155
eGraphicsSceneMousePress :: QEventType
eGraphicsSceneMousePress
= ieQEventType $ 156
eGraphicsSceneMouseRelease :: QEventType
eGraphicsSceneMouseRelease
= ieQEventType $ 157
eGraphicsSceneMouseDoubleClick :: QEventType
eGraphicsSceneMouseDoubleClick
= ieQEventType $ 158
eGraphicsSceneContextMenu :: QEventType
eGraphicsSceneContextMenu
= ieQEventType $ 159
eGraphicsSceneHoverEnter :: QEventType
eGraphicsSceneHoverEnter
= ieQEventType $ 160
eGraphicsSceneHoverMove :: QEventType
eGraphicsSceneHoverMove
= ieQEventType $ 161
eGraphicsSceneHoverLeave :: QEventType
eGraphicsSceneHoverLeave
= ieQEventType $ 162
eGraphicsSceneHelp :: QEventType
eGraphicsSceneHelp
= ieQEventType $ 163
eGraphicsSceneDragEnter :: QEventType
eGraphicsSceneDragEnter
= ieQEventType $ 164
eGraphicsSceneDragMove :: QEventType
eGraphicsSceneDragMove
= ieQEventType $ 165
eGraphicsSceneDragLeave :: QEventType
eGraphicsSceneDragLeave
= ieQEventType $ 166
eGraphicsSceneDrop :: QEventType
eGraphicsSceneDrop
= ieQEventType $ 167
eGraphicsSceneWheel :: QEventType
eGraphicsSceneWheel
= ieQEventType $ 168
eKeyboardLayoutChange :: QEventType
eKeyboardLayoutChange
= ieQEventType $ 169
eDynamicPropertyChange :: QEventType
eDynamicPropertyChange
= ieQEventType $ 170
eTabletEnterProximity :: QEventType
eTabletEnterProximity
= ieQEventType $ 171
eTabletLeaveProximity :: QEventType
eTabletLeaveProximity
= ieQEventType $ 172
eNonClientAreaMouseMove :: QEventType
eNonClientAreaMouseMove
= ieQEventType $ 173
eNonClientAreaMouseButtonPress :: QEventType
eNonClientAreaMouseButtonPress
= ieQEventType $ 174
eNonClientAreaMouseButtonRelease :: QEventType
eNonClientAreaMouseButtonRelease
= ieQEventType $ 175
eNonClientAreaMouseButtonDblClick :: QEventType
eNonClientAreaMouseButtonDblClick
= ieQEventType $ 176
eMacSizeChange :: QEventType
eMacSizeChange
= ieQEventType $ 177
eContentsRectChange :: QEventType
eContentsRectChange
= ieQEventType $ 178
instance QeUser QEventType where
eUser
= ieQEventType $ 1000
instance QeMaxUser QEventType where
eMaxUser
= ieQEventType $ 65535