DockingBar: Reorganizing

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-07 18:54:29 +00:00
parent 16f8a25439
commit bba3837431

View File

@ -33,22 +33,6 @@ Class {
#category : #'Grafoscopio-UI'
}
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> launchHelpInPdf [
"Launches the help manual in PDF format in an external viewer."
| pdfHelpFileLocation |
pdfHelpFileLocation := (FileSystem disk workingDirectory parent / 'Docs/Es/Manual/manual-grafoscopio.pdf') fullName.
Smalltalk platform name = 'unix'
ifTrue: [
OSProcess command: 'xdg-open ', pdfHelpFileLocation.
].
Smalltalk platform name = 'Win32'
ifTrue: [
OSProcess command: 'explorer ', pdfHelpFileLocation.
].
]
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> messageNotImplementedYet [
"Shows that a feature is not implemeted and point to further documentation on the web"
@ -70,6 +54,34 @@ 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 en PDF' target: GrafoscopioBrowser action: #launchHelpInPdf.
helpMenu add: 'Abrir ayuda en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Ir a la documentación en línea' 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."
@ -907,36 +919,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"