SelectionInTreeView.st
changeset 541 4e7032015683
parent 533 d7867efb6f60
child 545 d01d14358b07
--- 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 $'
 ! !