Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r61916 -r61921
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61916)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61921)
@@ -72,20 +72,16 @@
 				#dim Rotation As %Integer = $S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
 				Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos, YPos, 10, 10, Rotation)
 				Do ..ElementToevoeger.VoegToeElement(..Group, ZijBoring)
-			}
-			ElseIf(Boring.IsSpecialeBoring()){
+			}ElseIf(Boring.IsSpecialeBoring()) {
 				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, SpecialeBoring)
-			}
-			ElseIf (Boring.BoorDiepte < 0) {
+			}ElseIf (Boring.BoorDiepte < 0) {
 				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos, YPos, Straal, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, DoorBoring)
-			}
-			ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0){
+			}ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0) {
 				Set PuntBoring =  ..BoringElementFactory.MaakPuntBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, PuntBoring)
-			}
-			Else {
+			}Else {
 				Set RugBoring =  ..BoringElementFactory.MaakRugBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, RugBoring)
 			}	
@@ -119,8 +115,7 @@
 	If (ProfielPlaats = "PL") {
 		#dim OffsetX As %Integer = TijdelijkeOffsetX
 		#dim OffsetY As %Integer = TijdelijkeOffsetY
-	}
-	ElseIf (ProfielPlaats = "PR") {
+	}ElseIf (ProfielPlaats = "PR") {
 		Set OffsetX = Breedte- TijdelijkeOffsetX
 		Set OffsetY = TijdelijkeOffsetY
 	}ElseIf (ProfielPlaats = "PB") {
@@ -159,7 +154,6 @@
 		Set BoorType = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 		
 		If ($L(Boring.VmlID) > 2) {
-			Do ##class(Tools.Wlip).%New(238).String(XPos_" "_YPos)
 			#Dim SvgBoxTest As TECH.Svg.Basis.SvgBox = ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation, YPos, XPos)
 			Do ..ElementToevoeger.VoegToeElement(SvgBox, SvgBoxTest)
 		}
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r61598 -r61921
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 61598)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 61921)
@@ -35,7 +35,6 @@
 <ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
 	Set ..VerbinderGroup = ##class(TECH.Svg.Basis.Group).%New()
-
 	Do ..HoekverbinderMaker.ZetVerbinderParameters(KaderdeurObject)
 	
 	#dim ProductiewijzeID As %String = KaderdeurObject.ProductieWijzeGetObjectId()
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u -r61908 -r61921
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 61908)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 61921)
@@ -81,7 +81,7 @@
 		Set ..XCirkel = 39
 		Set ..YCirkel = 19 
 	}
-	Set ..CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
+	Set ..CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder, StartVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder, LengteVerbinder, LengteVerbinder, LengteVerbinder, LengteVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r61915 -r61921
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61915)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61921)
@@ -35,7 +35,6 @@
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New()
-	Do ##class(Tools.Wlip).%New(238).String(VmlId_" "_Breedte_" "_Lengte)
 	If (VmlId = "KAD") {
 		Do ..KadFreesRect(Breedte, YPos, Rotation)	
 	}ElseIf (VmlId ="SD30") {
@@ -62,7 +61,6 @@
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer,XPos:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ##class(Tools.Wlip).%New(238).String(Breedte_" en "_XPos)
 	Do ..KadFreesRect(Breedte, YPos, Rotation, 2, 46, XPos)
 	Do ..KadFreesRect(Breedte, YPos, Rotation, 16, 22, XPos)
 ]]></Implementation>
@@ -73,7 +71,6 @@
 <Implementation><![CDATA[
 	Set FreesL = FreesL\2*2
 	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ##class(Tools.Wlip).%New(238).String(Breedte_" "_Lengte_" "_FreesB_" "_FreesL_" "_Rotation)
 	#dim Rechthoek As TECH.Svg.Basis.Rect
 	If (Rotation = 0) {
 		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte-FreesB, Lengte - (FreesL/2), FreesB, FreesL)
Index: zTryout/JWI/SAXParser/Test2.cls.xml
===================================================================
diff -u -r61224 -r61921
--- zTryout/JWI/SAXParser/Test2.cls.xml	(.../Test2.cls.xml)	(revision 61224)
+++ zTryout/JWI/SAXParser/Test2.cls.xml	(.../Test2.cls.xml)	(revision 61921)
@@ -48,6 +48,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ReadStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>stream:%GlobalCharacterStream</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+    set handler=..%New()
+
+    set status=##class(%XML.SAX.Parser).ParseStream(stream,handler)
+
+    quit status
+]]></Implementation>
+</Method>
+
 <Method name="ResetDto">
 <Implementation><![CDATA[	Set ..Dto = ##class(zTryout.JWI.SAXParser.PerfionDTO).%New()
 ]]></Implementation>
Index: vhTest/Utils/Res/Perfion/Synchroniser/Vertaling.cls.xml
===================================================================
diff -u -r61845 -r61921
--- vhTest/Utils/Res/Perfion/Synchroniser/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 61845)
+++ vhTest/Utils/Res/Perfion/Synchroniser/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 61921)
@@ -11,7 +11,6 @@
 	
 	for i=1:1:AantalPerfionVertalingenObjecten
 	{
-		Do ##class(Tools.Wlip).%New(238).String(i)
 		Set PerfionVertaling = ##class(Res.Perfion.Synchroniser.VertalingDTO).%New()
 		Set PerfionVertaling.VertalingsType = "TestType"
 		Set PerfionVertaling.VertalingsGroep = "TestGroep"