--- 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 $'
! !