check for existing class in rename; avoid warnbox if no refs are found after rename
--- a/BrowserView.st Sat Nov 25 12:11:06 1995 +0100
+++ b/BrowserView.st Sat Nov 25 13:16:57 1995 +0100
@@ -2032,7 +2032,12 @@
"helper - do the rename"
self doClassMenu:[:currentClass |
- |oldName oldSym newSym|
+ |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.
@@ -2056,6 +2061,8 @@
SystemBrowser browseReferendsOf:oldSym warnIfNone:false
]
]
+
+ "Created: 25.11.1995 / 13:02:53 / cg"
!
switchToClass:newClass
@@ -5906,5 +5913,5 @@
!BrowserView class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.50 1995-11-25 11:11:06 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.51 1995-11-25 12:16:57 cg Exp $'! !
BrowserView initialize!
--- a/BrwsrView.st Sat Nov 25 12:11:06 1995 +0100
+++ b/BrwsrView.st Sat Nov 25 13:16:57 1995 +0100
@@ -2032,7 +2032,12 @@
"helper - do the rename"
self doClassMenu:[:currentClass |
- |oldName oldSym newSym|
+ |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.
@@ -2056,6 +2061,8 @@
SystemBrowser browseReferendsOf:oldSym warnIfNone:false
]
]
+
+ "Created: 25.11.1995 / 13:02:53 / cg"
!
switchToClass:newClass
@@ -5906,5 +5913,5 @@
!BrowserView class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.50 1995-11-25 11:11:06 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.51 1995-11-25 12:16:57 cg Exp $'! !
BrowserView initialize!