# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1119944776 -7200
# Node ID 63cd83aa44e884e15b01aa83e68e52815f9031f6
# Parent  99996b25482e1baef75998b107d47074bd1ba930
No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is
well known (true).

diff -r 99996b25482e -r 63cd83aa44e8 Stream.st
--- a/Stream.st	Mon Jun 27 12:24:19 2005 +0200
+++ b/Stream.st	Tue Jun 28 09:46:16 2005 +0200
@@ -944,7 +944,7 @@
     "return a signed long (4 bytes) in network byte order from the stream.
      The receiver must support reading of binary bytes."
 
-    ^ self nextLongMSB:true "/ (Socket networkLongOrderIsMSB)
+    ^ self nextLongMSB:true
 
     "Created: 10.1.1996 / 19:49:28 / cg"
 !
@@ -1036,11 +1036,11 @@
 
 nextShortNet
     "return a signed short (2 bytes) in network byte order from the stream.
-     The receiver must support reading of binary bytes."
-
-    ^ self nextShortMSB:(Socket networkShortOrderIsMSB)
-
-    "Modified: 10.1.1996 / 19:48:50 / cg"
+     The receiver must support reading of binary bytes.
+     Network byte order is MSB per definition"
+
+    ^ self nextShortMSB:true
+
     "Created: 10.1.1996 / 19:49:41 / cg"
 !
 
@@ -1164,7 +1164,7 @@
     "return an unsigned long (4 bytes) in network byte order from the stream.
      The receiver must support reading of binary bytes."
 
-    ^ self nextUnsignedLongMSB:true "/ (Socket networkLongOrderIsMSB)
+    ^ self nextUnsignedLongMSB:true
 
     "Created: 10.1.1996 / 19:49:02 / cg"
     "Modified: 10.1.1996 / 19:49:50 / cg"
@@ -1197,9 +1197,10 @@
 
 nextUnsignedShortNet
     "return an unsigned short (2 bytes) in network byte order from the stream.
-     The receiver must support reading of binary bytes."
-
-    ^ self nextUnsignedShortMSB:(Socket networkShortOrderIsMSB)
+     The receiver must support reading of binary bytes.
+     Network byte order is MSB per definition"
+
+    ^ self nextUnsignedShortMSB:true
 
     "Created: 10.1.1996 / 19:50:02 / cg"
 ! !
@@ -1501,7 +1502,7 @@
      Returns the receiver on ok, nil on error.
      The receiver must support writing of binary bytes."
 
-    ^ self nextPutLong:aNumber MSB:true "/ (Socket networkLongOrderIsMSB).
+    ^ self nextPutLong:aNumber MSB:true
 
     "Modified: 10.1.1996 / 19:47:10 / cg"
     "Created: 10.1.1996 / 19:50:23 / cg"
@@ -1556,9 +1557,10 @@
 nextPutShortNet:aNumber
     "Write the argument, aNumber as a short (two bytes) in the network byte order.
      Returns the receiver on ok, nil on error.
-     The receiver must support writing of binary bytes."
-
-    ^ self nextPutLong:aNumber MSB:(Socket networkShortOrderIsMSB).
+     The receiver must support writing of binary bytes.
+     Network byte order is MSB per definition"
+
+    ^ self nextPutLong:aNumber MSB:true.
 
     "Created: 10.1.1996 / 19:50:33 / cg"
 !
@@ -2823,7 +2825,7 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.140 2005-04-04 10:15:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.141 2005-06-28 07:46:16 stefan Exp $'
 ! !
 
 Stream initialize!