extra/demos/demos.factor

   1
   2 USING: kernel fry sequences
   3        vocabs.loader tools.vocabs.browser
   4        ui ui.gadgets ui.gadgets.buttons ui.gadgets.packs ui.gadgets.scrollers
   5        ui.tools.listener
   6        accessors ;
   7
   8 IN: demos
   9
  10 : demo-vocabs ( -- seq ) "demos" tagged [ second ] map concat [ name>> ] map ;
  11
  12 : <run-vocab-button> ( vocab-name -- button )
  13   dup '[ drop [ _ run ] call-listener ] <bevel-button> { 0 0 } >>align ;
  14
  15 : <demo-runner> ( -- gadget )
  16   <pile> 1 >>fill demo-vocabs [ <run-vocab-button> add-gadget ] each ;
  17
  18 : demos ( -- ) [ <demo-runner> <scroller> "Demos" open-window ] with-ui ;
  19
  20 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  21
  22 MAIN: demos