From 14e4f080fa4ef180b44124ca67f925a96c5ed074 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 11 May 2005 13:17:43 +0000
Subject: Suppress a part of the file to keep ptk800 happy. This means, of
 course, that the code is utterly non functional with ptk 800.

---
 generic/PostScript.c | 4 ++++
 1 file changed, 4 insertions(+)

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
-- 
cgit v1.1