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.

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 }
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 := UITheme builder
fileOpen: 'Coloque la ruta de pandoc'.
fileStream := UIManager default fileOpen: 'Path to the fossil program binary'.
fileStream isNil ifTrue: [ ^nil ].
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"
| fileStream pandoc |
fileStream := UITheme builder
fileOpen: 'Coloque la ruta de pandoc'.
fileStream := UIManager default fileOpen: 'Path to pandoc program binary'.
fileStream isNil ifTrue: [ ^nil ].
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"
| fileStream currentChildren |
"GrafoscopioBrowser configureSettings."
fileStream := UITheme builder
fileOpen: 'Elija un archivo .ston'
fileStream := UIManager default
fileOpen: 'Choose a notebook file'
extensions: #('ston').
fileStream isNil ifTrue: [ ^nil ].
@ -493,12 +493,12 @@ GrafoscopioBrowser >> saveToFileUI [
| file |
file := UITheme builder
fileSave: 'Guardar archivo como...'
file := UIManager default
fileSave: 'Save file as...'
extensions: #('ston')
path: nil.
file
ifNil: [ self inform: 'Exportación cancelada'. ^ self ]
ifNil: [ self inform: 'File export canceled'. ^ self ]
ifNotNil:[self saveToFile: file].
browser update.
]

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

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