Index: zTryout/MVI/Tools/ObjectDumper.cls.xml
===================================================================
diff -u
--- zTryout/MVI/Tools/ObjectDumper.cls.xml	(revision 0)
+++ zTryout/MVI/Tools/ObjectDumper.cls.xml	(revision 32728)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.Tools.ObjectDumper">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Dump">
+<Description>
+Do ##class(zTryout.MVI.Tools.ObjectDumper).Dump()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Object:%CacheString</FormalSpec>
+<Implementation><![CDATA[
+	Do ..WriteHeader("OBJECTDUMPER.DUMP")
+	Write !, $System.OBJ.Dump(Object)
+	Do ..WriteFooter()
+]]></Implementation>
+</Method>
+
+<Method name="ListOfDataTypes">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ListOfDataTypes:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	Do ..WriteHeader("OBJECTDUMPER.LISTOFDATATYPES")
+	
+	#dim Counter As TECH.Integer = 1
+	#dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ListOfDataTypes)
+	
+	While (Iterator.HasNext()) {
+		Write !, Counter _ ": " _ Iterator.Next()
+		
+		Set Counter = $Increment(Counter)
+	}
+
+	Do ..WriteFooter()
+]]></Implementation>
+</Method>
+
+<Method name="String">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..WriteHeader("OBJECTDUMPER.STRING")
+	Write !, String
+	Do ..WriteFooter()
+]]></Implementation>
+</Method>
+
+<Method name="Stack">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..WriteHeader("OBJECTDUMPER.STRING")
+	Write !, $$GetStackToString^vhLib.System()
+	Do ..WriteFooter()
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Label:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Write !, "// " _ Label _ " //////////////////////////////////////////////"
+]]></Implementation>
+</Method>
+
+<Method name="WriteFooter">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Write !, "///////////////////////////////////////////////////////////////////"
+	Write !
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>