ResourcePack.st
changeset 8519 15b16159731f
parent 8517 b32d1a4a3c24
child 8520 ca6931598931
equal deleted inserted replaced
8518:f7fd6d8ee737 8519:15b16159731f
   385             ^ pack
   385             ^ pack
   386         ].
   386         ].
   387     ].        
   387     ].        
   388         
   388         
   389     file := Smalltalk getResourceFileName:resourceFileName forPackage:package.
   389     file := Smalltalk getResourceFileName:resourceFileName forPackage:package.
   390     (file notNil and:[file exists]) ifTrue:[
   390     (file notNil and:[(file := file asFilename) exists]) ifTrue:[
   391         rsrcDir := file asFilename directory.
   391         rsrcDir := file directory.
   392         pack := self fromFile:resourceFileName directory:rsrcDir cached:cached.
   392         pack := self fromFile:resourceFileName directory:rsrcDir cached:cached.
   393         pack packsPackage:package.
   393         pack packsPackage:package.
   394         ^ pack
   394         ^ pack
   395     ].
   395     ].
   396     
   396