show-menu ( menu -- menu-alien statusbar-item-alien )

Vocabulary

cocoa.statusbar

Inputs

menu

an object

Outputs

menu-alien	an object
statusbar-item-alien	an object

Definition

USING: accessors alien.c-types cocoa.application cocoa.messages
cocoa.runtime kernel ;

IN: cocoa.statusbar

:: show-menu ( menu -- menu-alien statusbar-item-alien )
    menu menu>alien :> menu-alien get-system-statusbar
    :> system-alien system-alien NSVariableStatusItemLength
    { id { id SEL double } } "statusItemWithLength:" send
    [ { id { id SEL } } "retain" send ] keep
    :> ns-status-item ns-status-item menu name>> <NSString>
    { void { id SEL id } } "setTitle:" send menu-alien
    { void { id SEL id } } "setMenu:" send
    menu-alien ns-status-item ;