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

stagger label buttons in columns

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-01-10 13:44:43 -07:00
parent faa7f1b346
commit 9f83c3835f
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
projects/hollywoo-flixel/src/hollywoo_flixel/HollywooFlixelDSL.kiss
View File

@@ -54,12 +54,17 @@
(let [runners (labelRunners)
buttons (new flixel.group.FlxGroup.FlxTypedGroup<flixel.ui.FlxButton>)]
(localVar &mut buttonY 0)
(doFor label (sort (collect (runners.keys)))
(localVar buttonsPerColumn 25)
(doFor [num label] (enumerate (sort (collect (runners.keys))))
(let [runner (dictGet runners label)
b (new flixel.ui.FlxButton 0 buttonY label ->{(FlxG.state.remove buttons)(runner)})]
(let [column (Std.int (/ num buttonsPerColumn))]
(set b.x (* b.width column)))
(buttons.add b))
(+= buttonY 20))
(FlxG.state.add buttons)))
(+= buttonY 20)
(when (= (- buttonsPerColumn 1) (% num buttonsPerColumn))
(set buttonY 0)))
(.add (cast (_currentScene) SceneFlxState) buttons)))
(defMacro withProp [propKey name &body body]
`(let [,name (dictGet props ,propKey)]