Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Renaming methods for updating documentation.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-06-08 10:18:03 +00:00
parent e4ebade806
commit 83685cb9fe
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

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