From 09656266a4e2ad1830e237a6dbbf9b8fd913d46b Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Sat, 26 Mar 2016 11:44:55 +0000 Subject: [PATCH] Documentation: Cleaning download and updating for particular documents now that we have them generalized. --- .../Grafoscopio/GrafoscopioBrowser.class.st | 50 ------------------- 1 file changed, 50 deletions(-) diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index dcf8a4d..490b8a0 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -124,36 +124,6 @@ GrafoscopioBrowser class >> docDownloadFor: aDocumentType [ ] asJob run. ] -{ #category : #updating } -GrafoscopioBrowser class >> downloadTutorial [ - "I download the interactive tutorial in STON format. - If a the tutorial is already present in the system I made a temporal backup and download a new copy" - - | client localTutorial temporalBackup remoteTutorial | - - localTutorial := './', (self docDataTutorial at: 'relativePath'), (self docDataTutorial at: 'filename'). - temporalBackup := './', (self docDataTutorial at: 'relativePath'), 'tutorial.temp.ston'. - remoteTutorial := (self docDataTutorial at: 'remoteRepo'), 'doc/tip/', (self docDataTutorial at: 'relativePath'), (self docDataTutorial at: 'filename'). - localTutorial asFileReference exists - ifTrue: [ - temporalBackup asFileReference exists ifTrue: [ temporalBackup asFileReference delete]. - localTutorial asFileReference renameTo: 'tutorial.temp.ston' - ]. - [: bar | - bar title: 'Actualizando el tutorial...'. - [client := ZnClient new. - client - get: remoteTutorial; - signalProgress: true; - downloadTo: ('./', (self docDataTutorial at: 'relativePath')). ] - on: HTTPProgress - do: [ :progress | - progress isEmpty ifFalse: [ bar current: progress percentage ]. - progress resume ]. - - ] asJob run. -] - { #category : #'graphical interface' } GrafoscopioBrowser class >> downloadingFrom: downloadUrl withMessage: aString into: location [ @@ -563,26 +533,6 @@ GrafoscopioBrowser class >> updateSystem [ ] -{ #category : #updating } -GrafoscopioBrowser class >> updateTutorial [ - "I Update main tutorial from official repository" - - | update unnecessaryUpdate | - update := UIManager default - confirm: '¿Desea actualizar el tutorial?' - label: 'Actualizar el tutorial'. - update - ifTrue: [ - (self isDocUpdatedFor: 'tutorial') - ifFalse: [self downloadTutorial] - ifTrue: [ - unnecessaryUpdate := UIManager default - abort: 'El tutorial ya se encuentra en su versión más reciente.' - title: 'Nada que actualizar!' - ] - ] -] - { #category : #updating } GrafoscopioBrowser class >> updateUI [ "Updates the User Interface (UI) with new versions of the docking bar or logos where available. Helpful while testing new functionality