diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 63a22cb..77217cc 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -611,18 +611,6 @@ GrafoscopioBrowser >> bodyForCodeIn: constructor for: aNode [ ] -{ #category : #'graphical interface' } -GrafoscopioBrowser >> bodyIn: constructor [ - "Shows the body of a selected node" - - (constructor text asString) - title: 'Texto'; - format:[:eachNode | - (eachNode body) isNil - ifTrue: [ '' ] - ifFalse: [ eachNode body]]. -] - { #category : #'graphical interface' } GrafoscopioBrowser >> bodyIn: constructor for: aNode [ "Shows the body in a constructor for selected node, if node is not tagged. @@ -632,7 +620,7 @@ GrafoscopioBrowser >> bodyIn: constructor for: aNode [ specialTags := #('código'). (specialTags includes: aNode tags) - ifTrue: [^self ]. + ifTrue: [^self]. (constructor text) title: 'Texto '; format:[ @@ -641,60 +629,10 @@ GrafoscopioBrowser >> bodyIn: constructor for: aNode [ ifFalse: [ aNode body]]. ] -{ #category : #'graphical interface' } -GrafoscopioBrowser >> browser [ - "Returns de browser object, which represents the graphical interface. Useful for debugging purposes" - - ^ browser. -] - -{ #category : #'graphical interface' } -GrafoscopioBrowser >> buildBrowser [ -"Main method for building the interface for trees and its nodes" - - -browser := GLMTabulator new - title: ' | Grafoscopio'. - -browser - column: [:c | - c row: #tree span: 6; - row: #nodeHeader span: 1] span: 2; - column: [ :c | - c row: #nodeBody span: 2] span: 5. -browser - updateOn: GLMItemAdded from: #yourself; - updateOn: GLMItemRemoved from: #yourself. - -(browser transmit) - to: #tree; - andShow: [:a | self treeOn: a]. -"Creating a self updateable body pane" -(browser transmit) - to: #nodeBody; - from: #tree; - andShow: [ :a | self bodyIn: a asString]. -(browser transmit ) - from: #tree port: #selection; - from: #nodeBody port: #text; - when: [:node :text | text notNil]; - to: #nodeBody port: #neverland; - transformed: [:node :text | node body: text asString]. -(browser transmit) - from: #tree; - to: #nodeHeader; - andShow: [ :h | self headerOn: h ]. -(browser transmit ) - from: #tree port: #selection; - from: #nodeHeader port: #text; - when: [:node :text | text notNil]; - to: #nodeHeader port: #neverland1; - transformed: [:node :text | node header: text asString] -] - { #category : #'graphical interface' } GrafoscopioBrowser >> buildBrowserNamed: aName [ -"Main method for building the interface for trees and its nodes. The name of the browser corresponds to the name of the file +"Main method for building the interface for trees and its nodes. +The name of the browser corresponds to the name of the file where tree is stored (or is named 'draft.ston' by default)" self configureInitialTags. @@ -729,9 +667,10 @@ browser when: [:node :text | text notNil & node notNil]; to: #nodeBody port: #neverland; transformed: [:node :content | - node tags = 'código' + node body: content asString. + "node tags = 'código' ifFalse: [node body: content asString] - ifTrue: [node body: content string "text asString"]]. + ifTrue: [node body: content asString. Transcript show: content asString]"]. (browser transmit) from: #tree; to: #nodeHeader; @@ -914,7 +853,7 @@ GrafoscopioBrowser >> open [ GrafoscopioBrowser >> openDefault [ "Opens a new browser with a default tree" GrafoscopioBrowser configureSettings. - self buildBrowser. + self buildBrowserNamed: 'draft.ston'. mainTree := GrafoscopioNode new. mainTree becomeDefaultTree. workingFile := draftsLocation / 'draft.ston'. @@ -1031,125 +970,6 @@ GrafoscopioBrowser >> openTutorialInGrafoscopio [ browser openOn: mainTree children. ] -{ #category : #'graphical interface' } -GrafoscopioBrowser >> panelAsCodeFor: aNode [ - "Shows an interactive playground for Smalltalk code in a node body" - - browser := GLMTabulator new. - browser title: 'Código'. - browser column: #code. - browser transmit - to: #code; - transformed: [ GTPlayPage new content: aNode body asString]; - andShow: [ :a | a custom: GTPlayground new ]. - browser sendToOutside: (#nodeBody asString) from: #code -> #text. - ^ browser. -] - -{ #category : #'graphical interface' } -GrafoscopioBrowser >> panelBrowserForTransmediaton [ - "**Experimental feature.** - Opens grafoscopio in several 'modes'. Each mode corresponds to a operation way, with an specific interface. - We will start with a 'transmediaton' mode to let the people create some transmedia content. - After that we will enable other modes" - | transmediaNode originalNode | - - browser := GLMTabulator new. - browser - column: [ :c | - c row: [ :r | r column: #original; column: #transmediado] span: 7"; - row: #buttons; span: 1"]. - (browser transmit) - to: #original; - andShow: [ :a | - a text - title: 'Original'; - format:[:eachNode | - (eachNode tags) = 'original' - ifFalse: [ '' ] - ifTrue: [ - originalNode := eachNode. - originalNode children isNotNil - ifTrue: [transmediaNode := originalNode children detect: [:node | node tags = 'transmediado'] ifNone: [ transmediaNode := nil ] ]. - originalNode body]]]. - (browser transmit) - from: #original; - toOutsidePort: #text. - (browser transmit) - to: #transmediado; - andShow: [ :a | - a text - title: 'Transmediado'; - format:[transmediaNode isNotNil - ifFalse: [ '' ] - ifTrue: [transmediaNode body] - ] - ]. -" (browser transmit) - to: #buttons; - andShow: [ :a | - a actionList - act: [:entity | entity inspect ] entitled: 'Subir'; - act: [:entity | entity explore ] entitled: 'Previsualizar'; - act: [:entity | entity explore ] entitled: 'Publicar']. -" - ^ browser. - -] - -{ #category : #'graphical interface' } -GrafoscopioBrowser >> panelTransmediaFor: aNode [ - "" - - | transmediaNode originalNode | - - browser := GLMTabulator new. - browser - column: [ :c | - c row: [ :r | r column: #original; column: #transmediado] span: 7"; - row: #buttons; span: 1"]. - - originalNode := aNode. - originalNode children isNotNil - ifTrue: [transmediaNode := originalNode children - detect: [:node | node tags = 'transmediado'] - ifNone: [ transmediaNode := nil ] ]. - - (browser transmit) - to: #original; - andShow: [ :a | - a text - title: 'Original'; - format:[ aNode body isNil - ifTrue: [ '' ] - ifFalse: [ aNode body ] - ]]. - (browser transmit) - from: #original; - toOutsidePort: #text. - (browser transmit) - to: #transmediado; - andShow: [ :a | - a text - title: 'Transmediado'; - format:[transmediaNode isNotNil - ifFalse: [ '' ] - ifTrue: [transmediaNode body] - ] - ]. - -" (browser transmit) - to: #buttons; - andShow: [ :a | - a actionList - act: [:entity | entity inspect ] entitled: 'Subir'; - act: [:entity | entity explore ] entitled: 'Previsualizar'; - act: [:entity | entity explore ] entitled: 'Publicar']. -" - ^ browser. - -] - { #category : #persistence } GrafoscopioBrowser >> replaceContentsFromCache: aNode [ "Replaces the contents of aNode from the ones in cacheNode. It doesn't work recursively yet, so it doen't copy the children of the nodes"