menu>dummy-class ( menu -- object )

Vocabulary

cocoa.statusbar

Inputs

menu

an object

Outputs

object

an object

Definition

USING: accessors alien.c-types arrays cocoa.messages
cocoa.runtime cocoa.subclassing compiler.units kernel
locals.backend math.parser sequences ;

IN: cocoa.statusbar

: menu>dummy-class ( menu -- object )
    [ name>> "NSObject" V{ } ] [
        items>> [
            swap [
                [
                    number>string "dummy" prepend void
                    { id SEL }
                ] [
                    quot>>
                    [ 2 load-locals 2 drop-locals ] prepose
                ] bi* 4array
            ] keep over first >>selector drop
        ] map-index [ define-objc-class ] with-compilation-unit
    ] [
        name>> objc_getClass { id { id SEL } } "alloc" send
        { id { id SEL } } "init" send
    ] tri ;