diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 5be152e..6bbce46 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -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' } GrafoscopioBrowser class >> launchHelpInPdf [ "Launches the help manual in PDF format in an external viewer." @@ -151,7 +167,7 @@ GrafoscopioBrowser class >> startDockingBar [ helpMenu := MenuMorph new. helpMenu 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: 'Ir a la documentación en línea' target: GrafoscopioBrowser action: #messageNotImplementedYet; add: 'Acerca de Grafoscopio' target: GrafoscopioBrowser action: #messageAbout.