PRB: RELEASE Command Does Not Release a Form

MORE INFORMATION

Steps to Reproduce Behavior

Example One

1. Create a form, and save it as TEST.
2. From the Command window, type:

       DO FORM TEST NAME ofrmTest1 LINKED &&Displays a form
      ofrmTest2=ofrmTest1       &&Creates a reference to ofrmTest1
      * The following command releases the variable ofrmTest1. However, the
      * form is not released because a reference exists.
      RELEASE ofrmtest1
      RELEASE ofrmtest2  && Releases the Form
   							

Example Two

1. Copy and paste the following sample code into a PRG

      OFORM1=CREATE('testclass')
      OFORM2=OFORM1   &&Creates a reference to OFORM1
      OFORM2.SHOW     && Displays the Form
   
      nobject= AINSTANCE(atest1,'testclass')
      DISPLAY MEMORY LIKE atest1 && Two references to the object exist
   
      RELEASE OFORM2          && Form not released
      WAIT WINDOW "After OFORM2 has been released"
   
      RELEASE oForm1          && Form is released.
      WAIT WINDOW "After OFORM1 has been released"
   
      DEFINE CLASS TESTCLASS AS FORM
         Caption="Hello"
      ENDDEFINE
   							

2. Execute the PRG.