added: #colorForCoverageInformationOfMethod:
changed:
#emphasisForCoverageInformationOfMethod:
#listEntryForMethod:selector:class:showClass:showCategory:classFirst:
--- a/Tools_MethodList.st Wed Apr 28 08:17:41 2010 +0200
+++ b/Tools_MethodList.st Fri Apr 30 11:54:59 2010 +0200
@@ -1381,21 +1381,19 @@
!MethodList methodsFor:'private-presentation'!
-emphasisForCoverageInformationOfMethod:aMethod
+colorForCoverageInformationOfMethod:aMethod
aMethod isInstrumented ifFalse:[^ nil].
aMethod category = 'documentation' ifTrue:[^ nil].
aMethod hasBeenCalled ifTrue:[
aMethod haveAllBlocksBeenExecuted ifTrue:[
- ^ UserPreferences current emphasisForInstrumentedFullyCoveredCode
- ] ifFalse:[
- ^ UserPreferences current emphasisForInstrumentedPartiallyCoveredCode
+ ^ UserPreferences current colorForInstrumentedFullyCoveredCode
].
- ] ifFalse:[
- ^ UserPreferences current emphasisForInstrumentedNeverCalledCode
+ ^ UserPreferences current colorForInstrumentedPartiallyCoveredCode
].
+ ^ UserPreferences current colorForInstrumentedNeverCalledCode
- "Modified: / 27-04-2010 / 19:27:49 / cg"
+ "Created: / 30-04-2010 / 11:53:38 / cg"
!
listEntryForMethod:aMethod selector:selector class:cls showClass:showClass showCategory:showCategory classFirst:showClassFirst
@@ -1406,7 +1404,7 @@
highlight accessors of variable"
|clsName s icn variablesToHighlight classVarsToHighLight
- doHighLight doHighLightRed emp cat l redefIcon
+ doHighLight doHighLightRed clr emp cat l redefIcon
metrics complexity complexityString complexityIcon mark|
aMethod isNil ifTrue:[
@@ -1507,9 +1505,9 @@
].
self showCoverageInformation value ifTrue:[
- emp := self emphasisForCoverageInformationOfMethod:aMethod.
- emp notNil ifTrue:[
- s := self colorize:s with:emp.
+ clr := self colorForCoverageInformationOfMethod:aMethod.
+ clr notNil ifTrue:[
+ s := self colorize:s with:(#color->clr).
"/ aMethod isInstrumented ifTrue:[
"/ icn := self instrumentationIcon
"/ ].
@@ -1583,7 +1581,7 @@
^ s
"Created: / 22-10-1996 / 19:51:00 / cg"
- "Modified: / 27-04-2010 / 16:14:07 / cg"
+ "Modified: / 30-04-2010 / 11:54:32 / cg"
! !
!MethodList methodsFor:'private-watching'!
@@ -1633,9 +1631,9 @@
!MethodList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.46 2010-04-27 17:28:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.47 2010-04-30 09:54:59 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.46 2010-04-27 17:28:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.47 2010-04-30 09:54:59 cg Exp $'
! !