From 709cbabbdb973e295600279fc289a240d6ee9d05 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 6 Jun 2008 01:08:49 +0000
Subject: [PATCH] debugger: delete all selected watches, not only first
 selected

git-svn-id: trunk@15324 -
---
 debugger/watchesdlg.pp         | 8 +++++++-
 lcl/include/customlistview.inc | 2 +-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/debugger/watchesdlg.pp b/debugger/watchesdlg.pp
index 377f5537b6..a118d66ece 100644
--- a/debugger/watchesdlg.pp
+++ b/debugger/watchesdlg.pp
@@ -237,8 +237,14 @@ begin
 end;
 
 procedure TWatchesDlg.popDeleteClick(Sender: TObject);
+var
+  Item: TIDEWatch;
 begin
-  GetSelected.Free;
+  repeat
+    Item := GetSelected;
+    Item.Free;
+  until Item = nil;
+  //GetSelected.Free;
 end;
 
 procedure TWatchesDlg.popDisableAllClick(Sender: TObject);
diff --git a/lcl/include/customlistview.inc b/lcl/include/customlistview.inc
index 302ee71d4f..2a2e6bee9b 100644
--- a/lcl/include/customlistview.inc
+++ b/lcl/include/customlistview.inc
@@ -691,7 +691,7 @@ begin
     for i:=0 to Items.Count-1 do begin
       if Items[i].Selected then begin
         FSelected:=Items[i];
-        DebugLn('TCustomListView.GetSelection ',dbgs(FSelected));
+        //DebugLn('TCustomListView.GetSelection ',dbgs(FSelected));
         break;
       end;
     end;