Index: TECH/Algo/Boom/DiepteEerstIterator.cls.xml
===================================================================
diff -u
--- TECH/Algo/Boom/DiepteEerstIterator.cls.xml	(revision 0)
+++ TECH/Algo/Boom/DiepteEerstIterator.cls.xml	(revision 284)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Algo.Boom.DiepteEerstIterator">
+<Super>%RegisteredObject,TECH.Iterator</Super>
+
+<Property name="IteratorStack">
+<Type>TECH.Iterator</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="KnoopStack">
+<Type>Knoop</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="CurrentKnoop">
+<Type>Knoop</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Knoop:Knoop</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VoegToeAanStack(Knoop)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IteratorStack.Count()>0
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>Knoop</ReturnType>
+<Implementation><![CDATA[
+	Do ..Order()
+	Quit ..CurrentKnoop
+]]></Implementation>
+</Method>
+
+<Method name="Order">
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	If ..CurrentIterator().HasNext()
+	{	
+		Set Knoop=..CurrentIterator().Next()
+		Do ..VoegToeAanStack(Knoop)
+		Do ..Order() ; Diepte eerst
+	}
+	else
+	{
+		Set ..CurrentKnoop=..CurrentKnoop()
+		Do ..VerwijderVanStack()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeAanStack">
+<FormalSpec>Knoop:Knoop</FormalSpec>
+<Implementation><![CDATA[
+	If $isObject(Knoop)
+	{
+		Do ..IteratorStack.Insert(Knoop.GeefKindIterator())
+		Do ..KnoopStack.Insert(Knoop)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderVanStack">
+<Implementation><![CDATA[
+	Do ..IteratorStack.RemoveAt(..IteratorStack.Count())
+	Do ..KnoopStack.RemoveAt(..KnoopStack.Count())
+]]></Implementation>
+</Method>
+
+<Method name="CurrentIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..IteratorStack.GetPrevious("")
+]]></Implementation>
+</Method>
+
+<Method name="CurrentKnoop">
+<ReturnType>Knoop</ReturnType>
+<Implementation><![CDATA[	Quit ..KnoopStack.GetPrevious("")
+]]></Implementation>
+</Method>
+
+<Method name="GeefNivo">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..IteratorStack.Count()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>