From fd64cb8c5a81b739a2d331235842ea431b47ad49 Mon Sep 17 00:00:00 2001
From: Margers <margers.roked@inbox.lv>
Date: Mon, 11 Nov 2024 07:31:36 +0000
Subject: [PATCH] Show proper dialog title for Add Watch and Edit Watch

---
 packages/ide/fpdebug.pas | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/packages/ide/fpdebug.pas b/packages/ide/fpdebug.pas
index f196c9d081..9d84c1180b 100644
--- a/packages/ide/fpdebug.pas
+++ b/packages/ide/fpdebug.pas
@@ -3102,13 +3102,17 @@ end;
 procedure TWatchesListBox.EditCurrent;
 var
   P: PWatch;
+  D: PWatchItemDialog;
 begin
   if Range=0 then Exit;
   if Focused<WatchesCollection^.Count then
     P:=WatchesCollection^.At(Focused)
   else
-    P:=New(PWatch,Init(''));
-  Application^.ExecuteDialog(New(PWatchItemDialog,Init(P)),nil);
+    begin EditNew; exit; end;
+  D:=New(PWatchItemDialog,Init(P));
+  Dispose(D^.Title);
+  D^.Title:=NewStr('Edit Watch');
+  Application^.ExecuteDialog(D,nil);
   WatchesCollection^.Update;
 end;
 
@@ -3410,7 +3414,7 @@ constructor TWatchItemDialog.Init(AWatch: PWatch);
 var R,R2: TRect;
 begin
   R.Assign(0,0,50,10);
-  inherited Init(R,'Edit Watch');
+  inherited Init(R,'Add Watch');
   Watch:=AWatch;
 
   GetExtent(R); R.Grow(-3,-2);