PRB: Closing Top-Level Form with Docked Toolbar Leaves Image

MORE INFORMATION

Steps to Reproduce Behavior

1. Copy the following code into a new program file and save it:

         PUBLIC oform1
         oform1=CREATEOBJECT("form1")
         oform1.Show
         RETURN
   
   
         **************************************************
         *-- Form:         form1
         *-- ParentClass:  form
         *-- BaseClass:    form
         *
         DEFINE CLASS form1 AS form
   
            ShowWindow = 2
            DoCreate = .T.
            AutoCenter = .T.
            Caption = "SDI Form With Toolbar"
            Name = "Form1"
            tool = .F.
   
            PROCEDURE Activate
               WITH THIS
                  IF TYPE(".tool")!='O' AND !ISNULL(.TOOL)
                     .TOOL = CREATE("MTOOL")
                     .TOOL.SHOW()
                  ENDIF
               ENDWITH
            ENDPROC
   
   
            PROCEDURE QueryUnload
               THIS.TOOL.cmdEXIT.CLICK()
            ENDPROC
   
         ENDDEFINE
         *-- EndDefine: form1
         **************************************************
   
         **************************************************
         *-- Class:        mtool
         *-- ParentClass:  toolbar
         *-- BaseClass:    toolbar
         *
         DEFINE CLASS mtool AS toolbar
   
            Caption = "Toolbar1"
            Height = 36
            Left = 104
            Top = 22
            Width = 47
            ControlBox = .F.
            ShowWindow = 1
            Name = "mtool"
   
               ADD OBJECT cmdexit AS commandbutton WITH ;
                 AutoSize = .T., ;
                 Top = 5, ;
                 Left = 5, ;
                 Height = 27, ;
                 Width = 37, ;
                 Caption = "Exit", ;
                 Name = "cmdEXIT"
   
   
               PROCEDURE cmdexit.Click
                  *!*IF THIS.PARENT.DOCKED
                  *!*   THIS.PARENT.DOCK(-1)
                  *!*ENDIF
                  oform1.RELEASE
               ENDPROC
         ENDDEFINE
         *
         *-- EndDefine: mtool
         **************************************************
   							

2. Run the program. The toolbar with the Exit button should appear on top of the form. Note that the ShowWindow property of the form in the code above is 2, which means it is a top-level form. Click Exit to close the form and toolbar.
3. Run the program again. This time drag the toolbar to one of the sides of the form and dock it. Click Exit. The toolbar closes, but the form does not close. Try closing the form or moving it. Neither method works. Close Visual FoxPro to clear out the form.
4. To see the resolution to this problem, uncomment the following lines from the cmdexit.Click Procedure in the program code:

         IF THIS.PARENT.DOCKED
            THIS.PARENT.DOC(-1)
         ENDIF
   							

5. Run the program, dock the toolbar, and click Exit. You might be able to see the toolbar undock before the form closes.