From cbd53aa595c43afe4ecfb575d42749fd1680cceb Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 20 Jan 2017 17:46:55 +0000
Subject: [PATCH] Implementing point 1 on
 http://forum.world.st/Couple-grafoscopio-notes-tt4929939.html. Thanks to
 Peter Uhnak.

---
 repository/Grafoscopio/ExternalApp.class.st         |  8 +++-----
 repository/Grafoscopio/GrafoscopioBrowser.class.st  | 10 +++++-----
 repository/Grafoscopio/GrafoscopioNotebook.class.st |  4 ++--
 3 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/repository/Grafoscopio/ExternalApp.class.st b/repository/Grafoscopio/ExternalApp.class.st
index 0586574..cce5762 100644
--- a/repository/Grafoscopio/ExternalApp.class.st
+++ b/repository/Grafoscopio/ExternalApp.class.st
@@ -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.
 
diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index ea3ba0a..d30ce65 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -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.	
 ]
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index 4752946..16b498a 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -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.