UserPreferences.st
changeset 17397 5c84b07aca76
parent 17359 61d90dff9c88
child 17398 6fe70fea0c8a
--- a/UserPreferences.st	Tue Feb 03 17:31:11 2015 +0100
+++ b/UserPreferences.st	Tue Feb 03 17:39:34 2015 +0100
@@ -2528,7 +2528,7 @@
 
     clr := self at:#colorForInstrumentedFullyCoveredCode ifAbsent:nil.
     clr isNil ifTrue:[
-        clr := Color green slightlyDarkened "darkened". "/ slightlyDarkened.
+        clr := Color green "slightlyDarkened" "darkened".
         "/ self at:#colorForInstrumentedFullyCoveredCode put:clr.
     ].
     ^ clr
@@ -2563,7 +2563,7 @@
 
     clr := self at:#colorForInstrumentedNeverCalledCode ifAbsent:nil.
     clr isNil ifTrue:[
-        clr := Color red slightlyDarkened "darkened". "/ slightlyDarkened.
+        clr := Color red "slightlyDarkened" "darkened". 
         "/ self at:#colorForInstrumentedNeverCalledCode put:clr.
     ].
     ^ clr
@@ -2598,7 +2598,7 @@
 
     clr := self at:#colorForInstrumentedPartiallyCoveredCode ifAbsent:nil.
     clr isNil ifTrue:[
-        clr := Color orange slightlyDarkened.
+        clr := Color orange "slightlyDarkened".
         "/ self at:#colorForInstrumentedPartiallyCoveredCode put:clr.
     ].
     ^ clr
@@ -5197,11 +5197,11 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.392 2015-02-01 21:54:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.393 2015-02-03 16:39:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.392 2015-02-01 21:54:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.393 2015-02-03 16:39:34 cg Exp $'
 !
 
 version_SVN