FIX: WAIT WINDOW NOWAIT Problem with Top-Level Forms

MORE INFORMATION

Steps to Reproduce Behavior

1. Place the following code in a new program file, save the code and run The program. The code below is from a form created in the Form Designer that was opened in the Class Browser. Note the PROCEDURE Activate.

         ***Start of program code
         PUBLIC oform1
   
         oform1=CREATEOBJECT("form1")
         oform1.Show
         RETURN
   
   
         **************************************************
         *-- Form:         form1 (d:\dchou\test\test.scx)
         *-- ParentClass:  form
         *-- BaseClass:    form
         *
         DEFINE CLASS form1 AS form
   
            ShowWindow = 2
            DoCreate = .T.
            AutoCenter = .T.
            Caption = "Form1"
            Name = "Form1"
   
            PROCEDURE Activate
               WAIT WINDOW "Some Message" NOWAIT
               Thisform.Release
            ENDPROC
   
         ENDDEFINE
         *
         *-- EndDefine: form1
         **************************************************
   						

2. Click the form or WAIT WINDOW. There should be no response.
3. Click the Windows Taskbar button for Visual FoxPro. The Top-Level form should disappear behind Visual FoxPro. Click the Windows Taskbar button for the Top-Level form; it should be labeled Form1. The border and title bar of the form may sometimes reappear. If the form appears, it will look transparent.