send-button-up$ ( view event -- )

Vocabulary

ui.backend.cocoa.views

Inputs

view	an object
event	an object

Outputs

None

Definition

USING: cocoa.views kernel ui.gestures ui.private ;

IN: ui.backend.cocoa.views

: send-button-up$ ( view event -- )
    [ nip mouse-event>gesture <button-up> ] [ mouse-location ]
    [ drop window ] 2tri [ send-button-up ] [ 2drop ] if* ;