Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Saving before exploring branches.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2014-12-02 20:06:47 +00:00
parent 931a4d2a3e
commit cdc2a3adad
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

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