steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

nehe: rewrite to not use 'gadget,'

db4
Eduardo Cavazos 2008-07-13 16:40:05 -05:00
parent 1d8f7c5a89
commit 41bca4ab20
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/nehe/nehe.factor
View File

@ -4,12 +4,12 @@ IN: nehe
: nehe-window ( -- )
[
[
"Nehe 2" [ drop run2 ] <bevel-button> gadget,
"Nehe 3" [ drop run3 ] <bevel-button> gadget,
"Nehe 4" [ drop run4 ] <bevel-button> gadget,
"Nehe 5" [ drop run5 ] <bevel-button> gadget,
] make-filled-pile "Nehe examples" open-window
<filled-pile>
"Nehe 2" [ drop run2 ] <bevel-button> add-gadget
"Nehe 3" [ drop run3 ] <bevel-button> add-gadget
"Nehe 4" [ drop run4 ] <bevel-button> add-gadget
"Nehe 5" [ drop run5 ] <bevel-button> add-gadget
"Nehe examples" open-window
] with-ui ;
MAIN: nehe-window