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

Saving before adding tags for the transmedia hackathon.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2014-11-26 20:33:11 +00:00
parent 0ea75a5888
commit 04facf6ca7
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -104,10 +104,10 @@ browser := GLMTabulator new
browser
column: [:c |
c row: #tree;
row: #nodeHeader] span: 2;
c row: #tree span: 6;
row: #nodeHeader span: 1] span: 1;
column: [ :c |
c row: #nodeBody span: 2] span: 4.
c row: #nodeBody span: 2] span: 5.
browser
updateOn: GLMItemAdded from: #yourself;
updateOn: GLMItemRemoved from: #yourself.
@ -334,7 +334,7 @@ GrafoscopioBrowser >> headerOn: constructor [
"Shows the body of a selected node"
(constructor text)
title: 'Cabecera | Header ';
title: 'Cabecera ';
format:[:eachNode |
(eachNode header) isNil
ifTrue: [ '' ]
@ -496,22 +496,33 @@ GrafoscopioBrowser >> panelBrowserForTransmedia [
browser := GLMTabulator new.
browser
column: [ :c |
c row: [ :r | r column: #original; column: #transmediado];
row: #buttons].
c row: [ :r | r column: #original; column: #transmediado] span: 7;
row: #buttons; span: 1].
(browser transmit)
to: #original;
andShow: [ :a | a text title: 'Original' ].
andShow: [ :a |
a text
title: 'Original';
format:[:eachNode |
(eachNode body) isNil
ifTrue: [ '' ]
ifFalse: [ eachNode body]]. ].
(browser transmit)
to: #transmediado;
andShow: [ :a | a text title: 'Transmediado' ].
andShow: [ :a |
a text
title: 'Transmediado';
format:[:eachNode |
(eachNode children) isEmpty
ifTrue: [ '' ]
ifFalse: [eachNode children first body]]. ].
(browser transmit)
to: #buttons;
andShow: [ :a |
a actionList
act: [:entity | entity inspect ] entitled: 'Subir';
"act: [:entity | entity inspect ] entitled: 'Subir';"
act: [:entity | entity explore ] entitled: 'Previsualizar';
act: [:entity | entity explore ] entitled: 'Publicar'].
browser openOn: ''.
^ browser.
]

13
repository/Grafoscopio/GrafoscopioNode.class.st
View File

@ -17,6 +17,7 @@ Class {
'key',
'icon',
'body',
'tags',
'children',
'parent',
'node',
@ -371,18 +372,6 @@ GrafoscopioNode >> parent: aNode [
parent := aNode
]
{ #category : #'add/remove nodes' }
GrafoscopioNode >> pasteNodeFromCache [
"Copy the contents of the current node into cacheNode. It doesn't work recursively yet, so it doen't copy the children of the nodes"
cacheNode notNil
ifTrue: [
self header: cacheNode header.
self body: cacheNode body.]
ifFalse: [self inform: 'El nodo cache está vacio']
]
{ #category : #exporting }
GrafoscopioNode >> preorderTraversal [
nodesInPreorder := OrderedCollection new.