Index: TECH/Svg/Basis/Rect.cls.xml
===================================================================
diff -u -r3622 -r3627
--- TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3622)
+++ TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3627)
@@ -31,32 +31,18 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
-<Property name="Fill">
-<Type>TECH.Svg.enu.Kleur</Type>
-<Parameter name="XMLNAME" value="fill"/>
-<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
-</Property>
-
-<Property name="Stroke">
-<Type>TECH.Svg.enu.Kleur</Type>
-<Parameter name="XMLNAME" value="stroke"/>
-<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>X:%Integer,Y:%Integer,Width:%Integer,Height:%Integer,Fill:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart(),Stroke:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<FormalSpec>X:%Integer,Y:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..X = X 
+	Set ..X =X
 	Set ..Y = Y
 	Set ..Width = Width
 	Set ..Height = Height
-	Set ..Fill = Fill
-	Set ..Stroke = Stroke
-	
+	;Do ..SetParameters()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -84,6 +70,15 @@
 <Value name="6">
 <Value>Stroke</Value>
 </Value>
+<Value name="7">
+<Value>StrokeWidth</Value>
+</Value>
+<Value name="8">
+<Value>StrokeDashArray</Value>
+</Value>
+<Value name="9">
+<Value>Overflow</Value>
+</Value>
 </Data>
 </Storage>
 </Class>