DAY 016: _MOUSEINPUT

[OldMoses]

Thanks for the heads up on that. I'm usually just doing click and release stuff, so it's worked well for me.

So a change of position makes a big difference...it should probably go last rather than first, depending on the application.

Code: (Select All)

DO
    _LIMIT 30
    WHILE _MOUSEINPUT: WEND
    IF _MOUSEBUTTON(1) THEN
        BEEP ' It will now beep when mouse button is pressed but...
        Clear_MB 1 'you're stuck here until you release
        PRINT "You've finally got the cat off the damned thing..."
    END IF
LOOP

SUB Clear_MB (var AS INTEGER)
    DO: _LIMIT 5: WHILE _MOUSEINPUT: WEND: LOOP UNTIL NOT _MOUSEBUTTON(var)
END SUB