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 [
|
BreaTheme >> installInto: aFolder [
|
||||||
| zippedFile |
|
| zippedFile |
|
||||||
self url ifNil: [ ^ self ].
|
self url ifNil: [ ^ self ].
|
||||||
|
zippedFile := FileLocator temp / 'download'.
|
||||||
|
zippedFile ensureDelete.
|
||||||
ZnClient new
|
ZnClient new
|
||||||
url: self url;
|
url: self url;
|
||||||
downloadTo: FileLocator temp.
|
downloadTo: FileLocator temp.
|
||||||
zippedFile := FileLocator temp / 'download'.
|
|
||||||
(ZipArchive new readFrom: zippedFile) extractAllTo: aFolder.
|
(ZipArchive new readFrom: zippedFile) extractAllTo: aFolder.
|
||||||
|
self folder: aFolder.
|
||||||
^ aFolder
|
^ aFolder
|
||||||
]
|
]
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user