Marcel Taeumel uploaded a new version of FFI-Tools to project FFI:
http://source.squeak.org/FFI/FFI-Tools-mt.32.mcz

==================== Summary ====================

Name: FFI-Tools-mt.32
Author: mt
Time: 19 May 2021, 10:34:52.271615 am
UUID: 85d06810-dfc4-2246-8e37-5bbc2bc11872
Ancestors: FFI-Tools-mt.31

Minor tweaks for representation of external types in Object Explorer.

=============== Diff against FFI-Tools-mt.31 ===============

Item was changed:
  ----- Method: ExternalStructureType>>explorerContents (in category '*FFI-Tools') -----
  explorerContents
  
  	| basicExplorerFields fieldTypeFields |
  	basicExplorerFields := super explorerContents.
  
  	fieldTypeFields := Array streamContents: [:s |
  		self typesDo: [:type :fieldName |
  			s nextPut: (ObjectExplorerWrapper
  				with: type
  				name: (fieldName ifNil: ['__'] ifNotNil: ['_', fieldName])
  				model: self)]].
  		
+ 	^ basicExplorerFields, fieldTypeFields!
- 	^ fieldTypeFields, basicExplorerFields!

Item was changed:
  ----- Method: ExternalType>>explorerContents (in category '*FFI-Tools') -----
  explorerContents
  
+ 	| basicExplorerFields |
- 	| basicExplorerFields originalTypeField |
  	basicExplorerFields := super explorerContents.
  	basicExplorerFields do: [:explorerField |
  		explorerField itemName = 'compiledSpec' ifTrue: [
  			explorerField changeClassTo: CompiledSpecWrapper]].
  	
+ 	(self isTypeAlias or: [self isTypeAliasReferenced])
+ 		ifTrue: [
+ 			basicExplorerFields := 
+ 				{ObjectExplorerWrapper
+ 					with: self originalType
+ 					name: '~>'
+ 					model: self}, basicExplorerFields]
+ 		ifFalse: [self isAtomic ifTrue: [
+ 			basicExplorerFields := basicExplorerFields,
+ 				{ObjectExplorerWrapper
+ 					with: (AtomicSends at: self atomicType + 1) first
+ 					name: '_reader'
+ 					model: self.
+ 				ObjectExplorerWrapper
+ 					with: (AtomicSends at: self atomicType + 1) second
+ 					name: '_writer'
+ 					model: self}]].
+ 
- 	self isTypeAlias ifTrue: [
- 		originalTypeField := ObjectExplorerWrapper
- 			with: self originalType
- 			name: '_originalType'
- 			model: self.
- 		^ {originalTypeField}, basicExplorerFields].
- 	
  	^ basicExplorerFields!