show-menu* ( platform-menu -- menu-alien statusbar-alien )

Vocabulary

cocoa.statusbar

Inputs

platform-menu

an object

Outputs

menu-alien	an object
statusbar-alien	an object

Definition

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

IN: cocoa.statusbar

:: show-menu*
    ( platform-menu -- menu-alien statusbar-alien )
    platform-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 platform-menu name>>
    <NSString> { void { id SEL id } } "setTitle:" send
    menu-alien { void { id SEL id } } "setMenu:" send
    menu-alien ns-status-item ;