From ad5383102dc2a993e654109fcdcbd1ad35088bb2 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Mon, 10 Jul 2023 09:45:13 -0600 Subject: [PATCH] test global default keys --- simplewindow-test/source/PlayState.kiss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/simplewindow-test/source/PlayState.kiss b/simplewindow-test/source/PlayState.kiss index 65bb260..aba57b4 100644 --- a/simplewindow-test/source/PlayState.kiss +++ b/simplewindow-test/source/PlayState.kiss @@ -4,8 +4,10 @@ (method &override :Void create [] (super.create) - (showMenu) - ) + + (SimpleWindow.sensibleDefaultKeys) + + (showMenu)) (method showMenu [] (SimpleWindow.promptForChoice "Testing SimpleWindow" ["Vertical" "Menu" "Quit"] @@ -20,7 +22,7 @@ (never otherwise)))) (method subMenu [] - (let [window (new SimpleWindow "SubMenu" null null null null "escape" "left" "right" "up" "down" "enter")] + (let [window (new SimpleWindow "SubMenu")] (doFor letter ["A" "B" "C"] (window.makeText letter null ->_ (print "$letter clicked")