From 64ab651a82086aff5dd1c41a751988dda09005db Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 20 Mar 2016 12:21:01 +0000
Subject: [PATCH] SQLite support: fixing local paths bug.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 20 ++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

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' }