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

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

Name: FFI-Tools-mt.1
Author: mt
Time: 19 May 2020, 1:23:14.276702 pm
UUID: 5063ac2e-3c6e-be41-81bd-6dc2f87f025b
Ancestors: 

Recue inspector for external structures from being deprecated.

==================== Snapshot ====================

SystemOrganization addCategory: #'FFI-Tools'!

----- Method: ExternalStructure>>inspectorClass (in category '*FFI-Tools') -----
inspectorClass

	^ ExternalStructureInspector!

Inspector subclass: #ExternalStructureInspector
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'FFI-Tools'!

----- Method: ExternalStructureInspector>>recordFieldList (in category 'accessing') -----
recordFieldList
	| fields |
	fields := object class fields.
	(fields first isKindOf: Array) ifFalse: [fields := Array with: fields].
	^fields collect: [ :field | field first ] thenSelect: [:name | name notNil]!

----- Method: ExternalStructureInspector>>streamFieldsOn: (in category 'fields - streaming') -----
streamFieldsOn: aStream

	self
		streamBaseFieldsOn: aStream;
		streamRecordFieldsOn: aStream.!

----- Method: ExternalStructureInspector>>streamRecordFieldsOn: (in category 'fields - streaming') -----
streamRecordFieldsOn: aStream

	self recordFieldList do: [:field |
		aStream nextPut: ((self newFieldForType: #record key: field)
			valueGetter: [:object | object perform: field];
			valueSetter: [:object :value | (field, ':') asSymbol with: value];
			yourself)].!