Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Loading to the last version of Dataviz package.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-10-01 17:46:49 +00:00
parent 7b80ac59d7
commit 5c98c327c3
3 changed files with 9 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,14 +17,6 @@ Class {
#category : #'Grafoscopio-Model' #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 } { #category : #configuration }
ExternalApp class >> configureFossil [ ExternalApp class >> configureFossil [
"Stablish where is located pandoc according to the operative system and/or the input of the user" "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 } { #category : #installation }
ExternalApp class >> installSQLite32Bits [ ExternalApp class >> installSQLite32Bits [
"I dowload the SQLite binary for the hosting platform, uncompress it and made it available as with the name "I dowload the SQLite binary for the hosting platform, uncompress it and made it available as with the name

41
repository/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
repository/Grafoscopio/GrafoscopioGUI.class.st
View File

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