--- a/VariableNode.st Mon Apr 13 16:56:10 2015 +0200
+++ b/VariableNode.st Fri Apr 17 17:15:02 2015 +0200
@@ -989,7 +989,9 @@
^ index
"Created: / 06-08-2006 / 16:03:56 / cg"
-!
+! !
+
+!VariableNode methodsFor:'testing'!
isArgument
"return true, if this is a node for an argument (block or method)"
@@ -1039,6 +1041,13 @@
^ type == #GlobalVariable
!
+isInstance
+ <resource: #obsolete>
+
+ self obsoleteMethodWarning.
+ ^ self isInstanceVariable
+!
+
isInstanceVariable
^ type == #InstanceVariable
!
@@ -1052,6 +1061,16 @@
"Created: / 19-04-2012 / 09:38:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+isJavaPackageReference
+ "Return true, given node is JAVA package reference in form:
+ JAVA package1 package2
+ "
+
+ ^self isJAVA
+
+ "Created: / 19-04-2012 / 09:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
isLocal
"return true, if this is a node for a local (block or method) variable"
@@ -1100,25 +1119,6 @@
"Created: 14.4.1996 / 00:46:32 / cg"
! !
-!VariableNode methodsFor:'testing'!
-
-isInstance
- <resource: #obsolete>
-
- self obsoleteMethodWarning.
- ^ self isInstanceVariable
-!
-
-isJavaPackageReference
- "Return true, given node is JAVA package reference in form:
- JAVA package1 package2
- "
-
- ^self isJAVA
-
- "Created: / 19-04-2012 / 09:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
!VariableNode methodsFor:'visiting'!
acceptVisitor:aVisitor
@@ -1133,10 +1133,10 @@
!VariableNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.103 2015-02-06 10:36:04 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.104 2015-04-17 15:15:02 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.103 2015-02-06 10:36:04 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.104 2015-04-17 15:15:02 stefan Exp $'
! !