My class has two members:
substitutions <Dictionary keys: String values: (Set with: String)>
substitute <Boolean>
I run the Object Binding tool and get:
<?xml version="1.0" encoding="utf-8" ?>
<schemaBindings>
<xmlToSmalltalkBinding targetNamespace="urn:vwservices"
elementFormDefault="qualified"
defaultClassNamespace="Reflektis.MijnGeldConverter"
xmlns="urn:visualworks:VWSchemaBinding"
xmlns:xsd="
http://www.w3.org/2001/XMLSchema" xmlns:tns="urn:vwservices">
<object name="SubstitutionDictionarySetting"
smalltalkClass="SubstitutionDictionarySetting">
<sequence>
<element name="substitute" ref="xsd:boolean"/>
<element name="substitutionDictionary"
ref="tns:Dictionary"/>
</sequence>
</object>
<object name="Dictionary" smalltalkClass="Dictionary"/>
</xmlToSmalltalkBinding>
</schemaBindings>
Seems ok.
Now I run the test script:
schemaNS := 'urn:vwservices' .
binding := WebServices.XMLObjectBinding bindingAtNamespace: schemaNS.
dict := Dictionary new.
dict at: 'First entry' put: (v := Set new).
v add: 'First value'; add: 'Second value'.
object := Reflektis.MijnGeldConverter.SubstitutionDictionarySetting new
substitute: true;
substitutionDictionary: dict;
yourself.
xml := binding marshal: object.
unmarshaledObject := binding unmarshal: xml.
No errors, but the unmarshaled object contains an *empty* dictionary!
What do I do wrong?
_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
Locked
