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

+ generate cmDebuggerStopped broadcast

Browse Source
This commit is contained in:
pierre 2000-03-14 14:22:30 +00:00
parent 9015699063
commit f9f40a1c36
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/text/fpdebug.pas
View File

@ -882,7 +882,11 @@ begin
PopStatus; PopStatus;
end end
else else
IDEApp.ShowIDEScreen; begin
IDEApp.ShowIDEScreen;
Message(Application,evBroadcast,cmDebuggerStopped,pointer(RunCount));
PopStatus;
end;
{$ifdef win32} {$ifdef win32}
ChangeDebuggeeWindowTitleTo(Stopped_State); ChangeDebuggeeWindowTitleTo(Stopped_State);
{$endif win32} {$endif win32}
@ -897,7 +901,10 @@ begin
PushStatus('Executable running in another window..'); PushStatus('Executable running in another window..');
end end
else else
IDEApp.ShowUserScreen; begin
PushStatus('Running...');
IDEApp.ShowUserScreen;
end;
{$ifdef win32} {$ifdef win32}
ChangeDebuggeeWindowTitleTo(Running_State); ChangeDebuggeeWindowTitleTo(Running_State);
{$endif win32} {$endif win32}
@ -3324,7 +3331,10 @@ end.
{ {
$Log$ $Log$
Revision 1.56 2000-03-08 16:57:01 pierre Revision 1.57 2000-03-14 14:22:30 pierre
+ generate cmDebuggerStopped broadcast
Revision 1.56 2000/03/08 16:57:01 pierre
* Wrong highlighted line while debugging fixed * Wrong highlighted line while debugging fixed
+ Check if exe has debugging info + Check if exe has debugging info