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

hollywoo scene selection SimpleWindow

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-03-09 07:10:09 -07:00
parent ce53ef2560
commit 4be7705ed3
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/hollywoo_flixel/HollywooFlixelDSL.kiss
View File

@@ -46,20 +46,21 @@
(showLabelSkipButtons)))) (showLabelSkipButtons))))
(method :Void showLabelSkipButtons [] (method :Void showLabelSkipButtons []
(let [runners (labelRunners) (let [runners (labelRunners)]
buttons (new flixel.group.FlxGroup.FlxTypedGroup<flixel.ui.FlxButton>)]
(localVar &mut buttonY 0) (localVar &mut buttonY 0)
(localVar buttonsPerColumn 25) (localVar buttonsPerColumn 25)
(doFor [num label] (enumerate (sort (collect (runners.keys)))) (kiss_flixel.SimpleWindow.promptForChoice
(let [runner (dictGet runners label) "Skip to scene?"
b (new flixel.ui.FlxButton 0 buttonY label ->{(FlxG.state.remove buttons)(runner)})] (sort (collect (runners.keys)))
(let [column (Std.int (/ num buttonsPerColumn))] ->label ((dictGet runners label))
(set b.x (* b.width column))) FlxColor.BLACK
(buttons.add b)) FlxColor.WHITE
(+= buttonY 20) 0.8
(when (= (- buttonsPerColumn 1) (% num buttonsPerColumn)) 0.8
(set buttonY 0))) true
(FlxG.state.add buttons))) "escape"
"left"
"right")))
(defAlias &ident flxDirector (cast director FlxDirector)) (defAlias &ident flxDirector (cast director FlxDirector))