# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 893315409 -7200
# Node ID b6f229e2ef70fa3e6849e5c9ee0afee67d9efe60
# Parent  4faf081e981d9dc999a22b454a58316ea54b3a36
checkin from browser

diff -r 4faf081e981d -r b6f229e2ef70 UIPainter.st
--- a/UIPainter.st	Thu Apr 23 09:05:19 1998 +0200
+++ b/UIPainter.st	Thu Apr 23 09:10:09 1998 +0200
@@ -3562,12 +3562,15 @@
 
     ((selection size > 1) and: [selection first == anIndex]) ifTrue:[
         dX := textInset - 1.
-        self paint:self application painter handleMasterColor.
+        self paint:(Color red). "/ self application painter handleMasterColor.
         self fillRectangleX:(textX - dX - 2)
-                          y:yCenter + 2 - (fontHeight // 2)
+                          y:"/ yCenter + 2 - (fontHeight // 2) 
+                            yCenter - (dX//2)
                       width:dX
                      height:dX
     ]
+
+    "Modified: / 23.4.1998 / 09:08:50 / cg"
 ! !
 
 !UIPainter::TreeView methodsFor:'initialization'!