Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1731 -r2011
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1731)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 2011)
@@ -62,9 +62,7 @@
 <Implementation><![CDATA[
 	Set ..ApplicatieID = ApplicatieID
 	Set ..Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("ROOT")
-	
 	Do ..Inhoud.Insert(..Root)
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -160,6 +158,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderAlleInhoud">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..Inhoud.Clear()
+	Set ..Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("ROOT")
+	Do ..Inhoud.Insert(..Root)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderInternal">
 <Description>
 Interne method, niet gebruiken.  Verwijdert een Lijn uit de storage, maar
@@ -205,8 +213,6 @@
 	{
 		Do LijnIterator.Next().Accept(Visitor)
 	}
-	//Do ..Root.Accept(Visitor)	
-	
 	Do Visitor.Finalize()
 	
 	Quit $$$OK