summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/corelib/fpg_main.pas4
-rw-r--r--src/gui/fpg_form.pas2
2 files changed, 3 insertions, 3 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index cfe4fcf0..44860ea1 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -223,7 +223,7 @@ type
FHintPos: TPoint;
procedure SetHintPause(const AValue: Integer);
procedure SetupLocalizationStrings;
- procedure InternalMsgClose(var msg: TfpgMessageRec); message FPGM_CLOSE;
+ procedure InternalMsgFreeMe(var msg: TfpgMessageRec); message FPGM_FREEME;
procedure InternalMsgHintTimer(var msg: TfpgMessageRec); message FPGM_HINTTIMER;
procedure CreateHintWindow;
procedure HintTimerFired(Sender: TObject);
@@ -1144,7 +1144,7 @@ begin
FHintTimer.Interval := FHintPause;
end;
-procedure TfpgApplication.InternalMsgClose(var msg: TfpgMessageRec);
+procedure TfpgApplication.InternalMsgFreeMe(var msg: TfpgMessageRec);
begin
if Assigned(msg.Sender) then
begin
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 }