Tools__CodeNavigationService.st
changeset 12994 0899f74ec3ce
parent 12986 145d28bf105e
child 12997 f03191d56013
--- 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 $'
 ! !