--- a/Tools__BreakpointService.st Wed Jun 04 15:44:59 2014 +0200
+++ b/Tools__BreakpointService.st Wed Jun 04 16:38:40 2014 +0200
@@ -282,12 +282,13 @@
fixupBreakpointPositions
breakpoints notEmptyOrNil ifTrue:[
- breakpoints do:[:each |
- | pos |
+ breakpoints do:[:each |
+ | pos |
- pos := textView characterPositionOfLine: each line col:1.
- each position: pos.
- ]
+ pos := textView characterPositionOfLine: each line col:1.
+ each position: pos.
+ ].
+ breakpoints := breakpoints select:[:b |b line >= 0].
].
"Created: / 08-05-2014 / 14:02:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -643,14 +644,14 @@
!BreakpointService class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.47 2014-05-08 13:05:08 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.48 2014-06-04 14:38:40 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.47 2014-05-08 13:05:08 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.48 2014-06-04 14:38:40 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__BreakpointService.st,v 1.47 2014-05-08 13:05:08 vrany Exp $'
+ ^ '$Id: Tools__BreakpointService.st,v 1.48 2014-06-04 14:38:40 cg Exp $'
! !