added: #lowSpaceCleanup
comment/format in: #updateList
changed: #listOfMethodCategories
--- a/Tools_MethodCategoryList.st Mon Aug 08 18:28:30 2011 +0200
+++ b/Tools_MethodCategoryList.st Mon Aug 08 19:16:13 2011 +0200
@@ -73,6 +73,14 @@
MethodInfoCacheAccessLock := RecursionLock new.
! !
+!MethodCategoryList class methodsFor:'cleanup'!
+
+lowSpaceCleanup
+ MethodInfoCache := nil
+
+ "Created: / 08-08-2011 / 19:15:25 / cg"
+! !
+
!MethodCategoryList class methodsFor:'interface specs'!
singleProtocolWindowSpec
@@ -1232,6 +1240,9 @@
].
(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'.
].
].
@@ -1476,7 +1487,7 @@
^ categoryList
"Created: / 05-02-2000 / 13:42:11 / cg"
- "Modified: / 08-08-2011 / 18:19:54 / cg"
+ "Modified: / 08-08-2011 / 18:35:40 / cg"
!
makeDependent
@@ -1557,7 +1568,7 @@
listValid := true.
"Created: / 05-02-2000 / 13:42:11 / cg"
- "Modified: / 09-07-2011 / 10:36:57 / cg"
+ "Modified: / 08-08-2011 / 18:49:31 / cg"
! !
!MethodCategoryList methodsFor:'private-info'!
@@ -1916,11 +1927,11 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.68 2011-08-08 16:27:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.69 2011-08-08 17:16:13 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.68 2011-08-08 16:27:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.69 2011-08-08 17:16:13 cg Exp $'
! !
MethodCategoryList initialize!