Index: DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml
===================================================================
diff -u -r1867 -r1898
--- DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml	(.../TBXRechteUitsparing.cls.xml)	(revision 1867)
+++ DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml	(.../TBXRechteUitsparing.cls.xml)	(revision 1898)
@@ -10,13 +10,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TussenrugMateriaal">
+<Type>DOM.PM.enu.TBXRugMateriaal</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Diepte:%Integer,Breedte:%Integer,AfstandTotZijkantLinks:%Integer,AfstandTotZijkantRechts:%Integer,ZijkantKleur:%String</FormalSpec>
+<FormalSpec>Diepte:%Integer,Breedte:%Integer,AfstandTotZijkantLinks:%Integer,AfstandTotZijkantRechts:%Integer,ZijkantKleur:%String,TussenrugMateriaal:DOM.PM.enu.TBXRugMateriaal</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ZijkantKleur = ZijkantKleur
+	Set ..TussenrugMateriaal = TussenrugMateriaal
 	Quit ##super(Diepte,Breedte,AfstandTotZijkantLinks,AfstandTotZijkantRechts)
 ]]></Implementation>
 </Method>
@@ -56,5 +62,11 @@
 <Implementation><![CDATA[	Quit ..GeefAfstandTotZijkantRechts() - 37.5 - 31.5
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTussenrugMateriaal">
+<ReturnType>DOM.PM.enu.TBXRugMateriaal</ReturnType>
+<Implementation><![CDATA[	Quit ..TussenrugMateriaal
+]]></Implementation>
+</Method>
 </Class>
 </Export>