Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml
===================================================================
diff -u -r60209 -r60333
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60209)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60333)
@@ -18,19 +18,11 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set ..HorizontalLine = BasisElementFactory.MaakLijn(0,Height/2,Width,Height/2)
-	Set ..VerticalLine = BasisElementFactory.MaakLijn(Width/2,0,Width/2,Height)
-	Do ..HorizontalLine.SetStroke(kleur)
-	Do ..VerticalLine.SetStroke(kleur)
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>