From f3419c878620d3b06c36869a05fddc2546554b2d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Wed, 1 Nov 2023 18:14:38 +0100 Subject: [PATCH] 'TextHighlighter.CanRewrite' is now dynamic. 'TextHighlighter._Register()' is now 'TextHighlighter._RegisterColor()'. [GB.FORM.EDITOR] * BUG: 'TextHighlighter.CanRewrite' is now dynamic. * BUG: 'TextHighlighter._Register()' is now 'TextHighlighter._RegisterColor()'. --- comp/src/gb.form.editor/.src/CDocument.class | 4 ++-- comp/src/gb.form.editor/.src/_TextEditor_Line.class | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/comp/src/gb.form.editor/.src/CDocument.class b/comp/src/gb.form.editor/.src/CDocument.class index 01133acd0..38af839f6 100644 --- a/comp/src/gb.form.editor/.src/CDocument.class +++ b/comp/src/gb.form.editor/.src/CDocument.class @@ -958,9 +958,9 @@ Private Sub StartHighlight() As Boolean $bHighlighting = True - TextHighlighter.CanRewrite = True '_Mode.Name + $hHighlight.CanRewrite = True '_Mode.Name - If Not $bHighlightAll And If TextHighlighter.CanRewrite Then + If Not $bHighlightAll And If $hHighlight.CanRewrite Then For Each hView In GetAllViews() If Not hView.ReadOnly And If hView.HasFocus Then $iDoNotHighlightLine = hView.Line diff --git a/comp/src/gb.form.editor/.src/_TextEditor_Line.class b/comp/src/gb.form.editor/.src/_TextEditor_Line.class index 0e86f4307..cdd01efdf 100644 --- a/comp/src/gb.form.editor/.src/_TextEditor_Line.class +++ b/comp/src/gb.form.editor/.src/_TextEditor_Line.class @@ -183,9 +183,9 @@ Public Sub Purge(Optional KeepComment As Boolean, KeepString As Boolean, Replace aColor = GetDoc().Info(_Line).Colors If Not aColor Then Return sText - iComment = TextHighlighterTheme._Register("Comment") - iHelp = TextHighlighterTheme._Register("Documentation") - iString = TextHighlighterTheme._Register("String") + iComment = TextHighlighterTheme._RegisterColor("Comment") + iHelp = TextHighlighterTheme._RegisterColor("Documentation") + iString = TextHighlighterTheme._RegisterColor("String") X = 1 For I = 0 To aColor.Max Step 2