Index: CHUI/BKH/Renewals.mac.rou =================================================================== diff -u -r762 -r2578 --- CHUI/BKH/Renewals.mac.rou (.../Renewals.mac.rou) (revision 762) +++ CHUI/BKH/Renewals.mac.rou (.../Renewals.mac.rou) (revision 2578) @@ -2,13 +2,13 @@ // of // do StartLev^CHUI.BKH.Renewals Start - #Include %CHUI.System + #Include TCHUI.System - 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... @@ -34,13 +34,13 @@ Quit StartLev - #Include %CHUI.System + #Include TCHUI.System - 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... @@ -51,9 +51,9 @@ ;MainForm //Set frmMain=%Application.CreateForm("CHUI.Dlg.Tools.TSelectLev","frmMain","frmMain") - //Set frmMain=%Application.CreateForm("%CHUI.Dlg.Tools.TSelectKlant","frmMain","frmMain") + //Set frmMain=%Application.CreateForm("TCHUI.Dlg.Tools.TSelectKlant","frmMain","frmMain") Set Input = "" - Set LevNr=##class(%CHUI.Dlg.TSelectLev).Select(Input) + Set LevNr=##class(TCHUI.Dlg.TSelectLev).Select(Input) $$$MB("LevNr="_LevNr) //Do %Application.Run()