Tools_MethodList.st
changeset 9438 199fea3d5cef
parent 9433 1fdc6a2ea3e8
child 9448 f9258f99d465
--- a/Tools_MethodList.st	Tue Apr 27 16:16:18 2010 +0200
+++ b/Tools_MethodList.st	Tue Apr 27 16:16:22 2010 +0200
@@ -20,7 +20,7 @@
 		showMethodInheritance lastMethodClass lastMethodClassesSubclasses
 		classAndSelectorsRedefinedBySubclassesOfClass showClass
 		showMethodComplexity showMethodTypeIcon
-		showImageResourceMethodsImages showCoverageInformationHolder'
+		showImageResourceMethodsImages showCoverageInformation'
 	classVariableNames:'ShowComplexityValue'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -177,10 +177,10 @@
         #showMethodTypeIcon
         #showImageResourceMethodsImages
         #sortBy
-        #showCoverageInformationHolder
+        #showCoverageInformation
       ).
 
-    "Modified: / 27-04-2010 / 15:47:51 / cg"
+    "Modified: / 27-04-2010 / 16:13:57 / cg"
 ! !
 
 !MethodList methodsFor:'aspects'!
@@ -246,26 +246,26 @@
     ^ self selectionHolder:aValueHolder
 !
 
-showCoverageInformationHolder
-    showCoverageInformationHolder isNil ifTrue:[
-        showCoverageInformationHolder := false asValue.
-        showCoverageInformationHolder addDependent:self
+showCoverageInformation
+    showCoverageInformation isNil ifTrue:[
+        showCoverageInformation := false asValue.
+        showCoverageInformation addDependent:self
     ].
-    ^  showCoverageInformationHolder
+    ^  showCoverageInformation
 
-    "Created: / 27-04-2010 / 15:47:38 / cg"
+    "Created: / 27-04-2010 / 16:13:28 / cg"
 !
 
-showCoverageInformationHolder:aValueHolder
-    showCoverageInformationHolder notNil ifTrue:[
-        showCoverageInformationHolder removeDependent:self
+showCoverageInformation:aValueHolder
+    showCoverageInformation notNil ifTrue:[
+        showCoverageInformation removeDependent:self
     ].
-    showCoverageInformationHolder := aValueHolder.
-    showCoverageInformationHolder notNil ifTrue:[
-        showCoverageInformationHolder addDependent:self
+    showCoverageInformation := aValueHolder.
+    showCoverageInformation notNil ifTrue:[
+        showCoverageInformation addDependent:self
     ].
 
-    "Created: / 27-04-2010 / 15:47:43 / cg"
+    "Created: / 27-04-2010 / 16:13:35 / cg"
 !
 
 showImageResourceMethodsImages
@@ -1505,7 +1505,7 @@
         ]
     ].
 
-    self showCoverageInformationHolder value ifTrue:[
+    self showCoverageInformation value ifTrue:[
         emp := self emphasisForCoverageInformationOfMethod:aMethod.
         emp notNil ifTrue:[
             s := self colorize:s with:emp.
@@ -1582,7 +1582,7 @@
     ^ s
 
     "Created: / 22-10-1996 / 19:51:00 / cg"
-    "Modified: / 27-04-2010 / 15:55:04 / cg"
+    "Modified: / 27-04-2010 / 16:14:07 / cg"
 ! !
 
 !MethodList methodsFor:'private-watching'!
@@ -1632,9 +1632,9 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.44 2010-04-27 13:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.45 2010-04-27 14:16:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.44 2010-04-27 13:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.45 2010-04-27 14:16:22 cg Exp $'
 ! !