From 7a3959335fac1d6981c0a95d90a059b11ed33e9b Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 7 Mar 2015 14:34:58 +0000
Subject: [PATCH] Docking bar with initial submenus. Still a lot of
 functionalities there to implement and reorganize.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 33 +++++++++++++------
 1 file changed, 23 insertions(+), 10 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 989fd79..896707e 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -877,19 +877,32 @@ 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"
+	"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 |
+	| 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.
-     World worldMenu items copy select:[:i| i hasSubMenu] thenDo:[:i|
-         dockingBar 
-         add: i contents
-         icon: i icon
-         help: i contents
-         subMenu: i subMenu].
-     dockingBar adhereToTop;
-     openInWorld.
+	dockingBar add: 'Lanzar' subMenu: launchMenu.
+	dockingBar add: 'Ayuda' subMenu: helpMenu.
+   dockingBar 
+		adhereToTop;
+     	openInWorld.
 ]
 
 { #category : #'graphical interface' }