;
M: sokoban-gadget graft* ( gadget -- )
- dup sokoban>> engine>> play-music
[ [ tick ] curry 100 milliseconds every ] keep timer<< ;
M: sokoban-gadget ungraft* ( gadget -- )
"sokoban" open-status-window
] with-ui ;
-MAIN: sokoban-window
\ No newline at end of file
+MAIN: sokoban-window