<platform-menu> ( name items -- platform-menu )


Vocabulary
cocoa.statusbar

Inputs
namean object
itemsan object


Outputs
platform-menuan object


Definition
USING: accessors kernel ;

IN: cocoa.statusbar

: <platform-menu> ( name items -- platform-menu )
platform-menu new swap >>items swap >>name ;