# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1142265788 -3600
# Node ID 26f871e5e90762397109ea70701b0b16de679dce
# Parent  aa5d015b66b05eb98a97f1bdc6ce584d8ba7bdd5
namespace translation fixed

diff -r aa5d015b66b0 -r 26f871e5e907 ChangeSetBrowser.st
--- a/ChangeSetBrowser.st	Mon Mar 13 17:02:45 2006 +0100
+++ b/ChangeSetBrowser.st	Mon Mar 13 17:03:08 2006 +0100
@@ -719,23 +719,32 @@
 applyPossiblyModifiedChange:aChange
     |ns superClass superClassName|
 
-    applyInOriginalNameSpace value ifFalse:[
-        aChange isClassDefinitionChange ifTrue:[
-            superClassName := aChange superClassName.
-
-            ns := Class nameSpaceQuerySignal query.
-            superClass := ns at:superClassName.
-            (superClass isNil and:[ superClass ~~ Smalltalk ]) ifTrue:[
+    aChange isClassDefinitionChange ifTrue:[
+        superClassName := aChange superClassName.
+        superClassName notNil ifTrue:[
+            superClassName := superClassName asSymbol.
+            applyInOriginalNameSpace value ifFalse:[
+                ns := Class nameSpaceQuerySignal query.
+                superClass := ns at:superClassName.
+                (superClass isNil and:[ superClass ~~ Smalltalk ]) ifTrue:[
+                    superClass := Smalltalk at:superClassName.
+                ].
+            ] ifTrue:[
                 superClass := Smalltalk at:superClassName.
             ].
             superClass isNil ifTrue:[
-                (superClassName includes:$:) ifFalse:[
-                    superClass := ns at:superClassName.
-                ].
+                |guess|
+                guess := SystemBrowser classesWithNameSimilarTo:superClassName.
+                guess notEmptyOrNil ifTrue:[ guess := guess first ] ifFalse:[ guess := nil ].
+                superClass := Dialog 
+                                requestClass:'No superclass: ', superClassName allBold , ' enter a replacement:' 
+                                initialAnswer:(guess ? superClassName).  
+                superClass isNil ifTrue:[^ self ].
             ].
+            
             superClass notNil ifTrue:[
                 aChange superClassName:superClass name.
-            ]
+            ].
         ].
     ].
 
@@ -979,5 +988,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.42 2006-03-06 08:53:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.43 2006-03-13 16:03:08 cg Exp $'
 ! !