equal
deleted
inserted
replaced
847 You can turn of the catching of redefinitions by setting |
847 You can turn of the catching of redefinitions by setting |
848 CatchMethodRedefinitions to false |
848 CatchMethodRedefinitions to false |
849 (also found in the NewLaunchers 'settings-misc' menu) |
849 (also found in the NewLaunchers 'settings-misc' menu) |
850 " |
850 " |
851 MethodRedefinitionSignal |
851 MethodRedefinitionSignal |
852 raiseErrorString:(' ' , name , '>>' , newSelector) |
852 raiseErrorString:('redefinition of ' , name , '>>' , newSelector) |
853 ] |
853 ] |
854 ] |
854 ] |
855 ]. |
855 ]. |
856 (super addSelector:newSelector withMethod:newMethod) ifTrue:[ |
856 (super addSelector:newSelector withMethod:newMethod) ifTrue:[ |
857 self addChangeRecordForMethod:newMethod. |
857 self addChangeRecordForMethod:newMethod. |
4012 ! ! |
4012 ! ! |
4013 |
4013 |
4014 !Class class methodsFor:'documentation'! |
4014 !Class class methodsFor:'documentation'! |
4015 |
4015 |
4016 version |
4016 version |
4017 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.163 1996-07-12 21:45:32 cg Exp $' |
4017 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.164 1996-08-28 13:25:58 cg Exp $' |
4018 ! ! |
4018 ! ! |
4019 Class initialize! |
4019 Class initialize! |