diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 1f5ad58..e0e5727 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -137,27 +137,29 @@ 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" - | binaryUrl sha1 | - + | packageUrl sha1 localPath packageName | + + localPath := FileSystem disk workingDirectory parent / 'bin'. Smalltalk platform name = 'unix' ifTrue: [ - binaryUrl := 'http://sqlite.org/2016/sqlite-tools-linux-x86-3110100.zip'. + packageUrl := 'http://sqlite.org/2016/sqlite-tools-linux-x86-3110100.zip'. sha1 := '21a80cefa91d5de50256996fc55990a027c350fd']. Smalltalk platform name = 'Win32' ifTrue: [ - binaryUrl := 'http://sqlite.org/2016/sqlite-dll-win32-x86-3110100.zip'. + packageUrl := 'http://sqlite.org/2016/sqlite-dll-win32-x86-3110100.zip'. sha1 := 'cfd6f64ba1fb5de1ccf8321e29764c690c25e0a0']. Smalltalk platform name = 'Mac OS' ifTrue: [ - binaryUrl := 'http://sqlite.org/2016/sqlite-tools-osx-x86-3110100.zip'. + packageUrl := 'http://sqlite.org/2016/sqlite-tools-osx-x86-3110100.zip'. sha1 := 'c78b3b92bd37554694d2f73dbecfef1902c15ba7']. self - downloadingFrom: binaryUrl + downloadingFrom: packageUrl withMessage: 'Descargando SQLite...' - into: (FileSystem disk workingDirectory parent / 'bin') asFileReference. + into: localPath asFileReference. + packageName := (packageUrl splitOn: '/') last. ZipArchive new - readFrom: (binaryUrl splitOn: '/') last; - extractAllTo: (FileSystem disk workingDirectory parent / 'bin') asFileReference. + readFrom: (localPath / packageName); + extractAllTo: localPath asFileReference. ] { #category : #'graphical interface' }