43 lines
1.2 KiB
Plaintext
43 lines
1.2 KiB
Plaintext
(import flixel.FlxState)
|
|
(import kiss_flixel.SimpleWindow)
|
|
(extends FlxState)
|
|
|
|
(method &override :Void create []
|
|
(super.create)
|
|
(showMenu)
|
|
)
|
|
|
|
(method showMenu []
|
|
(SimpleWindow.promptForChoice "Testing SimpleWindow" ["Vertical" "Menu" "Quit"]
|
|
->:Void choice
|
|
(case choice
|
|
("Vertical"
|
|
null)
|
|
("Menu"
|
|
(subMenu))
|
|
("Quit"
|
|
(Sys.exit 0))
|
|
(never otherwise))))
|
|
|
|
(method subMenu []
|
|
(let [window (new SimpleWindow "SubMenu" null null null null "escape" "left" "right" "up" "down" "enter")]
|
|
(doFor letter ["A" "B" "C"]
|
|
(window.makeText letter null
|
|
->_ (print "$letter clicked")
|
|
->_ (print "$letter selected")
|
|
->_ (print "$letter deselected")))
|
|
|
|
(window.makeText "{tab} Back" null
|
|
->:Void _
|
|
{
|
|
(window.hide)
|
|
(showMenu)
|
|
})
|
|
(window.enableGamepadInput
|
|
true
|
|
null
|
|
[=>B "tab"])
|
|
(window.show)))
|
|
|
|
(method &override :Void update [:Float elapsed]
|
|
(super.update elapsed)) |