From 1d2762eec2177385f4d83fc69cedae47a78ce2a0 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 14 Jan 2012 14:59:18 +0000
Subject: [PATCH] Debugger, ignore exceptions - Don't modify session, unless
 changed

git-svn-id: trunk@34733 -
---
 ide/debugmanager.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index ebc064be47..c9b2d4e4a1 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -294,8 +294,10 @@ type
 
 procedure TProjectExceptions.SetIgnoreAll(const AValue: Boolean);
 begin
+  // Todo: move to Chamged or Update, but they are called to often...
+  if (IgnoreAll <> AValue) and (Project1 <> nil) then
+    Project1.Modified := True;
   inherited SetIgnoreAll(AValue);
-  Project1.Modified := True;
 end;
 
 procedure TProjectExceptions.Notify(Item: TCollectionItem; Action: TCollectionNotification);