diff options
author | lecoanet | 2005-05-11 13:17:43 +0000 |
---|---|---|
committer | lecoanet | 2005-05-11 13:17:43 +0000 |
commit | 14e4f080fa4ef180b44124ca67f925a96c5ed074 (patch) | |
tree | 22d35d1aa65dc89b2eced13f8f45c6cf9aff4d23 | |
parent | 4ee2ed51dd1ba855b4b8de59460530a60a1af500 (diff) | |
download | tkzinc-14e4f080fa4ef180b44124ca67f925a96c5ed074.zip tkzinc-14e4f080fa4ef180b44124ca67f925a96c5ed074.tar.gz tkzinc-14e4f080fa4ef180b44124ca67f925a96c5ed074.tar.bz2 tkzinc-14e4f080fa4ef180b44124ca67f925a96c5ed074.tar.xz |
Suppress a part of the file to keep ptk800 happy. This means, of course,
that the code is utterly non functional with ptk 800.
-rw-r--r-- | generic/PostScript.c | 4 |
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 |