The Trunk: 60Deprecated-mt.78.mcz

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-mt.78.mcz

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

Name: 60Deprecated-mt.78
Author: mt
Time: 19 May 2020, 1:24:08.242702 pm
UUID: 5e4b063f-2159-1149-859f-4aab97c2f882
Ancestors: 60Deprecated-mt.77

Un-deprecate inspector for external FFI structures. Moved to FFI-Tools package.

=============== Diff against 60Deprecated-mt.77 ===============

Item was removed:
- Inspector subclass: #ExternalStructureInspector
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: '60Deprecated-Tools-Inspector'!

Item was removed:
- ----- Method: ExternalStructureInspector>>fieldSelf (in category 'fields') -----
- fieldSelf
-
- ^ super fieldSelf
- name: 'self: ', object defaultLabelForInspector;
- yourself!

Item was removed:
- ----- Method: ExternalStructureInspector>>fieldsRecordsOn: (in category 'fields') -----
- fieldsRecordsOn: 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)].!

Item was removed:
- ----- 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]!

Item was removed:
- ----- Method: ExternalStructureInspector>>streamFieldsOn: (in category 'fields') -----
- streamFieldsOn: aStream
-
- self
- streamBaseFieldsOn: aStream;
- fieldsRecordsOn: aStream.!