--- a/Tools__BreakpointService.st Wed Jul 27 14:32:39 2011 +0200
+++ b/Tools__BreakpointService.st Wed Jul 27 14:33:11 2011 +0200
@@ -223,10 +223,12 @@
pos := textView characterPositionOfLine:line col:1.
bpnt := self breakpointAtLine:line.
bpnt isNil ifTrue:[
- breakpoints add:((Breakpoint new)
- position:pos;
- line:line).
- self recompile.
+ (codeView topView class ~~ DebugView) ifTrue:[
+ breakpoints add:((Breakpoint new)
+ position:pos;
+ line:line).
+ self recompile.
+ ].
] ifFalse:[
bpnt toggle.
].
@@ -234,6 +236,7 @@
"Created: / 17-06-2011 / 13:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 05-07-2011 / 21:32:49 / cg"
+ "Modified: / 27-07-2011 / 13:27:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!BreakpointService methodsFor:'redrawing'!
@@ -273,7 +276,7 @@
!BreakpointService class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.6 2011-07-06 16:30:45 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.7 2011-07-27 12:33:11 vrany Exp $'
!
version_SVN