From 8627b14edcdb0439ca8b3a358990c9fef85e70d2 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Wed, 14 Jan 2015 11:50:52 +0000
Subject: [PATCH] Redefining custom tags for upcoming transmediaton event to
 keep interface easy. Next, two columns browser and initial support for modes.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 61 ++-----------------
 1 file changed, 6 insertions(+), 55 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 84b3093..3f4bdbf 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -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'.
 ]