Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SHA1Stream.st
changeset 4798 9057c002734a
parent 4797 b5569df9e181
child 4916 df965a3448b9 
--- a/SHA1Stream.st	Thu Sep 23 20:12:41 1999 +0200
+++ b/SHA1Stream.st	Thu Sep 23 20:33:47 1999 +0200
@@ -350,7 +350,7 @@
                                                                 [exBegin]
     |hashStream|
 
-    hashStream := self new.
+    hashStream := SHA1Stream new.
     hashStream nextPut:'abc'.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
     hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'.
@@ -360,7 +360,7 @@
                                                                 [exBegin]
     |hashStream|
 
-    hashStream := self new.
+    hashStream := SHA1Stream new.
     hashStream nextPut:'abc' asByteArray.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
     hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq' asByteArray.
@@ -371,7 +371,7 @@
                                                                 [exBegin]
     |hashStream|
 
-    hashStream := self new.
+    hashStream := SHA1Stream new.
     1000000 timesRepeat:[ hashStream nextPut:$a ].
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
                                                                 [exEnd]
@@ -379,7 +379,7 @@
                                                                 [exBegin]
     |hashStream|
 
-    hashStream := self new.
+    hashStream := SHA1Stream new.
     hashStream nextPut:'a'.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
                                                                 [exEnd]
@@ -387,7 +387,7 @@
                                                                 [exBegin]
     |hashStream|
 
-    hashStream := self new.
+    hashStream := SHA1Stream new.
     hashStream nextPut:$a.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
                                                                 [exEnd]
@@ -575,6 +575,6 @@
 !SHA1Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.3 1999-09-23 18:12:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.4 1999-09-23 18:33:47 cg Exp $'
 ! !
 SHA1Stream initialize!
hg/stx-libbasic