From 361fb8ddcfe92375156263b7ae88094db8df3f9c Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 17 Jan 2015 16:45:21 +0000
Subject: [PATCH] Nodes tagged as 'code' are not executable in my tree, but
 they're on the GLM Basic Examples. Next testing why the difference.

---
 repository/Grafoscopio/GrafoscopioBrowser.class.st | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 6d067ce..bd4d299 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -94,14 +94,10 @@ GrafoscopioBrowser >> bodyForCodeIn: constructor for: aNode [
 		
 	(constructor smalltalkCode)
 			title: 'Código en Smalltalk';
-			format: [aNode body]
-		
+			format: [aNode body];
+			populate: #acceptedCode icon: GLMUIThemeExtraIcons glamorousAccept on: $s entitled: 'Accept' with: [aNode body]
 	
 "
-	^(constructor smalltalkCode)
-       title: 'Código en Smalltalk';
-		 format:[aNode body].
-
 	
 	constructor tags = 'código'
 		ifFalse: [^self  ]