From e48afbe15a2f85432b7ff8d77d1c4e8801d0f3ee Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 6 Mar 2015 08:16:15 +0000
Subject: [PATCH] Sync before working on another location/image.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 48 +------------------
 1 file changed, 2 insertions(+), 46 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 571250c..d4e5efb 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -86,18 +86,7 @@ GrafoscopioBrowser >> addToTagsAvailable [
 ]
 
 { #category : #'graphical interface' }
-GrafoscopioBrowser >> body2ForCodeIn: 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 [
+GrafoscopioBrowser >> bodyForCodeIn: 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
 	 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' }
 GrafoscopioBrowser >> bodyForTransmediaIn: constructor for: aNode [
 	"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];
    andShow: [ :a :node | 
 		self bodyIn: a for: node.
-		self body3ForCodeIn: a for: node.
+		self bodyForCodeIn: a for: node.
 		self bodyForTransmediaIn: a for: node ].
 (browser transmit )
 	from: #tree port: #selection;