Grafoscopio
/
Grafoscopio
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Loading to the last version of Dataviz package.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-10-01 17:46:49 +00:00 committed by SantiagoBragagnolo
parent 04d33f10f9
commit dfef88819e
3 changed files with 9 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Grafoscopio/ExternalApp.class.st
View File

@ -17,14 +17,6 @@ Class {
#category : #'Grafoscopio-Model'
}
{ #category : #installation }
ExternalApp class >> compareHashFor: aFileName with: aSHAString [
aSHAString = (SHA1 new hashMessage: aFileName asFileReference binaryReadStream contents) hex
ifFalse: [ ^ false ]
ifTrue: [ ^ true ].
]
{ #category : #configuration }
ExternalApp class >> configureFossil [
"Stablish where is located pandoc according to the operative system and/or the input of the user"
@ -49,6 +41,14 @@ ExternalApp class >> configurePandoc [
]
{ #category : #installation }
ExternalApp class >> file: aFileName hasHash: aSHAString [
aSHAString = (SHA1 new hashMessage: aFileName asFileReference binaryReadStream contents) hex
ifFalse: [ ^ false ]
ifTrue: [ ^ true ].
]
{ #category : #installation }
ExternalApp class >> installSQLite32Bits [
"I dowload the SQLite binary for the hosting platform, uncompress it and made it available as with the name

41
src/Grafoscopio/FossilRepo.class.st
View File

@ -1,41 +0,0 @@
"
I model a fossil repository. For details about fossil see:
http://fossil-scm.org/
"
Class {
#name : #FossilRepo,
#superclass : #Object,
#instVars : [
'url'
],
#category : #'Grafoscopio-Model'
}
{ #category : #'as yet unclassified' }
FossilRepo >> jsonDataFor: aFileName [
^ NeoJSONReader fromString: (self jsonStringFor: aFileName)
]
{ #category : #'as yet unclassified' }
FossilRepo >> jsonStringFor: aFileName [
| queryForJSONData |
queryForJSONData := self url addPathSegments: #('json' 'finfo').
queryForJSONData queryAt: 'name' put: aFileName.
^ (ZnEasy get: queryForJSONData) contents.
]
{ #category : #'as yet unclassified' }
FossilRepo >> lastHashNumberFor: aFileName [
^ (((self jsonDataFor: aFileName) at: 'payload') at: 'checkins') first at: 'uuid'
]
{ #category : #accessing }
FossilRepo >> url [
^ url
]
{ #category : #accessing }
FossilRepo >> url: aString [
url := aString asUrl
]

6
src/Grafoscopio/GrafoscopioGUI.class.st
View File

@ -130,10 +130,6 @@ GrafoscopioGUI class >> dockingBar: anObject [
{ #category : #'graphical interface' }
GrafoscopioGUI class >> downloadingFrom: downloadUrl withMessage: aString into: location [
| fileName |
fileName := (downloadUrl splitOn: $/) last.
(location / fileName) exists ifTrue: [ (location / fileName) ensureDelete ].
[: bar |
bar title: aString.
[ZnClient new
@ -562,7 +558,7 @@ GrafoscopioGUI class >> updateDataviz [
Gofer it
smalltalkhubUser: 'Offray' project: 'Dataviz';
configurationOf: 'Dataviz';
loadVersion: #development.
load.
self inform: 'Actualización del paquete Dataviz terminada'
]