Index: CHUI/Projects.mac.rou
===================================================================
diff -u -r762 -r2578
--- CHUI/Projects.mac.rou	(.../Projects.mac.rou)	(revision 762)
+++ CHUI/Projects.mac.rou	(.../Projects.mac.rou)	(revision 2578)
@@ -1,4 +1,4 @@
-	#Include %CHUI.System
+	#Include TCHUI.System
  
 	Write *27,"[",$A(" "),";",1,";",1,";",24,";",80,";$x"
 	
@@ -31,97 +31,97 @@
  
 RO(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Flow.Uitlevering.RemboursOnbetaald.MainForm","frmRemboursOnbetaald","RemboursOnbetaald",ADE)
+	d BootApp^TCHUI.System("CHUI.Flow.Uitlevering.RemboursOnbetaald.MainForm","frmRemboursOnbetaald","RemboursOnbetaald",ADE)
 	Quit
 	
 Agenda(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Derde.Agenda.MainForm","frmAgenda","Agenda",ADE)
+	d BootApp^TCHUI.System("CHUI.Derde.Agenda.MainForm","frmAgenda","Agenda",ADE)
 	Quit
 	
 LogSteuer(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Blum.LogSteuer.MainForm","frmLogSteuer","LogSteuer",ADE)
+	d BootApp^TCHUI.System("CHUI.Blum.LogSteuer.MainForm","frmLogSteuer","LogSteuer",ADE)
 	Quit
 	
 StockOverwrite(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.MB.StockOverwrite.MainForm","frmStockOverwrite","Stock overschrijven",ADE)
+	d BootApp^TCHUI.System("CHUI.MB.StockOverwrite.MainForm","frmStockOverwrite","Stock overschrijven",ADE)
 	Quit
  
 KB(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Derde.KB.dlgModify","frmSearch","Knowledge Base - Search",ADE)
+	d BootApp^TCHUI.System("CHUI.Derde.KB.dlgModify","frmSearch","Knowledge Base - Search",ADE)
 	Quit
  
 RplLevWk(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Flow.Order.LeverwekenMain","frmLeverWeken","Raadplegen leverweken orders",ADE)
+	d BootApp^TCHUI.System("CHUI.Flow.Order.LeverwekenMain","frmLeverWeken","Raadplegen leverweken orders",ADE)
 	Quit
 	
 DBTest(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Derde.KB.DBTest","frmDBTest","Test DB components",ADE)
+	d BootApp^TCHUI.System("CHUI.Derde.KB.DBTest","frmDBTest","Test DB components",ADE)
 	Quit
  
 TreeListTest(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Test.TreeList","frmTreeListTest","Test TreeList",ADE)
+	d BootApp^TCHUI.System("CHUI.Test.TreeList","frmTreeListTest","Test TreeList",ADE)
 	Quit
  
 SelectKlant(ADE)
 	s ADE=$G(ADE,1)
-	Set %Application=##class(%CHUI.TApplication).Create()
+	Set %Application=##class(TCHUI.TApplication).Create()
 	Set AttachDebugEvents=$G(AttachDebugEvents,1)
 	Do:(AttachDebugEvents) %Application.AttachDebugEvents()
-	Set %Screen=##class(%CHUI.TScreen).Create()
-	Set %Input=##class(%CHUI.TInput).Create()
+	Set %Screen=##class(TCHUI.TScreen).Create()
+	Set %Input=##class(TCHUI.TInput).Create()
 	Do %Screen.Clear()
 	//Set Name=$G(Name,$P(FormClass,".",$L(FormClass,".")))
  
-	w ##class(%CHUI.Dlg.TSelectKlant).Select("")
+	w ##class(TCHUI.Dlg.TSelectKlant).Select("")
  
 	Do %Screen.Canvas.ChangeFont(%Screen.Font)
 	k %Control,%Application,%Screen,%Input
  
 	Quit
 SelectProduct(ADE)
 	s ADE=$G(ADE,1)
-	Set %Application=##class(%CHUI.TApplication).Create()
+	Set %Application=##class(TCHUI.TApplication).Create()
 	Set AttachDebugEvents=$G(AttachDebugEvents,1)
 	Do:(AttachDebugEvents) %Application.AttachDebugEvents()
-	Set %Screen=##class(%CHUI.TScreen).Create()
-	Set %Input=##class(%CHUI.TInput).Create()
+	Set %Screen=##class(TCHUI.TScreen).Create()
+	Set %Input=##class(TCHUI.TInput).Create()
 	Do %Screen.Clear()
 	//Set Name=$G(Name,$P(FormClass,".",$L(FormClass,".")))
  
-	w ##class(%CHUI.Dlg.TSelectProduct).Select("")
+	w ##class(TCHUI.Dlg.TSelectProduct).Select("")
  
 	Do %Screen.Canvas.ChangeFont(%Screen.Font)
 	k %Control,%Application,%Screen,%Input
  
 	Quit
 OrgaluxPrintSelect(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Orgalux.PrintSelect","frmOrgPrintSelect","Orgalux PrintSelect",ADE)
+	d BootApp^TCHUI.System("CHUI.Orgalux.PrintSelect","frmOrgPrintSelect","Orgalux PrintSelect",ADE)
 	Quit
 	
 SortDialog(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("%CHUI.Dlg.TSort","dlgSort","Sortering",ADE)
+	d BootApp^TCHUI.System("TCHUI.Dlg.TSort","dlgSort","Sortering",ADE)
 	Quit
  
 SelectDatum(ADE)
 	s ADE=$G(ADE,1)
-	Set %Application=##class(%CHUI.TApplication).Create()
+	Set %Application=##class(TCHUI.TApplication).Create()
 	Set AttachDebugEvents=$G(AttachDebugEvents,1)
 	Do:(AttachDebugEvents) %Application.AttachDebugEvents()
-	Set %Screen=##class(%CHUI.TScreen).Create()
-	Set %Input=##class(%CHUI.TInput).Create()
+	Set %Screen=##class(TCHUI.TScreen).Create()
+	Set %Input=##class(TCHUI.TInput).Create()
 	Do %Screen.Clear()
 	//Set Name=$G(Name,$P(FormClass,".",$L(FormClass,".")))
  
-	w ##class(%CHUI.Dlg.TSelectDate).Select("Select date",$H)
+	w ##class(TCHUI.Dlg.TSelectDate).Select("Select date",$H)
  
 	Do %Screen.Canvas.ChangeFont(%Screen.Font)
 	k %Control,%Application,%Screen,%Input
@@ -130,16 +130,16 @@
  
 TListFiller(ADE,Type)
 	s ADE=$G(ADE,1)
-	Set %Application=##class(%CHUI.TApplication).Create()
+	Set %Application=##class(TCHUI.TApplication).Create()
 	Set AttachDebugEvents=$G(AttachDebugEvents,1)
 	Do:(AttachDebugEvents) %Application.AttachDebugEvents()
-	Set %Screen=##class(%CHUI.TScreen).Create()
-	Set %Input=##class(%CHUI.TInput).Create()
+	Set %Screen=##class(TCHUI.TScreen).Create()
+	Set %Input=##class(TCHUI.TInput).Create()
 	Do %Screen.Clear()
 	//Set Name=$G(Name,$P(FormClass,".",$L(FormClass,".")))
  
   Set Type=$G(Type,2)
-	w ##class(%CHUI.Dlg.TListFiller).Select(.lst,Type)
+	w ##class(TCHUI.Dlg.TListFiller).Select(.lst,Type)
  
 	Do %Screen.Canvas.ChangeFont(%Screen.Font)
 	k %Control,%Application,%Screen,%Input
@@ -148,42 +148,42 @@
 	
 TListDataPump(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("%CHUI.Dlg.TListDataPump","frmListDataPump","",ADE)
+	d BootApp^TCHUI.System("TCHUI.Dlg.TListDataPump","frmListDataPump","",ADE)
 	Quit
 	
 AppBlocker(ADE)
-	d ##class(%CHUI.Utils.AppBlocker.MainForm).Run()
+	d ##class(TCHUI.Utils.AppBlocker.MainForm).Run()
 	Quit
 	
 EditCtrlHelp(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("%CHUI.Dlg.Tools.dlgEditCtrlHelp","dlgEditCtrlHelp","",ADE)
+	d BootApp^TCHUI.System("TCHUI.Dlg.Tools.dlgEditCtrlHelp","dlgEditCtrlHelp","",ADE)
 	Quit
 	
 AutoCC(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.MB.Auto.CC.MainForm","frmAutoCC","AutoCC",ADE)
+	d BootApp^TCHUI.System("CHUI.MB.Auto.CC.MainForm","frmAutoCC","AutoCC",ADE)
 	Quit
  
 FOPPrint(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.FOP.Print.MainForm","frmFOPPrint","FOPPrint",ADE)
+	d BootApp^TCHUI.System("CHUI.FOP.Print.MainForm","frmFOPPrint","FOPPrint",ADE)
 	Quit
  
 SysToegang(ADE)
 	s ADE=$G(ADE,1)
-	d BootApp^%CHUI.System("CHUI.Sys.Toegang.MainForm","frmSysToegang","SysToegang",ADE)
+	d BootApp^TCHUI.System("CHUI.Sys.Toegang.MainForm","frmSysToegang","SysToegang",ADE)
 	Quit
  
 TList(ADE)
 	s ADE=$G(ADE,0)
-	Set %Application=##class(%CHUI.TApplication).Create()
+	Set %Application=##class(TCHUI.TApplication).Create()
 	Do:(ADE) %Application.AttachDebugEvents()
-	Set %Screen=##class(%CHUI.TScreen).Create()
-	Set %Input=##class(%CHUI.TInput).Create()
+	Set %Screen=##class(TCHUI.TScreen).Create()
+	Set %Input=##class(TCHUI.TInput).Create()
 	Do %Screen.Clear()
  
-	Set frmList=##class(%CHUI.Dlg.TList).CreateAndPrepare("Caption","Dit is een msg met meerdere lijnen en wij vragen ons af wat er gebeurt bij het overschrijden van deze toch wel te lange message header list lijn","Header",60,20,"TestBtn",1)
+	Set frmList=##class(TCHUI.Dlg.TList).CreateAndPrepare("Caption","Dit is een msg met meerdere lijnen en wij vragen ons af wat er gebeurt bij het overschrijden van deze toch wel te lange message header list lijn","Header",60,20,"TestBtn",1)
 	Do frmList.AddItem("Item1")
 	Do frmList.AddItem("Item2")
 	Do frmList.AddItem("Item3")