Index: TCHUI/Dlg/TListFiller.cls.xml
===================================================================
diff -u -r2588 -r2675
--- TCHUI/Dlg/TListFiller.cls.xml	(.../TListFiller.cls.xml)	(revision 2588)
+++ TCHUI/Dlg/TListFiller.cls.xml	(.../TListFiller.cls.xml)	(revision 2675)
@@ -226,7 +226,7 @@
 OVERWRITE - We wensen CreateControls zelfstandig op te roepen</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Name,Caption,Top,Left,Height,Width,Font,FormType</FormalSpec>
-<ReturnType>TControl</ReturnType>
+<ReturnType>TCHUI.TControl</ReturnType>
 <Implementation><![CDATA[
 	Set Form=..%New()
 	Quit:(Form=$$$NULLOREF) $$$NULLOREF
@@ -302,7 +302,7 @@
 
 	Do ..lstValue.InitSpec(..dslValue,,rdRowlstValue)
 
-	Set ..lstValue.ContextMenu=##class(TContextMenu).Create(%this,"pmValue")
+	Set ..lstValue.ContextMenu=##class(TCHUI.TContextMenu).Create(%this,"pmValue")
 	Do ..lstValue.ContextMenu.AddItem(%this,"pmiChange","Wijzigen",1,,$LB(%this,"acChangeExecute"))
 	Do ..lstValue.ContextMenu.AddItem(%this,"pmiSep","-",1)
 	Do ..lstValue.ContextMenu.AddItem(%this,"pmiDelete","Verwijderen",1,,$LB(%this,"acDeleteExecute"))
Index: TCHUI/Dlg/TList.cls.xml
===================================================================
diff -u -r2577 -r2675
--- TCHUI/Dlg/TList.cls.xml	(.../TList.cls.xml)	(revision 2577)
+++ TCHUI/Dlg/TList.cls.xml	(.../TList.cls.xml)	(revision 2675)
@@ -142,7 +142,7 @@
 OVERWRITE - We wensen CreateControls zelfstandig op te roepen</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Name,Caption,Top,Left,Height,Width,Font,FormType</FormalSpec>
-<ReturnType>TControl</ReturnType>
+<ReturnType>TCHUI.TControl</ReturnType>
 <Implementation><![CDATA[
 	Set Form=..%New()
 	Quit:(Form=$$$NULLOREF) $$$NULLOREF
Index: TCHUI/Dlg/TSelectKlant.cls.xml
===================================================================
diff -u -r2577 -r2675
--- TCHUI/Dlg/TSelectKlant.cls.xml	(.../TSelectKlant.cls.xml)	(revision 2577)
+++ TCHUI/Dlg/TSelectKlant.cls.xml	(.../TSelectKlant.cls.xml)	(revision 2675)
@@ -279,7 +279,7 @@
 	Do ..dslKlant.AddColDef(..#colNotActive,$$$rsList,5)
 	Set ..dslKlant.OnQueryInit=$LB(%this,"dslKlantQueryInit")
 
-	Set ..lstKlant.ContextMenu=##class(TContextMenu).Create(%this,"pmLijstContextMenu")
+	Set ..lstKlant.ContextMenu=##class(TCHUI.TContextMenu).Create(%this,"pmLijstContextMenu")
 	Do ..lstKlant.ContextMenu.AddItem(%this,"pmiRaadpleegKlant","Raadpleeg klant",1,,,..acRaadpleegKlant)
 
 	Do ..lstKlant.InitSpec(..dslKlant,rdHeader,rdKlant,,,,0)
@@ -313,7 +313,7 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   .
 ==========================================================================================================================</Description>
-<FormalSpec><![CDATA[Sender:TControlBasis,&KeyCode:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&KeyCode:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	;Toets kan snelkoppeling zijn die pmSearchVia instelt
 	If (..#pkSearchViaName_..#pkSearchViaNr_..#pkSearchViaWoonplaats_..#pkSearchViaPostnummer_..#pkSearchViaStraat[KeyCode) && (Sender.CursorPos=1) Do 
@@ -330,7 +330,7 @@
 </Method>
 
 <Method name="dslKlantQueryInit">
-<FormalSpec><![CDATA[Sender:TControlBasis,&varErrStr:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&varErrStr:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	Set SearchStr=..txtSearch.DisplayValue
 	If SearchStr="" Do  Quit
@@ -362,15 +362,15 @@
 </Method>
 
 <Method name="lstKlantOnKeyPress">
-<FormalSpec><![CDATA[Sender:TControlBasis,&KeyCode:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&KeyCode:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	If KeyCode=$$$kcEnter Do
 	. Set ..ModalResult=$$$mrOk
 ]]></Implementation>
 </Method>
 
 <Method name="acSearchExecute">
-<FormalSpec>Sender:TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set Result=..lstKlant.RefreshTop()
 	
Index: TCHUI/Dlg/TSelectLev.cls.xml
===================================================================
diff -u -r2577 -r2675
--- TCHUI/Dlg/TSelectLev.cls.xml	(.../TSelectLev.cls.xml)	(revision 2577)
+++ TCHUI/Dlg/TSelectLev.cls.xml	(.../TSelectLev.cls.xml)	(revision 2675)
@@ -311,7 +311,7 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   .
 ==========================================================================================================================</Description>
-<FormalSpec><![CDATA[Sender:TControlBasis,&KeyCode:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&KeyCode:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	;Toets kan snelkoppeling zijn die pmSearchVia instelt
 	If (..#pkSearchViaName_..#pkSearchViaNr_..#pkSearchViaWoonplaats_..#pkSearchViaPostnummer_..#pkSearchViaStraat[KeyCode) && (Sender.CursorPos=1) Do 
@@ -328,7 +328,7 @@
 </Method>
 
 <Method name="dslLevQueryInit">
-<FormalSpec><![CDATA[Sender:TControlBasis,&varErrStr:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&varErrStr:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	Set SearchStr=..txtSearch.DisplayValue
 	If SearchStr="" Do  Quit
@@ -360,15 +360,15 @@
 </Method>
 
 <Method name="lstLevOnKeyPress">
-<FormalSpec><![CDATA[Sender:TControlBasis,&KeyCode:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&KeyCode:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	If KeyCode=$$$kcEnter Do
 	. Set ..ModalResult=$$$mrOk
 ]]></Implementation>
 </Method>
 
 <Method name="acSearchExecute">
-<FormalSpec>Sender:TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set Result=..lstLev.RefreshTop()