diff -r 9008bbd8d9df -r 5ccbde40bb6b SelListV.st
--- a/SelListV.st	Wed Nov 22 22:19:31 1995 +0100
+++ b/SelListV.st	Thu Nov 23 00:08:01 1995 +0100
@@ -49,7 +49,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.44 1995-11-17 08:54:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.45 1995-11-22 23:08:01 cg Exp $'
 !
 
 documentation
@@ -1220,17 +1220,10 @@
      y2 "{ Class: SmallInteger }" 
      wEdge|
 
-
     bg := hilightBgColor.
     fg := hilightFgColor.
     listLine := self visibleLineToListLine:visLineNr.
     listLine notNil ifTrue:[
-"XXX only if -1/+1"
-"/        hilightLevel ~~ 0 ifTrue:[
-"/          self paint:bg.
-"/          self fillRectangleX:0 y:(self yOfVisibleLine:visLineNr)-1 width:width height:1
-"/      ].
-
 	strikeOut ifTrue:[
 	    self drawVisibleLine:visLineNr with:fgColor and:bgColor.
 	    y := self yOfVisibleLine:visLineNr.
@@ -1242,7 +1235,7 @@
 	].
 
 	self drawVisibleLine:visLineNr with:fg and:bg.
-	y := self yOfVisibleLine:visLineNr.
+	y := (self yOfVisibleLine:visLineNr) - (lineSpacing//2).
 
 	"
 	 a line above and below
@@ -1261,20 +1254,15 @@
 	 an edge it around
 	"
 	(hilightLevel ~~ 0) ifTrue:[
-"XXX the -1/+1 need some more work"
-"/                self drawEdgesForX:0 y:y-1 
-"/                             width:width height:fontHeight+1 
-"/                             level:hilightLevel.
-
 	    "
 	     let edge start at left, extending to the full width
 	     XXX: widthOfContents should be cached in ListView
 		  (instead of recomputing all over)
 	    "
 	    wEdge := width-(2 * margin).
-includesNonStrings ifFalse:[
-	    wEdge := wEdge max:(self widthOfContents).
-].
+	    includesNonStrings ifFalse:[
+		wEdge := wEdge max:(self widthOfContents).
+	    ].
 	    self drawEdgesForX:(margin - leftOffset) y:y 
 			 width:wEdge height:fontHeight 
 			 level:hilightLevel.