From bba38374310d1423da0b1fee1d58aec5d089b5f0 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 7 Mar 2015 18:54:29 +0000
Subject: [PATCH] DockingBar: Reorganizing

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 74 +++++++------------
 1 file changed, 28 insertions(+), 46 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 6feff9f..1f14466 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -33,22 +33,6 @@ Class {
 	#category : #'Grafoscopio-UI'
 }
 
-{ #category : #'as yet unclassified' }
-GrafoscopioBrowser class >> launchHelpInPdf [
-	"Launches the help manual in PDF format in an external viewer."
-	
-	| pdfHelpFileLocation |
-	pdfHelpFileLocation  := (FileSystem disk workingDirectory parent / 'Docs/Es/Manual/manual-grafoscopio.pdf') fullName.
-	Smalltalk platform name = 'unix'
-		ifTrue: [ 
-			OSProcess command: 'xdg-open ', pdfHelpFileLocation.			
-		].
-	Smalltalk platform name = 'Win32'
-		ifTrue: [ 
-			OSProcess command: 'explorer ', pdfHelpFileLocation.
-		].
-]
-
 { #category : #'as yet unclassified' }
 GrafoscopioBrowser class >> messageNotImplementedYet [
 	"Shows that a feature is not implemeted and point to further documentation on the web"
@@ -70,6 +54,34 @@ 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 en PDF' target: GrafoscopioBrowser action: #launchHelpInPdf.
+	helpMenu add: 'Abrir ayuda en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	helpMenu add: 'Abrir ayuda en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
+	helpMenu add: 'Ir a la documentación en línea' 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."
@@ -907,36 +919,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"