button ( event -- n )

Vocabulary

ui.backend.cocoa.views

Inputs

event

an object

Outputs

n

an object

Definition

USING: alien.c-types cocoa.messages cocoa.runtime combinators ;

IN: ui.backend.cocoa.views

: button ( event -- n )
    { long { id SEL } } "buttonNumber" send
    { { 0 [ 1 ] } { 1 [ 3 ] } { 2 [ 2 ] } [ ] } case ;