equal
deleted
inserted
replaced
187 nm := nm , ' (a classBinary)' |
187 nm := nm , ' (a classBinary)' |
188 ] |
188 ] |
189 ]. |
189 ]. |
190 ]. |
190 ]. |
191 nm isNil ifTrue:[ |
191 nm isNil ifTrue:[ |
192 package := self package. |
192 package := self package. |
193 package notNil ifTrue:[ |
193 package notNil ifTrue:[ |
194 nm := Smalltalk getSourceFileName:((package copyReplaceAll:$: with:$/) , '/' , fileName , '.st'). |
194 nm := Smalltalk getSourceFileName:((package copyReplaceAll:$: with:$/) , '/' , fileName , '.st'). |
195 ]. |
195 ]. |
196 nm isNil ifTrue:[ |
196 nm isNil ifTrue:[ |
197 nm := Smalltalk getSourceFileName:(fileName , '.st'). |
197 nm := Smalltalk getSourceFileName:(fileName , '.st'). |
219 aStream nextPutAll:'When accessed, an error will be reported.'. |
219 aStream nextPutAll:'When accessed, an error will be reported.'. |
220 ] |
220 ] |
221 ]. |
221 ]. |
222 aStream cr; nextPutAll:'"'. |
222 aStream cr; nextPutAll:'"'. |
223 |
223 |
224 "Modified: 30.12.1996 / 17:25:15 / cg" |
224 "Created: / 5.1.1997 / 14:31:33 / cg" |
225 "Created: 5.1.1997 / 14:31:33 / cg" |
225 "Modified: / 5.3.1999 / 12:56:57 / cg" |
226 ! ! |
226 ! ! |
227 |
227 |
228 !Autoload class methodsFor:'lazy compilation'! |
228 !Autoload class methodsFor:'lazy compilation'! |
229 |
229 |
230 compileLazy |
230 compileLazy |
288 package := package asString copyReplaceAll:$: with:$/ |
288 package := package asString copyReplaceAll:$: with:$/ |
289 ] ifFalse:[ |
289 ] ifFalse:[ |
290 package := 'stx/' , package |
290 package := 'stx/' , package |
291 ] |
291 ] |
292 ]. |
292 ]. |
293 Smalltalk |
293 |
|
294 (Smalltalk |
294 fileInClass:myName |
295 fileInClass:myName |
295 package:package |
296 package:package |
296 initialize:false |
297 initialize:false |
297 lazy:LazyLoading |
298 lazy:LazyLoading |
298 silent:nil. |
299 silent:nil) isNil ifTrue:[ |
|
300 "/ temporary: try without stx/package prefix |
|
301 "/ this will vanishas soon as source-directory |
|
302 "/ is always guaranteed to contain an stx-subtree |
|
303 (package startsWith:'stx/') ifTrue:[ |
|
304 package := package copyFrom:5. |
|
305 Smalltalk |
|
306 fileInClass:myName |
|
307 package:package |
|
308 initialize:false |
|
309 lazy:LazyLoading |
|
310 silent:nil. |
|
311 ] |
|
312 ] |
299 ]. |
313 ]. |
300 ClassCategoryReader sourceMode:prevMode. |
314 ClassCategoryReader sourceMode:prevMode. |
301 project notNil ifTrue:[ |
315 project notNil ifTrue:[ |
302 Project setProject:project. |
316 Project setProject:project. |
303 ]. |
317 ]. |
373 |
387 |
374 newClass initializeWithAllPrivateClasses. |
388 newClass initializeWithAllPrivateClasses. |
375 newClass postAutoload. |
389 newClass postAutoload. |
376 ^ newClass |
390 ^ newClass |
377 |
391 |
378 "Modified: / 18.7.1998 / 22:52:41 / cg" |
392 "Modified: / 5.3.1999 / 12:59:13 / cg" |
379 ! ! |
393 ! ! |
380 |
394 |
381 !Autoload class methodsFor:'message catching'! |
395 !Autoload class methodsFor:'message catching'! |
382 |
396 |
383 basicNew |
397 basicNew |
602 ! ! |
616 ! ! |
603 |
617 |
604 !Autoload class methodsFor:'documentation'! |
618 !Autoload class methodsFor:'documentation'! |
605 |
619 |
606 version |
620 version |
607 ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.85 1999-02-28 17:15:38 cg Exp $' |
621 ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.86 1999-03-05 11:58:38 cg Exp $' |
608 ! ! |
622 ! ! |
609 Autoload initialize! |
623 Autoload initialize! |