extra/demos/demos.factor

   1 USING: kernel sequences vocabs.loader help.vocabs ui
   2 ui.gadgets ui.gadgets.buttons ui.gadgets.packs ui.gadgets.borders
   3 ui.gadgets.scrollers ui.tools.listener accessors assocs ;
   4 IN: demos
   5
   6 : demo-vocabs ( -- seq ) "demos" tagged values concat [ name>> ] map ;
   7
   8 : <run-vocab-button> ( vocab-name -- button )
   9     dup '[ drop [ _ run ] \ run call-listener ] <border-button> ;
  10
  11 : <demo-runner> ( -- gadget )
  12     <filled-pile> { 2 2 } >>gap demo-vocabs [ <run-vocab-button> add-gadget ] each ;
  13
  14 MAIN-WINDOW: demos { { title "Demos" } }
  15     <demo-runner> { 2 2 } <border> <scroller> >>gadgets ;