--- a/SelectionInTreeView.st Sat Oct 04 19:49:51 1997 +0200
+++ b/SelectionInTreeView.st Mon Oct 06 14:32:48 1997 +0200
@@ -446,7 +446,7 @@
self fillRectangleX:0 y:yTop width:width height:(end * fontHeight).
index isNil ifTrue:[^ self].
- figWidthDiv2 := imageWidth // 2..
+ figWidthDiv2 := imageWidth // 2.
yCtr := yTop - (fontHeight // 2).
self paint:fg on:bg.
@@ -488,9 +488,9 @@
"/ draw image
image := self figureFor:node.
- image notNil ifTrue:[
+ image notNil ifTrue:[
self displayForm:image x:xFig y:(yCtr - (image height // 2)).
- ].
+ ].
"/ draw text label
self drawLabelIndex:index atX:xStr y:yCtr .
@@ -512,11 +512,7 @@
yTop := yBot.
].
-
-
-
-
-
+ "Modified: 6.10.1997 / 13:31:51 / cg"
!
drawLabelIndex:anIndex atX:x y:yCenter
@@ -1172,5 +1168,5 @@
!SelectionInTreeView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.22 1997-09-19 16:14:11 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.23 1997-10-06 12:32:48 cg Exp $'
! !