Index: CHUI/Test/Form.cls.xml =================================================================== diff -u -r2578 -r2678 --- CHUI/Test/Form.cls.xml (.../Form.cls.xml) (revision 2578) +++ CHUI/Test/Form.cls.xml (.../Form.cls.xml) (revision 2678) @@ -5,6 +5,7 @@ D ##class(CHUI.Test.Form).Run() 1 TCHUI.TForm +0 TCHUI.TFrame @@ -306,7 +307,7 @@ . Do %Screen.Clear() . Do ..Frame.Paint() Else Do - . Do ##class(TForm)%this.OnKey(%this,KeyCode) + . Do ##class(TCHUI.TForm)%this.OnKey(%this,KeyCode) ]]> @@ -358,7 +359,7 @@ ]]> - + Sender:%String,CanClose:%Boolean