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

promptForColor allowAlpha option

Browse Source
This commit is contained in:
Nat Quayle Nelson
2024-07-13 13:54:15 -06:00
parent e9338ea9b7
commit 654cb4945e
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/kiss_flixel/SimpleWindow.kiss
View File

@@ -809,6 +809,7 @@
:FlxColor->Void onChoice :FlxColor->Void onChoice
&opt :Array<FlxColor> choices &opt :Array<FlxColor> choices
:FlxColor currentColor :FlxColor currentColor
:Bool allowAlpha
:FlxColor bgColor :FlxColor bgColor
:FlxColor titleColor :FlxColor titleColor
:Float percentWidth :Float percentWidth
@@ -850,6 +851,9 @@
(window.makeTextV2 "Green--" (object onClick ->:Void s (recursiveCall {(-= currentColor.greenFloat COLOR_STEP) currentColor}))) (window.makeTextV2 "Green--" (object onClick ->:Void s (recursiveCall {(-= currentColor.greenFloat COLOR_STEP) currentColor})))
(window.makeTextV2 "Blue++" (object onClick ->:Void s (recursiveCall {(+= currentColor.blueFloat COLOR_STEP) currentColor}))) (window.makeTextV2 "Blue++" (object onClick ->:Void s (recursiveCall {(+= currentColor.blueFloat COLOR_STEP) currentColor})))
(window.makeTextV2 "Blue--" (object onClick ->:Void s (recursiveCall {(-= currentColor.blueFloat COLOR_STEP) currentColor}))) (window.makeTextV2 "Blue--" (object onClick ->:Void s (recursiveCall {(-= currentColor.blueFloat COLOR_STEP) currentColor})))
(when allowAlpha
(window.makeTextV2 "Alpha++" (object onClick ->:Void s (recursiveCall {(+= currentColor.alphaFloat COLOR_STEP) currentColor})))
(window.makeTextV2 "Alpha--" (object onClick ->:Void s (recursiveCall {(-= currentColor.alphaFloat COLOR_STEP) currentColor}))))
(doFor choice choices (doFor choice choices
(window.makeTextV2 (window.makeTextV2
" " " "