Index: vhTest/Mock/TECH/Svg/BasisElementFactory.cls.xml
===================================================================
diff -u -r3743 -r3780
--- vhTest/Mock/TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3743)
+++ vhTest/Mock/TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3780)
@@ -50,9 +50,9 @@
 </Method>
 
 <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[	quit ..VerwerkMethodCall("MaakRechthoek",X,Y,Width,Height)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakRechthoek",X,Y,Width,Height,ID,Class)
 ]]></Implementation>
 </Method>
 
Index: TECH/Svg/Basis/Rect.cls.xml
===================================================================
diff -u -r3668 -r3780
--- TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3668)
+++ TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3780)
@@ -31,6 +31,18 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
+<Property name="ID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Class">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="class"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
Index: TECH/Svg/Basis/Text.cls.xml
===================================================================
diff -u -r3668 -r3780
--- TECH/Svg/Basis/Text.cls.xml	(.../Text.cls.xml)	(revision 3668)
+++ TECH/Svg/Basis/Text.cls.xml	(.../Text.cls.xml)	(revision 3780)
@@ -24,6 +24,12 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
+<Property name="ID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
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>
Index: TECH/Svg/Basis/SvgBox.cls.xml
===================================================================
diff -u -r3735 -r3780
--- TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3735)
+++ TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3780)
@@ -124,6 +124,12 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
+<Property name="ViewBox">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="viewbox"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>