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