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

Sync before working on another location/image.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-06 08:16:15 +00:00
parent 621c640199
commit e48afbe15a
1 changed files with 2 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -86,18 +86,7 @@ GrafoscopioBrowser >> addToTagsAvailable [
] ]
{ #category : #'graphical interface' } { #category : #'graphical interface' }
GrafoscopioBrowser >> body2ForCodeIn: constructor for: aNode [ GrafoscopioBrowser >> bodyForCodeIn: constructor for: aNode [
"Shows the body of a selected node as executable code."
aNode tags = 'código'
ifFalse: [ ^self ]
ifTrue: [constructor custom: (self panelAsCodeFor: aNode)].
]
{ #category : #'graphical interface' }
GrafoscopioBrowser >> body3ForCodeIn: constructor for: aNode [
"Shows the body in a constructor for selected node, if node is not tagged. If it is tagged it will return itself, so it can be rendered "Shows the body in a constructor for selected node, if node is not tagged. If it is tagged it will return itself, so it can be rendered
properly for other messages" properly for other messages"
@ -111,39 +100,6 @@ GrafoscopioBrowser >> body3ForCodeIn: constructor for: aNode [
] ]
{ #category : #'graphical interface' }
GrafoscopioBrowser >> bodyForCodeIn: constructor for: aNode [
"Shows the body of a selected node as executable code."
aNode tags = 'código'
ifFalse: [ ^self ].
(constructor smalltalkCode)
title: 'Código en Smalltalk';
format: [aNode body];
populate: #acceptedCode icon: GLMUIThemeExtraIcons glamorousAccept on: $s entitled: 'Accept' with: [aNode body]
]
{ #category : #'graphical interface' }
GrafoscopioBrowser >> bodyForCodeOn: constructor [
"Shows the body of a selected node"
^(constructor smalltalkCode)
title: 'Código en Smalltalk';
format:[:eachNode | eachNode body].
"
constructor tags = 'código'
ifFalse: [^self ]
ifTrue: [
^(constructor smalltalkCode)
title: 'Código de Smalltalk';
populate: #acceptedCode icon: GLMUIThemeExtraIcons glamorousAccept on: $s entitled: 'Accept' with: [:text | text text ]
]"
]
{ #category : #'graphical interface' } { #category : #'graphical interface' }
GrafoscopioBrowser >> bodyForTransmediaIn: constructor for: aNode [ GrafoscopioBrowser >> bodyForTransmediaIn: constructor for: aNode [
"Shows the body of a transmedia type of nodes, which are tagged as 'original' and 'transmediado'" "Shows the body of a transmedia type of nodes, which are tagged as 'original' and 'transmediado'"
@ -281,7 +237,7 @@ browser
when: [:selection | selection notNil]; when: [:selection | selection notNil];
andShow: [ :a :node | andShow: [ :a :node |
self bodyIn: a for: node. self bodyIn: a for: node.
self body3ForCodeIn: a for: node. self bodyForCodeIn: a for: node.
self bodyForTransmediaIn: a for: node ]. self bodyForTransmediaIn: a for: node ].
(browser transmit ) (browser transmit )
from: #tree port: #selection; from: #tree port: #selection;