*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 13 Dec 2001 23:44:50 +0100
changeset 3512 12fc20c430d6
parent 3511 1a050d6e639e
child 3513 cf83edda71ca
*** empty log message ***
ChangesBrowser.st
--- 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 $'
 ! !