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>
Index: TECH/Svg/Basis/Path.cls.xml
===================================================================
diff -u -r3647 -r3653
--- TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3647)
+++ TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3653)
@@ -21,26 +21,16 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Aflsluiten:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	If (Aflsluiten =0) { 
-		Do ..VoegToeInhoudD(CoordinatesList)
-	}
-	Else {
-		Do ..VoegToeInhoudAfgelsotenD(CoordinatesList)
-	}
-	
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeInhoudD">
 <FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	Set CoordinatesIterator = ##class(TECH.ListIterator).%New(CoordinatesList)
 	// Voor de eerste Coordinates
@@ -58,7 +48,6 @@
 
 <Method name="VoegToeInhoudAfgelsotenD">
 <FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	If (CoordinatesList.Count() <3) {
 	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het afsluiten van een figuur is pas praktisch als er meer dan 2 coördinaten aanwezig zijn."))
Index: TECH/Svg/Basis/Text.cls.xml
===================================================================
diff -u -r3632 -r3653
--- TECH/Svg/Basis/Text.cls.xml	(.../Text.cls.xml)	(revision 3632)
+++ TECH/Svg/Basis/Text.cls.xml	(.../Text.cls.xml)	(revision 3653)
@@ -25,18 +25,11 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>X:%Integer,Y:%Integer,Content:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	
-	Set ..X = X 
-	Set ..Y = Y 
-	Set ..Content = Content
-	
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
Index: TECH/Svg/BasisElementFactory.cls.xml
===================================================================
diff -u
--- TECH/Svg/BasisElementFactory.cls.xml	(revision 0)
+++ TECH/Svg/BasisElementFactory.cls.xml	(revision 3653)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Svg.BasisElementFactory">
+<Super>%RegisteredObject</Super>
+
+<Method name="MaakRechthoek">
+<FormalSpec>X:%Integer,Y:%Integer,Width:%Integer,Height:%Integer</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
+	Quit Rect
+]]></Implementation>
+</Method>
+
+<Method name="MaakCirkel">
+<FormalSpec>MiddelpuntX:%Integer,MiddelpuntY:%Integer,Straal:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Circle</ReturnType>
+<Implementation><![CDATA[
+	Set Circle = ##class(TECH.Svg.Basis.Circle).%New()
+	Set Circle.MiddelpuntX = MiddelpuntX
+	Set Circle.MiddelpuntY = MiddelpuntY
+	Set Circle.Straal = Straal
+	Quit Circle
+]]></Implementation>
+</Method>
+
+<Method name="MaakLijn">
+<FormalSpec>X1:%Integer,Y1:%Integer,X2:%Integer,Y2:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Line</ReturnType>
+<Implementation><![CDATA[
+	Set Line = ##class(TECH.Svg.Basis.Line).%New()
+	Set Line.X1 = X1
+	Set Line.Y1 = Y1
+	Set Line.X2 = X2
+	Set Line.Y2 = Y2
+	Quit Line
+]]></Implementation>
+</Method>
+
+<Method name="MaakPath">
+<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Afsluiten:%Boolean=1</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Path</ReturnType>
+<Implementation><![CDATA[
+	Set Path = ##class(TECH.Svg.Basis.Path).%New()
+	If (Afsluiten = 0) { 
+		Do Path.VoegToeInhoudD(CoordinatesList)
+	}
+	Else {
+		Do Path.VoegToeInhoudAfgelsotenD(CoordinatesList)
+	}
+	Quit Path
+]]></Implementation>
+</Method>
+
+<Method name="MaakText">
+<FormalSpec>X:%Integer,Y:%Integer,Content:%String</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Text</ReturnType>
+<Implementation><![CDATA[
+	Set Text = ##class(TECH.Svg.Basis.Text).%New()
+	Set Text.X = X 
+	Set Text.Y = Y 
+	Set Text.Content = Content
+	Quit Text
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Svg/Basis/Rect.cls.xml
===================================================================
diff -u -r3648 -r3653
--- TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3648)
+++ TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3653)
@@ -32,20 +32,28 @@
 </Property>
 
 <Method name="%OnNew">
-<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 ..Y = Y
-	Set ..Width = Width
-	Set ..Height = Height
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/// This callback method is invoked by the <METHOD>%New</METHOD> method to 
+/// provide notification that a new instance of an object is being created.
+/// 
+/// <P>If this method returns an error then the object will not be created.
+/// <p>It is passed the arguments provided in the %New call.
+/// When customizing this method, override the arguments with whatever variables and types you expect to receive from %New().
+/// For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be:
+/// <p>Method %OnNew(dob as %Date = "", name as %Name = "") as %Status
+
+]]></Content>
+</UDLText>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>RectState</State>
Index: TECH/Svg/Basis/Circle.cls.xml
===================================================================
diff -u -r3644 -r3653
--- TECH/Svg/Basis/Circle.cls.xml	(.../Circle.cls.xml)	(revision 3644)
+++ TECH/Svg/Basis/Circle.cls.xml	(.../Circle.cls.xml)	(revision 3653)
@@ -26,16 +26,11 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MiddelpuntX:%Integer,MiddelpuntY:%Integer,Straal:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..MiddelpuntX = MiddelpuntX
-	Set ..MiddelpuntY = MiddelpuntY
-	Set ..Straal = Straal
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>