2010-10-23 20:15:23 -04:00
|
|
|
USING: io kernel math.parser sequences ui.gadgets.panes ;
|
2008-09-03 07:34:40 -04:00
|
|
|
IN: benchmark.ui-panes
|
|
|
|
|
|
|
|
|
|
: ui-pane-benchmark ( -- )
|
2010-10-23 20:15:23 -04:00
|
|
|
[ 10000 iota [ number>string print ] each ] make-pane drop ;
|
2008-09-03 07:34:40 -04:00
|
|
|
|
|
|
|
|
MAIN: ui-pane-benchmark
|
