Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r1850 -r1998
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 1850)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 1998)
@@ -45,6 +45,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Multidim">
+<FormalSpec><![CDATA[&Multidim:%CacheString]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Iterator = ##class(TECH.ArrayMultiDimIterator).%New(.Multidim)
+	While Iterator.HasNext() {
+		#dim Tekst As TECH.String = Iterator.Next()
+		Do ..Wlip(Iterator.Key()_" ~ "_Tekst,1,1)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Stream">
 <FormalSpec>Stream:%Stream,Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
@@ -80,12 +91,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DataTransfertObject">
-<FormalSpec>DataTransfertObject:TECH.RegisteredObject,Break:%Boolean=$$$False</FormalSpec>
+<Method name="ArrayOfDataTypes">
+<FormalSpec>Array:%ArrayOfDataTypes,ListInfo:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
-	Do ..Wlip(DataTransfertObject,3)
+	Do ..Wlip("Lijst: "_ListInfo,3,1,1)
+	Set ListIt = ##class(TECH.ListIterator).%New(Array)
+	While ListIt.HasNext() {
+		#dim String As TECH.String = ListIt.Next()
+		Do ..Wlip(ListIt.Key()_"-> "_String,3,0,0)
+	}
+	Break:Break
+]]></Implementation>
+</Method>
+
+<Method name="DataTransferObject">
+<FormalSpec>DataTransferObject:TECH.RegisteredObject,Break:%Boolean=$$$False</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Wlip(DataTransferObject,3)
 	Set Writer = ##class(Tools.Wlip.Writer).%New()
-	Set Dumper = ##class(Tools.ObjectDumper.Dumper).%New(DataTransfertObject,$$$True,Writer)
+	Set Dumper = ##class(Tools.ObjectDumper.Dumper).%New(DataTransferObject,$$$True,Writer)
 	Do Dumper.Dump()
 	Break:Break
 ]]></Implementation>
@@ -99,6 +123,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ScheidingsLijn">
+<Implementation><![CDATA[	Do ..Wlip($$$CRLF_$$$CRLF_$$$CRLF_"************************************************"_$$$CRLF,0,0,0)
+]]></Implementation>
+</Method>
+
 <Method name="Wlip">
 <FormalSpec>String:TECH.String="",Count:TECH.Integer,MetTijd:%Boolean=1,MetLocatieData:%Boolean=1</FormalSpec>
 <Private>1</Private>