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

SimpleWindow.notify

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-08-13 19:33:47 -06:00
parent 3efb28078e
commit 315dfcf40f
1 changed files with 66 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/kiss_flixel/SimpleWindow.kiss
View File

@@ -629,6 +629,34 @@
(when FlxG.mouse.justPressed
(inputTexts.forEach ->text (set text.hasFocus false))))))))
(function :SimpleWindow notify [:String message
:Void->Void onDismiss
&opt :FlxColor bgColor
:FlxColor titleColor
:FlxColor choiceColor
:Float percentWidth
:Float percentHeight
:Bool xButton
:String xKey
:String enterKey]
(promptForChoice
message
["OK"]
->_ (onDismiss)
bgColor
titleColor
choiceColor
percentWidth
percentHeight
xButton
xKey
null
null
null
null
enterKey
onDismiss))
(function :SimpleWindow promptForChoice <>[T] [:String prompt
:Array<T> choices
:T->Void onChoice
@@ -646,7 +674,7 @@
:String enterKey
:ShortcutAction onClose
:Bool noShortcuts]
(let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey upKey downKey enterKey onClose)
(let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey upKey downKey enterKey onClose)
choiceColor (or choiceColor titleColor FlxColor.WHITE)]
(doFor choice choices
(window.makeText (Std.string choice) choiceColor
@@ -674,7 +702,7 @@
:String downKey
:String enterKey
:ShortcutAction onClose]
(let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey upKey downKey enterKey onClose)
(let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey upKey downKey enterKey onClose)
buttonColor (or submitColor FlxColor.WHITE)
inputText (new KissInputText 0 0 FlxG.width "" textSize true)]
(window.addControl inputText)