Browse Source

* fix one of two issues in mantis 6326, double click on watch entry invokes edit watch

git-svn-id: trunk@16604 -
marco 14 years ago
parent
commit
de5ca33983
1 changed files with 7 additions and 1 deletions
  1. 7 1
      ide/fpdebug.pas

+ 7 - 1
ide/fpdebug.pas

@@ -684,7 +684,7 @@ begin
     end;
 end;
 
-    
+
 procedure TDebugController.SetTBreak(tbreakstring : string);
 begin
   Command('tbreak '+tbreakstring);
@@ -3201,6 +3201,12 @@ procedure   TWatchesListBox.HandleEvent(var Event: TEvent);
 var DontClear: boolean;
 begin
   case Event.What of
+    evMouseDown : begin
+                   if Event.Double then
+                      Message(@Self,evCommand,cmEdit,nil)
+                   else
+                     ClearEvent(Event);
+                  end;
     evKeyDown :
       begin
         DontClear:=false;