--- 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 $'
! !