#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Fri, 09 Dec 2016 12:14:18 +0100
changeset 17157 bf9addfe2aa2
parent 17156 e83700f581f1
child 17158 fda0a732e85e
#REFACTORING by cg class: Tools::BreakpointService changed: #flyByHelpTextAtLine:
Tools__BreakpointService.st
--- a/Tools__BreakpointService.st	Fri Dec 09 12:13:25 2016 +0100
+++ b/Tools__BreakpointService.st	Fri Dec 09 12:14:18 2016 +0100
@@ -415,7 +415,7 @@
     |topView|
 
     (self canCreateOrToggleBreakpointAtLine:nil) ifFalse:[
-        ((topView := codeView topView) class == DebugView) ifTrue:[
+        ((topView := codeView topView) notNil and:[topView isDebugView]) ifTrue:[
             self hasBreakpoints ifFalse:[
                 ^ 'Sorry - cannot add breakpoint in the debugger (would need recompilation)\(can only add breakpoints if stopped at a method breakpoint)' withCRs
             ].