From cf1d06829ea8950b95ccc277b604bd212e22f28b Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 7 Mar 2015 17:42:25 +0000
Subject: [PATCH] Changing message to the class side of GrafoscopioBrowser.

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

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index ebb0e2d..b722f5c 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -54,6 +54,36 @@ GrafoscopioBrowser class >> open [
 	^ self new open
 ]
 
+{ #category : #'as yet unclassified' }
+GrafoscopioBrowser class >> startDockingBar [
+	"Creates a custom docking bar for grafoscopio on top, with shorcuts for most used actions, and a fixed place for asking for help.
+	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 |
+	"World deleteDockingBars."
+	
+	launchMenu := MenuMorph new.
+	launchMenu add: 'Documento interactivo nuevo' target: GrafoscopioBrowser action: #open.
+	launchMenu add: 'Documentos interactivos recientes' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	launchMenu add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	
+	helpMenu := MenuMorph new.
+	helpMenu add: 'Abrir ayuda local en HTML (recomendado)' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	helpMenu add: 'Abrir ayuda remota en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	helpMenu add: 'Abrir ayuda local en pdf (recomendado)' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	helpMenu add: 'Abrir ayuda remota en pdf' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	helpMenu add: 'Abrir ayuda local en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	helpMenu add: 'Abrir ayuda remota en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	
+	dockingBar := DockingBarMorph new.
+	dockingBar add: 'Lanzar' subMenu: launchMenu.
+	dockingBar add: 'Ayuda' subMenu: helpMenu.
+   dockingBar 
+		adhereToTop;
+     	openInWorld.
+]
+
 { #category : #persistence }
 GrafoscopioBrowser >> addFileToRepository [
 	"Adds a selected file to a defined repository."
@@ -891,36 +921,6 @@ GrafoscopioBrowser >> showTagsAvailable [
 
 ]
 
-{ #category : #'graphical interface' }
-GrafoscopioBrowser >> startDockingBar [
-	"Creates a custom docking bar for grafoscopio on top, with shorcuts for most used actions, and a fixed place for asking for help.
-	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 |
-	"World deleteDockingBars."
-	
-	launchMenu := MenuMorph new.
-	launchMenu add: 'Documento interactivo nuevo' target: GrafoscopioBrowser action: #open.
-	launchMenu add: 'Documentos interactivos recientes' target: GrafoscopioBrowser action: #messageNotImplementedYet.
-	launchMenu add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser action: #messageNotImplementedYet.
-	
-	helpMenu := MenuMorph new.
-	helpMenu add: 'Abrir ayuda local en HTML (recomendado)' target: GrafoscopioBrowser action: #messageNotImplementedYet.
-	helpMenu add: 'Abrir ayuda remota en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet.
-	helpMenu add: 'Abrir ayuda local en pdf (recomendado)' target: GrafoscopioBrowser action: #messageNotImplementedYet.
-	helpMenu add: 'Abrir ayuda remota en pdf' target: GrafoscopioBrowser action: #messageNotImplementedYet.
-	helpMenu add: 'Abrir ayuda local en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
-	helpMenu add: 'Abrir ayuda remota en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
-	
-	dockingBar := DockingBarMorph new.
-	dockingBar add: 'Lanzar' subMenu: launchMenu.
-	dockingBar add: 'Ayuda' subMenu: helpMenu.
-   dockingBar 
-		adhereToTop;
-     	openInWorld.
-]
-
 { #category : #'graphical interface' }
 GrafoscopioBrowser >> treeOn: constructor [
 	"Shows the correspondent tree of a node"