Keyboard/gamepad control selection in SimpleWindow

2023-07-06 12:11:14 -06:00
parent a235ab6fdf
commit 33975bfb88
3 changed files with 77 additions and 25 deletions
--- a/simplewindow-test/source/PlayState.kiss
+++ b/simplewindow-test/source/PlayState.kiss
@@ -20,7 +20,7 @@
                (never otherwise))))

 (method subMenu []
-    (let [window (new SimpleWindow "SubMenu")]
+    (let [window (new SimpleWindow "SubMenu" null null null null "escape" "left" "right" "up" "down" "enter")]
        (doFor letter ["A" "B" "C"]
            (window.makeText letter null
                ->_ (print "$letter clicked")