From 988bdbe88a5fbaf3429e1bdbf290f34cc1dcd970 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 29 Apr 2011 13:12:23 +0000
Subject: [PATCH] DBG: Ensure watches are enabled, after expression added via
 menu

git-svn-id: trunk@30507 -
---
 ide/debugmanager.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 2dfca7d2d1..6469e662a8 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -657,6 +657,7 @@ procedure TDebugManager.mnuAddWatchClicked(Sender: TObject);
 var
   SE: TSourceEditor;
   WatchVar: String;
+  w: TIDEWatch;
 begin
   SE := SourceEditorManager.GetActiveSE;
 
@@ -668,8 +669,12 @@ begin
       WatchVar := SE.GetOperandAtCurrentCaret;
     if (WatchVar <> '') and SE.EditorComponent.Focused then
     begin
-      if (Watches.Find(WatchVar) <> nil) or (Watches.Add(WatchVar) <> nil)
+      w := Watches.Find(WatchVar);
+      if w = nil
+      then w := Watches.Add(WatchVar);
+      if (w <> nil)
       then begin
+        w.Enabled := True;
         ViewDebugDialog(ddtWatches, False);
         Exit;
       end;