#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Sun, 19 Mar 2017 01:16:57 +0100
changeset 17478 f02e9da087b3
parent 17477 ebed6ccbc087
child 17479 a1e713bd1b44
#UI_ENHANCEMENT by cg sclass: Tools::BreakpointService changed: #flyByHelpTextAtLine: don't give a helptext, if breakpoint cannot be set.
Tools__BreakpointService.st
--- a/Tools__BreakpointService.st	Fri Mar 17 13:25:25 2017 +0100
+++ b/Tools__BreakpointService.st	Sun Mar 19 01:16:57 2017 +0100
@@ -414,6 +414,12 @@
 flyByHelpTextAtLine:ignoredLineNr
     |topView|
 
+    codeView method isNil ifTrue:[
+        ^ nil
+    ].
+    currentMethod isNil ifTrue:[   
+        ^ nil
+    ].
     (self canCreateOrToggleBreakpointAtLine:nil) ifFalse:[
         ((topView := codeView topView) notNil and:[topView isDebugView]) ifTrue:[
             self hasBreakpoints ifFalse:[
@@ -427,6 +433,7 @@
     ^ 'Double Click to toggle breakpoint. Shift-Double-Click to toggle tracepoint.'
 
     "Created: / 27-01-2012 / 14:04:52 / cg"
+    "Modified: / 19-03-2017 / 01:15:48 / cg"
 ! !
 
 !BreakpointService methodsFor:'initialization'!