Index: TECH/Algo/Boom/DiepteEerstBoomBuilder.cls.xml
===================================================================
diff -u
--- TECH/Algo/Boom/DiepteEerstBoomBuilder.cls.xml	(revision 0)
+++ TECH/Algo/Boom/DiepteEerstBoomBuilder.cls.xml	(revision 3019)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Boom.DiepteEerstBoomBuilder">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Boom">
+<Type>TECH.Algo.Boom.Boom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BezochtStack">
+<Type>TECH.Algo.Boom.Knoop</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="HuidigeKnoop">
+<Type>TECH.Algo.Boom.Knoop</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Boom:TECH.Algo.Boom.Boom</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Boom = Boom
+	Set ..HuidigeKnoop = Boom.GeefWortel()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoom">
+<ReturnType>TECH.Algo.Boom.Boom</ReturnType>
+<Implementation><![CDATA[	Quit ..Boom
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeKind">
+<FormalSpec>Kindknoop:TECH.Algo.Boom.Knoop</FormalSpec>
+<Implementation><![CDATA[
+	Do ..HuidigeKnoop.VoegToeKind(Kindknoop)
+	Do ..BezochtStack.Insert(..HuidigeKnoop)
+	Set ..HuidigeKnoop = Kindknoop
+]]></Implementation>
+</Method>
+
+<Method name="StijgNiveau">
+<Implementation><![CDATA[
+	If (..BezochtStack.Count() = 0) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Niveau kan niet hoger dan root stijgen")) }
+	
+	Set ..HuidigeKnoop = ..BezochtStack.GetAt(..BezochtStack.Count())
+	Do ..BezochtStack.RemoveAt(..BezochtStack.Count())
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/impl/Knoop.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/impl/Knoop.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/impl/Knoop.cls.xml	(revision 3019)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.Boom.impl.Knoop">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Boom.Knoop</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Kinderen">
+<Type>TECH.Algo.Boom.Knoop</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="VoegToeKind">
+<FormalSpec>Kindknoop:TECH.Algo.Boom.Knoop</FormalSpec>
+<Implementation><![CDATA[	Do ..Kinderen.Insert(Kindknoop)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKinderenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Kinderen)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Algo/Boom/Knoop.cls.xml
===================================================================
diff -u
--- TECH/Algo/Boom/Knoop.cls.xml	(revision 0)
+++ TECH/Algo/Boom/Knoop.cls.xml	(revision 3019)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Boom.Knoop">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VoegToeKind">
+<Abstract>1</Abstract>
+<FormalSpec>Kindknoop:TECH.Algo.Boom.Knoop</FormalSpec>
+</Method>
+
+<Method name="GeefKinderenIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+</Class>
+</Export>
Index: TECH/Algo/Boom/TweeRichtingKnoop.cls.xml
===================================================================
diff -u
--- TECH/Algo/Boom/TweeRichtingKnoop.cls.xml	(revision 0)
+++ TECH/Algo/Boom/TweeRichtingKnoop.cls.xml	(revision 3019)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Boom.TweeRichtingKnoop">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Algo.Boom.Knoop</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefOuder">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Algo.Boom.Knoop</ReturnType>
+</Method>
+
+<Method name="ZetOuder">
+<Abstract>1</Abstract>
+<FormalSpec>Ouderknoop:TECH.Algo.Boom.Knoop</FormalSpec>
+</Method>
+</Class>
+</Export>
Index: TECH/Algo/Boom/Boom.cls.xml
===================================================================
diff -u
--- TECH/Algo/Boom/Boom.cls.xml	(revision 0)
+++ TECH/Algo/Boom/Boom.cls.xml	(revision 3019)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Boom.Boom">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Wortel">
+<Type>TECH.Algo.Boom.Knoop</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Wortel:TECH.Algo.Boom.Knoop</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Wortel = Wortel
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefWortel">
+<ReturnType>TECH.Algo.Boom.Knoop</ReturnType>
+<Implementation><![CDATA[	Quit ..Wortel
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/TestBoom.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/TestBoom.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/TestBoom.cls.xml	(revision 3019)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.Boom.TestBoom">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Algo.Boom.TestBoom")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestBoom">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New()
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Do $$$AssertEquals(Boom.GeefWortel(),Wortel,"De wortel wordt correct teruggegeven")
+]]></Implementation>
+</Method>
+
+<Method name="TestDiepteEerstBoomBuilder">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New()
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Set DiepteEerstBoomBuilder = ##class(TECH.Algo.Boom.DiepteEerstBoomBuilder).%New(Boom)
+	
+	// We gaan volgende structuur maken
+	// 
+	// 		  Wortel
+	// 		   /  \
+	// 		 o1    o4
+	// 		/ \
+	// 	   o2  o3
+	
+	Set Knoop1 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New()
+	Set Knoop2 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New()
+	Set Knoop3 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New()
+	Set Knoop4 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New()
+	
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop1)
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop2)
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop3)
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop4)
+	
+	Do $$$AssertEquals(Wortel.Kinderen.GetAt(1),Knoop1,"Knoop 1")
+	Do $$$AssertEquals(Wortel.Kinderen.GetAt(2),Knoop4,"Knoop 4")
+	Do $$$AssertEquals(Knoop1.Kinderen.GetAt(1),Knoop2,"Knoop 2")
+	Do $$$AssertEquals(Knoop1.Kinderen.GetAt(2),Knoop3,"Knoop 3")
+]]></Implementation>
+</Method>
+</Class>
+</Export>