add escape key to terrain demo

2009-05-08 16:18:56 -05:00 · 2009-05-08 16:18:56 -05:00 · 25b5a7645a
parent fc49402d40
commit 25b5a7645a
1 changed files with 1 additions and 0 deletions
--- a/extra/terrain/terrain.factor
+++ b/extra/terrain/terrain.factor
@ -111,6 +111,7 @@ TUPLE: terrain-world < world
    key-s keys nth [ world move-backward ] when 
    key-a keys nth [ world move-leftward ] when 
    key-d keys nth [ world move-rightward ] when 
+    key-escape keys nth [ world close-window ] when
    world read-mouse rotate-with-mouse
    reset-mouse ;