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