equal
deleted
inserted
replaced
294 ] ifFalse:[ |
294 ] ifFalse:[ |
295 rsrcDir := rsrcDir asFilename construct:'resources'. |
295 rsrcDir := rsrcDir asFilename construct:'resources'. |
296 rsrcDir exists ifFalse:[^ nil]. |
296 rsrcDir exists ifFalse:[^ nil]. |
297 ]. |
297 ]. |
298 |
298 |
299 pack := self fromFile:'resources.rs' directory:rsrcDir. |
299 pack := self fromFile:'resources.rs' directory:rsrcDir cached:cached. |
300 pack packsClassOrFileName:fullName. |
300 pack packsClassOrFileName:fullName. |
301 cached ifTrue:[ |
|
302 self addToCache:pack. |
|
303 ]. |
|
304 ^ pack |
301 ^ pack |
305 |
302 |
306 " |
303 " |
307 ResourcePack forPackage:'stx:libbasic' cached:false |
304 ResourcePack forPackage:'stx:libbasic' cached:false |
308 " |
305 " |
309 ! |
306 ! |
310 |
307 |
311 fromFile:aFileName |
308 fromFile:aFileName |
312 "get the resource definitions from a file in the default directory. |
309 "get the resource definitions from a file in the default directory." |
313 Uncached low-level entry." |
|
314 |
310 |
315 ^ self fromFile:aFileName directory:'resources' |
311 ^ self fromFile:aFileName directory:'resources' |
316 |
312 |
317 " |
313 " |
318 ResourcePack fromFile:'SBrowser.rs' |
314 ResourcePack fromFile:'SBrowser.rs' |
322 ResourcePack fromFile:'../../libtool/resources/AboutBox_ru.rs' asFilename |
318 ResourcePack fromFile:'../../libtool/resources/AboutBox_ru.rs' asFilename |
323 " |
319 " |
324 ! |
320 ! |
325 |
321 |
326 fromFile:aFileName directory:dirName |
322 fromFile:aFileName directory:dirName |
|
323 "get the resource definitions from a file in a directory." |
|
324 |
|
325 ^ self fromFile:aFileName directory:dirName cached:false |
|
326 ! |
|
327 |
|
328 fromFile:aFileName directory:dirName cached:cached |
327 "get the resource definitions from a file in a directory. |
329 "get the resource definitions from a file in a directory. |
328 Uncached low-level entry." |
330 Uncached low-level entry." |
329 |
331 |
330 |newPack| |
332 |newPack| |
331 |
333 |
332 newPack := self new. |
334 newPack := self new. |
333 newPack readFromFile:aFileName directory:dirName. |
335 newPack readFromFile:aFileName directory:dirName. |
|
336 cached ifTrue:[ |
|
337 self addToCache:newPack. |
|
338 ]. |
334 ^ newPack |
339 ^ newPack |
335 ! ! |
340 ! ! |
336 |
341 |
337 !ResourcePack class methodsFor:'private'! |
342 !ResourcePack class methodsFor:'private'! |
338 |
343 |
1148 ! ! |
1153 ! ! |
1149 |
1154 |
1150 !ResourcePack class methodsFor:'documentation'! |
1155 !ResourcePack class methodsFor:'documentation'! |
1151 |
1156 |
1152 version |
1157 version |
1153 ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.110 2006-09-13 17:08:13 cg Exp $' |
1158 ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.111 2006-09-18 08:54:02 cg Exp $' |
1154 ! ! |
1159 ! ! |
1155 |
1160 |
1156 ResourcePack initialize! |
1161 ResourcePack initialize! |