paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 04:51:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cmSourceWindowClosing resets Debugger LastSource field to avoid problems

Browse Source
This commit is contained in:
pierre 1999-02-10 09:54:11 +00:00
parent ec63373072
commit 005b441e7d
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/text/fpide.pas
View File

@ -135,7 +135,9 @@ begin
Desktop^.Insert(ClipboardWindow);
New(CalcWindow, Init); CalcWindow^.Hide;
Desktop^.Insert(CalcWindow);
New(ProgramInfoWindow, Init); ProgramInfoWindow^.Hide; Desktop^.Insert(ProgramInfoWindow);
New(ProgramInfoWindow, Init);
ProgramInfoWindow^.Hide;
Desktop^.Insert(ProgramInfoWindow);
Message(@Self,evBroadcast,cmUpdate,nil);
InitTemplates;
CurDirChanged;
@ -396,9 +398,14 @@ begin
cmUpdate :
Update;
cmSourceWndClosing :
with PSourceWindow(Event.InfoPtr)^ do
if Editor^.FileName<>'' then
AddRecentFile(Editor^.FileName,Editor^.CurPos.X,Editor^.CurPos.Y);
begin
with PSourceWindow(Event.InfoPtr)^ do
if Editor^.FileName<>'' then
AddRecentFile(Editor^.FileName,Editor^.CurPos.X,Editor^.CurPos.Y);
if assigned(Debugger) and (PView(Event.InfoPtr)=Debugger^.LastSource) then
Debugger^.LastSource:=nil;
end;
end;
end;
inherited HandleEvent(Event);
@ -647,7 +654,10 @@ end;
END.
{
$Log$
Revision 1.12 1999-02-08 17:43:44 pierre
Revision 1.13 1999-02-10 09:54:11 pierre
* cmSourceWindowClosing resets Debugger LastSource field to avoid problems
Revision 1.12 1999/02/08 17:43:44 pierre
* RestDebugger or multiple running of debugged program now works
+ added DoContToCursor(F4)
* Breakpoints are now inserted correctly (was mainlyy a problem