Handbook
Glossary
prepare-menu ( menu items -- )
Vocabulary
ui
.
gadgets
.
menus
.
private
Inputs
menu
an
object
items
an
object
Outputs
None
Definition
USING:
accessors
kernel
models
sequences
;
IN:
ui.gadgets.menus.private
::
prepare-menu
( menu items -- )
f
<model>
:>
model items
menu-buttons
:>
buttons buttons
[
model
add-connection
]
each
menu model
>>model
buttons
>>items
drop
;