diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index cc761c0..fde839a 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -223,7 +223,7 @@ GrafoscopioBrowser class >> startDockingBar [ updateMenu := MenuMorph new. updateMenu - add: 'Documentación' target: GrafoscopioBrowser selector: #updateDocumentationNew; + add: 'Documentación' target: GrafoscopioBrowser selector: #updateDocumentation; add: 'Grafoscopio' target: GrafoscopioBrowser selector: #updateGrafoscopio; add: 'Prerrequisitos' target: GrafoscopioBrowser selector: #updatePrerrequisites; add: 'Herramientas externas' target: GrafoscopioBrowser selector: #messageNotImplementedYet; @@ -252,6 +252,25 @@ GrafoscopioBrowser class >> startDockingBar [ { #category : #'as yet unclassified' } GrafoscopioBrowser class >> updateDocumentation [ +"Updates documentation/manual from official repository" + +| fileLocation filePath client | + fileLocation := './Docs/Es/Manual/'. + fileLocation asFileReference ensureCreateDirectory. + filePath := fileLocation,'manual-grafoscopio.ston'. + client := ZnClient new. + client get: 'http://mutabit.com/deltas/repos.fossil/grafoscopio/doc/tip/Docs/Es/Manual/manual-grafoscopio.ston'. + client isSuccess + ifTrue: [ filePath asFileReference + writeStreamDo: [ :stream | + stream write: client contents asString]. + self inform: 'La actualización de la documentación ha terminado'. ] + ifFalse: [ self inform: 'Algo salió mal. Verifique su conexión a Internet.' ] +] + +{ #category : #'as yet unclassified' } +GrafoscopioBrowser class >> updateDocumentationOld [ + | localRepository remoteRepository | localRepository := FileSystem disk workingDirectory parent / 'grafoscopio.fossil'. @@ -273,25 +292,6 @@ localRepository exists ] ] -{ #category : #'as yet unclassified' } -GrafoscopioBrowser class >> updateDocumentationNew [ - -"Updates documentation/manual from official repository" - -| fileLocation filePath client | - fileLocation := './Docs/Es/Manual/'. - fileLocation asFileReference ensureCreateDirectory. - filePath := fileLocation,'manual-grafoscopio.ston'. - client := ZnClient new. - client get: 'http://mutabit.com/deltas/repos.fossil/grafoscopio/doc/tip/Docs/Es/Manual/manual-grafoscopio.ston'. - client isSuccess - ifTrue: [ filePath asFileReference - writeStreamDo: [ :stream | - stream write: client contents asString]. - self inform: 'La actualización de la documentación ha terminado'. ] - ifFalse: [ self inform: 'Algo salió mal. Verifique su conexión a Internet.' ] -] - { #category : #'as yet unclassified' } GrafoscopioBrowser class >> updateGrafoscopio [ "Updates Grafoscopio with new versions of itself take from the source code repository and the User Interface"