Index: vhUnitTest/TECH/Svg/Basis/Group/Test.cls.xml
===================================================================
diff -u -r3635 -r3658
--- vhUnitTest/TECH/Svg/Basis/Group/Test.cls.xml	(.../Test.cls.xml)	(revision 3635)
+++ vhUnitTest/TECH/Svg/Basis/Group/Test.cls.xml	(.../Test.cls.xml)	(revision 3658)
@@ -6,7 +6,7 @@
 <Method name="Test bestaan van een group klasse met 1 element">
 <Implementation><![CDATA[
 		Set Group = ##class(TECH.Svg.Basis.Group).%New()
-		Set Rect = ##class(TECH.Svg.Basis.Rect).%New(0,0,150,105)
+		Set Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(0,0,150,105)
 		Do Group.VoegToeElement(Rect)
 		Do ..AssertSvg(Group, "<g>  <rect x=""0"" y=""0"" width=""150"" height=""105""></rect></g>")
 ]]></Implementation>
@@ -15,8 +15,8 @@
 <Method name="Test bestaan van een group klasse met 2 elementen">
 <Implementation><![CDATA[
 		Set Group = ##class(TECH.Svg.Basis.Group).%New()
-		Set Circle = ##class(TECH.Svg.Basis.Circle).%New(15,35,1)
-		Set Rect = ##class(TECH.Svg.Basis.Rect).%New(0,0,150,105)
+		Set Circle = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(15,35,1)
+		Set Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(0,0,150,105)
 		Do Group.VoegToeElement(Rect)
 		Do Group.VoegToeElement(Circle)
 		Do ..AssertSvg(Group, "<g>  <rect x=""0"" y=""0"" width=""150"" height=""105""></rect>  <circle cx=""15"" cy=""35"" r=""1""></circle></g>")
Index: vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml
===================================================================
diff -u -r3656 -r3658
--- vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 3656)
+++ vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 3658)
@@ -96,6 +96,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Properties Coordinaat">
+<Implementation><![CDATA[
+	Set Coordinaat =##class(TECH.Svg.BasisElementFactory).%New().MaakCoordinaat(15,15)
+	Do $$$AssertEquals(Coordinaat.X,15)
+	Do $$$AssertEquals(Coordinaat.Y,15)
+]]></Implementation>
+</Method>
+
 <Method name="AssertSvg">
 <FormalSpec>SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String</FormalSpec>
 <Private>1</Private>
FishEye: Tag 3658 refers to a dead (removed) revision in file `vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?