FIX: Modal Form Fails to Close with Focus on Check Box (162684)

MORE INFORMATION

Steps to Reproduce Behavior

1. Place and run the following code in a program called Boxfocus.prg

         * Begin boxfocus.prg
         PUBLIC oform1
   
         oForm1=CREATEOBJECT("Form1")
         oForm1.SHOW
         RETURN
   
         *-- ParentClass:  form
         *-- BaseClass:    form
   
         DEFINE CLASS Form1 AS form
            DoCreate = .T.
            Caption = "Form1"
            WindowType = 1
            Name = "Form1"
   
            ADD OBJECT Check1 AS checkbox WITH ;
                Top = 84, ;
                Left = 36, ;
                Caption = "Check1", ;
                TabIndex = 2, ;
                Name = "Check1"
   
            ADD OBJECT Command1 AS commandbutton WITH ;
                Top = 134, ;
                Left = 68, ;
                Caption = "Command1", ;
                Default = .T., ;
                TabIndex = 4, ;
                Name = "Command1"
   
            ADD OBJECT Text1 AS textbox WITH ;
                Left = 132, ;
                TabIndex = 3, ;
                Top = 84, ;
                Name = "Text1"
   
            ADD OBJECT Label1 AS label WITH ;
                AutoSize = .T., ;
                Caption = "Press [CTRL+ENTER] on check box and " + ;
                  "form will not close", ;
                Left = 36, ;
                Top = 12, ;
                TabIndex = 1, ;
                Name = "Label1"
   
            ADD OBJECT Label2 AS label WITH ;
                AutoSize = .T., ;
                Caption = "Press [CTRL+ENTER] on textbox and " + ;
                  "form will dismiss", ;
                Left = 36, ;
                Top = 36, ;
                TabIndex = 1, ;
                Name = "Label2"
   
            PROCEDURE Unload
                RETURN 5
            ENDPROC
   
            PROCEDURE Command1.Click
                RELEASE THISFORM
            ENDPROC
   
        ENDDEFINE
   
        * EndDefine: form1
   
        * End code for boxfocus.prg
   							

2. With the focus on the check box, execute a CTRL+ENTER key combination.
   
   NOTE: The program ends, but the form is still on the screen.
3. Run Boxfocus.prg again and execute a CTRL+ENTER key combination with the focus on the text box.
   
   NOTE: The form disappears as the program ends.

NOTE: The CTRL+ENTER key combination activates the default command button. The same behavior does not occur, however, in a form that is created visually (that is, with the Form Designer).