add missing flush when patching postscript with font list

svn: r10455
This commit is contained in:
Matthew Flatt 2008-06-26 00:11:36 +00:00
parent 1339b4874f
commit 10067e9524
2 changed files with 7 additions and 0 deletions

View File

@ -201,6 +201,10 @@ void wxPSStream::Out(long l)
Out(buf);
}
void wxPSStream::flush() {
scheme_flush_output((Scheme_Object *)f);
}
long wxPSStream::tellp(void) {
return scheme_set_file_position((Scheme_Object *)f, -1);
}
@ -1683,6 +1687,7 @@ void wxPostScriptDC::EndDoc (void)
buf[a - bot] = 0;
pstream->seekp(bot + delta);
pstream->Out(buf);
pstream->flush();
a = bot;
}
pstream->seekp(fontlistpos);

View File

@ -23,6 +23,8 @@ class wxPSStream : public wxObject {
void Out(long l);
void Out(int i);
void flush();
long tellp(void);
void seekp(long pos);