Tools_MethodList.st
changeset 12541 f2e96c5e6d41
parent 12535 b9d8a19b796c
child 12554 79d13f7b87c0
--- a/Tools_MethodList.st	Wed Mar 27 16:40:42 2013 +0100
+++ b/Tools_MethodList.st	Wed Mar 27 17:08:19 2013 +0100
@@ -14,16 +14,16 @@
 "{ NameSpace: Tools }"
 
 BrowserList subclass:#MethodList
-	instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
-		browserNameList variableFilter filterClassVars updateProcess
-		lastShowClass lastShowCategory lastShowClassFirst
-		showMethodInheritance lastMethodClass lastMethodClassesSubclasses
-		classAndSelectorsRedefinedBySubclassesOfClass showClass
-		showMethodComplexity showMethodTypeIcon
-		showImageResourceMethodsImages'
-	classVariableNames:'ShowComplexityValue'
-	poolDictionaries:''
-	category:'Interface-Browsers-New'
+        instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
+                browserNameList variableFilter filterClassVars updateProcess
+                lastShowClass lastShowCategory lastShowClassFirst
+                showMethodInheritance lastMethodClass lastMethodClassesSubclasses
+                classAndSelectorsRedefinedBySubclassesOfClass showClass
+                showMethodComplexity showMethodTypeIcon
+                showImageResourceMethodsImages'
+        classVariableNames:'ShowComplexityValue'
+        poolDictionaries:''
+        category:'Interface-Browsers-New'
 !
 
 !MethodList class methodsFor:'documentation'!
@@ -758,8 +758,7 @@
 
 selectionChangedByClick
     "we are not interested in that - get another notification
-     via the changed valueHolder"
-
+     via the changed valueHolder "
 !
 
 update:something with:aParameter from:changedObject
@@ -810,10 +809,6 @@
         (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
@@ -823,6 +818,7 @@
                 self invalidateList.
                 ^ self
             ].
+            cls := aParameter at:1.
             sel := aParameter at:2.
             mthd := cls compiledMethodAt:sel.
             (mthd isWrapped or:[mthd isMethodWithBreakpoints]) ifTrue:[
@@ -1816,10 +1812,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.78 2013-03-26 17:15:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.79 2013-03-27 16:08:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.78 2013-03-26 17:15:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.79 2013-03-27 16:08:19 cg Exp $'
 ! !