From 5037ae90308f9de47c351175fe5468549b1981a3 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Fri, 13 Oct 2023 20:17:06 -0600 Subject: [PATCH] allow changing control color in SimpleWindow --- src/kiss_flixel/SimpleWindow.kiss | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/kiss_flixel/SimpleWindow.kiss b/src/kiss_flixel/SimpleWindow.kiss index 29cc1aa..052e30b 100644 --- a/src/kiss_flixel/SimpleWindow.kiss +++ b/src/kiss_flixel/SimpleWindow.kiss @@ -55,6 +55,16 @@ (otherwise)) value)) +(method :Void setControlColor [:FlxSprite control :FlxColor newColor] + (unless control (return)) + + (set control.color newColor) + (dictSet _colors control newColor)) + +(method :Void setUIControlColor [:FlxColor newColor] + (doFor control [xText leftText rightText upText downText scrollBar] + (setControlColor control newColor))) + (method selectDown [] (let [columnControls (getColumnControls) &mut nextIndex _selectedIndex]