when text is wide enough to be centered, also centre the search bar

2025-09-14 09:14:22 +01:00
parent 4bc6c54951
commit 428208f9bf
5 changed files with 137 additions and 120 deletions
--- a/fcore/text-builder/text-builder-utils.sml
+++ b/fcore/text-builder/text-builder-utils.sml
@@ -90,8 +90,8 @@ struct
        , cursorZ = 0.03
        , highlightZ = 0.05

-        , startX = 5
-        , startY = 5
+        , startX = startX
+        , startY = startX

        , scrollColumnStart = visualScrollColumn
        , scrollColumnEnd = width div TC.xSpace + visualScrollColumn
@@ -105,7 +105,7 @@ struct
        }
      else
        let
-          val startX = (endX - TC.textLineWidth) div 2
+          val startX = (width - TC.textLineWidth) div 2
        in
          { charR = 0.67
          , charG = 0.51