<div dir="ltr">Thanks you Marcel!!!!</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Tue, May 19, 2020 at 4:23 AM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);padding-left:1ex">Marcel Taeumel uploaded a new version of FFI-Tools to project FFI:<br>
<a href="http://source.squeak.org/FFI/FFI-Tools-mt.1.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/FFI/FFI-Tools-mt.1.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: FFI-Tools-mt.1<br>
Author: mt<br>
Time: 19 May 2020, 1:23:14.276702 pm<br>
UUID: 5063ac2e-3c6e-be41-81bd-6dc2f87f025b<br>
Ancestors: <br>
<br>
Recue inspector for external structures from being deprecated.<br>
<br>
==================== Snapshot ====================<br>
<br>
SystemOrganization addCategory: #'FFI-Tools'!<br>
<br>
----- Method: ExternalStructure>>inspectorClass (in category '*FFI-Tools') -----<br>
inspectorClass<br>
<br>
        ^ ExternalStructureInspector!<br>
<br>
Inspector subclass: #ExternalStructureInspector<br>
        instanceVariableNames: ''<br>
        classVariableNames: ''<br>
        poolDictionaries: ''<br>
        category: 'FFI-Tools'!<br>
<br>
----- Method: ExternalStructureInspector>>recordFieldList (in category 'accessing') -----<br>
recordFieldList<br>
        | fields |<br>
        fields := object class fields.<br>
        (fields first isKindOf: Array) ifFalse: [fields := Array with: fields].<br>
        ^fields collect: [ :field | field first ] thenSelect: [:name | name notNil]!<br>
<br>
----- Method: ExternalStructureInspector>>streamFieldsOn: (in category 'fields - streaming') -----<br>
streamFieldsOn: aStream<br>
<br>
        self<br>
                streamBaseFieldsOn: aStream;<br>
                streamRecordFieldsOn: aStream.!<br>
<br>
----- Method: ExternalStructureInspector>>streamRecordFieldsOn: (in category 'fields - streaming') -----<br>
streamRecordFieldsOn: aStream<br>
<br>
        self recordFieldList do: [:field |<br>
                aStream nextPut: ((self newFieldForType: #record key: field)<br>
                        valueGetter: [:object | object perform: field];<br>
                        valueSetter: [:object :value | (field, ':') asSymbol with: value];<br>
                        yourself)].!<br>
<br>
<br>
</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><span style="font-size:small;border-collapse:separate"><div>_,,,^..^,,,_<br></div><div>best, Eliot</div></span></div></div></div>