kiss-lang/kiss-flixel
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

test global default keys

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-07-10 09:45:13 -06:00
parent 46708280cb
commit ad5383102d
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
simplewindow-test/source/PlayState.kiss
View File

@@ -4,8 +4,10 @@
(method &override :Void create [] (method &override :Void create []
(super.create) (super.create)
(showMenu)
) (SimpleWindow.sensibleDefaultKeys)
(showMenu))
(method showMenu [] (method showMenu []
(SimpleWindow.promptForChoice "Testing SimpleWindow" ["Vertical" "Menu" "Quit"] (SimpleWindow.promptForChoice "Testing SimpleWindow" ["Vertical" "Menu" "Quit"]
@@ -20,7 +22,7 @@
(never otherwise)))) (never otherwise))))
(method subMenu [] (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"] (doFor letter ["A" "B" "C"]
(window.makeText letter null (window.makeText letter null
->_ (print "$letter clicked") ->_ (print "$letter clicked")