un-clip some credits text

2023-06-14 09:20:11 -06:00
parent 39a0a98af8
commit 1fb6c53628
1 changed files with 3 additions and 0 deletions
--- a/src/hollywoo_flixel/FlxDirector.kiss
+++ b/src/hollywoo_flixel/FlxDirector.kiss
@@ -691,6 +691,9 @@
                    (set t1.x (- (* FlxG.width 0.3) t1.width (/ twoColumnGap 2)))
                    (set t1.y textY)
                    (set t2.x (+ (* FlxG.width 0.3) (/ twoColumnGap 2)))
+                    (let [clippedRight (- (+ t2.x t2.width) FlxG.width)]
+                        (when (> clippedRight 0)
+                            (-= t2.x clippedRight)))
                    (set t2.y textY))
                (+= textY twoColSize creditMargin))
            // Left-justified, centered, right-justified three column lines