Suppress a part of the file to keep ptk800 happy. This means, of course,

that the code is utterly non functional with ptk 800.

1 files changed, 4 insertions, 0 deletions

diff --git a/generic/PostScript.c b/generic/PostScript.c
index eeee5f0..a8e5f0b 100644
--- a/generic/PostScript.c
+++ b/generic/PostScript.c
@@ -794,6 +794,8 @@ ZnPostscriptString(Tcl_Interp   *interp,
                    char         *str,
                    int          num_bytes)
 {
+#ifndef PTK_800
+
   int         used, len, clen;
   int         c, bytecount = 0;
   CONST char  *p, *last_p, *glyphname;
@@ -871,6 +873,8 @@ ZnPostscriptString(Tcl_Interp   *interp,
   buf[used++] = '\n';
   buf[used] = '\0';
   Tcl_AppendResult(interp, buf, NULL);
+
+#endif
 }
 
 int