From f38924015d6d8225677af16ba7f857ec216ea4ff Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 23 Jun 2015 19:05:16 +0000
Subject: [PATCH] File selector UI only adds new files if they're not in the
 list of recently opened files.

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

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index b1423eb..a64a03c 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -215,6 +215,7 @@ GrafoscopioBrowser class >> startDockingBar [
 	launchMenu 
 		add: 'Documento interactivo nuevo' target: GrafoscopioBrowser selector: #open;
 		add: 'Documento interactivo desde archivo' target: (GrafoscopioBrowser new) selector: #openFromFileSelector;
+		add: 'Documento interactivo desde archivo' target: (GrafoscopioBrowser new) selector: #openFromUrl;
 	 	add: 'Documentos interactivos recientes' target: GrafoscopioBrowser selector: #openFromRecentlyUsed;
 		add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser selector: #messageNotImplementedYet;
 		add: 'Ejemplos de visualizaciones en Roassal' target: (RTExampleBrowser new) selector: #open;
@@ -949,7 +950,7 @@ GrafoscopioBrowser >> openFromFileSelector [
 	self buildBrowserNamed: workingFile basenameWithIndicator.
 	recentTrees isNil
 		ifTrue:[recentTrees := OrderedCollection new].
-	recentTrees add: workingFile.
+	recentTrees detect: workingFile ifFound: [recentTrees add: workingFile].
 	mainTree := GrafoscopioNode new
 		header: 'Arbol principal';
 		level: 0.