--- a/Tools_MethodList.st	Fri Sep 06 20:39:31 2013 +0200
+++ b/Tools_MethodList.st	Fri Sep 06 20:39:43 2013 +0200
@@ -1288,6 +1288,25 @@
         ^ false
     ].
 
+    "/ JV Following code is just very bad. It assumes that method is a Smalltalk method.
+    "/ But it may not, it could be JavaScript method, Java method or whatever fancy language 
+    "/ method. Should be actually delegated to the method itself, just as #messagesSend & co.
+
+    "/ I'm not going to refactor now to keep the differences between jv-branch and CVS 
+    "/ ss small as possible. This interface is bad anyway as method is parsed several times
+    "/ to check different things. Once should be enough.
+
+    "/ Hack:
+
+    mthd programmingLanguage isSmalltalk ifFalse:[
+        ^ [
+            usedVars := mthd perform:querySelector.
+            usedVars includesAny:variablesToHighLight
+        ] on: Error do:[
+            false
+        ]
+    ].
+
     src := mthd source.
     src notNil ifTrue:[
         "
@@ -1296,9 +1315,9 @@
         "
         (variablesToHighLight contains:[:varName | (src findString:varName) ~~ 0]) ifTrue:[
             parser := Parser
-                            parseMethod:src 
-                            in:cls 
-                            ignoreErrors:true 
+                            parseMethod:src
+                            in:cls
+                            ignoreErrors:true
                             ignoreWarnings:true.
             (parser notNil and:[parser ~~ #Error]) ifTrue:[
                 usedVars := parser perform:querySelector.
@@ -1310,6 +1329,8 @@
         ]
     ].
     ^ false
+
+    "Modified: / 06-09-2013 / 18:02:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 methodIsInheritedFromAbove:aMethod
@@ -1818,10 +1839,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.92 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.93 2013-09-06 18:39:43 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.92 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.93 2013-09-06 18:39:43 vrany Exp $'
 ! !