From 0d1a7fabf0233c4c653eb527bc2cd3030a2bbd1c Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 25 Mar 2016 18:53:33 +0000
Subject: [PATCH] DVCS friendly document format for notebooks enabled. This
 closes the long asked feature reported in
 [058a50a883](http://mutabit.com/repos.fossil/grafoscopio/tktview?name=058a50a883)
 by @ijpulidos.

---
 repository/Grafoscopio/GrafoscopioBrowser.class.st | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index b1f8b8b..97a4285 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -773,8 +773,15 @@ GrafoscopioBrowser >> exportAsPdf [
 
 { #category : #persistence }
 GrafoscopioBrowser >> exportAsSton: aTree on: locator [
+	| stonPrettyString |
 	aTree flatten.
-	locator nextPutAll: (STON toStringPretty: aTree children)
+	stonPrettyString := String streamContents: [ :stream |
+    	(STON writer on: stream)
+			newLine: String crlf;	
+      		prettyPrint: true;
+			keepNewLines: true;
+      		nextPut: aTree children].
+	locator nextPutAll: stonPrettyString "(STON toStringPretty: aTree children)"
 ]
 
 { #category : #'graphical interface' }