From 83685cb9fe00b2df603cf7a8fd35defc4340e046 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 8 Jun 2015 10:18:03 +0000
Subject: [PATCH] Renaming methods for updating documentation.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 40 +++++++++----------
 1 file changed, 20 insertions(+), 20 deletions(-)

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"