Replacing temporal downloded folders for new themes.
This commit is contained in:
parent
7b86b2cfeb
commit
2875964efc
@ -143,11 +143,13 @@ BreaTheme >> folder: anObject [
|
||||
BreaTheme >> installInto: aFolder [
|
||||
| zippedFile |
|
||||
self url ifNil: [ ^ self ].
|
||||
zippedFile := FileLocator temp / 'download'.
|
||||
zippedFile ensureDelete.
|
||||
ZnClient new
|
||||
url: self url;
|
||||
downloadTo: FileLocator temp.
|
||||
zippedFile := FileLocator temp / 'download'.
|
||||
(ZipArchive new readFrom: zippedFile) extractAllTo: aFolder.
|
||||
self folder: aFolder.
|
||||
^ aFolder
|
||||
]
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user