--- a/Tools_MethodList.st	Wed Apr 20 01:04:49 2005 +0200
+++ b/Tools_MethodList.st	Wed Apr 20 03:02:23 2005 +0200
@@ -341,7 +341,8 @@
                         ].
                         (variableFilter value size > 0
                         or:[oldMethod package ~= newMethod package
-                        or:[oldMethod resources ~= newMethod resources]]) ifTrue:[
+                        or:[oldMethod resources ~= newMethod resources
+                        or:[showMethodComplexity value ~~ false]]]) ifTrue:[
                             "/ only update that methods entry
                             self updateListEntryFor:newMethod.    
                             "/ sigh - must invalidate
@@ -875,7 +876,7 @@
 
     showMethodComplexity value ~~ false ifTrue:[
         metrics := Tools::MethodMetrics forMethod:aMethod.
-        complexity := metrics complexity.
+        complexity := metrics complexity ? 0.
         complexityString := complexity printString asText.
         lBr := '{'.
         rBr := '}'.
@@ -1464,5 +1465,5 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.5 2005-04-19 23:04:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.6 2005-04-20 01:02:10 cg Exp $'
 ! !