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

Saving before adding tags for the transmedia hackathon.

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

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

@ -17,6 +17,7 @@ Class {
'key', 'key',
'icon', 'icon',
'body', 'body',
'tags',
'children', 'children',
'parent', 'parent',
'node', 'node',
@ -371,18 +372,6 @@ GrafoscopioNode >> parent: aNode [
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 } { #category : #exporting }
GrafoscopioNode >> preorderTraversal [ GrafoscopioNode >> preorderTraversal [
nodesInPreorder := OrderedCollection new. nodesInPreorder := OrderedCollection new.