FIX: Top-Level Form Releases Undocked Toolbars in VFP 5.0

MORE INFORMATION

Steps to Reproduce Behavior

1. Place the following code in a .prg file and run it. A Top-Level form, Myform1, with a docked toolbar appears.

         **** Program Example****
   
          PUBLIC goForm
          goForm = CREATEOBJECT("myform")
          goForm.Show()
   
          DEFINE CLASS myform AS form
            BackColor = RGB(255,255,255)
            ShowWindow = 2
            oToolbar = .NULL.
   
            PROCEDURE Activate()
              IF ISNULL(THIS.oToolbar)
                THIS.oToolbar = CREATEOBJECT("mytoolbar")
                THIS.oToolbar.Show()
              ENDIF
            ENDPROC
   
            PROCEDURE QueryUnload()
              NODEFAULT
            ENDPROC
          ENDDEFINE
   
          DEFINE CLASS mytoolbar AS toolbar
            ShowWindow = 1
            ADD OBJECT mybutton AS commandbutton WITH ;
             Top = 5, ;
             Left = 5, ;
             Height = 22, ;
             Width = 24, ;
             Caption = ""
   
            PROCEDURE Init()
              THIS.Dock(0)
            ENDPROC
          ENDDEFINE
   
          ****End of Code Example****

2. While the toolbar is docked, attempt to close Myform1 by clicking the close button of the form. Since the QueryUnload contains the NODEFAULT command, the form does not close.
3. Now, undock the toolbar and attempt to close Myform1 again by clicking the close button of the form. The undocked toolbar disappears.