Index: Tools/DebugWindow.cls.xml
===================================================================
diff -u
--- Tools/DebugWindow.cls.xml	(revision 0)
+++ Tools/DebugWindow.cls.xml	(revision 2418)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.DebugWindow">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ClientIP">
+<Type>%String</Type>
+</Property>
+
+<Method name="Activate">
+<Implementation><![CDATA[	set ^ActiveX.DebugWindow(..ClientIP) = ##class(TECH.DateTime).CurrentTimeStamp()
+]]></Implementation>
+</Method>
+
+<Method name="GetData">
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	#dim Data As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+	#dim Index As %String = ""
+	#dim LastIndex As %String = $order(^ActiveX.DebugWindow(..ClientIP,""),-1)
+	for  { set Index = $order(^ActiveX.DebugWindow(..ClientIP,Index)) quit:Index>LastIndex  quit:Index=""
+		do Data.WriteLine(^(Index))
+		kill ^ActiveX.DebugWindow(..ClientIP,Index)
+	}
+	quit Data
+]]></Implementation>
+</Method>
+
+<Method name="IsActive">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>IP:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsActive As %Boolean = $data(^ActiveX.DebugWindow(IP))
+	quit IsActive
+]]></Implementation>
+</Method>
+
+<Method name="AddMessage">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>IP:%String,Message:%String</FormalSpec>
+<Implementation><![CDATA[
+	if ..IsActive(IP) {
+		#dim Index As %Integer = $order(^ActiveX.DebugWindow(IP,""),-1)+1
+		set ^ActiveX.DebugWindow(IP,Index)=Message
+	}
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>ClientIP:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ClientIP = $select($length(ClientIP):ClientIP,1:$$GetClientIP^vhLib())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if $length(..ClientIP) kill ^ActiveX.DebugWindow(..ClientIP)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r2144 -r2418
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2144)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2418)
@@ -156,17 +156,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="HalffabItemsBoom">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
-<Implementation><![CDATA[
-	#dim CaptureWriter As TECH.Output.impl.CaptureWriter = ##class(TECH.Output.impl.CaptureWriter).%New()
-	set ItemsWriter = ##class(vhPowerTools.APPS.PM.Maatwerk.ItemsWriter).%New(CaptureWriter)
-	do ItemsWriter.SchrijfHalffabTijden(HalffabItemsBoom,0)
-	do ..Stream(CaptureWriter.GeefStream())
-	quit
-]]></Implementation>
-</Method>
-
 <Method name="Wlip">
 <FormalSpec>String:TECH.String="",Count:TECH.Integer,MetTijd:%Boolean=1,MetLocatieData:%Boolean=1</FormalSpec>
 <Private>1</Private>
@@ -176,7 +165,7 @@
 	#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)
+	Do:$$$Not(..LaatsteIPPiece="") ##class(Tools.DebugWindow).AddMessage("192.168.1."_..LaatsteIPPiece, WlipString)
 ]]></Implementation>
 </Method>