changeset 16071 | 17db8dc194ee |
parent 16067 | 5b93eb1b4582 |
child 16074 | c2698f7a8a6d |
child 16150 | 1804ff3089d4 |
--- a/Tools__MethodCategoryList.st Sat Jan 23 11:33:48 2016 +0100 +++ b/Tools__MethodCategoryList.st Sat Jan 23 13:41:21 2016 +0100 @@ -819,10 +819,11 @@ ]. ]. - something == #coverageInfo ifTrue:[ - listValid == true ifTrue:[ - self enqueueDelayedUpdateList - ]. + something == #lastTestRunResult ifTrue:[ + cls := aParameter at:1. + (classes notNil and:[classes includesIdentical:cls]) ifTrue:[ + self invalidateList. + ]. ^ self. ].