--- a/Class.st Mon Sep 09 19:04:43 1996 +0200
+++ b/Class.st Tue Sep 10 00:55:59 1996 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:2.10.9 on 9-sep-1996 at 22:51:47' !
+
ClassDescription subclass:#Class
instanceVariableNames:'classvars comment subclasses classFilename package revision
history'
@@ -830,35 +832,36 @@
|oldMethod|
CatchMethodRedefinitions ifTrue:[
- "check for attempts to redefine a method
- in a different package. Signal a resumable error if so.
- This allows tracing redefinitions of existing system methods
- when filing in alien code ....
- (which we may want to forbit sometimes)
- "
- oldMethod := self compiledMethodAt:newSelector.
- oldMethod notNil ifTrue:[
- oldMethod package ~= newMethod package ifTrue:[
- "
- attempt to redefine an existing method, which was
- defined in another package.
- If you continue in the debugger, the new method gets installed.
- Otherwise, the existing (old) method remains valid.
-
- You can turn of the catching of redefinitions by setting
- CatchMethodRedefinitions to false
- (also found in the NewLaunchers 'settings-misc' menu)
- "
- MethodRedefinitionSignal
- raiseErrorString:('redefinition of ' , name , '>>' , newSelector)
- ]
- ]
+ "check for attempts to redefine a method
+ in a different package. Signal a resumable error if so.
+ This allows tracing redefinitions of existing system methods
+ when filing in alien code ....
+ (which we may want to forbit sometimes)
+ "
+ oldMethod := self compiledMethodAt:newSelector.
+ oldMethod notNil ifTrue:[
+ oldMethod package ~= newMethod package ifTrue:[
+ "
+ attempt to redefine an existing method, which was
+ defined in another package.
+ If you continue in the debugger, the new method gets installed.
+ Otherwise, the existing (old) method remains valid.
+
+ You can turn of the catching of redefinitions by setting
+ CatchMethodRedefinitions to false
+ (also found in the Launchers 'settings-misc' menu)
+ "
+ MethodRedefinitionSignal
+ raiseErrorString:('redefinition of ' , name , '>>' , newSelector)
+ ]
+ ]
].
(super addSelector:newSelector withMethod:newMethod) ifTrue:[
- self addChangeRecordForMethod:newMethod.
+ self addChangeRecordForMethod:newMethod.
]
"Created: 29.10.1995 / 19:42:42 / cg"
+ "Modified: 9.9.1996 / 22:39:32 / stefan"
!
removeSelector:aSelector
@@ -4015,6 +4018,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.165 1996-09-07 12:02:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.166 1996-09-09 22:55:59 stefan Exp $'
! !
Class initialize!