--- a/Method.st Fri Dec 01 16:28:45 2000 +0100
+++ b/Method.st Fri Dec 01 16:36:05 2000 +0100
@@ -1731,42 +1731,42 @@
privInfo := ''.
self isWrapped ifTrue:[
- (MessageTracer isCounting:self) ifTrue:[
- (MessageTracer isCountingMemoryUsage:self) ifTrue:[
- moreInfo := moreInfo ,
- ' (mem usage avg: ' , (MessageTracer memoryUsageOfMethod:self) printString asText allBold , ' bytes)'.
- ] ifFalse:[
- moreInfo := moreInfo ,
- ' (called ' , (MessageTracer executionCountOfMethod:self) printString asText allBold , ' times)'.
- ]
- ] ifFalse:[
- (MessageTracer isTiming:self) ifTrue:[
- i := MessageTracer executionTimesOfMethod:self.
- (i isNil or:[(n := i at:#count) == 0]) ifTrue:[
- moreInfo := moreInfo ,
- ' (cnt: ' , (i at:#count) printString , ')'
- ] ifFalse:[
- n == 1 ifTrue:[
- moreInfo := moreInfo ,
- ' (t: ' , (i at:#avgTime) printString asText allBold,
- 'ms cnt: ' , (i at:#count) printString , ')'
- ] ifFalse:[
- moreInfo := moreInfo ,
- ' (avg: ' , (i at:#avgTime) printString asText allBold,
- 'ms min: ' , (i at:#minTime) printString ,
- ' max: ' , (i at:#maxTime) printString ,
- ' cnt: ' , (i at:#count) printString , ')'
- ].
- ].
- ] ifFalse:[
- moreInfo := ' !!'
- ]
- ].
+ (MessageTracer isCounting:self) ifTrue:[
+ (MessageTracer isCountingMemoryUsage:self) ifTrue:[
+ moreInfo := moreInfo ,
+ ' (mem usage avg: ' , (MessageTracer memoryUsageOfMethod:self) printString allBold , ' bytes)'.
+ ] ifFalse:[
+ moreInfo := moreInfo ,
+ ' (called ' , (MessageTracer executionCountOfMethod:self) printString allBold , ' times)'.
+ ]
+ ] ifFalse:[
+ (MessageTracer isTiming:self) ifTrue:[
+ i := MessageTracer executionTimesOfMethod:self.
+ (i isNil or:[(n := i at:#count) == 0]) ifTrue:[
+ moreInfo := moreInfo ,
+ ' (cnt: ' , (i at:#count) printString , ')'
+ ] ifFalse:[
+ n == 1 ifTrue:[
+ moreInfo := moreInfo ,
+ ' (t: ' , (i at:#avgTime) printString allBold,
+ 'ms cnt: ' , (i at:#count) printString , ')'
+ ] ifFalse:[
+ moreInfo := moreInfo ,
+ ' (avg: ' , (i at:#avgTime) printString allBold,
+ 'ms min: ' , (i at:#minTime) printString ,
+ ' max: ' , (i at:#maxTime) printString ,
+ ' cnt: ' , (i at:#count) printString , ')'
+ ].
+ ].
+ ] ifFalse:[
+ moreInfo := ' !!'
+ ]
+ ].
].
p := self privacy.
p ~~ #public ifTrue:[
- privInfo := (' (* ' , p , ' *)') asText emphasizeAllWith:#italic.
+ privInfo := (' (* ' , p , ' *)') asText emphasizeAllWith:#italic.
].
"/ self isInvalid ifTrue:[
@@ -1774,19 +1774,19 @@
"/ ].
(self isLazyMethod not and:[self isUnloaded]) ifTrue:[
- moreInfo := ' (** unloaded **)'
+ moreInfo := ' (** unloaded **)'
].
privInfo size ~~ 0 ifTrue:[
- moreInfo := privInfo , ' ' , moreInfo
+ moreInfo := privInfo , ' ' , moreInfo
].
s := selector.
(cls := aClass) isNil ifTrue:[
- cls := self containingClass
+ cls := self containingClass
].
(cls isNil or:[self package ~= cls package]) ifTrue:[
- s := s , ' [' , (self package asText emphasizeAllWith:(Array with:#italic with:(#color->Color red darkened))), ']'
+ s := s , ' [' , (self package asText emphasizeAllWith:(Array with:#italic with:(#color->Color red darkened))), ']'
].
moreInfo size == 0 ifTrue:[^ s].
@@ -1794,7 +1794,7 @@
s := selector , moreInfo.
self isInvalid ifTrue:[
- s := s asText emphasizeAllWith:#color->Color red.
+ s := s asText emphasizeAllWith:#color->Color red.
].
^ s
@@ -2822,6 +2822,6 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.218 2000-11-22 10:56:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.219 2000-12-01 15:36:05 cg Exp $'
! !
Method initialize!