From 134ba5ad8d080a351a6f5a74e345614cf62f6871 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 9 May 2015 16:18:39 +0000
Subject: [PATCH] Updates with the last version.

---
 repository/Grafoscopio/GrafoscopioBrowser.class.st |  8 +++++++-
 repository/Grafoscopio/GrafoscopioNode.class.st    | 12 ++++++++++++
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 90378f4..2cded3a 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -32,6 +32,9 @@ Class {
 		'pandoc',
 		'recentTrees'
 	],
+	#classInstVars : [
+		'workingFile'
+	],
 	#category : #'Grafoscopio-UI'
 }
 
@@ -48,8 +51,11 @@ GrafoscopioBrowser class >> configureFossil [
 
 { #category : #'as yet unclassified' }
 GrafoscopioBrowser class >> configurePandoc [
-	"Stablish where is located pandoc according to the operative system and the input of the user"
+	"Stablish where is located pandoc according to the operative system and/or the input of the user"
 	| fileStream |
+	
+	
+	
 	fileStream := UITheme builder 
 							fileOpen: 'Coloque la ruta de pandoc'.
 							
diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index 014b076..f412e69 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -434,6 +434,18 @@ GrafoscopioNode >> promote [
 	
 ]
 
+{ #category : #exporting }
+GrafoscopioNode >> publish [
+	| publishedUrl |
+	(self confirm: 'Publish playground content to the cloud?')
+        ifFalse: [ ^ self ].
+    self content ifEmpty: [ 
+        self inform: 'Nothing was published because the playground is empty'.
+        ^ self ].
+    Clipboard clipboardText: (publishedUrl := (GTUrlProvider new post: self content) asString).
+    self inform: publishedUrl , ' was published and the url was copied to clipboard'
+]
+
 { #category : #'add/remove nodes' }
 GrafoscopioNode >> removeLastNode [
 	"Adds the given node to the receivers collection of children, and sets this object as the parent