Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-03-25 18:53:33 +00:00
parent 4d835b3f58
commit 0d1a7fabf0
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -773,8 +773,15 @@ GrafoscopioBrowser >> exportAsPdf [
{ #category : #persistence } { #category : #persistence }
GrafoscopioBrowser >> exportAsSton: aTree on: locator [ GrafoscopioBrowser >> exportAsSton: aTree on: locator [
| stonPrettyString |
aTree flatten. 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' } { #category : #'graphical interface' }