Mercurial Mercurial > hg > stx-libbasic3 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MessageTally.st
changeset 256 da5bff51d133
parent 244 42acac0f7b8c
child 259 eb2d1a3e3b52 
--- a/MessageTally.st	Sat May 18 11:40:16 1996 +0200
+++ b/MessageTally.st	Sat May 18 15:56:55 1996 +0200
@@ -134,32 +134,32 @@
     runTime := aTally spyOn:aBlock interval:ms.
 
     aTally tree isNil ifTrue:[
-	Transcript cr.
-	Transcript showCr:'TALLY: No probes - execution time too short;'.
-	Transcript showCr:'TALLY: retry using: spyOn:[n timesRepeat:[...]]'.
+        Transcript cr.
+        Transcript showCR:'TALLY: No probes - execution time too short;'.
+        Transcript showCR:'TALLY: retry using: spyOn:[n timesRepeat:[...]]'.
     ] ifFalse:[
-	"/ aTally tree inspect.
-	nTally := aTally nTally.
-	Transcript cr.
-	Transcript showCr:('total execution time: '
-			   , runTime printString , ' ms '
-			   , '(' , nTally printString , ' probes ;'
-			   , ' error >= ' 
-			   , (1000 // nTally / 10.0) printString
-			   , '%)').
-	Transcript cr.
-	aTally tree printOn:Transcript.
-	Transcript cr.
-	Transcript cr.
+        "/ aTally tree inspect.
+        nTally := aTally nTally.
+        Transcript cr.
+        Transcript showCR:('total execution time: '
+                           , runTime printString , ' ms '
+                           , '(' , nTally printString , ' probes ;'
+                           , ' error >= ' 
+                           , (1000 // nTally / 10.0) printString
+                           , '%)').
+        Transcript cr.
+        aTally tree printOn:Transcript.
+        Transcript cr.
+        Transcript cr.
 
-	Transcript showCr:'leafs of calling tree:'.
-	Transcript cr.
-	aTally tree printLeafsOn:Transcript.
-	Transcript cr.
+        Transcript showCR:'leafs of calling tree:'.
+        Transcript cr.
+        aTally tree printLeafsOn:Transcript.
+        Transcript cr.
 
-	"
-	aTally statistics.
-	"
+        "
+        aTally statistics.
+        "
     ].
 
     "
@@ -173,6 +173,8 @@
      MessageTally spyDetailedOn:[SystemBrowser open ]
      Time millisecondsToRun:[500000 timesRepeat:[#(6 5 4 3 2 1) sort] ]
     "
+
+    "Modified: 18.5.1996 / 15:42:44 / cg"
 ! !
 
 !MessageTally methodsFor:'accessing'!
@@ -314,5 +316,5 @@
 !MessageTally class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.19 1996-04-27 18:10:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.20 1996-05-18 13:56:39 cg Exp $'
 ! !
hg/stx-libbasic3