From cdc2a3adad64670e9d81c853f1232de9176931d1 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 2 Dec 2014 20:06:47 +0000
Subject: [PATCH] Saving before exploring branches.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st     | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 5ffac72..75e3dcc 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -205,17 +205,19 @@ browser
 		column: #three.
 	(browser transmit)
 		to: #one;
-		andShow: [ :a | a tree display: [ :x | 1 to: x ] ].
+		andShow: [ self treeForTransmediatonOn: aTree ].
 	(browser transmit)
 		to: #two;
 		from: #one;
-		andShow: [ :a | a tree display: [ :x | 1 to: x * 2 ] ].
+		andShow: [ :a | 
+			(a text) 
+				display: [ 'Contenido original' ] ].
 	(browser transmit)
 		to: #three;
 		from: #two;
 		andShow: [ :a | 
 					(a text)
-						display: [ :x | 1 to: x * 3 ];
+						display: [ 'Transmediado' ];
 						populate: #focus
 							on: $f
 							entitled: 'Focus'
@@ -714,15 +716,16 @@ GrafoscopioBrowser >> saveWorkingTree [
 	  self exportAsMarkdown: mainTree on: markdownFile ] 
 		ensure: [ fileStream ifNotNil: #close.].
 	"self customKeys."	
-	self inform: 'Archivo Guardado'.
+	self inform: 'Archivo guardado como: ',  workingFile asString.
 ]
 
 { #category : #'graphical interface' }
-GrafoscopioBrowser >> treeForTransmediatonOn: constructor [
+GrafoscopioBrowser >> treeForTransmediatonOn: aTree [
 	"Shows the correspondent tree of a node"
-
+	| constructor |
+	constructor := GLMBrowser.
 	(constructor tree) "Layout"
-      title: mainTree header;
+      title: aTree header;
       children: [ :eachNode |
                  (eachNode children) isNil
                     ifTrue: [ self inform: 'Seleccione un nodo para ver su contenido' ]