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

SimpleWindow columns for (some) overflow

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-08-29 16:35:40 +00:00
parent 9868b6630a
commit b8045869c3
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/kiss_flixel/SimpleWindow.kiss
View File

@@ -14,7 +14,9 @@
:Float percentHeight] :Float percentHeight]
[:String title (or _title "") [:String title (or _title "")
&mut :Float nextControlX 0
&mut :Float nextControlY 0 &mut :Float nextControlY 0
&mut :Int controlsPerColumn 0
:FlxColor titleColor (or _textColor FlxColor.WHITE) :FlxColor titleColor (or _textColor FlxColor.WHITE)
&mut :FlxColor textColor (or _textColor FlxColor.WHITE) &mut :FlxColor textColor (or _textColor FlxColor.WHITE)
:FlxTypedGroup<FlxSprite> controls (new FlxTypedGroup) :FlxTypedGroup<FlxSprite> controls (new FlxTypedGroup)
@@ -26,7 +28,12 @@
(Std.int (* FlxG.height (or percentHeight 0.5))) (Std.int (* FlxG.height (or percentHeight 0.5)))
(or bgColor FlxColor.BLACK)) (or bgColor FlxColor.BLACK))
(screenCenter) (screenCenter)
(set nextControlX x)
(set nextControlY y) (set nextControlY y)
(let [textHeight
.height (new FlxText 0 0 0 "a" textSize)]
(set controlsPerColumn (Math.floor (/ height textHeight))))
(when title (when title
(makeText title null)) (makeText title null))
@@ -45,12 +52,18 @@
(prop :Map<FlxSprite,Action> _actions (new Map)) (prop :Map<FlxSprite,Action> _actions (new Map))
(prop :Map<FlxSprite,FlxColor> _colors (new Map)) (prop :Map<FlxSprite,FlxColor> _colors (new Map))
(method makeText [:String text &opt :FlxColor color :Action onClick] (method makeText [:String text &opt :FlxColor color :Action onClick]
(let [ftext (new FlxText x nextControlY 0 text textSize)] (let [ftext (new FlxText nextControlX nextControlY 0 text textSize)]
(set ftext.color (or color textColor)) (set ftext.color (or color textColor))
(dictSet _colors ftext ftext.color) (dictSet _colors ftext ftext.color)
(set ftext.cameras this.cameras) (set ftext.cameras this.cameras)
(controls.add ftext) (controls.add ftext)
(+= nextControlY ftext.height) (+= nextControlY ftext.height)
(when (= 0 (% controls.length controlsPerColumn))
(set nextControlY y)
(when title (+= nextControlY ftext.height))
(+= nextControlX (apply max
(for control (last (groups controls.members controlsPerColumn))
control.width)) textSize))
(when onClick (when onClick
(dictSet _actions ftext onClick) (dictSet _actions ftext onClick)
// TODO right click? // TODO right click?