2018-01-22 11:50:41 -05:00
|
|
|
USING: accessors kernel nehe.2 nehe.3 nehe.4 nehe.5 ui
|
|
|
|
|
ui.gadgets ui.gadgets.borders ui.gadgets.buttons
|
|
|
|
|
ui.gadgets.packs ;
|
|
|
|
|
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: nehe
|
|
|
|
|
|
2010-01-15 19:55:43 -05:00
|
|
|
MAIN-WINDOW: nehe-window { { title "Nehe Examples" } }
|
|
|
|
|
<filled-pile>
|
|
|
|
|
"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
|
2018-01-22 11:50:41 -05:00
|
|
|
{ 2 2 } <border> >>gadgets ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
MAIN: nehe-window
|
