equal
deleted
inserted
replaced
20 |
20 |
21 Class comment:' |
21 Class comment:' |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.54 1995-08-19 01:32:24 claus Exp $ |
25 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.55 1995-08-23 17:48:57 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !Class class methodsFor:'documentation'! |
28 !Class class methodsFor:'documentation'! |
29 |
29 |
30 copyright |
30 copyright |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 version |
44 version |
45 " |
45 " |
46 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.54 1995-08-19 01:32:24 claus Exp $ |
46 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.55 1995-08-23 17:48:57 claus Exp $ |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 documentation |
50 documentation |
51 " |
51 " |
918 |
918 |
919 You can turn of the catching of redefinitions by setting |
919 You can turn of the catching of redefinitions by setting |
920 CatchMethodRedefinitions to false |
920 CatchMethodRedefinitions to false |
921 (also found in the NewLaunchers 'settings-misc' menu) |
921 (also found in the NewLaunchers 'settings-misc' menu) |
922 " |
922 " |
923 MethodRedefinitionSignal raise |
923 MethodRedefinitionSignal |
|
924 raiseErrorString:(' ' , name , '>>' , newSelector) |
924 ] |
925 ] |
925 ] |
926 ] |
926 ]. |
927 ]. |
927 (super addSelector:newSelector withMethod:newMethod) ifTrue:[ |
928 (super addSelector:newSelector withMethod:newMethod) ifTrue:[ |
928 self addChangeRecordForMethod:newMethod |
929 self addChangeRecordForMethod:newMethod |