diff --git a/src/kiss_tools/FlxKeyShortcutHandler.kiss b/src/kiss_tools/FlxKeyShortcutHandler.kiss index 0ad322d..bd393a2 100644 --- a/src/kiss_tools/FlxKeyShortcutHandler.kiss +++ b/src/kiss_tools/FlxKeyShortcutHandler.kiss @@ -36,5 +36,7 @@ (case (id.toString) ((when (KEY_MAP.exists key) key) (dictGet KEY_MAP key)) + ((when FlxG.keys.pressed.SHIFT key) + (.toUpperCase key)) (key (.toLowerCase key)) (otherwise (throw "FlxKey.toString returned null!"))))))) \ No newline at end of file diff --git a/src/kiss_tools/KeyShortcutHandler.kiss b/src/kiss_tools/KeyShortcutHandler.kiss index 034360d..0dcd76f 100644 --- a/src/kiss_tools/KeyShortcutHandler.kiss +++ b/src/kiss_tools/KeyShortcutHandler.kiss @@ -51,7 +51,7 @@ ((Some _) (case (stream.takeUntilAndDrop "]") ((Some newShortcuts) - (extractKeyboardShortcuts str stream (+ shortcuts (newShortcuts.toLowerCase)))) + (extractKeyboardShortcuts str stream (+ shortcuts newShortcuts))) (otherwise (tryCallOrThrow onBadShortcut "unclosed [ in $str" str null) "")))