From 07ac1b87cd35e1aabac2d2182ff9362896a741f7 Mon Sep 17 00:00:00 2001
From: Ivan Pulido <ijpulidos@riseup.net>
Date: Tue, 23 Jun 2015 19:26:13 +0000
Subject: [PATCH] =?UTF-8?q?Agrego=20m=C3=A9todo=20para=20abrir=20desde=20U?=
 =?UTF-8?q?RL=20con=20GUI.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 repository/Grafoscopio/GrafoscopioBrowser.class.st | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index e5804f3..c05ed98 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -975,6 +975,19 @@ GrafoscopioBrowser >> openFromUrl: anUrl [
 		ifFalse: [self inform: 'Algo salió mal. Verifique su conexión a Internet y que el contenido buscado estén disponibles'  ]
 ]
 
+{ #category : #'as yet unclassified' }
+GrafoscopioBrowser >> openFromUrlUI [
+	"This method generates the UI for the openFromUrl: method, it asks for a URL from the user"
+
+	| fileUrl |
+	GrafoscopioBrowser configureSettings.
+	fileUrl := UIManager default 
+							textEntry: 'Ingrese la URL' 
+							title: 'Nuevo documento desde URL'.						
+	fileUrl isNil ifTrue: [ ^nil ].
+	GrafoscopioBrowser new openFromUrl: fileUrl
+]
+
 { #category : #persistence }
 GrafoscopioBrowser >> openHelpInGrafoscopio [
 "Opens the help tree from a file"