ListView.st
changeset 6065 a8f521fbb02e
parent 6053 74dd0568082d
child 6086 58d88b144b2b
child 6098 62a103f41b17
--- a/ListView.st	Tue Jan 24 23:36:09 2017 +0100
+++ b/ListView.st	Sat Jan 28 18:11:50 2017 +0100
@@ -1979,7 +1979,7 @@
 
     y := self yOfVisibleLine:visLineNr.
     backgroundAlreadyClearedColor == bg ifFalse:[
-        self paint:bg.
+        gc paint:bg.
         halfSpacing := (lineSpacing//2).
         extraBelow := 0.
         self highlightLineSpacing ifTrue:[
@@ -2000,6 +2000,13 @@
         ] ifFalse:[
             l := line
         ].
+
+        "/ in the future, we may like to have a flag setting, which highlights non-ISO8859 characters;
+        "/ so we can tell, which chars make problems when saving as non-UTF8
+        
+        "/        l string bytesPerCharacter > 1 ifTrue:[
+        "/            l do:[:each | each bytesPerCharacter > 1 ifTrue:[ self halt ]].
+        "/        ].    
         gc displayOpaqueString:l x:x y:(y + fontAscent).
         
         checkedLinesForWidthOfContentsComputation == 0 ifTrue:[