--- a/ProfileTree.st	Wed Mar 19 12:40:49 1997 +0100
+++ b/ProfileTree.st	Wed Mar 19 19:18:44 1997 +0100
@@ -261,11 +261,11 @@
     leafNodes := leafNodes asSortedCollection:[:a :b |
                                         a leafTally < b leafTally].
     leafNodes do:[:aNode |
-        aNode printSingleOn:aStream.
+        aNode printSingleLeafOn:aStream.
         aStream cr.
     ].
 
-    "Modified: 18.5.1996 / 19:04:03 / cg"
+    "Modified: 19.3.1997 / 19:10:21 / cg"
 !
 
 printMethodLeafsOn:aStream
@@ -278,12 +278,12 @@
     leafNodes := leafNodes asSortedCollection:[:a :b |
                                         a leafTally < b leafTally].
     leafNodes do:[:aNode |
-        aNode printSingleMethodOn:aStream.
+        aNode printSingleMethodLeafOn:aStream.
         aStream cr.
     ].
 
     "Created: 19.3.1997 / 12:19:31 / cg"
-    "Modified: 19.3.1997 / 12:34:39 / cg"
+    "Modified: 19.3.1997 / 19:10:28 / cg"
 !
 
 printOn:aStream
@@ -318,7 +318,38 @@
     "Modified: 18.5.1996 / 19:04:12 / cg"
 !
 
-printSingleMethodOn:aStream
+printSingleLeafOn:aStream
+    "print a single nodes statistic on aStream"
+
+    selector notNil ifTrue:[
+        isBlock == true ifTrue:[
+            '[] in ' printOn:aStream
+        ].
+        receiver name printOn:aStream.
+        (class notNil and:[class ~~ receiver]) ifTrue:[
+            '>>' printOn:aStream.
+            class name printOn:aStream
+        ].
+        aStream space.
+        selector printOn:aStream.
+        aStream space.
+
+        leafTally notNil ifTrue:[
+            aStream nextPutAll:'('.
+            leafTally printOn:aStream.
+            aStream nextPutAll:'%)'.
+        ] ifFalse:[
+            aStream nextPutAll:'(total '.
+            totalTally printOn:aStream.
+            aStream nextPutAll:'%)'.
+        ].
+    ].
+
+    "Created: 19.3.1997 / 19:10:13 / cg"
+    "Modified: 19.3.1997 / 19:17:05 / cg"
+!
+
+printSingleMethodLeafOn:aStream
     "print a single nodes statistic on aStream"
 
     |cls|
@@ -327,7 +358,7 @@
         isBlock == true ifTrue:[
             '[] in ' printOn:aStream
         ].
-        (class notNil and:[class ~~ receiver class]) ifTrue:[
+        (class notNil and:[class ~~ receiver]) ifTrue:[
             cls := class
         ] ifFalse:[
             cls := receiver.
@@ -338,7 +369,7 @@
         aStream space.
 
         leafTally notNil ifTrue:[
-            aStream nextPutAll:'(leaf '.
+            aStream nextPutAll:'('.
             leafTally printOn:aStream.
             aStream nextPutAll:'%)'.
         ] ifFalse:[
@@ -348,8 +379,8 @@
         ]
     ].
 
-    "Created: 19.3.1997 / 12:33:46 / cg"
-    "Modified: 19.3.1997 / 12:36:44 / cg"
+    "Created: 19.3.1997 / 19:10:32 / cg"
+    "Modified: 19.3.1997 / 19:17:13 / cg"
 !
 
 printSingleOn:aStream
@@ -360,7 +391,7 @@
             '[] in ' printOn:aStream
         ].
         receiver name printOn:aStream.
-        (class notNil and:[class ~~ receiver class]) ifTrue:[
+        (class notNil and:[class ~~ receiver]) ifTrue:[
             '>>' printOn:aStream.
             class name printOn:aStream
         ].
@@ -368,18 +399,20 @@
         selector printOn:aStream.
         aStream space.
 
-        aStream nextPutAll:'(total '.
-        totalTally printOn:aStream.
-        aStream nextPutAll:'%)'.
+        (leafTally isNil or:[leafTally ~= totalTally]) ifTrue:[
+            aStream nextPutAll:'(total '.
+            totalTally printOn:aStream.
+            aStream nextPutAll:'%)'.
+        ].
 
         leafTally notNil ifTrue:[
-            aStream nextPutAll:'(leaf '.
+            aStream nextPutAll:'(here '.
             leafTally printOn:aStream.
             aStream nextPutAll:'%)'.
         ].
     ].
 
-    "Modified: 18.5.1996 / 19:04:28 / cg"
+    "Modified: 19.3.1997 / 19:14:32 / cg"
 ! !
 
 !ProfileTree methodsFor:'private'!
@@ -460,5 +493,5 @@
 !ProfileTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.14 1997-03-19 11:40:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.15 1997-03-19 18:18:44 cg Exp $'
 ! !