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"