Redefining custom tags for upcoming transmediaton event to keep interface easy. Next, two columns browser and initial support for modes.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-01-14 11:50:52 +00:00
parent cd76787b0f
commit 8627b14edc

View File

@ -163,56 +163,6 @@ browser
transformed: [:node :text | node header: text asString]
]
{ #category : #'graphical interface' }
GrafoscopioBrowser >> buildBrowserForTransmediaton [
"Main method for building the interface for trees and its nodes"
browser := GLMTabulator new
title: 'Transmediaton | Grafoscopio'.
"browser
column: [:c |
c row: #tree;
row: #nodeHeader] span: 2;
column: [ :c |
c row: #nodeBody span: 2] span: 4."
browser
updateOn: GLMItemAdded from: #yourself;
updateOn: GLMItemRemoved from: #yourself.
browser
column: #one;
column: #two;
column: #three.
(browser transmit)
to: #one;
andShow: [ :a | a tree display: [ :x | 1 to: x ] ].
(browser transmit)
to: #two;
from: #one;
andShow: [ :a | a tree display: [ :x | 1 to: x * 2 ] ].
(browser transmit)
to: #three;
from: #two;
andShow: [ :a |
(a text)
display: [ :x | 1 to: x * 3 ];
populate: #focus
on: $f
entitled: 'Focus'
with: [ :list | list selection ] ].
(browser transmit)
toOutsidePort: #focus;
from: #three port: #focus.
(browser transmit)
to: #one port: #selection;
fromOutsidePort: #focus.
(browser transmit)
to: #two port: #selection;
fromOutsidePort: #focus.
browser openOn: 4
]
{ #category : #'graphical interface' }
GrafoscopioBrowser >> buildBrowserForTransmediaton: aTree [
"Main method for building the interface for trees and its nodes"
@ -392,11 +342,10 @@ GrafoscopioBrowser >> configureInitialTags [
able to define their own tags with custom UI and behaviour"
tagsAvailable := OrderedCollection new.
tagsAvailable
tagsAvailable
add: 'obra';
add: 'original';
add: 'transmediado';
add: 'texto';
add: 'código'.
add: 'transmediado'.
]
{ #category : #'system-support' }
@ -591,7 +540,9 @@ GrafoscopioBrowser >> messageNotImplementedYet [
'Para información sobre futuras versiones, por favor visite: ',
(String with: Character cr),
(String with: Character cr),
'http://mutabit.com/grafoscopio'
'http://mutabit.com/grafoscopio',
(String with: Character cr),
(String with: Character cr)
title: 'No implementado aún'.
]