Saving before exploring branches.

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' ]