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