From e5fa9dfae2c1b521b70c65ef8280618ded4e7d6a Mon Sep 17 00:00:00 2001
From: OffrayLuna <offray.luna@mutabit.com>
Date: Sat, 15 Nov 2014 16:21:15 +0000
Subject: [PATCH] Modular updates in menu

---
 src/Grafoscopio/GrafoscopioBrowser.class.st | 37 ++++++++++++++++++---
 src/Grafoscopio/GrafoscopioNode.class.st    |  6 ++--
 2 files changed, 35 insertions(+), 8 deletions(-)

diff --git a/src/Grafoscopio/GrafoscopioBrowser.class.st b/src/Grafoscopio/GrafoscopioBrowser.class.st
index fd79597..3f259db 100644
--- a/src/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/src/Grafoscopio/GrafoscopioBrowser.class.st
@@ -12,16 +12,15 @@ Class {
 	#name : #GrafoscopioBrowser,
 	#superclass : #Object,
 	#instVars : [
-		'browser',
+		'\r\t\t\t\tbrowser',
 		'explorer',
 		'mainTree',
 		'workingFile',
-		'fossil',
-		'pandoc',
+		'\r\t\t\t\tfossil',
 		'localRepository',
 		'remoteRepository',
 		'repositoryUser',
-		'repositoryPassword'
+		'repositoryPassword\r\t\t\t\tpandoc'
 	],
 	#classVars : [
 		'DefaultUbakyeBrowser'
@@ -510,11 +509,39 @@ GrafoscopioBrowser >> treeOn: constructor [
 		act: [self repositoryCommit] entitled: 'Proyecto > Enviar al histórico';
 		act: [self repositoryCredentials] entitled: 'Proyecto > Acreditarse';
 		act: [self updateSystem] entitled: 'Grafoscopio > Actualizar';
-		act: [:x | x printString inspect] entitled: 'Grafoscopio > Instalar herramientas externas';
+		act: [self updateSystem] entitled: 'Grafoscopio > Actualizar prerrequisitos';
+		act: [:x | x printString inspect] entitled: 'Grafoscopio > Actualizar herramientas externas';
 		act: [:x | x printString inspect] entitled: 'Grafoscopio > Acerca de...'.
 
 ]
 
+{ #category : #'system-support' }
+GrafoscopioBrowser >> updateGrafoscopio [
+	"Updates Grafoscopio with new versions of itself take from the source code repository"
+ 
+	Gofer new 
+    smalltalkhubUser: 'Offray' project: 'Grafoscopio';
+    package: 'Grafoscopio';
+    load.
+
+]
+
+{ #category : #'system-support' }
+GrafoscopioBrowser >> updatePrerrequisites [
+	"Updates the system with new versions of itself take from the source code repository"
+	Gofer new 
+    smalltalkhubUser: 'SvenVanCaekenberghe' project: 'STON';
+    package: 'STON-Core';
+    load.
+	
+	Gofer new squeaksource: 'Citezen';
+     package: 'ConfigurationOfCitezen';
+     load.
+	(ConfigurationOfCitezen project latestVersion: #development) load.
+
+
+]
+
 { #category : #'system-support' }
 GrafoscopioBrowser >> updateSystem [
 	"Updates the system with new versions of itself take from the source code repository"
diff --git a/src/Grafoscopio/GrafoscopioNode.class.st b/src/Grafoscopio/GrafoscopioNode.class.st
index e2eb518..7a4f18a 100644
--- a/src/Grafoscopio/GrafoscopioNode.class.st
+++ b/src/Grafoscopio/GrafoscopioNode.class.st
@@ -56,7 +56,7 @@ GrafoscopioNode class >> named: aString [
 		yourself
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'add/remove nodes' }
 GrafoscopioNode >> addNode: aNode [
 	"Adds the given node to the receivers collection of children, and sets this object as the parent
 	 of the node"
@@ -68,7 +68,7 @@ GrafoscopioNode >> addNode: aNode [
 	
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'add/remove nodes' }
 GrafoscopioNode >> addNodeAfter [
 	"Adds a generic node after the given node so they become slibings of the same parent"
 	| genericNode |
@@ -445,7 +445,7 @@ GrafoscopioNode >> returnConfig [
 		^configDict 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'add/remove nodes' }
 GrafoscopioNode >> visitedGoTo: aCollection [
 	"Stores the current node in a collection and recursively stores its children"