UIPainter.st
changeset 852 c24c7584abe4
parent 851 2f65d898243e
child 877 f31f41b29710
--- a/UIPainter.st	Mon May 25 20:02:13 1998 +0200
+++ b/UIPainter.st	Thu May 28 12:59:57 1998 +0200
@@ -3688,19 +3688,18 @@
 
 !
 
-drawLabelIndex:anIndex atX:textX y:yCenter
+redrawLabelAt:x y:yTop index:anIndex
     "draws a tiny rectangle for indicating the master node (first selected node)"
 
     |dX|
 
-    super drawLabelIndex:anIndex atX:textX y:yCenter.
+    super redrawLabelAt:x y:yTop index:anIndex.
 
     ((selection size > 1) and: [selection first == anIndex]) ifTrue:[
         dX := textInset - 1.
         self paint:(Color red). "/ self application painter handleMasterColor.
-        self fillRectangleX:(textX - dX - 2)
-                          y:"/ yCenter + 2 - (fontHeight // 2) 
-                            yCenter - (dX//2)
+        self fillRectangleX:(x - dX - 2)
+                          y:yTop + ((fontHeight - dX) // 2)
                       width:dX
                      height:dX
     ]