Index: TECH/Svg/Basis/Line.cls.xml
===================================================================
diff -u -r3632 -r3653
--- TECH/Svg/Basis/Line.cls.xml	(.../Line.cls.xml)	(revision 3632)
+++ TECH/Svg/Basis/Line.cls.xml	(.../Line.cls.xml)	(revision 3653)
@@ -32,17 +32,11 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>X1:%Integer,Y1:%Integer,X2:%Integer,Y2:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..X1 = X1
-	Set ..Y1 = Y1
-	Set ..X2 = X2
-	Set ..Y2 = Y2
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -76,6 +70,9 @@
 <Value name="9">
 <Value>Y2</Value>
 </Value>
+<Value name="10">
+<Value>Opacity</Value>
+</Value>
 </Data>
 </Storage>
 </Class>