pass old -> new methods as parameter in
authorClaus Gittinger <cg@exept.de>
Thu, 07 Nov 1996 20:55:58 +0100
changeset 1927 a6c8e3b01436
parent 1926 eda492a4e179
child 1928 f0416304f29f
pass old -> new methods as parameter in method redefinition exception
Class.st
--- a/Class.st	Thu Nov 07 19:54:49 1996 +0100
+++ b/Class.st	Thu Nov 07 20:55:58 1996 +0100
@@ -1122,8 +1122,11 @@
                    CatchMethodRedefinitions to false
                  (also found in the Launchers 'settings-misc' menu)
                 "
-                MethodRedefinitionSignal 
-                    raiseErrorString:('redefinition of ' , name , '>>' , newSelector) 
+                MethodRedefinitionSignal
+                    raiseRequestWith:(oldMethod -> newMethod)
+                    errorString:('redefinition of ' , name , '>>' , newSelector) 
+
+                "/ if proceeded, install as usual.
             ]
         ]
     ].
@@ -1142,7 +1145,7 @@
 
     "Created: 29.10.1995 / 19:42:42 / cg"
     "Modified: 9.9.1996 / 22:39:32 / stefan"
-    "Modified: 7.11.1996 / 18:49:43 / cg"
+    "Modified: 7.11.1996 / 20:50:03 / cg"
 !
 
 basicAddSelector:newSelector withMethod:newMethod
@@ -4447,6 +4450,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.209 1996-11-07 18:08:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.210 1996-11-07 19:55:58 cg Exp $'
 ! !
 Class initialize!