equal
deleted
inserted
replaced
236 "/ (rsrcDir notNil and:[rsrcDir suffix = 'rs']) ifTrue:[ |
236 "/ (rsrcDir notNil and:[rsrcDir suffix = 'rs']) ifTrue:[ |
237 "/ baseName := (Smalltalk fileNameForClass: rsrcDir tail asFilename withoutSuffix pathName),'.rs'. |
237 "/ baseName := (Smalltalk fileNameForClass: rsrcDir tail asFilename withoutSuffix pathName),'.rs'. |
238 "/ rsrcDir := rsrcDir head asFilename. |
238 "/ rsrcDir := rsrcDir head asFilename. |
239 "/ ]. |
239 "/ ]. |
240 |
240 |
241 (rsrcDir notNil |
241 rsrcDir notNil ifTrue:[ |
242 and:[rsrcDir exists |
242 pack := self new. |
243 and:[(rsrcDir construct:baseName) exists]]) ifTrue:[ |
243 rsrcDir exists ifTrue:[ |
244 pack := self fromFile:baseName directory:rsrcDir pathName. |
244 (rsrcDir construct:baseName) exists ifTrue:[ |
|
245 pack := self fromFile:baseName directory:(rsrcDir name) cached:true. |
|
246 ]. |
|
247 ] |
245 ] ifFalse:[ |
248 ] ifFalse:[ |
246 pack := self fromFile:baseName. |
249 pack := self fromFile:baseName directory:'resources' cached:true. |
247 ]. |
250 ]. |
248 aClass superclass notNil ifTrue:[ |
251 aClass superclass notNil ifTrue:[ |
249 pack superPack:(self for:(aClass superclass)). |
252 pack superPack:(self for:(aClass superclass)). |
250 ]. |
253 ]. |
251 pack packsClassOrFileName:nm. |
254 pack packsClassOrFileName:nm. |
264 ResourcePack for:ErrorLogger |
267 ResourcePack for:ErrorLogger |
265 ResourcePack for:NewLauncher |
268 ResourcePack for:NewLauncher |
266 Workspace classResources |
269 Workspace classResources |
267 " |
270 " |
268 |
271 |
269 "Modified: / 18-09-2006 / 19:07:23 / cg" |
272 "Modified: / 11-10-2006 / 13:48:31 / cg" |
270 ! |
273 ! |
271 |
274 |
272 forPackage:package |
275 forPackage:package |
273 "get the full resource definitions given a package id (such as stx:libbasic'). |
276 "get the full resource definitions given a package id (such as stx:libbasic'). |
274 Also leave the resulting pack in the cache for faster access next time." |
277 Also leave the resulting pack in the cache for faster access next time." |
1248 ! ! |
1251 ! ! |
1249 |
1252 |
1250 !ResourcePack class methodsFor:'documentation'! |
1253 !ResourcePack class methodsFor:'documentation'! |
1251 |
1254 |
1252 version |
1255 version |
1253 ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.117 2006-10-09 09:19:01 cg Exp $' |
1256 ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.118 2006-10-11 11:53:59 cg Exp $' |
1254 ! ! |
1257 ! ! |
1255 |
1258 |
1256 ResourcePack initialize! |
1259 ResourcePack initialize! |