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

tetris-window no longer leaves gadget on stack

slava 2006-10-26 04:07:46 +00:00
parent 5ead538e90
commit 32079bb52b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/tetris/tetris-gadget.factor
View File

@ -46,5 +46,5 @@ M: tetris-gadget graft* ( gadget -- )
M: tetris-gadget ungraft* ( gadget -- ) M: tetris-gadget ungraft* ( gadget -- )
t swap set-tetris-gadget-quit? ; t swap set-tetris-gadget-quit? ;
: tetris-window ( -- ) <default-tetris> <tetris-gadget> dup "Tetris" open-titled-window ; : tetris-window ( -- ) <default-tetris> <tetris-gadget> "Tetris" open-titled-window ;