changed:
#delayedUpdate:with:from:
#update:with:from:
coverage info update
--- a/Tools_MethodList.st Tue Jun 05 23:32:07 2012 +0200
+++ b/Tools_MethodList.st Tue Jun 05 23:48:53 2012 +0200
@@ -442,9 +442,11 @@
something == #methodCoverageInfo ifTrue:[
"/ already checked if it is one of my classes
- listValid == true ifTrue:[
- self invalidateList.
- ].
+ self updateListEntryFor:aParameter.
+"/ self enqueueDelayedUpdateList.
+"/ listValid == true ifTrue:[
+"/ self invalidateList.
+"/ ].
^ self.
].
@@ -676,7 +678,7 @@
"Created: / 05-02-2000 / 13:42:14 / cg"
"Modified: / 22-07-2011 / 18:12:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 04-06-2012 / 16:59:43 / cg"
+ "Modified: / 05-06-2012 / 23:47:15 / cg"
!
selectedMethodsChanged
@@ -789,13 +791,11 @@
].
something == #methodCoverageInfo ifTrue:[
- listValid ifFalse:[^ self].
self showCoverageInformation value ifFalse:[^ self].
mthd := aParameter.
(classes notNil and:[classes includesIdentical:mthd mclass]) ifFalse:[
^ self "/ I dont care for that class
].
- listValid ifFalse:[^ self].
].
(something == #methodTrap
@@ -869,7 +869,7 @@
super update:something with:aParameter from:changedObject
"Modified: / 17-11-2011 / 19:22:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 04-06-2012 / 17:05:25 / cg"
+ "Modified: / 05-06-2012 / 23:41:50 / cg"
! !
!MethodList methodsFor:'drag & drop'!
@@ -1747,9 +1747,9 @@
!MethodList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.64 2012-06-04 15:45:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.65 2012-06-05 21:48:53 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.64 2012-06-04 15:45:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.65 2012-06-05 21:48:53 cg Exp $'
! !