--- a/VariableNode.st	Wed Aug 23 17:15:22 2000 +0200
+++ b/VariableNode.st	Sun Aug 27 16:50:01 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 PrimaryNode subclass:#VariableNode
 	instanceVariableNames:'name token index block'
 	classVariableNames:''
@@ -791,6 +793,10 @@
     "Modified: 27.6.1997 / 13:07:19 / cg"
 !
 
+isClassVariable
+    ^ type == #ClassVariable
+!
+
 isGlobal
     "return true, if this is a node for a global variable"
 
@@ -802,6 +808,10 @@
     "Modified: / 19.10.1998 / 19:43:04 / cg"
 !
 
+isInstanceVariable
+    ^ type == #InstanceVariable
+!
+
 isLocal
     "return true, if this is a node for a local (block or method) variable"
 
@@ -832,5 +842,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.46 2000-02-12 15:32:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.47 2000-08-27 14:50:01 cg Exp $'
 ! !