add missing flush when patching postscript with font list
svn: r10455
This commit is contained in:
parent
1339b4874f
commit
10067e9524
|
@ -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);
|
||||
|
|
|
@ -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);
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user