Handbook
Glossary
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
;