gadget-format ( string style stream -- )
Vocabulary
ui.gadgets.panes.private
Definition
USING:
kernel
ui.gadgets
;
IN:
ui.gadgets.panes.private
:
gadget-format
( string style stream -- )
[
[
empty-output?
]
2keep
]
dip
[
[
swap
<styled-label>
]
2curry
]
dip
[
swap
add-gadget
drop
]
curry
compose
unless
;