paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 09:53:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed crash on quit, bug #11536

Browse Source 
git-svn-id: trunk@15536 -
This commit is contained in:
mattias 2008-06-23 12:27:51 +00:00
parent 7172b748f4
commit 8be0e41f40
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/debugmanager.pas
View File

@ -1539,6 +1539,9 @@ procedure TDebugManager.UpdateButtonsAndMenuItems;
var
DebuggerInvalid: boolean;
begin
if (MainIDE=nil) or (MainIDE.ToolStatus = itExiting)
then exit;
DebuggerInvalid:=(FDebugger=nil) or (MainIDE.ToolStatus<>itDebugger);
with MainIDEBar do begin
// For 'run' and 'step' bypass 'idle', so we can set the filename later