Index: Tools/Wlip/Writer.cls.xml
===================================================================
diff -u
--- Tools/Wlip/Writer.cls.xml	(revision 0)
+++ Tools/Wlip/Writer.cls.xml	(revision 1751)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Wlip.Writer">
+<Super>TECH.RegisteredObject,TECH.Output.Writer</Super>
+
+<Method name="Write">
+<FormalSpec>String:TECH.String=""</FormalSpec>
+<Implementation><![CDATA[	Do WLIP^vhDBG(26,String)
+]]></Implementation>
+</Method>
+
+<Method name="WriteLine">
+<FormalSpec>String:TECH.String=""</FormalSpec>
+<Implementation><![CDATA[	Do ..Write(String)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/Wlip.cls.xml
===================================================================
diff -u
--- Tools/Wlip.cls.xml	(revision 0)
+++ Tools/Wlip.cls.xml	(revision 1751)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Wlip">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LaatsteIPPiece">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LaatsteIPPiece:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LaatsteIPPiece = LaatsteIPPiece
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="String">
+<FormalSpec>String:TECH.String="",Count:TECH.Integer=2,MetTijd:%Boolean=1,MetLocatieData:%Boolean=1</FormalSpec>
+<Implementation><![CDATA[
+	;Do WLIP^vhDBG(26, $$LCVT^vhLib(##class(TECH.ClassUtils).GetCurrentMethod())_"-> "_Tekst)
+	#dim WlipString As TECH.String = String
+	Set:MetLocatieData WlipString = ..GeefLaatsteMethodeString(Count)_WlipString
+	Set:MetTijd WlipString = ..GeefTijdString()_WlipString
+	Do ..Wlip(WlipString)
+]]></Implementation>
+</Method>
+
+<Method name="Stream">
+<FormalSpec>Stream:%Stream</FormalSpec>
+<Implementation><![CDATA[
+	Do ..String("Stream: "_Stream,3)
+	#dim StreamCopy As %Stream = Stream.%ConstructClone()
+	Do StreamCopy.Rewind()
+	While $$$Not(StreamCopy.AtEnd) {
+		Do ..Wlip(StreamCopy.ReadLine())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Stack">
+<FormalSpec>Title:TECH.String=""</FormalSpec>
+<Implementation><![CDATA[
+	Do:$$$Not(Title="") ..String(">>>>>>>>>>>>>> "_Title_" <<<<<<<<<<<<<<",,,0)
+	Do ..Wlip($$GetStackToString^vhLib())
+]]></Implementation>
+</Method>
+
+<Method name="Break">
+<FormalSpec>String:TECH.String=""</FormalSpec>
+<Implementation><![CDATA[
+	Do ..String(String,3)
+	Break
+]]></Implementation>
+</Method>
+
+<Method name="ListOfDataTypes">
+<FormalSpec>List:%ListOfDataTypes,ListInfo:TECH.String=""</FormalSpec>
+<Implementation><![CDATA[
+	Do:(ListInfo'="") ..String($$$CRLF_"LijstInfo: "_ListInfo,3)
+	Set ListIt = ##class(TECH.ListIterator).%New(List)
+	#dim Aantal As TECH.Integer = 0
+	While ListIt.HasNext() {
+		Do ..String($Increment(Aantal)_"-> "_ListIt.Next(),3)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Object">
+<FormalSpec>Object:TECH.RegisteredObject</FormalSpec>
+<Implementation><![CDATA[
+	Do ..String(Object,3)
+	Set Writer = ##class(Tools.Wlip.Writer).%New()
+	Set Dumper = ##class(Tools.ObjectDumper.Dumper).%New(Object,$$$True,Writer)
+	Do Dumper.Dump()
+]]></Implementation>
+</Method>
+
+<Method name="TimeFromPreviousCall">
+<FormalSpec>String:TECH.String=""</FormalSpec>
+<Implementation><![CDATA[	Do ..String(String_": "_$$RestartTimer^vhLib(), 3)
+]]></Implementation>
+</Method>
+
+<Method name="Wlip">
+<FormalSpec>String:TECH.String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	;#dim Adres As TECH.Integer = $Piece(##class(TECH.Process).GeefClientIP(),".",4)
+	Do:$$$Not(..LaatsteIPPiece="") ##class(ActiveX.DebugWindow).AddMessage("192.168.1."_..LaatsteIPPiece, String)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLaatsteMethodeString">
+<FormalSpec>Count:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim StackLevel As TECH.Integer = $ESTACK
+	#dim ExecutedFrom As TECH.String = $STACK(StackLevel-Count,"PLACE")
+	Quit $$LCVT^vhLib(##class(TECH.ClassUtils).GetClassAndMethod(ExecutedFrom))_"-> "
+]]></Implementation>
+</Method>
+
+<Method name="GeefTijdString">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.DateTime).CurrentTimeStamp()_"# "
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>