TextEditor: Checking the Limit property of a line now highlights until that line.

[GB.FORM.EDITOR]
* BUG: TextEditor: Checking the Limit property of a line now highlights until that line.

comp/src/gb.form.editor/.src/CDocument.class

@@ -978,15 +978,19 @@ Public Sub HighlightUntil(Y As Integer)
   
   If $bHighlighting Then Return
   
+  Y = Min(Y, Lines.Max)
+  
   If $iNoHighlight Then 
     $cHighlightLater[Y] = True
     Return
   Endif
   
+  If $iFirstInvalidHighlight > Y Then Return
+  
   If Not StartHighlight() Then Return
 
   iNextFirst = -1
-  For L = $iFirstInvalidHighlight To Min(Y, Lines.Max)
+  For L = $iFirstInvalidHighlight To Y
     If L = $iDoNotHighlightLine And If Info(L).Modified Then 
       If iNextFirst < 0 Then iNextFirst = L
       Continue

comp/src/gb.form.editor/.src/TextEditor.class

@@ -3606,6 +3606,7 @@ Public Sub FindNextLimit(Y As Integer) As Integer
   Do
     Inc Y
     If Y > $hDoc.Max Then Return -1
+    $hDoc.HighlightUntil(Y)
     If $hDoc.Info(Y).Limit Then Return Y
   Loop
   

comp/src/gb.form.editor/.src/_TextEditor_Line.class

@@ -70,7 +70,11 @@ End
 
 Private Function Limit_Read() As Boolean
 
-  Return GetDoc().Info(_Line).Limit
+  Dim hDoc As CDocument
+
+  hDoc = GetDoc()
+  hDoc.HighlightUntil(_Line)
+  Return hDoc.Info(_Line).Limit
 
 End