From 1ac14d37b8da0562bf187119d88b16fec1e4554c Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 14 Jan 2020 20:37:34 +0000
Subject: [PATCH] IDE, debugger: Reduce unnecessary watches updates

git-svn-id: trunk@62556 -
---
 debugger/watchesdlg.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/debugger/watchesdlg.pp b/debugger/watchesdlg.pp
index 37d93ef442..c2fab9b941 100644
--- a/debugger/watchesdlg.pp
+++ b/debugger/watchesdlg.pp
@@ -499,7 +499,8 @@ end;
 procedure TWatchesDlg.ContextChanged(Sender: TObject);
 begin
   DebugLn(DBG_DATA_MONITORS, ['DebugDataWindow: TWatchesDlg.ContextChanged ',  DbgSName(Sender), '  Upd:', IsUpdating]);
-  UpdateAll;
+  if (DebugBoss <> nil) and (DebugBoss.State in [dsPause, dsInternalPause]) then
+    UpdateAll;
 end;
 
 procedure TWatchesDlg.actEnableSelectedExecute(Sender: TObject);