# HG changeset patch
# User mawalch
# Date 1455638302 -3600
# Node ID 65951fa81f9a5d8899ea804112e74ef6092e6048
# Parent  95ad66b2a6104cd627243139ff44fe97050ec222
#DOCUMENTATION
class: Stream
comment/format in: #nextPutInt64:MSB:
Fix usage examples of Stream's nextPutInt64:MSB

diff -r 95ad66b2a610 -r 65951fa81f9a Stream.st
--- a/Stream.st	Tue Feb 16 16:25:23 2016 +0100
+++ b/Stream.st	Tue Feb 16 16:58:22 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -2046,7 +2048,7 @@
      |s bytes|
 
      s := #[] writeStream.
-     s nextPutUInt64:16r123456789abcdef0 MSB:false.
+     s nextPutInt64:16r123456789abcdef0 MSB:false.
      bytes := s contents.
      s := bytes readStream.
      (s nextUInt64MSB:false) hexPrintString.   
@@ -2055,7 +2057,7 @@
      |s bytes|
 
      s := #[] writeStream.
-     s nextPutUInt64:16r123456789abcdef0 MSB:true.
+     s nextPutInt64:16r123456789abcdef0 MSB:true.
      bytes := s contents.
      s := bytes readStream.
      (s nextUInt64MSB:true) hexPrintString.   
@@ -2064,7 +2066,7 @@
      |s bytes|
 
      s := #[] writeStream.
-     s nextPutUInt64:16r-8000000000000000 MSB:true.
+     s nextPutInt64:16r-8000000000000000 MSB:true.
      bytes := s contents.
      s := bytes readStream.
      (s nextUInt64MSB:true) hexPrintString.    
@@ -2073,7 +2075,7 @@
      |s bytes|
 
      s := #[] writeStream.
-     s nextPutUInt64:16r-8000000000000000 MSB:false.
+     s nextPutInt64:16r-8000000000000000 MSB:false.
      bytes := s contents.
      s := bytes readStream.
      (s nextUInt64MSB:false) hexPrintString.   
@@ -2117,7 +2119,7 @@
     "
         ((WriteStream on:Unicode16String new)
             nextPutUtf16:$B;
-            nextPutUtf16:$Ä; 
+            nextPutUtf16:$Ä; 
             nextPutUtf16:(Character codePoint:16r10CCCC)
             yourself) contents
     "
@@ -2180,7 +2182,7 @@
     "
       (String streamContents:[:s| 
             s nextPutUtf8:$a.
-            s nextPutUtf8:$ü.
+            s nextPutUtf8:$ü.
             s nextPutUtf8: (Character value:16r1fff).
             s nextPutUtf8: (Character value:16rffff).
             s nextPutUtf8: (Character value:16r1ffffff).