equal
deleted
inserted
replaced
15 classVariableNames:'ObsoleteObjectSignal' |
15 classVariableNames:'ObsoleteObjectSignal' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'System-BinaryStorage' |
17 category:'System-BinaryStorage' |
18 ! |
18 ! |
19 |
19 |
20 !ObsoleteObject class methodsFor:'documentation'! |
20 !ObsoleteObject class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
23 " |
23 " |
24 COPYRIGHT (c) 1994 by Claus Gittinger |
24 COPYRIGHT (c) 1994 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
59 PersistencyManager |
59 PersistencyManager |
60 (binary object storage : programming/binaryStore.html ) |
60 (binary object storage : programming/binaryStore.html ) |
61 " |
61 " |
62 ! ! |
62 ! ! |
63 |
63 |
64 !ObsoleteObject class methodsFor:'initialization'! |
64 !ObsoleteObject class methodsFor:'initialization'! |
65 |
65 |
66 initialize |
66 initialize |
67 |
67 |
68 ObsoleteObjectSignal isNil ifTrue:[ |
68 ObsoleteObjectSignal isNil ifTrue:[ |
69 ObsoleteObjectSignal := (Signal new) mayProceed:false. |
69 ObsoleteObjectSignal := (Signal new) mayProceed:false. |
74 ] |
74 ] |
75 |
75 |
76 "Modified: 30.4.1996 / 14:46:13 / cg" |
76 "Modified: 30.4.1996 / 14:46:13 / cg" |
77 ! ! |
77 ! ! |
78 |
78 |
79 !ObsoleteObject class methodsFor:'Signal constants'! |
79 !ObsoleteObject class methodsFor:'Signal constants'! |
80 |
80 |
81 obsoleteObjectSignal |
81 obsoleteObjectSignal |
82 "return the signal raised when a message is sent to an Obsolete |
82 "return the signal raised when a message is sent to an Obsolete |
83 signal." |
83 signal." |
84 |
84 |
88 ! ! |
88 ! ! |
89 |
89 |
90 !ObsoleteObject methodsFor:'message catching'! |
90 !ObsoleteObject methodsFor:'message catching'! |
91 |
91 |
92 doesNotUnderstand: aMessage |
92 doesNotUnderstand: aMessage |
93 "the only thing obsolete objects understand is that they dont understand |
93 "the only thing obsolete objects understand is that they dont understand |
94 anything." |
94 anything." |
95 |
95 |
96 ^ ObsoleteObjectSignal |
96 ^ ObsoleteObjectSignal |
97 raiseRequestWith:aMessage |
97 raiseRequestWith:aMessage |
|
98 |
|
99 "Modified: 23.9.1996 / 15:17:37 / cg" |
98 ! ! |
100 ! ! |
99 |
101 |
100 !ObsoleteObject methodsFor:'required protocol'! |
102 !ObsoleteObject methodsFor:'required protocol'! |
101 |
103 |
102 basicAt:index |
104 basicAt:index |
130 valueWithReceiver:self |
132 valueWithReceiver:self |
131 arguments:nil |
133 arguments:nil |
132 selector:#basicSize |
134 selector:#basicSize |
133 ! |
135 ! |
134 |
136 |
|
137 become:index |
|
138 "this method is required to allow cloning of the object" |
|
139 |
|
140 ^ (Object compiledMethodAt:#become:) |
|
141 valueWithReceiver:self |
|
142 arguments:(Array with:index) |
|
143 selector:#become: |
|
144 |
|
145 "Created: 23.9.1996 / 15:16:37 / cg" |
|
146 ! |
|
147 |
|
148 becomeNil |
|
149 "this method is required to allow restore of the object" |
|
150 |
|
151 ^ (Object compiledMethodAt:#becomeNil) |
|
152 valueWithReceiver:self |
|
153 arguments:nil |
|
154 selector:#becomeNil |
|
155 |
|
156 "Created: 23.9.1996 / 15:17:14 / cg" |
|
157 ! |
|
158 |
|
159 becomeSameAs:index |
|
160 "this method is required to allow cloning of the object" |
|
161 |
|
162 ^ (Object compiledMethodAt:#becomeSameAs:) |
|
163 valueWithReceiver:self |
|
164 arguments:(Array with:index) |
|
165 selector:#becomeSameAs: |
|
166 |
|
167 "Created: 23.9.1996 / 15:16:50 / cg" |
|
168 ! |
|
169 |
135 class |
170 class |
136 "this method is required to allow restore of the object" |
171 "this method is required to allow restore of the object" |
137 |
172 |
138 ^ (Object compiledMethodAt:#class) |
173 ^ (Object compiledMethodAt:#class) |
139 valueWithReceiver:self |
174 valueWithReceiver:self |
191 valueWithReceiver:self |
226 valueWithReceiver:self |
192 arguments:(Array with:stream with:manager) |
227 arguments:(Array with:stream with:manager) |
193 selector:#readBinaryContentsFrom:manager: |
228 selector:#readBinaryContentsFrom:manager: |
194 ! ! |
229 ! ! |
195 |
230 |
196 !ObsoleteObject class methodsFor:'documentation'! |
231 !ObsoleteObject class methodsFor:'documentation'! |
197 |
232 |
198 version |
233 version |
199 ^ '$Header: /cvs/stx/stx/libbasic/Attic/Obsolete.st,v 1.12 1996-04-30 12:46:43 cg Exp $' |
234 ^ '$Header: /cvs/stx/stx/libbasic/Attic/Obsolete.st,v 1.13 1996-09-23 13:18:15 cg Exp $' |
200 ! ! |
235 ! ! |
201 ObsoleteObject initialize! |
236 ObsoleteObject initialize! |