--- a/Base64Coder.st Tue Mar 22 18:31:14 2016 +0100
+++ b/Base64Coder.st Tue Mar 22 18:31:25 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -155,12 +153,12 @@
!Base64Coder methodsFor:'encoding'!
-nextPut:aByte
+nextPutByte:aByte
"encode aByte on the output stream"
|b1 b2 b3 b4|
- buffer := (buffer bitShift:8) bitOr:aByte asInteger.
+ buffer := (buffer bitShift:8) bitOr:aByte.
bits := bits + 8.
bits == 24 ifTrue:[
"RFC 2045 says: max 76 characters in one line"
@@ -276,10 +274,10 @@
!Base64Coder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.26 2015-05-07 20:36:31 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.26 2015-05-07 20:36:31 cg Exp $'
+ ^ '$Header$'
! !