Renabling themes downloading.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-12-09 18:20:38 -05:00
parent f29ea2d014
commit ef3218a343

View File

@ -141,9 +141,12 @@ BreaTheme >> folder: anObject [
{ #category : #installation } { #category : #installation }
BreaTheme >> installInto: aFolder [ BreaTheme >> installInto: aFolder [
| zippedFile | | zippedFile |
self url ifNil: [ ^ self ]. self url ifNil: [ ^ self ].
zippedFile := self downloadInto: FileLocator temp. ZnClient new
url: self url;
downloadTo: FileLocator temp.
zippedFile := FileLocator temp / 'download'.
(ZipArchive new readFrom: zippedFile) extractAllTo: aFolder. (ZipArchive new readFrom: zippedFile) extractAllTo: aFolder.
^ aFolder ^ aFolder
] ]