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

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