button-down? in mouse-event%

Returns #t if the event is for a button press, #f otherwise.

• (send a-mouse-event button-down? button) -> boolean
     button = 'any : symbol in '(left middle right any)

  If button is not 'any, then #t is only returned if it is a press event for a specific button.