File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -41,19 +41,29 @@ GtPhlowViewSpecification >> gtActionBuildViewFor: anAction [
4141GtPhlowViewSpecification >> gtViewJSONFor: aView [
4242 < gtView>
4343
44- ^ aView forward
44+ ^ aView textEditor
4545 title: ' JSON' ;
4646 priority: 10 ;
47- object: [ GtJson
48- forJsonString: (NeoJSONWriter
49- toStringPretty: self asDictionaryForExport) ];
50- view: #gtJsonStringFor: ;
47+ text: [
48+ STONJSON toStringPretty: self asDictionaryForExport ];
49+ stylerParserClassName: #JSONParser ;
5150 actionButtonIcon: BrGlamorousVectorIcons inspect
5251 label: ' Json'
5352 tooltip: ' Inspect the JSON object'
5453 action: [ :aButton |
5554 aButton phlow
56- spawnObject: aButton phlow forwardViewObjectFromViewAction ]
55+ spawnObject: self asDictionaryForExport ]
56+ ]
57+
58+ { #category : #' *GToolkit-RemoteGt' }
59+ GtPhlowViewSpecification >> gtViewSpecificationDataFor: aView [
60+ < gtView>
61+
62+ ^ aView forward
63+ title: ' Specification data' ;
64+ priority: 10.4 ;
65+ object: [ self asDictionaryForExport ];
66+ view: #gtItemsFor:
5767]
5868
5969{ #category : #' *GToolkit-RemoteGt' }
You can’t perform that action at this time.
0 commit comments