add function to get the appropriate scroll column

2025-09-11 16:17:56 +01:00
parent e85ac5e806
commit 77439acef6
4 changed files with 30 additions and 1 deletions
--- a/fcore/text-constants.sml
+++ b/fcore/text-constants.sml
@@ -4,5 +4,7 @@ struct
  val xSpace3 = xSpace * 3
  val ySpace = 25
  val scale: Real32.real = 2.0
-  val textLineWidth = xSpace * 80
+
+  val textLineCount = 80
+  val textLineWidth = xSpace * textLineCount
 end