# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1518706873 -3600
# Node ID 05d5d5f8bc54a100d0ec3720f73799c8d0ed98f6
# Parent  d0f22c51c7045f13ddb4e9d61a13d69d9ea12d26
#REFACTORING by cg
class: TextView
changed: #clearMarginOfVisibleLine:with:

diff -r d0f22c51c704 -r 05d5d5f8bc54 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
         ]
     ]