changed:
#delayedUpdate:with:from:
#update:with:from:
don't push another invalidateList event, if the list is already invalid
(should help when many small changes arrice quickly, as when
doing coverage analysis runs)
--- a/Tools_MethodCategoryList.st Wed Jul 20 20:19:03 2011 +0200
+++ b/Tools_MethodCategoryList.st Wed Jul 20 20:19:06 2011 +0200
@@ -752,14 +752,20 @@
something == #methodCoverageInfo ifTrue:[
self showCoverageInformation value ifFalse:[^ self].
+ listValid ifFalse:[^ self ].
+
mthd := aParameter.
(classes notNil and:[classes includesIdentical:mthd mclass]) ifFalse:[^ self].
+
+ self enqueueDelayedUpdateList.
+ listValid := false.
+ ^ self
].
].
super update:something with:aParameter from:changedObject.
- "Modified: / 20-07-2011 / 18:07:48 / cg"
+ "Modified: / 20-07-2011 / 18:54:57 / cg"
! !
!MethodCategoryList methodsFor:'drag & drop'!
@@ -1887,11 +1893,11 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.66 2011-07-20 16:44:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.67 2011-07-20 18:19:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.66 2011-07-20 16:44:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.67 2011-07-20 18:19:06 cg Exp $'
! !
MethodCategoryList initialize!