Index: TECH/Svg/BasisElementFactory.cls.xml
===================================================================
diff -u -r3745 -r3780
--- TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3745)
+++ TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3780)
@@ -4,14 +4,16 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="MaakRechthoek">
-<FormalSpec>X:%Integer,Y:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<FormalSpec>X:%Integer,Y:%Integer,Width:%Integer,Height:%Integer,ID:%String="",Class:%String=""</FormalSpec>
 <ReturnType>TECH.Svg.Basis.Rect</ReturnType>
 <Implementation><![CDATA[
 	Set Rect = ##class(TECH.Svg.Basis.Rect).%New()
 	Set Rect.X = X 
 	Set Rect.Y = Y 
 	Set Rect.Width = Width
 	Set Rect.Height = Height
+	Set Rect.ID = ID
+	Set Rect.Class = Class
 	
 	Quit Rect
 ]]></Implementation>