--- 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 $'
! !