--- a/Tools_MethodCategoryList.st Thu Aug 18 09:51:53 2011 +0200
+++ b/Tools_MethodCategoryList.st Thu Aug 18 10:05:43 2011 +0200
@@ -1240,13 +1240,13 @@
info isRedefine ifTrue:[ numRedefine := numRedefine + 1 ].
info isSubclassResponsibility ifTrue:[ numSubclassResponsibility := numSubclassResponsibility + 1].
]
- ]
- ].
- (Timestamp now deltaFrom:startTime) > 10 seconds ifTrue:[
- lazyPseudoProtocols := true.
- "/ because we already computed for 10seconds, more and more will be found in
- "/ the cache, and eventually, pseudo protocols will be shown anyway
- masterApplication showInfo:'suppress pseudo protocols - parsing took too long'.
+ ].
+ (Timestamp now deltaFrom:startTime) > 10 seconds ifTrue:[
+ lazyPseudoProtocols := true.
+ "/ because we already computed for 10seconds, more and more will be found in
+ "/ the cache, and eventually, pseudo protocols will be shown anyway
+ masterApplication showInfo:'suppress pseudo protocols - parsing took too long'.
+ ].
].
].
@@ -1491,7 +1491,7 @@
^ categoryList
"Created: / 05-02-2000 / 13:42:11 / cg"
- "Modified: / 08-08-2011 / 18:35:40 / cg"
+ "Modified: / 18-08-2011 / 10:04:40 / cg"
!
makeDependent
@@ -1931,11 +1931,11 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.70 2011-08-08 17:20:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.71 2011-08-18 08:05:43 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.70 2011-08-08 17:20:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.71 2011-08-18 08:05:43 cg Exp $'
! !
MethodCategoryList initialize!