Solved main but when selecting empty parts of the main tree... finaly! an old bug has being hunted :-)
This commit is contained in:
parent
87afabc093
commit
02bb6c72a4
@ -122,9 +122,11 @@ GrafoscopioBrowser >> bodyForCodeOn: constructor [
|
||||
GrafoscopioBrowser >> bodyForTransmediaIn: constructor for: aNode [
|
||||
"Shows the body of a transmedia type of nodes, which are tagged as 'original' and 'transmediado'"
|
||||
|
||||
aNode tags = 'original'
|
||||
ifFalse: [^self ]
|
||||
ifTrue: [constructor custom: (self panelTransmediaFor: aNode)]
|
||||
aNode tags notNil
|
||||
ifTrue: [aNode tags = 'original'
|
||||
ifFalse: [^self ]
|
||||
ifTrue: [constructor custom: (self panelTransmediaFor: aNode)]]
|
||||
|
||||
|
||||
]
|
||||
|
||||
@ -154,7 +156,6 @@ GrafoscopioBrowser >> bodyIn: constructor for: aNode [
|
||||
|
||||
aNode tags isNil
|
||||
ifFalse: [^self ].
|
||||
|
||||
(constructor text)
|
||||
title: 'Texto ';
|
||||
format:[
|
||||
@ -247,16 +248,17 @@ browser
|
||||
andShow: [:a | self treeOn: a].
|
||||
"Creating a self updatable body pane"
|
||||
(browser transmit)
|
||||
from: #tree;
|
||||
from: #tree port: #selection;
|
||||
to: #nodeBody;
|
||||
andShow: [ :a :node |
|
||||
self bodyIn: a for: node.
|
||||
self bodyForCodeIn: a for: node.
|
||||
self bodyForTransmediaIn: a for: node ].
|
||||
self bodyForTransmediaIn: a for: node ];
|
||||
when: [:selection | selection notNil].
|
||||
(browser transmit )
|
||||
from: #tree port: #selection;
|
||||
from: #nodeBody port: #text;
|
||||
when: [:node :text | text notNil];
|
||||
when: [:node :text | text notNil & node notNil];
|
||||
to: #nodeBody port: #neverland;
|
||||
transformed: [:node :text | node body: text asString].
|
||||
(browser transmit)
|
||||
@ -266,7 +268,7 @@ browser
|
||||
(browser transmit )
|
||||
from: #tree port: #selection;
|
||||
from: #nodeHeader port: #text;
|
||||
when: [:node :text | text notNil];
|
||||
when: [:node :text | text notNil & node notNil];
|
||||
to: #nodeHeader port: #neverland1;
|
||||
transformed: [:node :text | node header: text asString]
|
||||
]
|
||||
@ -960,24 +962,25 @@ GrafoscopioBrowser >> treeOn: constructor [
|
||||
act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas';
|
||||
|
||||
"For projects"
|
||||
act: [self enableRepository] entitled: 'Activar proyecto local' categorized: 'Proyecto';
|
||||
act: [self messageNotImplementedYet] entitled: 'Activar proyecto remoto' categorized: 'Proyecto';
|
||||
act: [self enableRepository] entitled: 'Activar' categorized: 'Proyecto';
|
||||
act: [self addFileToRepository] entitled: 'Agregar archivo' categorized: 'Proyecto';
|
||||
act: [self messageNotImplementedYet] entitled: 'Eliminar archivo' categorized: 'Proyecto';
|
||||
act: [self repositoryCommit] entitled: 'Enviar al histórico' categorized: 'Proyecto';
|
||||
act: [self repositoryCredentials] entitled: 'Acreditarse' categorized: 'Proyecto';
|
||||
act: [self repositoryCredentials] entitled: 'Sincronizar local y remoto' categorized: 'Proyecto';
|
||||
|
||||
|
||||
"For modes"
|
||||
act: [GrafoscopioBrowser new openFromFile: workingFile fullName asFileReference] entitled: 'Predeterminado' categorized: 'Modos';
|
||||
act: [self buildBrowserNamed: workingFile inMode: 'transmedia'] entitled: 'Transmedia' categorized: 'Modos';
|
||||
|
||||
"For help"
|
||||
act: [self messageNotImplementedYet] entitled: 'Ver como html en línea' categorized: 'Ayuda';
|
||||
act: [self messageNotImplementedYet] entitled: 'Ver como html fuera línea' categorized: 'Ayuda';
|
||||
act: [self messageNotImplementedYet] entitled: 'Ver como árbol en grafoscopio' categorized: 'Ayuda';
|
||||
|
||||
"For external tools"
|
||||
act: [self messageNotImplementedYet] entitled: 'Instalar' categorized: 'Herramientas externas';
|
||||
act: [self messageNotImplementedYet] entitled: 'Actualizar' categorized: 'Herramientas externas';
|
||||
act: [self configurePandoc] entitled: 'Definir ruta a pandoc' categorized: 'Herramientas externas';
|
||||
act: [self configureFossil] entitled: 'Definir ruta a fossil' categorized: 'Herramientas externas';
|
||||
act: [self messageNotImplementedYet] entitled: 'Definir ruta a fossil' categorized: 'Herramientas externas';
|
||||
|
||||
"For grafoscopio"
|
||||
act: [self updateGrafoscopio] entitled: 'Actualizar' categorized: 'Grafoscopio';
|
||||
|
Loading…
Reference in New Issue
Block a user