equal
deleted
inserted
replaced
243 className isNil ifTrue:[ |
243 className isNil ifTrue:[ |
244 resourceOwner := aResourceContainer |
244 resourceOwner := aResourceContainer |
245 ] ifFalse:[ |
245 ] ifFalse:[ |
246 ns := aResourceContainer class nameSpace. |
246 ns := aResourceContainer class nameSpace. |
247 ns ~~ Smalltalk ifTrue:[ |
247 ns ~~ Smalltalk ifTrue:[ |
248 cls := ns at:className asSymbol. |
248 ns isNamespace ifTrue:[ |
|
249 cls := ns at:className asSymbol. |
|
250 ] ifFalse:[ |
|
251 cls := ns privateClassesAt:className asSymbol. |
|
252 ]. |
249 cls notNil ifTrue:[ |
253 cls notNil ifTrue:[ |
250 className := cls name. |
254 className := cls name. |
251 ] |
255 ] |
252 ]. |
256 ]. |
253 ] |
257 ] |
352 ! ! |
356 ! ! |
353 |
357 |
354 !ResourceRetriever class methodsFor:'documentation'! |
358 !ResourceRetriever class methodsFor:'documentation'! |
355 |
359 |
356 version |
360 version |
357 ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.7 2004-02-26 18:26:26 cg Exp $' |
361 ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.8 2004-02-26 19:01:29 cg Exp $' |
358 ! ! |
362 ! ! |