--- a/Tools_MethodList.st	Wed Apr 20 18:40:32 2005 +0200
+++ b/Tools_MethodList.st	Wed Apr 20 21:49:25 2005 +0200
@@ -1294,8 +1294,7 @@
         highlight accessors of variable"
 
     |clsName s icn variablesToHighlight classVarsToHighLight 
-     doHighLight doHighLightRed emp cat l redefIcon metrics complexity
-     lBr complexityString rBr complexityIcon|
+     doHighLight doHighLightRed emp cat l redefIcon metrics complexity complexityString complexityIcon|
 
     aMethod isAssociation ifTrue:[
         self halt:'should not happen'.
@@ -1407,12 +1406,8 @@
         complexityIcon := OOM::MethodMetrics iconForComplexity:complexity.
 
         ShowComplexityValue == true ifTrue:[
-            complexityString := complexity printString asText.
-            lBr := '{'.
-            rBr := '}'.
-
-            complexityString backgroundColorizeAllWith:(OOM::MethodMetrics colorForComplexity:complexity).
-            s := lBr , complexityString , rBr , ' ' , s.
+            complexityString := '{' , complexity printString , '}'.
+            s := complexityString , ' ' , s.
         ].
         "/ icn := icn ? complexityIcon.
         s := LabelAndIcon icon:complexityIcon string:s.
@@ -1481,5 +1476,5 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.9 2005-04-20 16:40:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.10 2005-04-20 19:49:25 cg Exp $'
 ! !