equal
deleted
inserted
replaced
19 |
19 |
20 WeakArray comment:' |
20 WeakArray comment:' |
21 COPYRIGHT (c) 1991 by Claus Gittinger |
21 COPYRIGHT (c) 1991 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.9 1995-02-28 20:54:39 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.10 1995-03-08 23:40:27 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !WeakArray class methodsFor:'documentation'! |
27 !WeakArray class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.9 1995-02-28 20:54:39 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.10 1995-03-08 23:40:27 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
110 |
110 |
111 initialize |
111 initialize |
112 "setup the private signal" |
112 "setup the private signal" |
113 |
113 |
114 RegistrationFailedSignal isNil ifTrue:[ |
114 RegistrationFailedSignal isNil ifTrue:[ |
115 Object initialize. |
115 ErrorSignal isNil ifTrue:[super initialize]. |
116 |
116 |
117 RegistrationFailedSignal := Object errorSignal newSignalMayProceed:true. |
117 RegistrationFailedSignal := ErrorSignal newSignalMayProceed:true. |
118 RegistrationFailedSignal nameClass:self message:#registrationFailedSignal. |
118 RegistrationFailedSignal nameClass:self message:#registrationFailedSignal. |
119 RegistrationFailedSignal notifierString:'weakArray registration failed'. |
119 RegistrationFailedSignal notifierString:'weakArray registration failed'. |
120 ] |
120 ] |
121 ! ! |
121 ! ! |
122 |
122 |