From f3335e4bb9038daa7d155e6742aeea4feefdfdce Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 26 May 2017 08:51:57 +0000
Subject: [PATCH] Improving STON exporting, as recomended by Sven.

---
 repository/Grafoscopio/GrafoscopioBrowser.class.st  | 13 -------------
 repository/Grafoscopio/GrafoscopioNotebook.class.st | 13 +++++--------
 2 files changed, 5 insertions(+), 21 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index ae1b7cc..d4e0b3c 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -265,19 +265,6 @@ GrafoscopioBrowser >> exportAsPdf [
 				http://xetex.sourceforge.net/' ].
 ]
 
-{ #category : #persistence }
-GrafoscopioBrowser >> exportAsSton: aTree on: locator [
-	| stonPrettyString |
-	aTree flatten.
-	stonPrettyString := String streamContents: [ :stream |
-    	(STON writer on: stream)
-			newLine: String crlf;	
-      		prettyPrint: true;
-			keepNewLines: true;
-      		nextPut: aTree children].
-	locator nextPutAll: stonPrettyString
-]
-
 { #category : #'graphical interface' }
 GrafoscopioBrowser >> headerOn: constructor [
 	"Shows the body of a selected node"
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index 9c0aedc..089357d 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -192,15 +192,12 @@ GrafoscopioNotebook >> exportAsPDF [
 
 { #category : #persistence }
 GrafoscopioNotebook >> exportAsSton: aNotebook on: aFileStream [
-	| stonPrettyString |
 	aNotebook flatten.
-	stonPrettyString := String streamContents: [ :stream |
-    	(STON writer on: stream)
-			newLine: String crlf;	
-      		prettyPrint: true;
-			keepNewLines: true;
-      		nextPut: aNotebook children].
-	aFileStream nextPutAll: stonPrettyString
+    (STON writer on: aFileStream)
+		newLine: String crlf;	
+      	prettyPrint: true;
+		keepNewLines: true;
+      	nextPut: aNotebook children
 ]
 
 { #category : #persistence }