paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Debugger: Callstack, don't trigger updates for current frame, if already selected.

Browse Source
This commit is contained in:
Martin 2025-06-18 16:35:33 +02:00
parent 949b335b2e
commit 175ac42f2b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/packages/idedebugger/callstackdlg.pp
View File

@ -714,13 +714,17 @@ end;
procedure TCallStackDlg.actSetAsCurrentClick(Sender : TObject);
var
Entry: TIdeCallStackEntry;
cs: TIdeCallStack;
begin
try
DisableAllActions;
Entry := GetCurrentEntry;
if Entry = nil then Exit;
GetSelectedCallstack.ChangeCurrentIndex(Entry.Index);
cs := GetSelectedCallstack;
if Entry.Index = cs.NewCurrentIndex then Exit;
cs.ChangeCurrentIndex(Entry.Index);
if GetSelectedSnapshot <> nil
then CallStackMonitor.NotifyCurrent; // TODO: move to snapshot callstack object
finally