From 87d2420aefc67cec22b1e42147aa8b273003f63b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Mon, 6 Nov 2023 12:01:50 +0100 Subject: [PATCH] TextEditor: First line can be folded again. [GB.FORM.EDITOR] * BUG: TextEditor: First line can be folded again. * NEW: TextEditor: Draw folding signs a bit smaller. --- comp/src/gb.form.editor/.src/CDocument.class | 2 +- comp/src/gb.form.editor/.src/TextEditor.class | 2 +- comp/src/gb.form.editor/.src/test/FTestEditor.class | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/comp/src/gb.form.editor/.src/CDocument.class b/comp/src/gb.form.editor/.src/CDocument.class index 23abb95e5..97e2209eb 100644 --- a/comp/src/gb.form.editor/.src/CDocument.class +++ b/comp/src/gb.form.editor/.src/CDocument.class @@ -907,7 +907,7 @@ Private Sub HighlightLine(Y As Integer) As Boolean aHighlight = $hHighlight.Run(Lines[Y] & "\n", aState) .Colors = aHighlight - 'If Y = 0 Then TextHighlighter.Limit = True + If Y = 0 Then $hHighlight.Limit = True sTextAfter = Left($hHighlight.TextAfter, -1) If sTextAfter And If Lines[Y] <> sTextAfter Then diff --git a/comp/src/gb.form.editor/.src/TextEditor.class b/comp/src/gb.form.editor/.src/TextEditor.class index b4a9803ff..1bf2e4b89 100644 --- a/comp/src/gb.form.editor/.src/TextEditor.class +++ b/comp/src/gb.form.editor/.src/TextEditor.class @@ -1691,7 +1691,7 @@ Private Sub DrawMargin(X As Integer, Y As Integer, Width As Integer, Height As I Paint.MoveTo(SS, 0) Paint.RelLineTo(0, S) Endif - Paint.LineCap = Paint.LineCapRound + Paint.LineCap = Paint.LineCapButt Paint.Stroke Endif Endif diff --git a/comp/src/gb.form.editor/.src/test/FTestEditor.class b/comp/src/gb.form.editor/.src/test/FTestEditor.class index 3935fe5a3..0b1a9de79 100644 --- a/comp/src/gb.form.editor/.src/test/FTestEditor.class +++ b/comp/src/gb.form.editor/.src/test/FTestEditor.class @@ -17,8 +17,8 @@ Private Sub Reload() 'TextEditor1.Highlight = "c" 'TextEditor1.Load("test.html") - TextHighlighter.Register("~/gambas/git/master/app/src/gambas3/highlight/conflict.highlight") - TextEditor1.Highlight = "conflict" + 'TextHighlighter.Register("~/gambas/git/master/app/src/gambas3/highlight/conflict.highlight") + 'TextEditor1.Highlight = "conflict" 'TextEditor1.Load("~/gambas/git/master/app/src/gambas3/.src/Project.module", True) TextEditor1.Load("~/asap/omogen/master/src/kernel/guygle.cgi/.src/Actions/ActionMacro.module") 'TextEditor1.Load("~/gambas/issues/2427/20211224-165548234-theme.css")