*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 27 Apr 2010 16:16:18 +0200
changeset 9437 51e7a4cd63ba
parent 9436 2579763eb59a
child 9438 199fea3d5cef
*** empty log message ***
Tools_ClassList.st
--- a/Tools_ClassList.st	Tue Apr 27 16:16:14 2010 +0200
+++ b/Tools_ClassList.st	Tue Apr 27 16:16:18 2010 +0200
@@ -17,7 +17,7 @@
 	instanceVariableNames:'classList classNameList meta lastSelectedClasses
 		selectedClassNameIndices currentNamespace hidePrivateClasses
 		unloadedClassesColor markApplicationsHolder classFilterBlock
-		showCoverageInformationHolder'
+		showCoverageInformation'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -192,10 +192,10 @@
         #slaveMode
         #updateTrigger
         #markApplicationsHolder
-        #showCoverageInformationHolder
+        #showCoverageInformation
       ).
 
-    "Modified: / 27-04-2010 / 15:45:02 / cg"
+    "Modified: / 27-04-2010 / 16:14:16 / cg"
 ! !
 
 !ClassList methodsFor:'accessing'!
@@ -381,26 +381,26 @@
     ].
 !
 
-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:44:06 / cg"
+    "Created: / 27-04-2010 / 16:13:16 / 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:44:49 / cg"
+    "Created: / 27-04-2010 / 16:13:20 / cg"
 ! !
 
 !ClassList methodsFor:'change & update'!
@@ -1230,7 +1230,7 @@
 
                             nm := self nameListEntryFor:cls withNameSpace:showNamespaces.
 
-                            self showCoverageInformationHolder value ifTrue:[
+                            self showCoverageInformation value ifTrue:[
                                 emp := self emphasisForCoverageInformationOfClass:cls.
                                 emp notNil ifTrue:[
                                     nm := self colorize:nm with:emp
@@ -1309,7 +1309,7 @@
 
     ^ nameList
 
-    "Modified: / 27-04-2010 / 15:54:41 / cg"
+    "Modified: / 27-04-2010 / 16:14:27 / cg"
 !
 
 reconstructNameList
@@ -1727,9 +1727,9 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.45 2010-04-27 13:57:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.46 2010-04-27 14:16:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.45 2010-04-27 13:57:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.46 2010-04-27 14:16:18 cg Exp $'
 ! !