added: #lowSpaceCleanup
authorClaus Gittinger <cg@exept.de>
Mon, 08 Aug 2011 19:16:13 +0200
changeset 10551 411e90fd6ee6
parent 10550 a57b8a71a061
child 10552 b7f2aa57ab63
added: #lowSpaceCleanup comment/format in: #updateList changed: #listOfMethodCategories
Tools_MethodCategoryList.st
--- 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!