send-scroll$ ( view event -- )

Vocabulary

ui.backend.cocoa.views

Inputs

view	an object
event	an object

Outputs

None

Definition

USING: alien.c-types arrays cocoa.messages cocoa.runtime
cocoa.views kernel math ui.gestures ui.private ;

IN: ui.backend.cocoa.views

: send-scroll$ ( view event -- )
    [
        nip
        [ { double { id SEL } } "deltaX" send ]
        [ { double { id SEL } } "deltaY" send ] bi [ neg ] bi@
        2array
    ] [ mouse-location ] [ drop window ] 2tri
    [ send-scroll ] [ 2drop ] if* ;