# HG changeset patch
# User az
# Date 1401873167 -7200
# Node ID e1cfd3e4826b59b33bb9b3d0014dca32d310a385
# Parent  10f98c40548b89ff178a6203b31415844be88ac2
fixed ALT-right click (senders of selector under cursor)

diff -r 10f98c40548b -r e1cfd3e4826b Tools__CodeNavigationService.st
--- 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 $'
 ! !