dummy lineNumber support
authorClaus Gittinger <cg@exept.de>
Mon, 22 May 2000 14:02:31 +0200
changeset 5395 8766e18acdb5
parent 5394 f877659e09f7
child 5396 92bf7d0b1b66
dummy lineNumber support
Stream.st
--- a/Stream.st	Mon May 22 13:11:09 2000 +0200
+++ b/Stream.st	Mon May 22 14:02:31 2000 +0200
@@ -1251,6 +1251,14 @@
     "Modified: 15.5.1996 / 17:57:01 / cg"
 !
 
+lineNumber
+    "return the current lineNumber if known"
+
+    ^ nil
+
+
+!
+
 pageFormat
     "return the pageFormat - nil here.
      This has NO meaning whatsoever to regular streams;
@@ -2164,6 +2172,6 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.89 2000-05-22 10:54:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.90 2000-05-22 12:02:31 cg Exp $'
 ! !
 Stream initialize!