Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implementing point 1 on http://forum.world.st/Couple-grafoscopio-notes-tt4929939.html. Thanks to Peter Uhnak.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-01-20 17:46:55 +00:00
parent 20bb08e412
commit cbd53aa595
3 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
repository/Grafoscopio/ExternalApp.class.st
View File

@ -27,11 +27,10 @@ ExternalApp class >> compareHashFor: aFileName with: aSHAString [
{ #category : #configuration } { #category : #configuration }
ExternalApp class >> configureFossil [ ExternalApp class >> configureFossil [
"Stablish where is located pandoc according to the operative system and/or the input of the user" "Stablish where is located fossil according to the operative system and/or the input of the user"
| fileStream fossil | | fileStream fossil |
fileStream := UITheme builder fileStream := UIManager default fileOpen: 'Path to the fossil program binary'.
fileOpen: 'Coloque la ruta de pandoc'.
fileStream isNil ifTrue: [ ^nil ]. fileStream isNil ifTrue: [ ^nil ].
fossil := fileStream name asFileReference fullName. fossil := fileStream name asFileReference fullName.
@ -42,8 +41,7 @@ ExternalApp class >> configurePandoc [
"Stablish where is located pandoc according to the operative system and/or the input of the user" "Stablish where is located pandoc according to the operative system and/or the input of the user"
| fileStream pandoc | | fileStream pandoc |
fileStream := UITheme builder fileStream := UIManager default fileOpen: 'Path to pandoc program binary'.
fileOpen: 'Coloque la ruta de pandoc'.
fileStream isNil ifTrue: [ ^nil ]. fileStream isNil ifTrue: [ ^nil ].
pandoc := fileStream name asFileReference fullName. pandoc := fileStream name asFileReference fullName.

10
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -380,8 +380,8 @@ GrafoscopioBrowser >> openFromFileSelector [
This creates errors on debugging and worse on proper behavior" This creates errors on debugging and worse on proper behavior"
| fileStream currentChildren | | fileStream currentChildren |
"GrafoscopioBrowser configureSettings." "GrafoscopioBrowser configureSettings."
fileStream := UITheme builder fileStream := UIManager default
fileOpen: 'Elija un archivo .ston' fileOpen: 'Choose a notebook file'
extensions: #('ston'). extensions: #('ston').
fileStream isNil ifTrue: [ ^nil ]. fileStream isNil ifTrue: [ ^nil ].
@ -493,12 +493,12 @@ GrafoscopioBrowser >> saveToFileUI [
| file | | file |
file := UITheme builder file := UIManager default
fileSave: 'Guardar archivo como...' fileSave: 'Save file as...'
extensions: #('ston') extensions: #('ston')
path: nil. path: nil.
file file
ifNil: [ self inform: 'Exportación cancelada'. ^ self ] ifNil: [ self inform: 'File export canceled'. ^ self ]
ifNotNil:[self saveToFile: file]. ifNotNil:[self saveToFile: file].
browser update. browser update.
] ]

4
repository/Grafoscopio/GrafoscopioNotebook.class.st
View File

@ -410,7 +410,7 @@ GrafoscopioNotebook >> openFromFile: aFileName [
GrafoscopioNotebook >> openFromFileSelector [ GrafoscopioNotebook >> openFromFileSelector [
| fileStream nb | | fileStream nb |
fileStream := UITheme builder fileStream := UIManager default
fileOpen: 'Choose a file' fileOpen: 'Choose a file'
extensions: #('ston'). extensions: #('ston').
fileStream ifNil: [ fileStream ifNil: [
@ -547,7 +547,7 @@ GrafoscopioNotebook >> saveToFileUI [
| file | | file |
file := UITheme builder file := UIManager default
fileSave: 'Export notebook to file as...' fileSave: 'Export notebook to file as...'
extensions: #('ston') extensions: #('ston')
path: nil. path: nil.