equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 'From Smalltalk/X, Version:2.10.9 on 12-jun-1996 at 11:56:25' ! |
|
14 |
12 |
15 Object subclass:#UndefinedObject |
13 Object subclass:#UndefinedObject |
16 instanceVariableNames:'' |
14 instanceVariableNames:'' |
17 classVariableNames:'' |
15 classVariableNames:'' |
18 poolDictionaries:'' |
16 poolDictionaries:'' |
184 Class withoutUpdatingChangesDo:[ |
182 Class withoutUpdatingChangesDo:[ |
185 newClass := Object perform:selector withArguments:args |
183 newClass := Object perform:selector withArguments:args |
186 ]. |
184 ]. |
187 newClass notNil ifTrue:[ |
185 newClass notNil ifTrue:[ |
188 newClass setSuperclass:nil. |
186 newClass setSuperclass:nil. |
|
187 newClass class setSuperclass:Class. |
189 |
188 |
190 newClass methodDictionary size == 0 ifTrue:[ |
189 newClass methodDictionary size == 0 ifTrue:[ |
191 " |
190 " |
192 copy over method objects from Object |
191 copy over method objects from Object |
193 and modify the source code |
192 and modify the source code |
213 Class addChangeRecordForClass:newClass. |
212 Class addChangeRecordForClass:newClass. |
214 ] |
213 ] |
215 ]. |
214 ]. |
216 ^ newClass |
215 ^ newClass |
217 |
216 |
218 "Modified: 28.2.1996 / 15:47:41 / cg" |
|
219 "Modified: 12.6.1996 / 10:46:15 / stefan" |
217 "Modified: 12.6.1996 / 10:46:15 / stefan" |
|
218 "Modified: 22.10.1996 / 20:30:06 / cg" |
220 ! |
219 ! |
221 |
220 |
222 subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat |
221 subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat |
223 "create a new class which has nil as superclass |
222 "create a new class which has nil as superclass |
224 - i.e. traps into doesNotUnderstand: for all of its messages." |
223 - i.e. traps into doesNotUnderstand: for all of its messages." |
288 ! ! |
287 ! ! |
289 |
288 |
290 !UndefinedObject class methodsFor:'documentation'! |
289 !UndefinedObject class methodsFor:'documentation'! |
291 |
290 |
292 version |
291 version |
293 ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.25 1996-08-28 13:19:12 cg Exp $' |
292 ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.26 1996-10-22 19:38:13 cg Exp $' |
294 ! ! |
293 ! ! |