diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 77217cc..e1ad42a 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -63,8 +63,9 @@ GrafoscopioBrowser class >> configurePandoc [ { #category : #configuration } GrafoscopioBrowser class >> configureSettings [ - "Stablish several 'global' settings according to to image location and the operative system. For the moment we're gonna use hardcoded paths, - but in the future this will be a smarter method finding the proper external tool and setting up it." + "I stablish several 'global' settings according to to image location and the operative system. + For the moment we're gonna use hardcoded paths, but in the future this will be a smarter method finding + the proper external tool and setting up it." draftsLocation := FileSystem disk workingDirectory / 'Grafoscopio' / 'Drafts'. draftsLocation ensureCreateDirectory. @@ -114,6 +115,52 @@ GrafoscopioBrowser class >> downloadTutorial [ ] asJob run. ] +{ #category : #'graphical interface' } +GrafoscopioBrowser class >> downloadingFrom: downloadUrl withMessage: aString into: location [ + + [: bar | + bar title: aString. + [ZnClient new + get: downloadUrl; + signalProgress: true; + downloadTo: location. + ] + on: HTTPProgress + do: [ :progress | + progress isEmpty ifFalse: [ bar current: progress percentage ]. + progress resume ]. + ] asJob run. +] + +{ #category : #configuration } +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 | + + "fossil := (FileSystem disk workingDirectory parent / 'Platform' / 'Linux' / 'Programs' / 'Fossil'/ 'fossil') fullName." + Smalltalk platform name = 'unix' + ifTrue: [ + binaryUrl := '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'. + sha1 := 'cfd6f64ba1fb5de1ccf8321e29764c690c25e0a0']. + Smalltalk platform name = 'Mac OS' + ifTrue: [ + binaryUrl := 'http://sqlite.org/2016/sqlite-tools-osx-x86-3110100.zip'. + sha1 := 'c78b3b92bd37554694d2f73dbecfef1902c15ba7']. + self + downloadingFrom: binaryUrl + withMessage: 'Descargando SQLite...' + into: (FileSystem disk workingDirectory parent / 'bin') asFileReference. + ZipArchive new + readFrom: (binaryUrl splitOn: '/') last; + extractAllTo: (FileSystem disk workingDirectory parent / 'bin') asFileReference. +] + { #category : #'graphical interface' } GrafoscopioBrowser class >> messageAbout [ "Shows the author, license, sponsors and main contributors to the project and point to further documentation on the web"