Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Docking bar with initial submenus. Still a lot of functionalities there to implement and reorganize.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-07 14:34:58 +00:00
parent d35e04c931
commit 7a3959335f
1 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -877,18 +877,31 @@ 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 add: 'Ayuda' subMenu: helpMenu.
dockingBar dockingBar
add: i contents adhereToTop;
icon: i icon
help: i contents
subMenu: i subMenu].
dockingBar adhereToTop;
openInWorld. openInWorld.
] ]