--- 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 $'
! !