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

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

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-01-14 11:50:52 +00:00
parent cd76787b0f
commit 8627b14edc
1 changed files with 6 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
repository/Grafoscopio/GrafoscopioBrowser.class.st
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"
@ -393,10 +343,9 @@ GrafoscopioBrowser >> configureInitialTags [
tagsAvailable := OrderedCollection new.
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'.
]