Tools__BreakpointService.st
changeset 14849 6a193ec6c01f
parent 14845 7c4a218df889
child 14950 29261c456545
--- a/Tools__BreakpointService.st	Wed Nov 19 21:35:15 2014 +0100
+++ b/Tools__BreakpointService.st	Wed Nov 19 21:40:55 2014 +0100
@@ -341,7 +341,11 @@
 
     view == gutterView ifTrue:[
         button == 1 ifTrue:[
-"/            lineNr := textView yVisibleToLineNr:y.
+            lineNr := textView yVisibleToLineNr:y.
+            FlyByHelp currentHelpListener notNil ifTrue:[
+                "/ show a message that a double click is now needed    
+                FlyByHelp currentHelpListener initiateHelpFor:view at:x@y now:true
+            ].
 "/            lineNr notNil ifTrue:[ self setOrToggleBreakpointAtLine:lineNr ].
             ^ true.
         ].
@@ -698,14 +702,14 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.54 2014-11-19 17:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.55 2014-11-19 20:40:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.54 2014-11-19 17:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.55 2014-11-19 20:40:55 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__BreakpointService.st,v 1.54 2014-11-19 17:49:40 cg Exp $'
+    ^ '$Id: Tools__BreakpointService.st,v 1.55 2014-11-19 20:40:55 cg Exp $'
 ! !