# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1142500380 -3600
# Node ID c3df9d286697b014e16d19cc04f44654b8caf4a8
# Parent  315739e2f34db4b8884ae90e468173d7c19a61db
*** empty log message ***

diff -r 315739e2f34d -r c3df9d286697 Tools_MethodCategoryList.st
--- a/Tools_MethodCategoryList.st	Thu Mar 16 09:42:03 2006 +0100
+++ b/Tools_MethodCategoryList.st	Thu Mar 16 10:13:00 2006 +0100
@@ -1016,29 +1016,21 @@
             |item emp inChangeSet hasExtensions hasVarRef hasVarMod|
 
             item := cat.
+            inChangeSet := itemsInChangeSet includes:cat.
+            inChangeSet ifTrue:[
+                item := self colorizeForChangedCode:cat.
+            ].
+
             hasVarRef := itemsWithVarRefs includes:cat.
             hasVarRef ifTrue:[
                 hasVarMod := itemsWithVarMods includes:cat.
-                hasVarMod ifTrue:[
-                    emp := emphasisForMod.
-                ] ifFalse:[
-                    emp := emphasisForRef.
-                ].
-                item := cat asText emphasisAllAdd:emp.
-            ] ifFalse:[
-                inChangeSet := itemsInChangeSet includes:cat.
-                hasExtensions := itemsWithExtensions includes:cat.
+                item := item asText 
+                            emphasisAllAdd:(hasVarMod ifTrue:emphasisForMod ifFalse:emphasisForRef).
+            ].
 
-                inChangeSet ifTrue:[
-                    item := self colorizeForChangedCode:cat.
-                    hasExtensions ifTrue:[
-                        item := item , emphasizedPlus.
-                    ]
-                ] ifFalse:[
-                    hasExtensions ifTrue:[
-                        item := cat , emphasizedPlus.
-                    ]
-                ].
+            hasExtensions := itemsWithExtensions includes:cat.
+            hasExtensions ifTrue:[
+                item := item , emphasizedPlus.
             ].
             categoryList at:idx put:item.
         ]
@@ -1250,5 +1242,5 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.11 2006-03-16 08:20:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.12 2006-03-16 09:13:00 cg Exp $'
 ! !