Index: CHUI/MB/Auto/CC/dlgSetAutoCCPerPos.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/MB/Auto/CC/dlgSetAutoCCPerPos.cls.xml (.../dlgSetAutoCCPerPos.cls.xml) (revision 1074) +++ CHUI/MB/Auto/CC/dlgSetAutoCCPerPos.cls.xml (.../dlgSetAutoCCPerPos.cls.xml) (revision 2578) @@ -2,8 +2,7 @@ 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -32,7 +31,7 @@ -%CHUI.TKader +TCHUI.TKader @@ -43,35 +42,35 @@ -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -82,31 +81,31 @@ -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit @@ -117,11 +116,11 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -132,7 +131,7 @@ -%CHUI.TPopup +TCHUI.TPopup @@ -143,7 +142,7 @@ -%CHUI.TLijn +TCHUI.TLijn @@ -169,59 +168,59 @@ Do ..Center() //Kaders - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) Set ..CaptionControl=..kdrMain //Lines - Set ..lnMid=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnMid",..Height-2,1,..Width,..Height-2,,,$LB($LB(1,"ML"),$LB(,"MR"))) + Set ..lnMid=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnMid",..Height-2,1,..Width,..Height-2,,,$LB($LB(1,"ML"),$LB(,"MR"))) //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acCancel","Annuleren",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acCancel","Annuleren",1,$LB("")) Set ..acCancel.OnExecute=$LB(%this,"acCancelExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acZetAutoCC","Zet auto CC",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acZetAutoCC","Zet auto CC",1,$LB("")) Set ..acZetAutoCC.OnExecute=$LB(%this,"acZetAutoCCExecute") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblMagazijn","Magazijn:",3,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGangMin","Gang min",6,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblXMin","X min",8,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblYMin","Y min",10,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPrioriteit","Prioriteit",13,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGangMax","max",6,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblXMax","max",8,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblYMax","max",10,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblMagazijn","Magazijn:",3,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGangMin","Gang min",6,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblXMin","X min",8,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblYMin","Y min",10,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPrioriteit","Prioriteit",13,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGangMax","max",6,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblXMax","max",8,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblYMax","max",10,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Edits - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtGangMin","",6,15,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtGangMin","",6,15,,5) Set ..txtGangMin.MinValue=1 Set ..txtGangMin.MaxValue=15 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtXMin","",8,15,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtXMin","",8,15,,5) Set ..txtXMin.MinValue=1 Set ..txtXMin.MaxValue=50 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtYMin","",10,15,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtYMin","",10,15,,5) Set ..txtYMin.MinValue=1 Set ..txtYMin.MaxValue=15 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtPrioriteit","",13,15,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtPrioriteit","",13,15,,5) Set ..txtPrioriteit.MinValue=1 Set ..txtPrioriteit.MaxValue=9 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtYMax","",10,26,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtYMax","",10,26,,5) Set ..txtYMax.MinValue=1 Set ..txtYMax.MaxValue=15 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtXMax","",8,26,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtXMax","",8,26,,5) Set ..txtXMax.MinValue=1 Set ..txtXMax.MaxValue=50 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtGangMax","",6,26,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtGangMax","",6,26,,5) Set ..txtGangMax.MinValue=1 Set ..txtGangMax.MaxValue=15 //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnZetAutoCC","Zet auto CC",16,5,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnZetAutoCC","Zet auto CC",16,5,,13,,,,,$$$alCenter) Set ..btnZetAutoCC.Action=..acZetAutoCC - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",16,19,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",16,19,,13,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel //Popups - Set ..pmMagazijn=##class(%CHUI.TPopup).Create(%this,"pmMagazijn","Magazijn",3,15,,16) + Set ..pmMagazijn=##class(TCHUI.TPopup).Create(%this,"pmMagazijn","Magazijn",3,15,,16) Do ..pmMagazijn.InitSpec(,,,10) Do ..pmMagazijn.AddItem(1,"Auto") Do ..pmMagazijn.DefaultFrames() @@ -246,7 +245,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis