diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index d88e43d..5e9dac5 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: #updateDocumentation; + add: 'Documentación' target: GrafoscopioBrowser selector: #updateDocumentationNew; add: 'Grafoscopio' target: GrafoscopioBrowser selector: #updateGrafoscopio; add: 'Prerrequisitos' target: GrafoscopioBrowser selector: #updatePrerrequisites; add: 'Herramientas externas' target: GrafoscopioBrowser selector: #messageNotImplementedYet; @@ -273,6 +273,25 @@ 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 ]. + 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"