Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more ST80 compatibility
authorca
Fri, 10 Oct 1997 15:04:05 +0200
changeset 3016 42466b291fae
parent 3015 5df2984673db
child 3017 cdd87208ae2f
more ST80 compatibility
ExtStream.st file | annotate | diff | comparison | revisions
ExternalStream.st file | annotate | diff | comparison | revisions 
--- a/ExtStream.st	Fri Oct 10 15:02:27 1997 +0200
+++ b/ExtStream.st	Fri Oct 10 15:04:05 1997 +0200
@@ -1180,6 +1180,10 @@
     ^ filePointer
 !
 
+lineEndTransparent
+    eolMode := #cr
+!
+
 readonly
     "set access mode to readonly"
 
@@ -3784,6 +3788,11 @@
     self readWaitWithTimeoutMs:nil
 !
 
+readWaitTimeoutMs:timeout
+    "ST-80 compatibility"
+    ^ self readWaitWithTimeoutMs:timeout 
+!
+
 readWaitWithTimeout:timeout
     "suspend the current process, until the receiver
      becomes ready for reading or a timeout (in seconds) expired. 
@@ -3842,6 +3851,11 @@
     self writeWaitWithTimeoutMs:nil
 !
 
+writeWaitTimeoutMs:timeout
+    "ST-80 compatibility"
+    ^ self writeWaitWithTimeoutMs:timeout 
+!
+
 writeWaitWithTimeout:timeout
     "suspend the current process, until the receiver
      becomes ready for writing or a timeout (in seconds) expired. 
@@ -4169,6 +4183,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.146 1997-10-06 13:28:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.147 1997-10-10 13:04:05 ca Exp $'
 ! !
 ExternalStream initialize!
--- a/ExternalStream.st	Fri Oct 10 15:02:27 1997 +0200
+++ b/ExternalStream.st	Fri Oct 10 15:04:05 1997 +0200
@@ -1180,6 +1180,10 @@
     ^ filePointer
 !
 
+lineEndTransparent
+    eolMode := #cr
+!
+
 readonly
     "set access mode to readonly"
 
@@ -3784,6 +3788,11 @@
     self readWaitWithTimeoutMs:nil
 !
 
+readWaitTimeoutMs:timeout
+    "ST-80 compatibility"
+    ^ self readWaitWithTimeoutMs:timeout 
+!
+
 readWaitWithTimeout:timeout
     "suspend the current process, until the receiver
      becomes ready for reading or a timeout (in seconds) expired. 
@@ -3842,6 +3851,11 @@
     self writeWaitWithTimeoutMs:nil
 !
 
+writeWaitTimeoutMs:timeout
+    "ST-80 compatibility"
+    ^ self writeWaitWithTimeoutMs:timeout 
+!
+
 writeWaitWithTimeout:timeout
     "suspend the current process, until the receiver
      becomes ready for writing or a timeout (in seconds) expired. 
@@ -4169,6 +4183,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.146 1997-10-06 13:28:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.147 1997-10-10 13:04:05 ca Exp $'
 ! !
 ExternalStream initialize!
hg/stx-libbasic