Grafoscopio
/
Grafoscopio
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updated method for updating docs.

This commit is contained in:
IvanPulido 2015-06-06 19:50:20 +00:00 committed by SantiagoBragagnolo
parent 2eaa4938df
commit d15bd83414
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -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"