PRB: Lockscreen with Assert Dialog Causes Problems with Controls

MORE INFORMATION

   SET ASSERTS ON
   ASSERT 1=2       && will cause a message box.
				

Steps to Reproduce Behavior

1. Place the following code in a program file and run the program:

         SET ASSERTS ON
         oForm1 = CREATEOBJECT("test")
         oForm1.Visible = .t.
         READ EVENTS
   
         DEFINE CLASS test AS form
         ADD OBJECT cmdNewForm AS ccmdNewForm
         ADD OBJECT chkBox AS CheckBox WITH ;
                left = 10, ;
                top = 30
         ADD OBJECT opgBox AS OptionGroup WITH ;
                Width = 80, ;
                Height = 50, ;
                ButtonCount = 2, ;
                option1.Caption = "Option1", ;
                option1.Autosize = .T., ;
                option2.Caption = "Option2", ;
                option2.Autosize = .T., ;
                left = 10, ;
                top = 50
   
            FUNCTION Destroy
                CLEAR EVENTS
            ENDFUNC
         ENDDEFINE
   
         DEFINE CLASS ccmdNewForm AS CommandButton
            Caption = "Dialog"
   
            FUNCTION Click
                 Thisform.LockScreen = .T.
                 ASSERT 1=2
                 Thisform.LockScreen = .F.
                 ?Thisform.LockScreen
                 CLEAR
            ENDFUNC
         ENDDEFINE
   							

2. When the program is run, a form with a command button, a checkbox and an option group is displayed. Click on the checkbox and option buttons to verify that they work normally.
3. Now click on the command button. This should bring up the message box from the ASSERT command. It should have the message:
   "Assertion failed on line 2 of procedure test1.cmdnewform.click"
   Choose the Ignore button.
4. Back on the form, click on the Chkbox and note that it does not become checked. Then click on Option2 and note that Chkbox checks. Then click on the Chkbox and note that both option buttons are selected.