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 := MenuMorph new.
updateMenu updateMenu
add: 'Documentación' target: GrafoscopioBrowser selector: #updateDocumentationNew; add: 'Documentación' target: GrafoscopioBrowser selector: #updateDocumentation;
add: 'Grafoscopio' target: GrafoscopioBrowser selector: #updateGrafoscopio; add: 'Grafoscopio' target: GrafoscopioBrowser selector: #updateGrafoscopio;
add: 'Prerrequisitos' target: GrafoscopioBrowser selector: #updatePrerrequisites; add: 'Prerrequisitos' target: GrafoscopioBrowser selector: #updatePrerrequisites;
add: 'Herramientas externas' target: GrafoscopioBrowser selector: #messageNotImplementedYet; add: 'Herramientas externas' target: GrafoscopioBrowser selector: #messageNotImplementedYet;
@ -252,6 +252,25 @@ GrafoscopioBrowser class >> startDockingBar [
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioBrowser class >> updateDocumentation [ 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 remoteRepository |
localRepository := FileSystem disk workingDirectory parent / 'grafoscopio.fossil'. 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' } { #category : #'as yet unclassified' }
GrafoscopioBrowser class >> updateGrafoscopio [ GrafoscopioBrowser class >> updateGrafoscopio [
"Updates Grafoscopio with new versions of itself take from the source code repository and the User Interface" "Updates Grafoscopio with new versions of itself take from the source code repository and the User Interface"