on-event in name-message%
Called when the canvas receives a mouse event. See also Mouse and Keyboard Eventsmouseandkey, noting in particular that certain mouse events can get dropped.
(-> voidsenda-name-messageon-eventevent)
event:mouse-event%objectHandles the click by popping up a menu or message.