2007-09-20 18:09:08 -04:00
|
|
|
USING: ui.gadgets.buttons ui.gadgets.packs ui.gadgets ui
|
|
|
|
|
nehe.2 nehe.3 nehe.4 nehe.5 kernel ;
|
|
|
|
|
IN: nehe
|
|
|
|
|
|
2008-06-09 03:14:14 -04:00
|
|
|
: nehe-window ( -- )
|
2007-09-20 18:09:08 -04:00
|
|
|
[
|
2008-07-13 17:40:05 -04:00
|
|
|
<filled-pile>
|
2009-03-07 02:22:21 -05:00
|
|
|
"Nehe 2" [ drop run2 ] <border-button> add-gadget
|
|
|
|
|
"Nehe 3" [ drop run3 ] <border-button> add-gadget
|
|
|
|
|
"Nehe 4" [ drop run4 ] <border-button> add-gadget
|
|
|
|
|
"Nehe 5" [ drop run5 ] <border-button> add-gadget
|
2008-07-13 17:40:05 -04:00
|
|
|
"Nehe examples" open-window
|
2007-09-20 18:09:08 -04:00
|
|
|
] with-ui ;
|
|
|
|
|
|
|
|
|
|
MAIN: nehe-window
|
