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

Improving STON exporting, as recomended by Sven.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-05-26 08:51:57 +00:00
parent 41a739487e
commit f3335e4bb9
2 changed files with 5 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -265,19 +265,6 @@ GrafoscopioBrowser >> exportAsPdf [
http://xetex.sourceforge.net/' ]. 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' } { #category : #'graphical interface' }
GrafoscopioBrowser >> headerOn: constructor [ GrafoscopioBrowser >> headerOn: constructor [
"Shows the body of a selected node" "Shows the body of a selected node"

7
repository/Grafoscopio/GrafoscopioNotebook.class.st
View File

@ -192,15 +192,12 @@ GrafoscopioNotebook >> exportAsPDF [
{ #category : #persistence } { #category : #persistence }
GrafoscopioNotebook >> exportAsSton: aNotebook on: aFileStream [ GrafoscopioNotebook >> exportAsSton: aNotebook on: aFileStream [
| stonPrettyString |
aNotebook flatten. aNotebook flatten.
stonPrettyString := String streamContents: [ :stream | (STON writer on: aFileStream)
(STON writer on: stream)
newLine: String crlf; newLine: String crlf;
prettyPrint: true; prettyPrint: true;
keepNewLines: true; keepNewLines: true;
nextPut: aNotebook children]. nextPut: aNotebook children
aFileStream nextPutAll: stonPrettyString
] ]
{ #category : #persistence } { #category : #persistence }