[squeak-dev] The Trunk: 60Deprecated-mt.78.mcz

commits at source.squeak.org commits at source.squeak.org
Tue May 19 11:24:09 UTC 2020


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.!



More information about the Squeak-dev mailing list