extra/nehe/nehe.factor

   1 USING: accessors kernel nehe.2 nehe.3 nehe.4 nehe.5 ui
   2 ui.gadgets ui.gadgets.borders ui.gadgets.buttons
   3 ui.gadgets.packs ;
   4
   5 IN: nehe
   6
   7 MAIN-WINDOW: nehe-window { { title "Nehe Examples" } }
   8     <filled-pile>
   9         "Nehe 2" [ drop run2 ] <border-button> add-gadget
  10         "Nehe 3" [ drop run3 ] <border-button> add-gadget
  11         "Nehe 4" [ drop run4 ] <border-button> add-gadget
  12         "Nehe 5" [ drop run5 ] <border-button> add-gadget
  13     { 2 2 } <border> >>gadgets ;
  14
  15 MAIN: nehe-window