Index: zTryout/WV/Address.cls.xml
===================================================================
diff -u
--- zTryout/WV/Address.cls.xml	(revision 0)
+++ zTryout/WV/Address.cls.xml	(revision 59353)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.Address">
+<Super>%SerialObject</Super>
+
+<Property name="Street">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="80"/>
+</Property>
+
+<Property name="City">
+<Type>%String</Type>
+<Parameter name="MINLEN" value="3"/>
+</Property>
+
+<Property name="State">
+<Type>%String</Type>
+<Parameter name="MINLEN" value="2"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>AddressState</State>
+<StreamLocation>^zTryout.WV.AddressS</StreamLocation>
+<Data name="AddressState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Street</Value>
+</Value>
+<Value name="2">
+<Value>City</Value>
+</Value>
+<Value name="3">
+<Value>State</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/zTryout/SHE/Test/ToString/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/SHE/Test/ToString/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/SHE/Test/ToString/Test.cls.xml	(revision 59353)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.SHE.Test.ToString.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test dumpen van leeg object naar xml">
+<Implementation><![CDATA[
+	Set TestKlasse = ##class(zTryout.SHE.Test).%New(6)
+	// #dim x As %String
+	// Set x = TestKlasse.ToString()
+	
+	Do $$$AssertEquals(TestKlasse.Breedte, 6)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/Person.cls.xml
===================================================================
diff -u
--- zTryout/WV/Person.cls.xml	(revision 0)
+++ zTryout/WV/Person.cls.xml	(revision 59353)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.Person">
+<Super>%Persistent</Super>
+
+<Property name="Name">
+<Type>%String</Type>
+</Property>
+
+<Property name="Home">
+<Type>Address</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.WV.PersonD</DataLocation>
+<DefaultData>PersonDefaultData</DefaultData>
+<IdLocation>^zTryout.WV.PersonD</IdLocation>
+<IndexLocation>^zTryout.WV.PersonI</IndexLocation>
+<StreamLocation>^zTryout.WV.PersonS</StreamLocation>
+<Data name="PersonDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Name</Value>
+</Value>
+<Value name="3">
+<Value>Home</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/SHE/Test.cls.xml
===================================================================
diff -u
--- zTryout/SHE/Test.cls.xml	(revision 0)
+++ zTryout/SHE/Test.cls.xml	(revision 59353)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.SHE.Test">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Property name="Breedte">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Breedte:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Breedte = Breedte
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$ObjToXML^vhLib(%this)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>TestState</State>
+<StreamLocation>^zTryout.SHE.TestS</StreamLocation>
+<Data name="TestState">
+<Value name="1">
+<Value>Breedte</Value>
+</Value>
+<Value name="2">
+<Value>Hoogte</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/WV/TestSHE.cls.xml
===================================================================
diff -u
--- zTryout/WV/TestSHE.cls.xml	(revision 0)
+++ zTryout/WV/TestSHE.cls.xml	(revision 59353)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.TestSHE">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Name">
+<Type>%String</Type>
+</Property>
+
+<Property name="lijst">
+<Type>%ListOfObjects</Type>
+</Property>
+
+<Method name="Test">
+<FormalSpec>param:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim variabele As %String
+	SET colorList=$LISTBUILD("red","blue","green","white")
+	write colorList,!
+	//SET ColorListList = ##class(TECH.ListUtils).%New().ListbuildToList($List(colorlist))
+	//write colorListList,!
+	write ##class(TECH.StringUtils).%New().CharAt(param,2),!
+	SET x = "abc"
+	WRITE x,!
+ 	SET $EXTRACT(y, 3) = x
+ 	SET x = y
+ 	WRITE x,!
+ 	WRITE ##class(TECH.DateTime).%New().CurrentHorolog()
+]]></Implementation>
+</Method>
+
+<Method name="Testerino">
+<FormalSpec>param:%String</FormalSpec>
+<Implementation><![CDATA[
+	if (param = "Sam"){
+		Write param
+	} else
+	{
+		Write "foute naam" 
+	}
+]]></Implementation>
+</Method>
+
+<Method name="add">
+<FormalSpec>a:%Integer,b:%Integer</FormalSpec>
+<Implementation><![CDATA[	Write a + b
+]]></Implementation>
+</Method>
+
+<Method name="loop">
+<Implementation><![CDATA[
+	for 
+	{
+		set x = $random(10)
+		quit:(x=5)
+		write !,x
+
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>