paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 15:09:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix a bug in cmQuitApp handling

Browse Source
This commit is contained in:
pierre 2003-01-31 11:01:00 +00:00
parent 5c302e181f
commit 0ae5ded638
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpide.pas
View File

@ -759,7 +759,7 @@ begin
cmShowReadme : ShowReadme; cmShowReadme : ShowReadme;
{$ifdef FVISION} {$ifdef FVISION}
cmResizeApp : ResizeApplication(Event.Id, Event.InfoWord); cmResizeApp : ResizeApplication(Event.Id, Event.InfoWord);
cmQuitApp : Message(@Self, evCommand, cmQuitApp, nil); cmQuitApp : Message(@Self, evCommand, cmQuit, nil);
{$endif FVISION} {$endif FVISION}
else DontClear:=true; else DontClear:=true;
end; end;
@ -1254,7 +1254,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.24 2002-12-12 00:06:41 pierre Revision 1.25 2003-01-31 11:01:00 pierre
* fix a bug in cmQuitApp handling
Revision 1.24 2002/12/12 00:06:41 pierre
Use fpregs unit Use fpregs unit
Revision 1.23 2002/11/28 12:58:15 pierre Revision 1.23 2002/11/28 12:58:15 pierre