replace reimplememented method:
drawLabelIndex:anIndex atX:textX y:yCenter
through to:
redrawLabelAt:x y:yTop index:anIndex
--- 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
]