--- a/Tools__MethodList.st Wed Jul 18 10:57:46 2012 +0100
+++ b/Tools__MethodList.st Wed Jul 18 18:00:57 2012 +0100
@@ -466,9 +466,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.
].
@@ -701,7 +703,7 @@
"Created: / 05-02-2000 / 13:42:14 / cg"
"Modified: / 13-04-2012 / 16:04:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 04-06-2012 / 16:59:43 / cg"
+ "Modified: / 05-06-2012 / 23:47:15 / cg"
!
selectedMethodsChanged
@@ -824,13 +826,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
@@ -904,7 +904,7 @@
super update:something with:aParameter from:changedObject
"Modified: / 18-02-2012 / 21:58:34 / 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'!
@@ -1794,13 +1794,13 @@
!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 '
!
version_SVN
- ^ '$Id: Tools__MethodList.st 8007 2012-06-05 14:49:00Z vranyj1 $'
+ ^ '$Id: Tools__MethodList.st 8018 2012-07-18 17:00:57Z vranyj1 $'
! !