--- a/ParseTreeIndex.st	Tue Feb 17 17:00:02 2015 +0100
+++ b/ParseTreeIndex.st	Tue Feb 17 17:01:31 2015 +0100
@@ -20,8 +20,8 @@
 	category:'Interface-CodeView-Syntax'
 !
 
-Magnitude subclass:#Element
-	instanceVariableNames:'next prev node'
+SyntaxElement subclass:#Element
+	instanceVariableNames:'node'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:ParseTreeIndex
@@ -134,49 +134,12 @@
     "Modified: / 25-02-2014 / 20:52:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-firstElementInChain
-    |first prev|
-
-    first := self.
-    [ (prev := first previousElement) notNil ] whileTrue:[
-        first := prev.
-    ].
-    ^ first
-
-    "Created: / 21-08-2011 / 09:51:35 / cg"
-!
-
 name
     ^node isVariable ifTrue:[node name] ifFalse:[nil]
 
     "Created: / 01-07-2013 / 21:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-next
-    ^ next
-!
-
-next:aSyntaxElement
-    next := aSyntaxElement.
-    next prev: self.
-
-    "Modified: / 14-02-2010 / 17:44:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-nextElement
-    ^ next
-
-    "Created: / 21-08-2011 / 09:47:11 / cg"
-!
-
-nextElement:aSyntaxElement
-    next := aSyntaxElement.
-    next prev: self.
-
-    "Modified: / 14-02-2010 / 17:44:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Created: / 21-08-2011 / 09:47:15 / cg"
-!
-
 node
     ^ node
 !
@@ -185,26 +148,6 @@
     node := something.
 !
 
-prev
-    ^ prev
-!
-
-prev:aSyntaxElement
-    prev := aSyntaxElement.
-!
-
-previousElement
-    ^ prev
-
-    "Created: / 21-08-2011 / 09:47:23 / cg"
-!
-
-previousElement:aSyntaxElement
-    prev := aSyntaxElement.
-
-    "Created: / 21-08-2011 / 09:47:28 / cg"
-!
-
 start
     ^ node startPosition
 
@@ -251,15 +194,6 @@
     "Created: / 14-02-2010 / 13:30:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!ParseTreeIndex::Element methodsFor:'double dispatching'!
-
-lessFromInteger:anInteger
-
-    ^self stop < anInteger
-
-    "Created: / 14-02-2010 / 13:49:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !ParseTreeIndex::Element methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -309,21 +243,15 @@
 
     "Created: / 21-08-2011 / 09:09:00 / cg"
     "Modified: / 16-02-2012 / 19:24:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-isVariableOrSelf
-    ^ self isVariable or:[self isSelf]
-
-    "Created: / 21-08-2011 / 09:31:33 / cg"
 ! !
 
 !ParseTreeIndex class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.6 2015-02-02 11:54:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.7 2015-02-17 16:01:31 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.6 2015-02-02 11:54:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.7 2015-02-17 16:01:31 stefan Exp $'
 ! !