Index: CHUI/Test/MainForm.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Test/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1074)
+++ CHUI/Test/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 2578)
@@ -2,59 +2,58 @@
 <Export generator="Cache" version="9">
 <Class name="CHUI.Test.MainForm">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <Property name="Kader">
-<Type>%CHUI.TKader</Type>
+<Type>TCHUI.TKader</Type>
 </Property>
 
 <Property name="HLijnT">
-<Type>%CHUI.TLijn</Type>
+<Type>TCHUI.TLijn</Type>
 </Property>
 
 <Property name="HLijnB">
-<Type>%CHUI.TLijn</Type>
+<Type>TCHUI.TLijn</Type>
 </Property>
 
 <Property name="VLijnL">
-<Type>%CHUI.TLijn</Type>
+<Type>TCHUI.TLijn</Type>
 </Property>
 
 <Property name="VLijnM">
-<Type>%CHUI.TLijn</Type>
+<Type>TCHUI.TLijn</Type>
 </Property>
 
 <Property name="VLijnR">
-<Type>%CHUI.TLijn</Type>
+<Type>TCHUI.TLijn</Type>
 </Property>
 
 <Property name="PolyKader">
-<Type>%CHUI.TPolyKader</Type>
+<Type>TCHUI.TPolyKader</Type>
 </Property>
 
 <Property name="ScrollBar">
-<Type>%CHUI.TScrollBar</Type>
+<Type>TCHUI.TScrollBar</Type>
 </Property>
 
 <Property name="CheckBox">
-<Type>%CHUI.TCheckBox</Type>
+<Type>TCHUI.TCheckBox</Type>
 </Property>
 
 <Property name="CheckBox2">
-<Type>%CHUI.TCheckBox</Type>
+<Type>TCHUI.TCheckBox</Type>
 </Property>
 
 <Property name="CheckBox3">
-<Type>%CHUI.TCheckBox</Type>
+<Type>TCHUI.TCheckBox</Type>
 </Property>
 
 <Property name="CheckBox4">
-<Type>%CHUI.TCheckBox</Type>
+<Type>TCHUI.TCheckBox</Type>
 </Property>
 
 <Property name="Label">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Method name="CreateControls">
@@ -68,35 +67,35 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	//Parent, Name, Caption, Top, Left, Height, Width, PaintVolgNr, TabVolgNr, Visible, Font
-	//Set ..Kader=##class(%CHUI.TKader).Create(%this,"Kader","Toffe kader",4,3,..Height-7,..Width-5,1,1,,$LB("YELLOW","LBLUE"))
+	//Set ..Kader=##class(TCHUI.TKader).Create(%this,"Kader","Toffe kader",4,3,..Height-7,..Width-5,1,1,,$LB("YELLOW","LBLUE"))
 
-	;Set ..HLijnT=##class(%CHUI.TLijn).CreateLijn("H",%this,"HLijnT",6,6,60,2,,$LB("R"),$LB($LB(20,"TM")))
-	;Set ..VLijnL=##class(%CHUI.TLijn).CreateLijn("V",%this,"VLijnL",6,5,10,3,,$LB("R"),$LB($LB(1,"TL"),$LB(,"BL")))
-	;Set ..VLijnM=##class(%CHUI.TLijn).CreateLijn("V",%this,"VLijnM",7,25,8,5,,$LB("R"))
-	;Set ..VLijnR=##class(%CHUI.TLijn).CreateLijn("V",%this,"VLijnR",6,66,10,6,,$LB("R"),$LB($LB(1,"TR"),$LB(,"BR")))
-	;Set ..HLijnB=##class(%CHUI.TLijn).CreateLijn("H",%this,"HLijnB",15,6,60,2,,$LB("R"),$LB($LB(20,"BM")))
-	Set ..ScrollBar=##class(%CHUI.TScrollBar).Create(%this,"ScrollBar","SB",2,70,20,10,2,,,$LB(,,"U"),"R")
+	;Set ..HLijnT=##class(TCHUI.TLijn).CreateLijn("H",%this,"HLijnT",6,6,60,2,,$LB("R"),$LB($LB(20,"TM")))
+	;Set ..VLijnL=##class(TCHUI.TLijn).CreateLijn("V",%this,"VLijnL",6,5,10,3,,$LB("R"),$LB($LB(1,"TL"),$LB(,"BL")))
+	;Set ..VLijnM=##class(TCHUI.TLijn).CreateLijn("V",%this,"VLijnM",7,25,8,5,,$LB("R"))
+	;Set ..VLijnR=##class(TCHUI.TLijn).CreateLijn("V",%this,"VLijnR",6,66,10,6,,$LB("R"),$LB($LB(1,"TR"),$LB(,"BR")))
+	;Set ..HLijnB=##class(TCHUI.TLijn).CreateLijn("H",%this,"HLijnB",15,6,60,2,,$LB("R"),$LB($LB(20,"BM")))
+	Set ..ScrollBar=##class(TCHUI.TScrollBar).Create(%this,"ScrollBar","SB",2,70,20,10,2,,,$LB(,,"U"),"R")
 	Set ..ScrollBar.Length=10
 	Set ..ScrollBar.Max=100
 	Set ..ScrollBar.Current=10
 
-	Set ..PolyKader=##class(%CHUI.TPolyKader).Create(%this,"PolyKader")
+	Set ..PolyKader=##class(TCHUI.TPolyKader).Create(%this,"PolyKader")
 	
 	;Do ..PolyKader.AddKader(5,1,5,60)
 	;Do ..PolyKader.AddVLijn(5,20,5)
 	Do ..PolyKader.AddGrid(2,2,,,$LB(1,5),$LB(1,1,5,10,15))
 	//Set ..PolyKader.Visible=0
 	
-	Set ..CheckBox=##class(%CHUI.TCheckBox).Create(%this,"CheckBox","Show PolyKader",20,1,,,1,1,,$LB($$$clBlack))
+	Set ..CheckBox=##class(TCHUI.TCheckBox).Create(%this,"CheckBox","Show PolyKader",20,1,,,1,1,,$LB($$$clBlack))
 	Set ..CheckBox.GroupIndex="Test"
-	Set ..CheckBox2=##class(%CHUI.TCheckBox).Create(%this,"CheckBox2","Long caption label",21,1,,,2,2,,$LB($$$clBlack))
+	Set ..CheckBox2=##class(TCHUI.TCheckBox).Create(%this,"CheckBox2","Long caption label",21,1,,,2,2,,$LB($$$clBlack))
 	Set ..CheckBox2.GroupIndex="Test"
-	Set ..CheckBox3=##class(%CHUI.TCheckBox).Create(%this,"CheckBox3","Label ellipsis",22,1,,,3,3,,$LB($$$clBlack))
+	Set ..CheckBox3=##class(TCHUI.TCheckBox).Create(%this,"CheckBox3","Label ellipsis",22,1,,,3,3,,$LB($$$clBlack))
 	Set ..CheckBox3.GroupIndex="Test"
 	Set ..CheckBox3.Checked=1
-	Set ..CheckBox4=##class(%CHUI.TCheckBox).Create(%this,"CheckBox4","Label autosize",23,1,,,4,4,,$LB($$$clBlack))
+	Set ..CheckBox4=##class(TCHUI.TCheckBox).Create(%this,"CheckBox4","Label autosize",23,1,,,4,4,,$LB($$$clBlack))
 	Set ..CheckBox4.Checked=1
-	Set ..Label=##class(%CHUI.TLabel).Create(%this,"Label","Label subject to change",18,1,,15,5,,,$LB($$$clBlack))
+	Set ..Label=##class(TCHUI.TLabel).Create(%this,"Label","Label subject to change",18,1,,15,5,,,$LB($$$clBlack))
 	Set ..Label.Ellipsis=1
 ]]></Implementation>
 </Method>
@@ -109,9 +108,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	;Set %Debug=1
-	Set %Application=##class(%CHUI.TApplication).Create("192.168.1.96")
-	Set %Screen=##class(%CHUI.TScreen).Create(.Type)
-	Set %Input=##class(%CHUI.TInput).Create()
+	Set %Application=##class(TCHUI.TApplication).Create("192.168.1.96")
+	Set %Screen=##class(TCHUI.TScreen).Create(.Type)
+	Set %Input=##class(TCHUI.TInput).Create()
 	Do %Screen.Clear()
 	Set Form=%Application.CreateForm("CHUI.Test.MainForm","Test","Titeltje",1,1,24,80,$LB($$$clBlack,$$$clDark),$$$ftMain)
 	Do Form.Show()