>NSMenuItem ( menu-item -- NSMenuItem )

Vocabulary

cocoa.statusbar

Inputs

menu-item

an object

Outputs

NSMenuItem

an object

Definition

USING: accessors cocoa.application cocoa.classes cocoa.messages
cocoa.runtime kernel ;

IN: cocoa.statusbar

: >NSMenuItem ( menu-item -- NSMenuItem )
    [ NSMenuItem { id { id SEL } } "alloc" send ] dip
    [ title>> <NSString> ] [ selector>> <selector> selector ]
    [ key-equivalent>> "" or <NSString> ] tri
    { id { id SEL id SEL id } }
    "initWithTitle:action:keyEquivalent:" send ;