# HG changeset patch
# User ca
# Date 896353197 -7200
# Node ID c24c7584abe4108b151ff5b2bfc8f79df8545380
# Parent  2f65d898243e46045f5bb9be0a4d6404cc52e981
replace reimplememented method:
    drawLabelIndex:anIndex atX:textX y:yCenter
through to:
    redrawLabelAt:x y:yTop index:anIndex

diff -r 2f65d898243e -r c24c7584abe4 UIPainter.st
--- 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
     ]