Adding message to GrafoscopioBrowser class to launch help in PDF format in an external viewer.
This commit is contained in:
parent
cf1d06829e
commit
16f8a25439
@ -33,6 +33,22 @@ Class {
|
|||||||
#category : #'Grafoscopio-UI'
|
#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' }
|
{ #category : #'as yet unclassified' }
|
||||||
GrafoscopioBrowser class >> messageNotImplementedYet [
|
GrafoscopioBrowser class >> messageNotImplementedYet [
|
||||||
"Shows that a feature is not implemeted and point to further documentation on the web"
|
"Shows that a feature is not implemeted and point to further documentation on the web"
|
||||||
@ -54,36 +70,6 @@ GrafoscopioBrowser class >> open [
|
|||||||
^ self new 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 }
|
{ #category : #persistence }
|
||||||
GrafoscopioBrowser >> addFileToRepository [
|
GrafoscopioBrowser >> addFileToRepository [
|
||||||
"Adds a selected file to a defined repository."
|
"Adds a selected file to a defined repository."
|
||||||
@ -921,6 +907,36 @@ 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' }
|
{ #category : #'graphical interface' }
|
||||||
GrafoscopioBrowser >> treeOn: constructor [
|
GrafoscopioBrowser >> treeOn: constructor [
|
||||||
"Shows the correspondent tree of a node"
|
"Shows the correspondent tree of a node"
|
||||||
|
Loading…
Reference in New Issue
Block a user