Tools__BreakpointService.st
changeset 14450 60b7e5f93d5a
parent 14328 9510671ea784
child 14454 fdaebd3224b8
--- 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 $'
 ! !