Index: DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml
===================================================================
diff -u -r1075 -r1803
--- DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml	(.../KADBeslag.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml	(.../KADBeslag.cls.xml)	(revision 1803)
@@ -8,14 +8,17 @@
 
 <Property name="Element">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Positie">
 <Type>TECH.Vector</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Type">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
@@ -31,6 +34,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefElement">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Element
+]]></Implementation>
+</Method>
+
+<Method name="GeefPositie">
+<ReturnType>TECH.Vector</ReturnType>
+<Implementation><![CDATA[	Quit ..Positie
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Type
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "Beslag "_..Type_" op "_..Element_" op positie ("_..Positie.X_","_..Positie.Y_","_..Positie.Z_")"