Docking bar with initial submenus. Still a lot of functionalities there to implement and reorganize.
This commit is contained in:
parent
d35e04c931
commit
7a3959335f
@ -877,19 +877,32 @@ GrafoscopioBrowser >> showTagsAvailable [
|
|||||||
|
|
||||||
{ #category : #'graphical interface' }
|
{ #category : #'graphical interface' }
|
||||||
GrafoscopioBrowser >> startDockingBar [
|
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."
|
"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 := DockingBarMorph new.
|
||||||
World worldMenu items copy select:[:i| i hasSubMenu] thenDo:[:i|
|
dockingBar add: 'Lanzar' subMenu: launchMenu.
|
||||||
dockingBar
|
dockingBar add: 'Ayuda' subMenu: helpMenu.
|
||||||
add: i contents
|
dockingBar
|
||||||
icon: i icon
|
adhereToTop;
|
||||||
help: i contents
|
openInWorld.
|
||||||
subMenu: i subMenu].
|
|
||||||
dockingBar adhereToTop;
|
|
||||||
openInWorld.
|
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #'graphical interface' }
|
{ #category : #'graphical interface' }
|
||||||
|
Loading…
Reference in New Issue
Block a user