use a more accurate message name for asking to be freed.

The TfpgBaseForm needs to ask fpgApplication to free it, so we now use
a new, and more appropriately named, message constant.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas
index 308cd6b5..0361d3fc 100644
--- a/src/gui/fpg_form.pas
+++ b/src/gui/fpg_form.pas
@@ -452,7 +452,7 @@ begin
             fpgApplication.Terminate
           else
             // We can't free ourselves, somebody else needs to do it
-            fpgPostMessage(Self, fpgApplication, FPGM_CLOSE);
+            fpgPostMessage(Self, fpgApplication, FPGM_FREEME);
         end;
     end;  { case CloseAction }
   end;  { if CloseQuery }