Index: vhLib/InMemoryLogger.cls.xml
===================================================================
diff -u
--- vhLib/InMemoryLogger.cls.xml	(revision 0)
+++ vhLib/InMemoryLogger.cls.xml	(revision 93)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhLib.InMemoryLogger">
+<Super>%RegisteredObject</Super>
+
+<Property name="Groep">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Loggings">
+<Type>vhLib.Logging</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Groep:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Groep = Groep 
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Warning">
+<FormalSpec>Actie:%String,Detail:%String</FormalSpec>
+<ReturnType>Logging</ReturnType>
+<Implementation><![CDATA[
+	Set oLog=##class(vhLib.Logging).%New()
+	Do oLog.Init(##class(TECH.DateTime).CurrentDate(),##class(TECH.DateTime).CurrentTime(),"W",..Groep,.Actie,.Detail,"")
+	Do ..Loggings.Insert(oLog)
+	Quit oLog
+]]></Implementation>
+</Method>
+
+<Method name="Error">
+<FormalSpec>Actie:%String,Detail:%String</FormalSpec>
+<ReturnType>Logging</ReturnType>
+<Implementation><![CDATA[
+	Set oLog=##class(vhLib.Logging).%New()
+	Do oLog.Init(##class(TECH.DateTime).CurrentDate(),##class(TECH.DateTime).CurrentTime(),"E",..Groep,.Actie,.Detail,"")
+	Do ..Loggings.Insert(oLog)
+	Quit oLog
+]]></Implementation>
+</Method>
+
+<Method name="Debug">
+<FormalSpec>Actie:%String,Detail:%String</FormalSpec>
+<ReturnType>Logging</ReturnType>
+<Implementation><![CDATA[
+	Set oLog=##class(vhLib.Logging).%New()
+	Do oLog.Init(##class(TECH.DateTime).CurrentDate(),##class(TECH.DateTime).CurrentTime(),"D",..Groep,.Actie,.Detail,"")
+	Do ..Loggings.Insert(oLog)
+	Quit oLog
+]]></Implementation>
+</Method>
+
+<Method name="Info">
+<FormalSpec>Actie:%String,Detail:%String</FormalSpec>
+<ReturnType>Logging</ReturnType>
+<Implementation><![CDATA[
+	Set oLog=##class(vhLib.Logging).%New()
+	Do oLog.Init(##class(TECH.DateTime).CurrentDate(),##class(TECH.DateTime).CurrentTime(),"I",..Groep,.Actie,.Detail,"")
+	Do ..Loggings.Insert(oLog)
+	Quit oLog
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfNaarLogging">
+<Implementation><![CDATA[
+	Set Iterator = ##class(TECH.ListIterator).%New(..Loggings)
+	While (Iterator.HasNext())
+	{
+		Do Iterator.Next().%Save()
+	}
+	Do ..Loggings.Clear()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>