--- a/Tools__MethodList.st	Wed May 30 21:46:55 2012 +0100
+++ b/Tools__MethodList.st	Tue Jun 05 15:49:00 2012 +0100
@@ -438,9 +438,8 @@
 "/                        or:[oldMethod package ~= newMethod package
 "/                        or:[oldMethod resources ~= newMethod resources
 "/                        or:[showMethodComplexity value == true]]])
-                        true
-                        ifTrue:[
-                            "/ only update that methods entry
+                        self autoUpdateOnChange ifTrue:[
+                            "/ only update that method's entry
                             self updateListEntryFor:newMethod.    
                             "/ sigh - must invalidate
                             "/ self invalidateList.
@@ -474,17 +473,19 @@
             ].
 
             (something == #methodTrap 
-            or:[ something == #privacyOfMethod ]) ifTrue:[
+            or:[ something == #lastTestRunResult 
+            or:[ something == #privacyOfMethod ]]) ifTrue:[
                 cls := aParameter at:1.
                 sel := aParameter at:2.
                 (classes includesIdentical:cls) ifFalse:[ ^ self].
+
                 newMethod := cls compiledMethodAt:sel.
                 newMethod isNil ifTrue:[
                     self invalidateList.
                     ^ self
                 ].
 
-                (something == #privacyOfMethod) ifTrue:[
+                ((something == #privacyOfMethod) or:[something == #lastTestRunResult]) ifTrue:[
                     self updateListEntryFor:newMethod.    
                 ].
 
@@ -699,8 +700,8 @@
     super delayedUpdate:something with:aParameter from:changedObject
 
     "Created: / 05-02-2000 / 13:42:14 / cg"
-    "Modified: / 20-07-2011 / 18:56:23 / cg"
     "Modified: / 13-04-2012 / 16:04:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-06-2012 / 16:59:43 / cg"
 !
 
 selectedMethodsChanged
@@ -835,18 +836,19 @@
         (something == #methodTrap 
         or:[ something == #methodPrivacy
         or:[ something == #lastTestRunResult] ]) ifTrue:[
+            cls := aParameter at:1.
+            (classes includesIdentical:cls) ifFalse:[
+                ^ self   "/ I dont care for that class
+            ].
             self window shown ifFalse:[
                 "JV@2011-11-17: Do not break the dependency here,
                  because then the window won't get updates once
                  deiconified -> leads to confusing behavior (browser
                  shows obsolete info)"
                 "/changedObject removeDependent:self. "/ ?????
+                self invalidateList.
                 ^ self
             ].
-            cls := aParameter at:1.
-            (classes includesIdentical:cls) ifFalse:[
-                ^ self   "/ I dont care for that class
-            ].
         ].
 
         "/ as the organisation changes, flush my remembered redefinition-cache-info
@@ -901,8 +903,8 @@
 
     super update:something with:aParameter from:changedObject
 
-    "Modified: / 20-07-2011 / 18:54:04 / cg"
     "Modified: / 18-02-2012 / 21:58:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-06-2012 / 17:05:25 / cg"
 ! !
 
 !MethodList methodsFor:'drag & drop'!
@@ -1792,13 +1794,13 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__MethodList.st 7980 2012-04-18 07:18:46Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.64 2012/06/04 15:45:36 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.62 2012/03/07 18:06:39 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.64 2012/06/04 15:45:36 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: Tools__MethodList.st 7980 2012-04-18 07:18:46Z vranyj1 $'
+    ^ '$Id: Tools__MethodList.st 8007 2012-06-05 14:49:00Z vranyj1 $'
 ! !