UIPainter.st
changeset 807 b6f229e2ef70
parent 805 99e70b6c02e5
child 808 4e2ab5e77344
--- 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'!