# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1338932933 -7200
# Node ID 2b871152c1ec82a5c112ec5e5a651ea42613463b
# Parent  ca2117cbf0b5d4df1baa493b45635f9917142973
changed:
        #delayedUpdate:with:from:
        #update:with:from:

coverage info update

diff -r ca2117cbf0b5 -r 2b871152c1ec Tools_MethodList.st
--- 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 $'
 ! !