UIPainter.st
changeset 852 c24c7584abe4
parent 851 2f65d898243e
child 877 f31f41b29710
equal deleted inserted replaced
851:2f65d898243e 852:c24c7584abe4
  3686     ]
  3686     ]
  3687 
  3687 
  3688 
  3688 
  3689 !
  3689 !
  3690 
  3690 
  3691 drawLabelIndex:anIndex atX:textX y:yCenter
  3691 redrawLabelAt:x y:yTop index:anIndex
  3692     "draws a tiny rectangle for indicating the master node (first selected node)"
  3692     "draws a tiny rectangle for indicating the master node (first selected node)"
  3693 
  3693 
  3694     |dX|
  3694     |dX|
  3695 
  3695 
  3696     super drawLabelIndex:anIndex atX:textX y:yCenter.
  3696     super redrawLabelAt:x y:yTop index:anIndex.
  3697 
  3697 
  3698     ((selection size > 1) and: [selection first == anIndex]) ifTrue:[
  3698     ((selection size > 1) and: [selection first == anIndex]) ifTrue:[
  3699         dX := textInset - 1.
  3699         dX := textInset - 1.
  3700         self paint:(Color red). "/ self application painter handleMasterColor.
  3700         self paint:(Color red). "/ self application painter handleMasterColor.
  3701         self fillRectangleX:(textX - dX - 2)
  3701         self fillRectangleX:(x - dX - 2)
  3702                           y:"/ yCenter + 2 - (fontHeight // 2) 
  3702                           y:yTop + ((fontHeight - dX) // 2)
  3703                             yCenter - (dX//2)
       
  3704                       width:dX
  3703                       width:dX
  3705                      height:dX
  3704                      height:dX
  3706     ]
  3705     ]
  3707 ! !
  3706 ! !
  3708 
  3707