Index: PD/TestCHUI.cls.xml
===================================================================
diff -u -r1074 -r2587
--- PD/TestCHUI.cls.xml	(.../TestCHUI.cls.xml)	(revision 1074)
+++ PD/TestCHUI.cls.xml	(.../TestCHUI.cls.xml)	(revision 2587)
@@ -2,40 +2,39 @@
 <Export generator="Cache" version="9">
 <Class name="PD.TestCHUI">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <Property name="lblHeader">
 <Description>
 ==========================================================================================================================
 PROPERTIES                                                                                                               .
 ==========================================================================================================================
 Labels</Description>
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="mmoMemo1">
 <Description>
 Memos</Description>
-<Type>%CHUI.TMemo</Type>
+<Type>TCHUI.TMemo</Type>
 </Property>
 
 <Property name="pmPopup1">
 <Description>
 Popups</Description>
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <Property name="lstRenewal">
 <Description>
 Lists</Description>
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <Property name="dslRenewal">
 <Description>
 DataSetLists</Description>
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <Parameter name="colID">
@@ -81,7 +80,7 @@
 </Parameter>
 
 <Property name="lstSubGroepHeader">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Method name="CreateControls">
@@ -95,21 +94,21 @@
 	Set ..Caption="NewApplication"
 
 	;Labels
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 
 	;Popups
-	//Set ..pmPopup1=##class(%CHUI.TPopup).Create(%this,"pmPopup1","Popup1",3,10,2,20)
+	//Set ..pmPopup1=##class(TCHUI.TPopup).Create(%this,"pmPopup1","Popup1",3,10,2,20)
 	//Do ..pmPopup1.InitSpec(,,,10)
 	//Do ..pmPopup1.AddResource("PDO.TEST","PRIORITEIT")
 	//Do ..pmPopup1.DefaultFrames()
 	
 	;Memos
-	//Do ##class(%CHUI.TMemo).CreateSet(%this,"mmoMemo1","Memo1",6,17,13,40)
+	//Do ##class(TCHUI.TMemo).CreateSet(%this,"mmoMemo1","Memo1",6,17,13,40)
 	//Do ..mmoMemo1.InitSpec()
 	
 		;Lists
-	Do ##class(%CHUI.TLijst).CreateSet(%this,"lstRenewal","lstRenewal",6,3,19,76)
+	Do ##class(TCHUI.TLijst).CreateSet(%this,"lstRenewal","lstRenewal",6,3,19,76)
 	Do ..lstRenewal.AddSortCol(..#colSubGroep,"SubGroep")
 	Do ..lstRenewal.AddSortCol(..#colOmschrijving,"Omschrijving")
 	Do ..lstRenewal.AddSortCol(..#colGeldigTotDatumForSort,"Vervaldatum")
@@ -144,7 +143,7 @@
 	Do ..lstRenewal.AddLabelDBToRowDef(rdRowlstRenewal,..#colGeldigTotDatum)
 	
 	;DataSetLists
-	Set ..dslRenewal=##class(%CHUI.TDataSetList).Create(..lstRenewal,"dslRenewal")
+	Set ..dslRenewal=##class(TCHUI.TDataSetList).Create(..lstRenewal,"dslRenewal")
 	Do ..dslRenewal.AddColDef(..#colID)
 	Do ..dslRenewal.AddColDef(..#colSubGroep)
 	Do ..dslRenewal.AddColDef(..#colOmschrijving)
@@ -173,7 +172,7 @@
 </Method>
 
 <Method name="lstRenewalRefresh">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ..lstSubGroepHeader.Caption = "SubGroep"
 	Set ErrStr=..lstRenewal.Refresh()
@@ -187,7 +186,7 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   .
 ==========================================================================================================================</Description>
-<FormalSpec><![CDATA[Sender:%CHUI.TControlBasis,&Result:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&Result:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	Set Query="BL.BKH.Renewals.Build:QryLijst"
 	Set RS=##class(%ResultSet).%New(Query)
@@ -214,11 +213,11 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	//Set %CHUIDebug=1
-	Set %Application=##class(%CHUI.TApplication).Create()
+	Set %Application=##class(TCHUI.TApplication).Create()
 	
 	Do:($G(%CHUIDebug)) %Application.AttachDebugEvents()
-	Set %Screen=##class(%CHUI.TScreen).Create($$$ttVT520)
-	Set %Input=##class(%CHUI.TInput).Create()
+	Set %Screen=##class(TCHUI.TScreen).Create($$$ttVT520)
+	Set %Input=##class(TCHUI.TInput).Create()
 	Do %Screen.Clear()
  
 	;Check of de ingelogde gebruiker bekend is...