extra/nehe/nehe.factor

   1 USING: ui.gadgets.buttons ui.gadgets.packs ui.gadgets ui
   2 nehe.2 nehe.3 nehe.4 nehe.5 kernel ;
   3 IN: nehe
   4
   5 : nehe-window ( -- )
   6     [
   7         [
   8             "Nehe 2" [ drop run2 ] <bevel-button> gadget,
   9             "Nehe 3" [ drop run3 ] <bevel-button> gadget,
  10             "Nehe 4" [ drop run4 ] <bevel-button> gadget,
  11             "Nehe 5" [ drop run5 ] <bevel-button> gadget,
  12         ] make-filled-pile "Nehe examples" open-window
  13     ] with-ui ;
  14
  15 MAIN: nehe-window