rough screenreader support in SimpleWindow (only interactive elements)

2024-03-11 13:07:29 +01:00
parent b6e9c43dd5
commit ab4b2f46fa
5 changed files with 76 additions and 14 deletions
--- a/simplewindow-test/source/PlayState.kiss
+++ b/simplewindow-test/source/PlayState.kiss
@@ -15,7 +15,7 @@
    (showMenu))

 (method :Void showMenu []
-    (SimpleWindow.promptForChoice "Testing SimpleWindow" ["Vertical" "Menu" "Feedback" "Quit"]
+    (SimpleWindow.promptForChoiceV2 "Testing SimpleWindow" ["Vertical" "Menu" "Feedback" "Quit"]
        ->:Void choice 
            (case choice
                ("Vertical"
@@ -26,7 +26,8 @@
                    (FeedbackWindow.collectFeedback showMenu))
                ("Quit"
                    (Sys.exit 0))
-                (never otherwise))))
+                (never otherwise))
+        (object screenReaderAudioFolder "assets/screen-reader-audio")))

 (method subMenu []
    (let [window (new SimpleWindow "SubMenu")]