--- a/ListView.st	Tue Apr 21 20:53:22 1998 +0200
+++ b/ListView.st	Wed Apr 22 09:15:52 1998 +0200
@@ -1218,7 +1218,7 @@
 drawVisibleLine:visLineNr col:col with:fg and:bg
     "draw single character at col index of visible line in fg/bg"
 
-    |y yf x lineString characterString|
+    |y yf x lineString characterString em|
 
     lineString := self visibleAt:visLineNr.
     x := (self xOfCol:col inVisibleLine:visLineNr) - leftOffset.
@@ -1228,23 +1228,32 @@
 
     (lineString notNil and:[lineString isString not])
     ifTrue:[
-	self drawVisibleLine:visLineNr with:fg and:bg
+        self drawVisibleLine:visLineNr with:fg and:bg
     ] ifFalse:[
-	yf := y - (lineSpacing//2).
-	col > lineString size ifTrue:[
-	    self fillRectangleX:x y:yf width:(font width) height:fontHeight.
-	    self paint:fg
-	] ifFalse:[
-	    characterString := lineString copyFrom:col to:col.
-	    self fillRectangleX:x y:yf 
-			  width:(font widthOf:characterString)
-			 height:fontHeight.
-	    self paint:fg.
-	    self displayString:characterString x:x y:(y + fontAscent)
-	]
+        yf := y - (lineSpacing // 2).
+        col > lineString size ifTrue:[
+            self fillRectangleX:x y:yf width:(font width) height:fontHeight.
+            self paint:fg
+        ] ifFalse:[
+            characterString := lineString copyFrom:col to:col.
+"/            (em := characterString emphasis) notNil ifTrue:[
+"/                em := em at:1.
+"/                (Text emphasis:em includes:#italic) ifTrue:[
+"/                    self paint:fg on:bg.
+"/                    self displayOpaqueString:characterString x:x y:(y + fontAscent).
+"/                    ^ self
+"/                ]
+"/            ].
+
+            self fillRectangleX:x y:yf 
+                          width:(font widthOf:characterString)
+                         height:fontHeight.
+            self paint:fg.
+            self displayString:characterString x:x y:(y + fontAscent)
+        ]
     ]
 
-    "Modified: 12.5.1996 / 12:47:07 / cg"
+    "Modified: / 22.4.1998 / 09:13:32 / cg"
 !
 
 drawVisibleLine:visLineNr from:startCol to:endCol with:fg and:bg
@@ -3658,5 +3667,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.161 1998-04-06 10:39:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.162 1998-04-22 07:15:52 cg Exp $'
 ! !