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

add upKey, downKey, enterKey to SimpleWindow

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-07-06 09:47:30 -06:00
parent 913be1e6c8
commit bd56790167
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/kiss_flixel/SimpleWindow.kiss
View File

@@ -16,6 +16,8 @@
:Float percentHeight :Float percentHeight
:Bool _xButton :String _xKey :Bool _xButton :String _xKey
:String _leftKey :String _rightKey :String _leftKey :String _rightKey
:String _upKey :String _downKey
:String _enterKey
:ShortcutAction _onClose] :ShortcutAction _onClose]
[:String title (or _title "") [:String title (or _title "")
@@ -28,6 +30,9 @@
:String xKey _xKey :String xKey _xKey
:String leftKey _leftKey :String leftKey _leftKey
:String rightKey _rightKey :String rightKey _rightKey
:String upKey _upKey
:String downKey _downKey
:String enterKey _enterKey
:ShortcutAction onClose _onClose :ShortcutAction onClose _onClose
:FlxTypedGroup<FlxSprite> controls (new FlxTypedGroup) :FlxTypedGroup<FlxSprite> controls (new FlxTypedGroup)
:FlxKeyShortcutHandler<ShortcutAction> keyHandler (new FlxKeyShortcutHandler) :FlxKeyShortcutHandler<ShortcutAction> keyHandler (new FlxKeyShortcutHandler)
@@ -408,9 +413,12 @@
:String xKey :String xKey
:String leftKey :String leftKey
:String rightKey :String rightKey
:String upKey
:String downKey
:String enterKey
:ShortcutAction onClose :ShortcutAction onClose
:Bool noShortcuts] :Bool noShortcuts]
(let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey onClose) (let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey upKey downKey enterKey onClose)
choiceColor (or choiceColor titleColor FlxColor.WHITE)] choiceColor (or choiceColor titleColor FlxColor.WHITE)]
(doFor choice choices (doFor choice choices
(window.makeText (Std.string choice) choiceColor (window.makeText (Std.string choice) choiceColor
@@ -433,8 +441,11 @@
:String xKey :String xKey
:String leftKey :String leftKey
:String rightKey :String rightKey
:String upKey
:String downKey
:String enterKey
:ShortcutAction onClose] :ShortcutAction onClose]
(let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey onClose) (let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey upKey downKey enterKey onClose)
buttonColor (or submitColor FlxColor.WHITE) buttonColor (or submitColor FlxColor.WHITE)
inputText (new KissInputText 0 0 FlxG.width "" textSize true)] inputText (new KissInputText 0 0 FlxG.width "" textSize true)]
(window.addControl inputText) (window.addControl inputText)