Tools__MethodList.st
branchjv
changeset 12262 d25ef6bb0ef3
parent 12254 b1237f76f501
child 12265 f1b3696cf042
--- 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 $'
 ! !