Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r1751 -r1752
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 1751)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 1752)
@@ -21,78 +21,77 @@
 </Method>
 
 <Method name="String">
-<FormalSpec>String:TECH.String="",Count:TECH.Integer=2,MetTijd:%Boolean=1,MetLocatieData:%Boolean=1</FormalSpec>
+<FormalSpec>String:TECH.String="",Break:%Boolean=$$$False</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)
+	Do ..Wlip(String,3,1,1)
+	Break:Break
 ]]></Implementation>
 </Method>
 
 <Method name="Stream">
-<FormalSpec>Stream:%Stream</FormalSpec>
+<FormalSpec>Stream:%Stream,Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
-	Do ..String("Stream: "_Stream,3)
+	Do ..Wlip("Stream: "_Stream,3)
 	#dim StreamCopy As %Stream = Stream.%ConstructClone()
 	Do StreamCopy.Rewind()
 	While $$$Not(StreamCopy.AtEnd) {
-		Do ..Wlip(StreamCopy.ReadLine())
+		Do ..Wlip(StreamCopy.ReadLine(),3,0,0)
 	}
+	Break:Break
 ]]></Implementation>
 </Method>
 
 <Method name="Stack">
-<FormalSpec>Title:TECH.String=""</FormalSpec>
+<FormalSpec>Title:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
-	Do:$$$Not(Title="") ..String(">>>>>>>>>>>>>> "_Title_" <<<<<<<<<<<<<<",,,0)
-	Do ..Wlip($$GetStackToString^vhLib())
+	Do:$$$Not(Title="") ..Wlip(">>>>>>>>>>>>>> "_Title_" <<<<<<<<<<<<<<",,,0)
+	Do ..Wlip($$GetStackToString^vhLib(),,0,0)
+	Break:Break
 ]]></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>
+<FormalSpec>List:%ListOfDataTypes,ListInfo:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
-	Do:(ListInfo'="") ..String($$$CRLF_"LijstInfo: "_ListInfo,3)
+	Do ..Wlip("Lijst: "_ListInfo,3,1,1)
 	Set ListIt = ##class(TECH.ListIterator).%New(List)
 	#dim Aantal As TECH.Integer = 0
 	While ListIt.HasNext() {
-		Do ..String($Increment(Aantal)_"-> "_ListIt.Next(),3)
+		Do ..Wlip($Increment(Aantal)_"-> "_ListIt.Next(),3,0,0)
 	}
+	Break:Break
 ]]></Implementation>
 </Method>
 
-<Method name="Object">
-<FormalSpec>Object:TECH.RegisteredObject</FormalSpec>
+<Method name="DataTransfertObject">
+<FormalSpec>DataTransfertObject:TECH.RegisteredObject,Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
-	Do ..String(Object,3)
+	Do ..Wlip(DataTransfertObject,3)
 	Set Writer = ##class(Tools.Wlip.Writer).%New()
-	Set Dumper = ##class(Tools.ObjectDumper.Dumper).%New(Object,$$$True,Writer)
+	Set Dumper = ##class(Tools.ObjectDumper.Dumper).%New(DataTransfertObject,$$$True,Writer)
 	Do Dumper.Dump()
+	Break:Break
 ]]></Implementation>
 </Method>
 
 <Method name="TimeFromPreviousCall">
-<FormalSpec>String:TECH.String=""</FormalSpec>
-<Implementation><![CDATA[	Do ..String(String_": "_$$RestartTimer^vhLib(), 3)
+<FormalSpec>String:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Wlip(String_": "_$$RestartTimer^vhLib(),3)
+	Break:Break
 ]]></Implementation>
 </Method>
 
 <Method name="Wlip">
-<FormalSpec>String:TECH.String=""</FormalSpec>
+<FormalSpec>String:TECH.String="",Count:TECH.Integer,MetTijd:%Boolean=1,MetLocatieData:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	;Do WLIP^vhDBG(26, $$LCVT^vhLib(##class(TECH.ClassUtils).GetCurrentMethod())_"-> "_Tekst)
 	;#dim Adres As TECH.Integer = $Piece(##class(TECH.Process).GeefClientIP(),".",4)
-	Do:$$$Not(..LaatsteIPPiece="") ##class(ActiveX.DebugWindow).AddMessage("192.168.1."_..LaatsteIPPiece, String)
+	#dim WlipString As TECH.String = String
+	Set:MetLocatieData WlipString = ..GeefLaatsteMethodeString(Count)_WlipString
+	Set:MetTijd WlipString = ..GeefTijdString()_WlipString
+	Do:$$$Not(..LaatsteIPPiece="") ##class(ActiveX.DebugWindow).AddMessage("192.168.1."_..LaatsteIPPiece, WlipString)
 ]]></Implementation>
 </Method>