--- a/BrowserView.st	Fri Feb 09 00:26:59 1996 +0100
+++ b/BrowserView.st	Fri Feb 09 02:14:53 1996 +0100
@@ -2652,37 +2652,38 @@
     "helper - do the rename"
 
     self doClassMenu:[:currentClass |
-	|oldName oldSym newSym cls|
-
-	(cls := Smalltalk classNamed:aString) notNil ifTrue:[
-	    (self confirm:(resources string:'WARN_RENAME' with:aString with:cls category))
-		ifFalse:[^ self]
-	].
-
-	oldName := currentClass name.
-	oldSym := oldName asSymbol.
+        |oldName oldSym newSym cls|
+
+        (cls := Smalltalk classNamed:aString) notNil ifTrue:[
+            (self confirm:(resources string:'WARN_RENAME' with:aString with:cls category) withCRs)
+                ifFalse:[^ self]
+        ].
+
+        oldName := currentClass name.
+        oldSym := oldName asSymbol.
 "
-	currentClass setName:aString.
-	newSym := aString asSymbol.
-	Smalltalk at:oldSym put:nil.
-	Smalltalk removeKey:oldSym.            
-	Smalltalk at:newSym put:currentClass.
+        currentClass setName:aString.
+        newSym := aString asSymbol.
+        Smalltalk at:oldSym put:nil.
+        Smalltalk removeKey:oldSym.            
+        Smalltalk at:newSym put:currentClass.
 "
 "
-	currentClass renameTo:aString.
+        currentClass renameTo:aString.
 "
-	Smalltalk renameClass:currentClass to:aString.
-
-	self updateClassList.
-	self updateMethodCategoryListWithScroll:false.
-	self updateMethodListWithScroll:false.
-	self withWaitCursorDo:[
-	    Transcript showCr:('searching for users of ' , oldSym); endEntry.
-	    SystemBrowser browseReferendsOf:oldSym warnIfNone:false
-	]
+        Smalltalk renameClass:currentClass to:aString.
+
+        self updateClassList.
+        self updateMethodCategoryListWithScroll:false.
+        self updateMethodListWithScroll:false.
+        self withWaitCursorDo:[
+            Transcript showCr:('searching for users of ' , oldSym); endEntry.
+            SystemBrowser browseReferendsOf:oldSym warnIfNone:false
+        ]
     ]
 
     "Created: 25.11.1995 / 13:02:53 / cg"
+    "Modified: 9.2.1996 / 00:08:54 / cg"
 !
 
 switchToClass:newClass
@@ -6759,6 +6760,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.94 1996-02-08 19:41:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.95 1996-02-09 01:14:53 cg Exp $'
 ! !
 BrowserView initialize!