equal
deleted
inserted
replaced
253 "/ |
253 "/ |
254 Project notNil ifTrue:[ |
254 Project notNil ifTrue:[ |
255 project := Project current. |
255 project := Project current. |
256 Project setProject:nil. |
256 Project setProject:nil. |
257 ]. |
257 ]. |
258 Smalltalk fileInClass:myName initialize:false lazy:LazyLoading. |
258 |
|
259 Class nameSpaceQuerySignal answer:Smalltalk |
|
260 do:[ |
|
261 Smalltalk fileInClass:myName initialize:false lazy:LazyLoading. |
|
262 ]. |
259 ClassCategoryReader sourceMode:prevMode. |
263 ClassCategoryReader sourceMode:prevMode. |
260 project notNil ifTrue:[ |
264 project notNil ifTrue:[ |
261 Project setProject:project. |
265 Project setProject:project. |
262 ]. |
266 ]. |
263 ] valueOnUnwindDo:[ |
267 ] valueOnUnwindDo:[ |
334 newClass initialize. |
338 newClass initialize. |
335 ]. |
339 ]. |
336 newClass postAutoload. |
340 newClass postAutoload. |
337 ^ newClass |
341 ^ newClass |
338 |
342 |
339 "Modified: 9.1.1997 / 15:44:06 / cg" |
343 "Modified: 7.2.1997 / 13:34:19 / cg" |
340 ! ! |
344 ! ! |
341 |
345 |
342 !Autoload class methodsFor:'message catching'! |
346 !Autoload class methodsFor:'message catching'! |
343 |
347 |
344 basicNew |
348 basicNew |
512 ! ! |
516 ! ! |
513 |
517 |
514 !Autoload class methodsFor:'documentation'! |
518 !Autoload class methodsFor:'documentation'! |
515 |
519 |
516 version |
520 version |
517 ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.65 1997-02-08 19:06:59 cg Exp $' |
521 ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.66 1997-02-10 12:20:50 cg Exp $' |
518 ! ! |
522 ! ! |
519 Autoload initialize! |
523 Autoload initialize! |