<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2900.3157" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face="Trebuchet MS" size=2><SPAN class=765120920-22082007>Hi
there,</SPAN></FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2><SPAN
class=765120920-22082007></SPAN></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2><SPAN
class=765120920-22082007> there is a bug in writing libraries
to disk (a conditional for binary and plain text is inverted). Here is a patch
I'm using:</SPAN></FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2><SPAN
class=765120920-22082007></SPAN></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2><SPAN
class=765120920-22082007>SeasidePlatformSupport>>write: aStringOrByteArray
toFile: aFileNameString inFolder: aFolderString<BR> "Writes
aStringOrByteArray to a file named aFilenameString in the folder
aFolderString.<BR> Note: if aStringOrByteArray is a string it writes a CR
LF kind of file and binary otherwise"</SPAN></FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2><SPAN class=765120920-22082007><BR> |
folder stream fullFilePath |<BR> folder := FileDirectory default
directoryNamed: aFolderString.<BR> fullFilePath := folder fullNameFor:
aFileNameString.<BR> stream := aStringOrByteArray
isString<BR> ifTrue: [ (CrLfFileStream forceNewFileNamed:
fullFilePath) binary ]<BR> ifFalse: [ (FileStream forceNewFileNamed:
fullFilePath) ascii ].<BR> [ stream nextPutAll: aStringOrByteArray
]<BR> ensure: [ stream close ]</SPAN></FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV><FONT face="Trebuchet MS" size=2><SPAN
class=765120920-22082007> cheers,</SPAN></FONT></DIV>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV>
<DIV align=left><SPAN class=250542422-20122006>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt" align=left><?xml:namespace prefix
= st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:PersonName
ProductID="Sebastian Sastre " w:st="on"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Trebuchet MS'">Sebastian
Sastre<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office"
/><o:p></o:p></SPAN></st1:PersonName></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Trebuchet MS'"><o:p> </o:p></SPAN></P></DIV></SPAN>
<DIV><FONT face="Trebuchet MS" size=2></FONT> </DIV></BODY></HTML>