diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index e0e5727..9bf8a76 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -137,7 +137,7 @@ GrafoscopioBrowser class >> installSQLite32Bits [ "I dowload the SQLite binary for the hosting platform, uncompress it and made it available as with the name NBSQLite is wating for" - | packageUrl sha1 localPath packageName | + | packageUrl sha1 localPath packageZipName | localPath := FileSystem disk workingDirectory parent / 'bin'. Smalltalk platform name = 'unix' @@ -156,10 +156,12 @@ GrafoscopioBrowser class >> installSQLite32Bits [ downloadingFrom: packageUrl withMessage: 'Descargando SQLite...' into: localPath asFileReference. - packageName := (packageUrl splitOn: '/') last. + packageZipName := (packageUrl splitOn: '/') last. ZipArchive new - readFrom: (localPath / packageName); - extractAllTo: localPath asFileReference. + readFrom: (localPath / packageZipName); + extractAllTo: localPath asFileReference. + (localPath / (packageZipName copyReplaceAll: '.zip' with: '')) children do: [:file | file moveTo: (localPath / file basenameWithIndicator) ] + ] { #category : #'graphical interface' }