factor/extra/benchmark/ui-panes/ui-panes.factor

8 lines
199 B
Factor

USING: io kernel math.parser sequences ui.gadgets.panes ;
IN: benchmark.ui-panes
: ui-pane-benchmark ( -- )
[ 10000 iota [ number>string print ] each ] make-pane drop ;
MAIN: ui-pane-benchmark