--- a/ChangesBrowser.st Thu Dec 13 23:37:10 2001 +0100
+++ b/ChangesBrowser.st Thu Dec 13 23:44:50 2001 +0100
@@ -3038,8 +3038,12 @@
addedVars := varsInChange select:[:eachVar | (varsHere includes:eachVar) not].
removedVars := varsHere select:[:eachVar | (varsInChange includes:eachVar) not].
addedVars isEmpty ifTrue:[
- removedVars := removedVars collect:[:eachVar | '''' , eachVar , ''''].
- outcome := 'Change removes instanceVariable(s): ' , (removedVars asStringWith:Character space).
+ removedVars isEmpty ifTrue:[
+ outcome := 'Change reorders instanceVariable(s)'.
+ ] ifFalse:[
+ removedVars := removedVars collect:[:eachVar | '''' , eachVar , ''''].
+ outcome := 'Change removes instanceVariable(s): ' , (removedVars asStringWith:Character space).
+ ]
] ifFalse:[
removedVars isEmpty ifTrue:[
addedVars := addedVars collect:[:eachVar | '''' , eachVar , ''''].
@@ -4790,5 +4794,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.252 2001-12-11 10:20:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.253 2001-12-13 22:44:50 cg Exp $'
! !