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

Commit 6bb3ef5

Browse files
authored
[Bug 22627] Fix moving breakpoints w/ deleting
1 parent 2eb83a0 commit 6bb3ef5

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-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

0 commit comments

Comments
 (0)