#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 15 Feb 2018 16:01:13 +0100
changeset 6286 05d5d5f8bc54
parent 6285 d0f22c51c704
child 6287 b2679d7727e8
#REFACTORING by cg class: TextView changed: #clearMarginOfVisibleLine:with:
TextView.st
--- a/TextView.st	Thu Feb 01 23:56:23 2018 +0100
+++ b/TextView.st	Thu Feb 15 16:01:13 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -3262,7 +3264,7 @@
     (leftMargin ~~ 0) ifTrue:[
         viewOrigin x <= margin ifTrue:[
             gc paint:color.
-            gc fillRectangleX:(margin-viewOrigin) x y:(self yOfVisibleLine:visLine)- (lineSpacing//2)
+            gc fillRectangleX:(margin-viewOrigin x) y:(self yOfVisibleLine:visLine)-(lineSpacing//2)
                width:leftMargin height:fontHeight
         ]
     ]