ListView.st
branchjv
changeset 6086 58d88b144b2b
parent 6085 4ecbe3a93aec
parent 6065 a8f521fbb02e
child 6349 4366b65a2c8a
--- a/ListView.st	Wed Jan 25 17:40:20 2017 +0000
+++ b/ListView.st	Wed Feb 01 11:58:25 2017 +0000
@@ -1996,7 +1996,7 @@
 
     y := self yOfVisibleLine:visLineNr.
     backgroundAlreadyClearedColor == bg ifFalse:[
-        self paint:bg.
+        gc paint:bg.
         halfSpacing := (lineSpacing//2).
         extraBelow := 0.
         self highlightLineSpacing ifTrue:[
@@ -2017,6 +2017,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:[