Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml
===================================================================
diff -u -r59712 -r60124
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 59712)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60124)
@@ -18,7 +18,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Width:%Integer,Height:%Integer</FormalSpec>
+<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>
@@ -27,10 +27,28 @@
 	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>
 </Method>
 
+<Method name="XMLExport">
+<FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set val=..HorizontalLine
+   	Set sc = val.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
+   	if ('sc) {
+   		Quit sc 
+   	}Else {
+ 		Set val=..VerticalLine
+   		Set sc=  val.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
+		Quit sc
+   	}
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DomElementState">