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'. ]