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' }