paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 01:01:34 +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); Desktop^.Insert(ClipboardWindow);
New(CalcWindow, Init); CalcWindow^.Hide; New(CalcWindow, Init); CalcWindow^.Hide;
Desktop^.Insert(CalcWindow); Desktop^.Insert(CalcWindow);
New(ProgramInfoWindow, Init); ProgramInfoWindow^.Hide; Desktop^.Insert(ProgramInfoWindow); New(ProgramInfoWindow, Init);
ProgramInfoWindow^.Hide;
Desktop^.Insert(ProgramInfoWindow);
Message(@Self,evBroadcast,cmUpdate,nil); Message(@Self,evBroadcast,cmUpdate,nil);
InitTemplates; InitTemplates;
CurDirChanged; CurDirChanged;
@ -396,9 +398,14 @@ begin
cmUpdate : cmUpdate :
Update; Update;
cmSourceWndClosing : cmSourceWndClosing :
with PSourceWindow(Event.InfoPtr)^ do begin
if Editor^.FileName<>'' then with PSourceWindow(Event.InfoPtr)^ do
AddRecentFile(Editor^.FileName,Editor^.CurPos.X,Editor^.CurPos.Y); 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;
end; end;
inherited HandleEvent(Event); inherited HandleEvent(Event);
@ -647,7 +654,10 @@ end;
END. END.
{ {
$Log$ $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 * RestDebugger or multiple running of debugged program now works
+ added DoContToCursor(F4) + added DoContToCursor(F4)
* Breakpoints are now inserted correctly (was mainlyy a problem * Breakpoints are now inserted correctly (was mainlyy a problem