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

Solved main but when selecting empty parts of the main tree... finaly! an old bug has being hunted :-)

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-02-06 11:14:29 +00:00
parent 87afabc093
commit 02bb6c72a4
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -122,9 +122,11 @@ GrafoscopioBrowser >> bodyForCodeOn: constructor [
GrafoscopioBrowser >> bodyForTransmediaIn: constructor for: aNode [ GrafoscopioBrowser >> bodyForTransmediaIn: constructor for: aNode [
"Shows the body of a transmedia type of nodes, which are tagged as 'original' and 'transmediado'" "Shows the body of a transmedia type of nodes, which are tagged as 'original' and 'transmediado'"
aNode tags = 'original' aNode tags notNil
ifTrue: [aNode tags = 'original'
ifFalse: [^self ] ifFalse: [^self ]
ifTrue: [constructor custom: (self panelTransmediaFor: aNode)] ifTrue: [constructor custom: (self panelTransmediaFor: aNode)]]
] ]
@ -154,7 +156,6 @@ GrafoscopioBrowser >> bodyIn: constructor for: aNode [
aNode tags isNil aNode tags isNil
ifFalse: [^self ]. ifFalse: [^self ].
(constructor text) (constructor text)
title: 'Texto '; title: 'Texto ';
format:[ format:[
@ -247,16 +248,17 @@ browser
andShow: [:a | self treeOn: a]. andShow: [:a | self treeOn: a].
"Creating a self updatable body pane" "Creating a self updatable body pane"
(browser transmit) (browser transmit)
from: #tree; from: #tree port: #selection;
to: #nodeBody; to: #nodeBody;
andShow: [ :a :node | andShow: [ :a :node |
self bodyIn: a for: node. self bodyIn: a for: node.
self bodyForCodeIn: a for: node. self bodyForCodeIn: a for: node.
self bodyForTransmediaIn: a for: node ]. self bodyForTransmediaIn: a for: node ];
when: [:selection | selection notNil].
(browser transmit ) (browser transmit )
from: #tree port: #selection; from: #tree port: #selection;
from: #nodeBody port: #text; from: #nodeBody port: #text;
when: [:node :text | text notNil]; when: [:node :text | text notNil & node notNil];
to: #nodeBody port: #neverland; to: #nodeBody port: #neverland;
transformed: [:node :text | node body: text asString]. transformed: [:node :text | node body: text asString].
(browser transmit) (browser transmit)
@ -266,7 +268,7 @@ browser
(browser transmit ) (browser transmit )
from: #tree port: #selection; from: #tree port: #selection;
from: #nodeHeader port: #text; from: #nodeHeader port: #text;
when: [:node :text | text notNil]; when: [:node :text | text notNil & node notNil];
to: #nodeHeader port: #neverland1; to: #nodeHeader port: #neverland1;
transformed: [:node :text | node header: text asString] transformed: [:node :text | node header: text asString]
] ]
@ -960,13 +962,15 @@ GrafoscopioBrowser >> treeOn: constructor [
act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas'; act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas';
"For projects" "For projects"
act: [self enableRepository] entitled: 'Activar proyecto local' categorized: 'Proyecto'; act: [self enableRepository] entitled: 'Activar' categorized: 'Proyecto';
act: [self messageNotImplementedYet] entitled: 'Activar proyecto remoto' categorized: 'Proyecto';
act: [self addFileToRepository] entitled: 'Agregar archivo' categorized: 'Proyecto'; act: [self addFileToRepository] entitled: 'Agregar archivo' categorized: 'Proyecto';
act: [self messageNotImplementedYet] entitled: 'Eliminar archivo' categorized: 'Proyecto'; act: [self messageNotImplementedYet] entitled: 'Eliminar archivo' categorized: 'Proyecto';
act: [self repositoryCommit] entitled: 'Enviar al histórico' categorized: 'Proyecto'; act: [self repositoryCommit] entitled: 'Enviar al histórico' categorized: 'Proyecto';
act: [self repositoryCredentials] entitled: 'Acreditarse' 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" "For help"
act: [self messageNotImplementedYet] entitled: 'Ver como html en línea' categorized: 'Ayuda'; act: [self messageNotImplementedYet] entitled: 'Ver como html en línea' categorized: 'Ayuda';
@ -974,10 +978,9 @@ GrafoscopioBrowser >> treeOn: constructor [
act: [self messageNotImplementedYet] entitled: 'Ver como árbol en grafoscopio' categorized: 'Ayuda'; act: [self messageNotImplementedYet] entitled: 'Ver como árbol en grafoscopio' categorized: 'Ayuda';
"For external tools" "For external tools"
act: [self messageNotImplementedYet] entitled: 'Instalar' categorized: 'Herramientas externas';
act: [self messageNotImplementedYet] entitled: 'Actualizar' categorized: 'Herramientas externas'; act: [self messageNotImplementedYet] entitled: 'Actualizar' categorized: 'Herramientas externas';
act: [self configurePandoc] entitled: 'Definir ruta a pandoc' 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" "For grafoscopio"
act: [self updateGrafoscopio] entitled: 'Actualizar' categorized: 'Grafoscopio'; act: [self updateGrafoscopio] entitled: 'Actualizar' categorized: 'Grafoscopio';