--- a/Method.st Mon Aug 21 22:20:15 2000 +0200
+++ b/Method.st Mon Aug 21 23:54:32 2000 +0200
@@ -1792,9 +1792,9 @@
privInfo := (' (* ' , p , ' *)') asText emphasizeAllWith:#italic.
].
- self isInvalid ifTrue:[
- moreInfo := ' (** not executable **)'.
- ].
+"/ self isInvalid ifTrue:[
+"/ moreInfo := ' (** not executable **)'.
+"/ ].
(self isLazyMethod not and:[self isUnloaded]) ifTrue:[
moreInfo := ' (** unloaded **)'
@@ -2724,6 +2724,6 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.201 2000-08-19 18:29:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.202 2000-08-21 21:54:32 cg Exp $'
! !
Method initialize!