--- a/SyntaxElement.st	Thu Jun 13 12:23:07 2013 +0100
+++ b/SyntaxElement.st	Fri Jun 21 19:05:40 2013 +0100
@@ -92,6 +92,18 @@
         value: value
 
     "Created: / 14-02-2010 / 17:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+from: start to: stop type: type value: value assigned:assigned
+
+    ^self new
+        start: start;
+        stop: stop;
+        type: type;
+        value: value;
+        assigned: assigned
+
+    "Created: / 14-02-2010 / 17:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SyntaxElement methodsFor:'accessing'!
@@ -199,9 +211,9 @@
 
 < anObject
     anObject isNumber ifTrue:[^stop < anObject].
-    anObject class == self class ifFalse:[^false].
+    "/ anObject class == self class ifFalse:[^false].
 
-    ^stop < anObject start
+    ^stop < anObject stop
 
     "Created: / 14-02-2010 / 13:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 27-07-2012 / 21:53:22 / cg"
@@ -244,6 +256,11 @@
     type printOn: aStream.
     aStream nextPutAll:' -> '.    
     value printOn:aStream.
+    aStream nextPut:$[.
+    start printOn:aStream.
+    aStream nextPutAll:' .. '.    
+    stop printOn:aStream.
+    aStream nextPut:$].
     aStream nextPut:$).
 
     "Modified: / 25-06-2010 / 13:20:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -265,9 +282,7 @@
 !
 
 isVariable
-    ^ type == #variable
-
-    "Created: / 21-08-2011 / 09:09:00 / cg"
+    ^ false
 !
 
 isVariableOrSelf
@@ -283,7 +298,7 @@
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.5 2013-01-11 09:56:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.6 2013-06-14 14:30:48 cg Exp $'
 !
 
 version_HG
@@ -292,6 +307,6 @@
 !
 
 version_SVN
-    ^ '§Id: SyntaxElement.st 7582 2010-06-25 13:26:33Z vranyj1 §'
+    ^ '$Id: SyntaxElement.st,v 1.6 2013-06-14 14:30:48 cg Exp $'
 ! !