Destroy Method
Object: frmbehindsc
Expand/Collapse source code of procedure Destroy Source Code
LOCAL i

tsBaseForm::Destroy()
thisform.RemoveFromMenu()

IF WEXIST("SNIPPETS.TXT")
  RELEASE WINDOW "SNIPPETS.TXT"
ENDIF  
IF FILE("SNIPPETS.TXT")
  DELETE FILE "SNIPPETS.TXT"
ENDIF

IF TYPE("oApp.oToolbar") == "O"
  IF !ISNULL(oApp.oToolBar)
    oApp.oToolbar.cmdBehindSC.Enabled = .T.
  ENDIF
ENDIF

*-- Ensure all references are released, or we'll
*-- have objects hanging around that we no longer
*-- need
FOR i = 1 TO ALEN(thisform.aObjSplitMove)
  thisform.aObjSplitMove[i] = .NULL.
ENDFOR