--- 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:[