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 ;