when selecting circle entries, don't make them disappear

This commit is contained in:
2022-07-05 15:21:44 +00:00
parent df334fc7a6
commit 6610f4f77f

View File

@@ -6,7 +6,8 @@
&prop :Archive archive &prop :Archive archive
&prop :Entry e &prop :Entry e
&prop :ArchiveController controller] &prop :ArchiveController controller]
[&mut :Bool selected false] [&mut :Bool selected false
&mut :Bool isCircle false]
(super position.x position.y) (super position.x position.y)
(cond (cond
((hasComponent e Images2) ((hasComponent e Images2)
@@ -16,10 +17,11 @@
(loadGraphic bitmapData) (loadGraphic bitmapData)
}))) })))
((hasComponent e Circle) ((hasComponent e Circle)
(set isCircle true)
(let [c (readComponent e Circle) (let [c (readComponent e Circle)
diam (Std.int (* 2 c.radius))] diam (Std.int (* 2 c.radius))]
(makeGraphic diam diam FlxColor.TRANSPARENT true) (makeGraphic diam diam FlxColor.TRANSPARENT true)
(FlxSpriteUtil.drawCircle this -1 -1 c.radius FlxColor.TRANSPARENT (object thickness 5 color FlxColor.LIME)))) (FlxSpriteUtil.drawCircle this -1 -1 c.radius FlxColor.TRANSPARENT (object thickness 5 color CIRCLE_COLOR))))
(true (true
(set pixels .pixels (new FlxText 0 0 0 (readComponent e Name) PlayState.TEXT_SIZE)))) (set pixels .pixels (new FlxText 0 0 0 (readComponent e Name) PlayState.TEXT_SIZE))))
(updateColor) (updateColor)
@@ -70,8 +72,13 @@
(method updateColor [] (method updateColor []
(if (controller.isSelected e) (if (controller.isSelected e)
{ {
(set color FlxColor.BLUE) (set color (if isCircle CIRCLE_SELECTED_COLOR SELECTED_COLOR))
} }
{ {
(set color FlxColor.WHITE) (set color FlxColor.WHITE)
})) }))
(var SELECTED_COLOR FlxColor.BLUE)
(var CIRCLE_COLOR FlxColor.LIME)
(var CIRCLE_SELECTED_COLOR FlxColor.GRAY)
(var DEFAULT_COLOR FlxColor.WHITE)