--- 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!
--- a/BrwsrView.st Fri Feb 09 00:26:59 1996 +0100
+++ b/BrwsrView.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/Attic/BrwsrView.st,v 1.94 1996-02-08 19:41:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.95 1996-02-09 01:14:53 cg Exp $'
! !
BrowserView initialize!