--- a/Tools_MethodCategoryList.st Thu Mar 16 10:13:28 2006 +0100
+++ b/Tools_MethodCategoryList.st Thu Mar 16 12:09:40 2006 +0100
@@ -1011,7 +1011,9 @@
emphasisForRef := UserPreferences current emphasisForReadVariable.
emphasisForMod := UserPreferences current emphasisForWrittenVariable.
- (itemsInChangeSet notEmpty or:[itemsWithExtensions notEmpty]) ifTrue:[
+ (itemsInChangeSet notEmpty
+ or:[itemsWithExtensions notEmpty
+ or:[itemsWithVarRefs notEmpty] ]) ifTrue:[
rawProtocolList keysAndValuesDo:[:idx :cat |
|item emp inChangeSet hasExtensions hasVarRef hasVarMod|
@@ -1242,5 +1244,5 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.12 2006-03-16 09:13:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.13 2006-03-16 11:09:40 cg Exp $'
! !