get-left-down in mouse-event%

Returns #t if the left mouse button was down (but not pressed) during the event.

• (send a-mouse-event get-left-down) -> boolean