From 46708280cbd2e705c94787c5380d1121ed1b0fe3 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Mon, 10 Jul 2023 09:45:01 -0600 Subject: [PATCH] SimpleWindow global default keys --- src/kiss_flixel/SimpleWindow.kiss | 27 +++++++++++++++++++++------ 1 file changed, 21 insertions(+), 6 deletions(-) diff --git a/src/kiss_flixel/SimpleWindow.kiss b/src/kiss_flixel/SimpleWindow.kiss index c94ff7b..7ecd83d 100644 --- a/src/kiss_flixel/SimpleWindow.kiss +++ b/src/kiss_flixel/SimpleWindow.kiss @@ -62,6 +62,21 @@ (set selectedIndex nextIndex) (return))))) +(var &mut defaultXKey "") +(var &mut defaultLeftKey "") +(var &mut defaultRightKey "") +(var &mut defaultUpKey "") +(var &mut defaultDownKey "") +(var &mut defaultEnterKey "") + +(function sensibleDefaultKeys [] + (set SimpleWindow.defaultXKey "escape") + (set SimpleWindow.defaultLeftKey "left") + (set SimpleWindow.defaultRightKey "right") + (set SimpleWindow.defaultUpKey "up") + (set SimpleWindow.defaultDownKey "down") + (set SimpleWindow.defaultEnterKey "enter")) + (defNew [&opt :String _title :FlxColor bgColor :FlxColor _textColor @@ -80,12 +95,12 @@ :FlxColor titleColor (or _textColor FlxColor.WHITE) &mut :FlxColor textColor (or _textColor FlxColor.WHITE) :Bool xButton ?_xButton - :String xKey _xKey - :String leftKey _leftKey - :String rightKey _rightKey - :String upKey _upKey - :String downKey _downKey - :String enterKey _enterKey + :String xKey (or _xKey defaultXKey) + :String leftKey (or _leftKey defaultLeftKey) + :String rightKey (or _rightKey defaultRightKey) + :String upKey (or _upKey defaultUpKey) + :String downKey (or _downKey defaultDownKey) + :String enterKey (or _enterKey defaultEnterKey) :ShortcutAction onClose _onClose :FlxTypedGroup controls (new FlxTypedGroup) :FlxKeyShortcutHandler keyHandler (new FlxKeyShortcutHandler)