--- a/Tools__CodeNavigationService.st Mon Jun 24 19:08:38 2013 +0200
+++ b/Tools__CodeNavigationService.st Mon Jun 24 19:09:03 2013 +0200
@@ -402,6 +402,23 @@
"Created: / 25-06-2010 / 14:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!CodeNavigationService methodsFor:'misc'!
+
+highlightInstanceVariable:name
+ |element|
+
+ element := (codeView syntaxElements ? #())
+ detect:[:e |
+ e isVariable
+ and:[ e isInstanceVariable
+ and:[ e name = name ]]
+ ] ifNone:nil.
+ element notNil ifTrue:[
+ codeView syntaxElementSelection:nil.
+ self highlightVariable:element
+ ].
+! !
+
!CodeNavigationService methodsFor:'private'!
elementAtCursor
@@ -618,9 +635,9 @@
"Modified: / 20-07-2011 / 18:43:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-highlightVariable:e
- (e notNil and:[ e isVariableOrSelf ]) ifTrue:[
- self highlightElement:e.
+highlightVariable:element
+ (element notNil and:[ element isVariableOrSelf ]) ifTrue:[
+ self highlightElement:element.
] ifFalse:[
self highlightClear.
].
@@ -683,14 +700,14 @@
!CodeNavigationService class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.26 2013-06-24 14:20:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.27 2013-06-24 17:09:03 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.26 2013-06-24 14:20:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.27 2013-06-24 17:09:03 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__CodeNavigationService.st,v 1.26 2013-06-24 14:20:38 cg Exp $'
+ ^ '$Id: Tools__CodeNavigationService.st,v 1.27 2013-06-24 17:09:03 cg Exp $'
! !