From 4d4aaf8705488a82538057db01f0037c1ddb1aa2 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 9 Mar 2015 18:36:52 +0000
Subject: [PATCH] New launchers and updatable docking bar.

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

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index be58456..5be152e 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -27,6 +27,7 @@ Class {
 	],
 	#classVars : [
 		'DefaultUbakyeBrowser',
+		'dockingBar',
 		'fossil',
 		'pandoc'
 	],
@@ -126,20 +127,21 @@ GrafoscopioBrowser class >> startDockingBar [
 	Some of the functionalities implemented now in the grafoscopio interface for document trees should be moved here, like the ones
 	related with help, external tools and grafoscopio updates and about"
 
-	| dockingBar launchMenu helpMenu updateMenu |
-	"World deleteDockingBars."
+	| launchMenu helpMenu updateMenu |
 	
 	launchMenu := MenuMorph new.
 	launchMenu 
-		add: 'Documento interactivo nuevo' target: GrafoscopioBrowser action: #open;
-	 	add: 'Documentos interactivos recientes' target: GrafoscopioBrowser action: #messageNotImplementedYet;
-		add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+		add: 'Arbol/Documento interactivo nuevo' target: GrafoscopioBrowser action: #open;
+	 	add: 'Arboles/Documentos interactivos recientes' target: GrafoscopioBrowser action: #messageNotImplementedYet;
+		add: 'Arboles/Documentos interactivos de ejemplo' target: GrafoscopioBrowser action: #messageNotImplementedYet;
+		add: 'Ejemplos de visualizaciones en Roassal' target: (RTExampleBrowser new) action: #open;
+		add: 'Playground' target: (Smalltalk tools) action: #openWorkspace.
 
 	updateMenu := MenuMorph new.
 	updateMenu
 		add: 'Documentación' target: GrafoscopioBrowser action: #messageNotImplementedYet; 
 		add: 'Grafoscopio' target: GrafoscopioBrowser action: #updateGrafoscopio;
-		add: 'Interface Gráfica' target: GrafoscopioBrowser action: #messageNotImplementedYet;
+		add: 'Interface Gráfica' target: GrafoscopioBrowser action: #updateUI;
 		add: 'Prerrequisitos' target: GrafoscopioBrowser action: #updatePrerrequisites;
 		add: 'Herramientas externas' target: GrafoscopioBrowser action: #messageNotImplementedYet;
 		add: 'Ruta a pandoc' target: GrafoscopioBrowser action: #configurePandoc;
@@ -148,9 +150,9 @@ GrafoscopioBrowser class >> startDockingBar [
 	
 	helpMenu := MenuMorph new.
 	helpMenu 
-		add: 'Abrir ayuda en PDF' target: GrafoscopioBrowser action: #launchHelpInPdf;
-	 	add: 'Abrir ayuda en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet;
-		add: 'Abrir ayuda en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet;
+		add: 'Manual en PDF' target: GrafoscopioBrowser action: #launchHelpInPdf;
+	 	add: 'Manual en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet;
+		add: 'Manual en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet;
 		add: 'Ir a la documentación en línea' target: GrafoscopioBrowser action: #messageNotImplementedYet;
 		add: 'Acerca de Grafoscopio' target: GrafoscopioBrowser action: #messageAbout.
 		
@@ -190,6 +192,35 @@ GrafoscopioBrowser class >> updatePrerrequisites [
 	(ConfigurationOfCitezen project latestVersion: #development) load.
 ]
 
+{ #category : #'as yet unclassified' }
+GrafoscopioBrowser class >> updateSystem [
+	"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.
+ 
+	Gofer new 
+    smalltalkhubUser: 'Offray' project: 'Grafoscopio';
+    package: 'Grafoscopio';
+    load.
+
+]
+
+{ #category : #'as yet unclassified' }
+GrafoscopioBrowser class >> updateUI [
+	"Updates the User Interface (UI) with new versions of the docking bar or logos where available. Helpful while testing new functionality
+	 that should be expossed to the user via the UI"
+
+	dockingBar delete.
+	self startDockingBar.
+]
+
 { #category : #persistence }
 GrafoscopioBrowser >> addFileToRepository [
 	"Adds a selected file to a defined repository."
@@ -1092,23 +1123,3 @@ GrafoscopioBrowser >> treeOn: constructor [
 		act: [self messageNotImplementedYet "repositoryCommit"] entitled: 'Enviar al histórico' categorized: 'Proyecto';
 		act: [self messageNotImplementedYet "repositoryCredentials"] entitled: 'Acreditarse' categorized: 'Proyecto'.
 ]
-
-{ #category : #'system-support' }
-GrafoscopioBrowser >> updateSystem [
-	"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.
- 
-	Gofer new 
-    smalltalkhubUser: 'Offray' project: 'Grafoscopio';
-    package: 'Grafoscopio';
-    load.
-
-]