# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 817301817 -3600
# Node ID bb193ae3f3f93837868a3a39595ccdf7a27287d4
# Parent  4b8b25b6baa1b1b51767587fb81e5f687ed25dc8
check for existing class in rename; avoid warnbox if no refs are found after rename

diff -r 4b8b25b6baa1 -r bb193ae3f3f9 BrowserView.st
--- 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!
diff -r 4b8b25b6baa1 -r bb193ae3f3f9 BrwsrView.st
--- 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!