<platform-menu-item> ( title quot -- platform-menu-item )

Vocabulary

cocoa.statusbar

Inputs

title	an object
quot	an object

Outputs

platform-menu-item

an object

Definition

USING: accessors kernel ;

IN: cocoa.statusbar

: <platform-menu-item> ( title quot -- platform-menu-item )
    platform-menu-item new swap >>quot swap >>title ;