Index: CHUI/Derde/KB/dlgHistory.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Derde/KB/dlgHistory.cls.xml	(.../dlgHistory.cls.xml)	(revision 1074)
+++ CHUI/Derde/KB/dlgHistory.cls.xml	(.../dlgHistory.cls.xml)	(revision 2578)
@@ -3,8 +3,7 @@
 <Class name="CHUI.Derde.KB.dlgHistory">
 <IncludeCode>BL.Derde.Kennis,CHUI.KB</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <UDLText name="T">
 <Content><![CDATA[
@@ -18,7 +17,7 @@
 ==========================================================================================================================
 PROPERTIES                                                                                                               .
 ==========================================================================================================================</Description>
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <UDLText name="T">
@@ -29,11 +28,11 @@
 </UDLText>
 
 <Property name="acSelect">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acClose">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <UDLText name="T">
@@ -44,7 +43,7 @@
 </UDLText>
 
 <Property name="btnClose">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <UDLText name="T">
@@ -55,7 +54,7 @@
 </UDLText>
 
 <Property name="lstHistory">
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <UDLText name="T">
@@ -66,7 +65,7 @@
 </UDLText>
 
 <Property name="dslHistory">
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <Property name="RootKBID">
@@ -119,21 +118,21 @@
 	Set ..Caption=..GetFormTitle("Historiek")
 
 	//Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB("-"),$LB(%this,"acCloseExecute"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB("-"),$LB(%this,"acCloseExecute"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S"))
 	Set ..acSelect.OnExecute=$LB(%this,"acSelectExecute")
 
 	//Label header
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 	Set ..CaptionControl=..lblHeader
 
 	//Buttons
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",23,68,,11,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",23,68,,11,,,,,$$$alCenter)
 	Set ..btnClose.Action=..acClose
 
 	//Lists
-	Do ##class(%CHUI.TLijst).CreateSet(%this,"lstHistory","History",3,3,19,76)
+	Do ##class(TCHUI.TLijst).CreateSet(%this,"lstHistory","History",3,3,19,76)
 	
 	Set rdMain=..lstHistory.CreateRowDef(..#rdMain,$$$ftAddLijstRow,$LB($$$clWhite,$$$clDark))
 	Set rdMain.Height=4
@@ -146,7 +145,7 @@
 	Do ..lstHistory.AddLabelDBToRowDef(rdMain,..#colMsg,..lstHistory.Width,,,,$LB($$$clBlack,$$$clLight),,3,2,1)
 	
 	//DataSetLists
-	Set ..dslHistory=##class(%CHUI.TDataSetList).Create(..lstHistory,"dslHistory")
+	Set ..dslHistory=##class(TCHUI.TDataSetList).Create(..lstHistory,"dslHistory")
 	Set ..dslHistory.OnQueryInit=$LB(%this,"dslHistoryQueryInit")
 	Do ..dslHistory.AddColDef(..#colCreationDateAndTime,$$$rsList,1)
 	Do ..dslHistory.AddColDef(..#colCreationUser,$$$rsList,2)
@@ -193,7 +192,7 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   .
 ==========================================================================================================================</Description>
-<FormalSpec><![CDATA[Sender:%CHUI.TControlBasis,&KeyCode:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&KeyCode:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	If KeyCode=$$$kcEnter Do
 	. Do ..acSelect.SendOnExecute()
@@ -202,7 +201,7 @@
 </Method>
 
 <Method name="acSelectExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set KennisID=..lstHistory.GetSelectedData(..#colID)
 
@@ -225,7 +224,7 @@
 </Method>
 
 <Method name="dslHistoryQueryInit">
-<FormalSpec>Sender:%CHUI.TControlBasis,ResultStr:%String</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,ResultStr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Quit:(..RootKBID="")
 	
@@ -247,7 +246,7 @@
 </Method>
 
 <Method name="acCloseExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..Close()
 ]]></Implementation>
 </Method>