--- a/extensions.st Wed Dec 11 11:50:26 2019 +0100
+++ b/extensions.st Wed Dec 11 13:45:34 2019 +0100
@@ -1094,7 +1094,7 @@
attrs := super inspectorExtraAttributes.
JSONPrinter notNil ifTrue:[
- attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self ])
+ attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self printLimit:(JSONPrinter defaultPrettyPrintLimit) ])
].
^ attrs
@@ -2420,7 +2420,7 @@
countRecursive := 0.
[
- jsonString := jsonPrinter encodePrettyPrinted:self.
+ jsonString := jsonPrinter encodePrettyPrinted:self printLimit:(JSONPrinter defaultPrettyPrintLimit).
] on:Error do:[:ex |
(ex isKindOf:RecursionError) ifTrue:[
ex originator == JSONPrinter ifTrue:[
@@ -2941,7 +2941,7 @@
attrs := super inspectorExtraAttributes.
JSONPrinter notNil ifTrue:[
- attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self ])
+ attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self printLimit:(JSONPrinter defaultPrettyPrintLimit) ])
].
^ attrs
@@ -3036,7 +3036,7 @@
attrs := super inspectorExtraAttributes.
JSONPrinter notNil ifTrue:[
- attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self ])
+ attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self printLimit:(JSONPrinter defaultPrettyPrintLimit) ])
].
^ attrs