diff -r a55d080604a2 -r f2e96c5e6d41 Tools_MethodList.st --- 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 $' ! !