]> gitweb.factorcode.org Git - factor.git/blob - extra/nehe/nehe.factor
70ab0f0f5da66fa23a9f6839af8be4b40547b237
[factor.git] / 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         <filled-pile>
8             "Nehe 2" [ drop run2 ] <border-button> add-gadget
9             "Nehe 3" [ drop run3 ] <border-button> add-gadget
10             "Nehe 4" [ drop run4 ] <border-button> add-gadget
11             "Nehe 5" [ drop run5 ] <border-button> add-gadget
12         "Nehe examples" open-window
13     ] with-ui ;
14
15 MAIN: nehe-window