Tools__CodeNavigationService.st
changeset 14448 e1cfd3e4826b
parent 14204 bee53f8e01ca
child 15172 26249a020c0f
--- a/Tools__CodeNavigationService.st	Wed Jun 04 11:12:26 2014 +0200
+++ b/Tools__CodeNavigationService.st	Wed Jun 04 11:12:47 2014 +0200
@@ -249,12 +249,19 @@
 
 button2Press
 
-    | sel |
+    | sel node|
+
     sel := codeView syntaxElementSelection.
-    (sel notNil and:[sel node isMessage]) ifTrue:[^self button2PressForSelector: sel node selector].
+    (sel notNil 
+      and:[(node := sel node) isMessage 
+           or:[node isSelector]]
+    ) ifTrue:[
+        ^self button2PressForSelector: node selector
+    ].
 
     "Created: / 14-02-2010 / 18:43:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 08-03-2012 / 16:49:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 04-06-2014 / 11:09:33 / az"
 !
 
 button2PressForSelector: selector
@@ -841,14 +848,14 @@
 !CodeNavigationService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.46 2014-04-13 12:08:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.47 2014-06-04 09:12:47 az Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.46 2014-04-13 12:08:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.47 2014-06-04 09:12:47 az Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeNavigationService.st,v 1.46 2014-04-13 12:08:14 cg Exp $'
+    ^ '$Id: Tools__CodeNavigationService.st,v 1.47 2014-06-04 09:12:47 az Exp $'
 ! !