--- a/ParseErrorNode.st	Sat Jul 09 23:51:13 2011 +0200
+++ b/ParseErrorNode.st	Sat Jul 09 23:51:24 2011 +0200
@@ -40,7 +40,6 @@
     ^ self new errorString:arg
 ! !
 
-
 !ParseErrorNode methodsFor:'accessing'!
 
 errorString
@@ -49,6 +48,20 @@
 
 errorString:something
     errorString := something.
+!
+
+lineNumber
+
+    ^self objectAttributeAt: #lineNumber
+
+    "Created: / 09-07-2011 / 22:30:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+lineNumber: anInteger
+
+    self objectAttributeAt: #lineNumber put: anInteger
+
+    "Created: / 09-07-2011 / 22:29:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 
@@ -61,5 +74,9 @@
 !ParseErrorNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseErrorNode.st,v 1.3 2011-07-09 20:09:55 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseErrorNode.st,v 1.4 2011-07-09 21:51:24 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseErrorNode.st,v 1.4 2011-07-09 21:51:24 vrany Exp $'
 ! !