Skip to content
This repository was archived by the owner on Aug 31, 2021. It is now read-only.

Commit 6c0b6ab

Browse files
Merge pull request #2120 from BerndN/patch-12
[Bug 22627] Fix moving breakpoints w/ deleting
2 parents 1ce970a + 089a8f2 commit 6c0b6ab

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

Toolset/palettes/script editor/behaviors/revsegutterbehavior.livecodescript

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -442,9 +442,9 @@ private command updateBreakpointPositions pObject, pOffset, pOldNumber, pNewNumb
442442
local tScript
443443
put textGetScript() into tScript
444444
repeat for each line tBreakpoint in tBreakpoints
445-
if (item -1 of tBreakpoint >= tLineIndex and item -1 of tBreakpoint < (tLineIndex - (pNewNumber - pOldNumber))) and revDebuggerNextAvailableBreakpoint(tScript, item -1 of tBreakpoint - 1 + (pNewNumber - pOldNumber)) <> item -1 of tBreakpoint + (pNewNumber - pOldNumber) then
445+
if (item -1 of tBreakpoint > tLineIndex and item -1 of tBreakpoint <= (tLineIndex - (pNewNumber - pOldNumber))) and revDebuggerNextAvailableBreakpoint(tScript, item -1 of tBreakpoint - 1 + (pNewNumber - pOldNumber)) <> item -1 of tBreakpoint + (pNewNumber - pOldNumber) then
446446
revDebuggerRemoveBreakpoint item 1 to -2 of tBreakpoint, item -1 of tBreakpoint
447-
else if item -1 of tBreakpoint > (tLineIndex + pNewNumber - pOldNumber) then
447+
else if item -1 of tBreakpoint >= (tLineIndex - (pNewNumber - pOldNumber)) then
448448
# If the breakpoint was below the removed lines, move it up
449449
revDebuggerMoveBreakpoint item 1 to -2 of tBreakpoint, item -1 of tBreakpoint, item 1 to -2 of tBreakpoint, item -1 of tBreakpoint + (pNewNumber - pOldNumber)
450450
end if

notes/bugfix-22627.md

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
# Fix wandering breakpoints in when deleting lines

0 commit comments

Comments
 (0)