Improve PolyglotInspector

- Merge meta-object into meta-object info
- Add links to invocable and readable members

src/TruffleSqueak-Tools-Core.package/PolyglotInspector.class/instance/fieldMetaObjectInfo.st

@@ -5,8 +5,13 @@ fieldMetaObjectInfo
 		name: 'meta object info'; emphasizeName;
 		valueGetter: [ :o | | metaObject |
 			metaObject := Interop getMetaObject: o.
-			 'Simple name:	{1}
-Qualified name:	{2}' format: {
-				(Interop getMetaSimpleName: metaObject) asString.
-				(Interop getMetaQualifiedName: metaObject) asString} ]; printValueAsIs;
+			Text streamContents: [ :aStream |
+				aStream
+					nextPutAll: 'Meta object:	';
+					withAttribute: (PluggableTextAttribute evalBlock: [ metaObject inspect ])
+						do: [ aStream nextPutAll: metaObject asString ]; cr;
+					nextPutAll: 'Simple name:	';
+					nextPutAll: (Interop getMetaSimpleName: metaObject) asString; cr;
+					nextPutAll: 'Qualified name:	';
+					nextPutAll: (Interop getMetaQualifiedName: metaObject) asString ]]; printValueAsIs;
 		yourself

src/TruffleSqueak-Tools-Core.package/PolyglotInspector.class/instance/fieldsMembers.st

@@ -31,12 +31,18 @@ fieldsMembers
 		(invocables ifNotEmpty: [ { (self newFieldForType: #misc key: #membersInvocable)
 			name: 'members (invocable)'; emphasizeName;
 			valueGetter: [ :o | 
-				String streamContents: [ :aStream |
+				Text streamContents: [ :aStream |
 					invocables do: [ :member |
-						aStream
-							nextPutAll: member;
-							nextPutAll: ((Interop isMemberReadable: o member: member)
-								ifTrue: [ ' (readable)' ]
-								ifFalse: [ ' (non-readable)' ]);
-							cr] ] ]; printValueAsIs;
+						(Interop isMemberReadable: o member: member)
+							ifTrue: [ aStream
+										withAttribute: (PluggableTextAttribute evalBlock: [
+												(Interop readMember: self object member: member) inspect ])
+											do: [ aStream nextPutAll: member ];
+										withAttributes: { TextEmphasis italic. TextColor color: Color gray }
+											do: [ aStream nextPutAll: ' (readable)' ] ]
+							ifFalse: [ aStream
+										nextPutAll: member;
+										withAttributes: { TextEmphasis italic. TextColor color: Color red }
+											do: [ aStream nextPutAll: ' (non-readable)' ] ].
+						aStream cr ] ] ]; printValueAsIs;
 			yourself } ] ifEmpty: [ {} ])

src/TruffleSqueak-Tools-Core.package/PolyglotInspector.class/instance/streamOptionalFieldsOn..st

@@ -4,9 +4,7 @@ streamOptionalFieldsOn: aStream
 	(Interop isMetaObject: self object) ifTrue: [
 		aStream nextPut: self fieldMetaName ].
 	(Interop hasMetaObject: self object) ifTrue: [
-		aStream
-			nextPut: self fieldMetaObject;
-			nextPut: self fieldMetaObjectInfo ].
+		aStream nextPut: self fieldMetaObjectInfo ].
 	(Interop hasLanguage: self object) ifTrue: [
 		aStream nextPut: self fieldLanguageInfo ].
 	(Interop hasSourceLocation: self object) ifTrue: [

src/TruffleSqueak-Tools-Core.package/PolyglotInspector.class/methodProperties.json

@@ -7,10 +7,9 @@
 		"fieldException" : "fn 6/11/2021 09:17",
 		"fieldLanguageInfo" : "fn 6/10/2021 16:48",
 		"fieldMetaName" : "fn 4/11/2021 15:02",
-		"fieldMetaObject" : "fn 4/11/2021 15:01",
-		"fieldMetaObjectInfo" : "fn 4/11/2021 15:02",
+		"fieldMetaObjectInfo" : "fn 6/25/2021 09:24",
 		"fieldSource" : "fn 4/11/2021 15:02",
-		"fieldsMembers" : "fn 4/11/2021 15:02",
+		"fieldsMembers" : "fn 6/25/2021 09:31",
 		"initialExtent" : "fn 2/12/2021 10:35",
 		"inspect:" : "fn 11/21/2019 15:47",
 		"inspectAs:" : "fn 1/26/2021 16:04",
@@ -21,4 +20,4 @@
 		"streamArrayElementsOn:" : "fn 4/11/2021 15:03",
 		"streamBaseFieldsOn:" : "fn 2/11/2021 11:01",
 		"streamFieldsOn:" : "fn 2/11/2021 11:49",
-		"streamOptionalFieldsOn:" : "fn 6/10/2021 16:46" } }
+		"streamOptionalFieldsOn:" : "fn 6/25/2021 09:25" } }