Allow uppercase command keys

2025-04-07 16:41:59 +00:00 · 2024-11-09 07:15:50 -08:00 · 2024-11-09 07:15:50 -08:00 · 6931813a50
commit 6931813a50
parent b32be1d955
2 changed files with 5 additions and 5 deletions
--- a/images/apple/DCGR-TK.PO
+++ b/images/apple/DCGR-TK.PO
--- a/src/utilsrc/apple/dcgrspred.pla
+++ b/src/utilsrc/apple/dcgrspred.pla
@ -249,7 +249,7 @@ grMode(grPage1)
 grDrawBuf(grPage1)
 grView
 while not quit
-    when grGetKey
+    when toupper(grGetKey)
        is $0B // Up arrow
            if yCursor > 0; yCursor--; fin
            break
@ -274,18 +274,18 @@ while not quit
        is '-'
            clrCursor = (clrCursor - 1) & $0F
            break
-        is 't'
+        is 'T'
            dcgrTestView(0)
            break
-        is 'b'
+        is 'B'
            dcgrTestView(1)
            break
-        is 'v'
+        is 'V'
            modified = 1
            flipV
            grView
            break
-        is 'h'
+        is 'H'
            modified = 1
            flipH
            grView