#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Tue, 03 May 2016 13:22:02 +0200
changeset 3812 725bf45f9dde
parent 3811 ebeffc3fcf61
child 3813 96f37f7b8297
#UI_ENHANCEMENT by cg class: ParseNode added: #isLiteral
ParseNode.st
--- a/ParseNode.st	Tue May 03 13:21:55 2016 +0200
+++ b/ParseNode.st	Tue May 03 13:22:02 2016 +0200
@@ -183,6 +183,7 @@
     ^ type
 ! !
 
+
 !ParseNode methodsFor:'attributes access'!
 
 objectAttributes
@@ -432,6 +433,8 @@
     "Created: / 22-02-2011 / 16:29:50 / Jakub <zelenja7@fel.cvut.cz>"
 ! !
 
+
+
 !ParseNode methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -645,6 +648,12 @@
     ^ false
 !
 
+isLiteral
+    "for compatibility with RB-AST"
+
+    ^ self isConstant
+!
+
 isLocalVariable
     ^ false
 !
@@ -693,12 +702,6 @@
     ^ false
 !
 
-isSelector
-    "return true, if this is a node is a selector node"
-
-    ^ false
-!
-
 isSelf
     "return true, if this is a self-node"
 
@@ -750,10 +753,10 @@
 !ParseNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.84 2015-01-22 15:09:13 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.84 2015-01-22 15:09:13 cg Exp $'
+    ^ '$Header$'
 ! !