MESSAGE myME.modifiers

MACRO MouseDemo

DEFINE me AS MouseEvent
DEFINE pt AS Point
DEFINE ms AS String

me = WAIT MOUSECLICK
IF (me.click = 0) THEN
MESSAGE "Aborted"
ELSE
pt = me.ptPix
ms = " at pixel coordinates"
ms = ms + pt.x + "," + pt.y
IF (me.click = 1) THEN
ms = "Left click" + ms
Else
ms = "Right click" + ms
END IF
IF (me.modifiers = 512) THEN
ms = ms + " with Shift-Key"
END IF
IF (me.modifiers = 256) THEN
ms = ms + " with Ctrl-Key"
END IF
IF (me.modifiers = 2048) THEN
ms = ms + " with Alt-Key"
END IF
pt = me.ptMMGrid
Create Text pt.x pt.y ms
END IF

END MACRO