From 7d32f4eb1d70caaf86bdf16f05c1318f0b3f4dd9 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 21 Mar 2016 11:09:04 +0000
Subject: [PATCH] SQLite: moving files. Next cleaning leftovers and maybe
 starting a new object to model external apps handling (SQLite, fossil and
 pandoc)

---
 repository/Grafoscopio/GrafoscopioBrowser.class.st | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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