--- a/SyntaxElement.st	Sat Feb 28 01:23:44 2015 +0100
+++ b/SyntaxElement.st	Sat Feb 28 01:30:41 2015 +0100
@@ -165,6 +165,14 @@
     "Created: / 21-08-2011 / 09:47:15 / cg"
 !
 
+node
+    ^ node
+!
+
+node:something
+    node := something.
+!
+
 prev
     <resource: #obsolete>
     "/ please use nextElement: - this is easier to find in the browser
@@ -309,23 +317,46 @@
     "Created: / 21-08-2011 / 09:31:20 / cg"
 !
 
-isVariable
-    ^ false
-!
-
 isVariableOrSelf
     ^ self isVariable or:[self isSelf]
 
     "Created: / 21-08-2011 / 09:31:33 / cg"
 ! !
 
+!SyntaxElement methodsFor:'testing'!
+
+isClassVariable
+    ^ node notNil and:[node isVariable and:[node isClassVariable]]
+!
+
+isGlobal
+    ^ node notNil and:[ node isGlobal ]
+!
+
+isInstanceVariable
+    ^ node notNil and:[node isVariable and:[node isInstanceVariable]]
+
+    "Created: / 01-07-2013 / 21:54:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isVariable
+    ^ node notNil and:[ node isVariable ]
+
+    "Created: / 21-08-2011 / 09:09:00 / cg"
+    "Modified: / 16-02-2012 / 19:24:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !SyntaxElement class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.11 2015-02-28 00:30:41 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.10 2015-02-28 00:23:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.11 2015-02-28 00:30:41 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: SyntaxElement.st,v 1.10 2015-02-28 00:23:44 cg Exp $'
+    ^ '$Id: SyntaxElement.st,v 1.11 2015-02-28 00:30:41 cg Exp $'
 ! !