FFI: FFI-Tools-mt.32.mcz

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!