nehe: rewrite to not use 'gadget,'
parent
1d8f7c5a89
commit
41bca4ab20
|
@ -4,12 +4,12 @@ IN: nehe
|
||||||
|
|
||||||
: nehe-window ( -- )
|
: nehe-window ( -- )
|
||||||
[
|
[
|
||||||
[
|
<filled-pile>
|
||||||
"Nehe 2" [ drop run2 ] <bevel-button> gadget,
|
"Nehe 2" [ drop run2 ] <bevel-button> add-gadget
|
||||||
"Nehe 3" [ drop run3 ] <bevel-button> gadget,
|
"Nehe 3" [ drop run3 ] <bevel-button> add-gadget
|
||||||
"Nehe 4" [ drop run4 ] <bevel-button> gadget,
|
"Nehe 4" [ drop run4 ] <bevel-button> add-gadget
|
||||||
"Nehe 5" [ drop run5 ] <bevel-button> gadget,
|
"Nehe 5" [ drop run5 ] <bevel-button> add-gadget
|
||||||
] make-filled-pile "Nehe examples" open-window
|
"Nehe examples" open-window
|
||||||
] with-ui ;
|
] with-ui ;
|
||||||
|
|
||||||
MAIN: nehe-window
|
MAIN: nehe-window
|
||||||
|
|
Loading…
Reference in New Issue