diff --git a/src/Grafoscopio/ExternalApp.class.st b/src/Grafoscopio/ExternalApp.class.st index 0586574..6c376af 100644 --- a/src/Grafoscopio/ExternalApp.class.st +++ b/src/Grafoscopio/ExternalApp.class.st @@ -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 diff --git a/src/Grafoscopio/FossilRepo.class.st b/src/Grafoscopio/FossilRepo.class.st deleted file mode 100644 index 1e109cb..0000000 --- a/src/Grafoscopio/FossilRepo.class.st +++ /dev/null @@ -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 -] diff --git a/src/Grafoscopio/GrafoscopioGUI.class.st b/src/Grafoscopio/GrafoscopioGUI.class.st index 49594bc..dad69a0 100644 --- a/src/Grafoscopio/GrafoscopioGUI.class.st +++ b/src/Grafoscopio/GrafoscopioGUI.class.st @@ -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' ]