# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1272621299 -7200
# Node ID 79d033f585b96a7fb16f96fb43c1ab3cce88b547
# Parent  ceb357dd5ad1f9bd05fb022c2998513939327a13
added: #colorForCoverageInformationOfMethod:
changed:
        #emphasisForCoverageInformationOfMethod:
        #listEntryForMethod:selector:class:showClass:showCategory:classFirst:

diff -r ceb357dd5ad1 -r 79d033f585b9 Tools_MethodList.st
--- 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 $'
 ! !