Bring back FullControl, but size-aware

This commit is contained in:
2023-06-12 14:27:24 -06:00
parent 6a7c4899ae
commit affaa67c51

View File

@@ -111,6 +111,11 @@
(_canvas.makeGraphic FlxG.width FlxG.height FlxColor.BLACK)) (_canvas.makeGraphic FlxG.width FlxG.height FlxColor.BLACK))
_canvas) _canvas)
(method :StagePosition FullControl [:FlxSprite s :Int layer :RelativePosition rpos]
(assert (<= 0 layer FlxDirector.LAYER_MAX) "Layer $layer is out of range 0-$FlxDirector.LAYER_MAX")
(let [[x y] (SpriteTools.positionOn s (canvas) rpos)]
(new StagePosition x y layer)))
(method namePlates [:Array<String> names :Dynamic delayLength :Bool delayWhileShown :Void->Void cc] (method namePlates [:Array<String> names :Dynamic delayLength :Bool delayWhileShown :Void->Void cc]
(let [plates (let [plates
(for name names (for name names