minesweeper: ignore space keypress for hint cheat.

2018-02-26 11:32:04 -08:00 · 2018-02-26 11:32:04 -08:00 · 216057d255
parent 7c5012da67
commit 216057d255
1 changed files with 3 additions and 1 deletions
--- a/extra/minesweeper/minesweeper.factor
+++ b/extra/minesweeper/minesweeper.factor
@ -223,7 +223,9 @@ M: grid-gadget pref-dim*
    ] [ 0 ] if* ;

 M: grid-gadget handle-gesture
-    over { [ key-down? ] [ sym>> length 1 = ] } 1&& [
+    over {
+        [ key-down? ] [ sym>> length 1 = ] [ sym>> " " = not ]
+    } 1&& [
        2dup [ sym>> first ] [ hint?>> ] bi* circular-push
    ] when call-next-method ;