paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 00:47:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

* GDBWindow does not popup on F7 or F8 anymore

Browse Source
This commit is contained in:
pierre 1999-02-16 12:47:36 +00:00
parent 216d00e8bc
commit 87b375abbb
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/text/fpdebug.pas
View File

@ -246,7 +246,7 @@ begin
W^.Editor^.SetCurPtr(0,Line);
W^.Editor^.TrackCursor(true);
W^.Editor^.SetHighlightRow(Line);
if Not assigned(GDBWindow) or not GDBWindow^.Focus then
if Not assigned(GDBWindow) or not GDBWindow^.GetState(sfActive) then
W^.Select;
InvalidSourceLine:=false;
end
@ -260,7 +260,7 @@ begin
begin
W^.Editor^.SetHighlightRow(Line);
W^.Editor^.TrackCursor(true);
if Not assigned(GDBWindow) or not GDBWindow^.Focus then
if Not assigned(GDBWindow) or not GDBWindow^.GetState(sfActive) then
W^.Select;
LastSource:=W;
InvalidSourceLine:=false;
@ -282,7 +282,7 @@ begin
W:=TryToOpenFile(nil,fn,0,Line);
W^.Editor^.SetHighlightRow(Line);
W^.Editor^.TrackCursor(true);
if Not assigned(GDBWindow) or not GDBWindow^.Focus then
if Not assigned(GDBWindow) or not GDBWindow^.GetState(sfActive) then
W^.Select;
LastSource:=W;
InvalidSourceLine:=false;
@ -295,7 +295,7 @@ begin
begin
PB:=BreakpointCollection^.GetGDB(stop_breakpoint_number);
{ For watch we should get old and new value !! }
if (Not assigned(GDBWindow) or not GDBWindow^.Focus) and
if (Not assigned(GDBWindow) or not GDBWindow^.GetState(sfActive)) and
(PB^.typ<>bt_file_line) then
begin
Command('p '+GetStr(PB^.Name));
@ -676,7 +676,10 @@ end.
{
$Log$
Revision 1.13 1999-02-16 10:43:54 peter
Revision 1.14 1999-02-16 12:47:36 pierre
* GDBWindow does not popup on F7 or F8 anymore
Revision 1.13 1999/02/16 10:43:54 peter
* use -dGDB for the compiler
* only use gdb_file when -dDEBUG is used
* profiler switch is now a toggle instead of radiobutton