Code: Select all
Enumeration BUTTON
#_BUTTON_LEFT
#_BUTTON_MIDDLE
#_BUTTON_RIGHT
EndEnumeration
Macro TYPE_BUTTON : i : EndMacro
Structure _Mouse
button.i
EndStructure
Global mouse._Mouse
Procedure IsPushed(button.TYPE_BUTTON) : With mouse
EndWith : EndProcedure

