Implementing the opening of the Spanish manual in HTML. Next, implenting opening inside grafoscopio.
This commit is contained in:
parent
4d4aaf8705
commit
9eda8f91b7
@ -57,6 +57,22 @@ GrafoscopioBrowser class >> configurePandoc [
|
|||||||
|
|
||||||
]
|
]
|
||||||
|
|
||||||
|
{ #category : #'as yet unclassified' }
|
||||||
|
GrafoscopioBrowser class >> launchHelpInHtml [
|
||||||
|
"Launches the help manual in PDF format in an external viewer."
|
||||||
|
|
||||||
|
| htmlHelpFileLocation |
|
||||||
|
htmlHelpFileLocation := (FileSystem disk workingDirectory parent / 'Docs/Es/Manual/manual-grafoscopio.html') fullName.
|
||||||
|
Smalltalk platform name = 'unix'
|
||||||
|
ifTrue: [
|
||||||
|
OSProcess command: 'xdg-open ', htmlHelpFileLocation.
|
||||||
|
].
|
||||||
|
Smalltalk platform name = 'Win32'
|
||||||
|
ifTrue: [
|
||||||
|
OSProcess command: 'explorer ', htmlHelpFileLocation.
|
||||||
|
].
|
||||||
|
]
|
||||||
|
|
||||||
{ #category : #'as yet unclassified' }
|
{ #category : #'as yet unclassified' }
|
||||||
GrafoscopioBrowser class >> launchHelpInPdf [
|
GrafoscopioBrowser class >> launchHelpInPdf [
|
||||||
"Launches the help manual in PDF format in an external viewer."
|
"Launches the help manual in PDF format in an external viewer."
|
||||||
@ -151,7 +167,7 @@ GrafoscopioBrowser class >> startDockingBar [
|
|||||||
helpMenu := MenuMorph new.
|
helpMenu := MenuMorph new.
|
||||||
helpMenu
|
helpMenu
|
||||||
add: 'Manual en PDF' target: GrafoscopioBrowser action: #launchHelpInPdf;
|
add: 'Manual en PDF' target: GrafoscopioBrowser action: #launchHelpInPdf;
|
||||||
add: 'Manual en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet;
|
add: 'Manual en HTML' target: GrafoscopioBrowser action: #launchHelpInHtml;
|
||||||
add: 'Manual en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet;
|
add: 'Manual en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet;
|
||||||
add: 'Ir a la documentación en línea' target: GrafoscopioBrowser action: #messageNotImplementedYet;
|
add: 'Ir a la documentación en línea' target: GrafoscopioBrowser action: #messageNotImplementedYet;
|
||||||
add: 'Acerca de Grafoscopio' target: GrafoscopioBrowser action: #messageAbout.
|
add: 'Acerca de Grafoscopio' target: GrafoscopioBrowser action: #messageAbout.
|
||||||
|
Loading…
Reference in New Issue
Block a user