Multiplatform file locations.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-21 18:23:12 +00:00
parent 51f7edb0b1
commit dba756eed9

View File

@ -123,7 +123,7 @@ GrafoscopioBrowser class >> openHelpInHtml [
"Launches the help manual in PDF format in an external viewer." "Launches the help manual in PDF format in an external viewer."
| htmlHelpFileLocation | | htmlHelpFileLocation |
htmlHelpFileLocation := (FileSystem disk workingDirectory parent / 'Docs/Es/Manual/manual-grafoscopio.html') fullName. htmlHelpFileLocation := (FileSystem disk workingDirectory parent / 'Docs' /'Es' / 'Manual' / 'manual-grafoscopio.html') fullName.
Smalltalk platform name = 'unix' Smalltalk platform name = 'unix'
ifTrue: [ ifTrue: [
OSProcess command: 'xdg-open ', htmlHelpFileLocation. OSProcess command: 'xdg-open ', htmlHelpFileLocation.