From 45ae28c31f43b439c368042106c09148a2bf5d4d Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 25 May 2005 08:28:38 +0000
Subject: Commented some postscript code under perl/tk to make the release.

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

(limited to 'generic/PostScript.c')

diff --git a/generic/PostScript.c b/generic/PostScript.c
index a8e5f0b..3465abe 100644
--- a/generic/PostScript.c
+++ b/generic/PostScript.c
@@ -273,7 +273,9 @@ ZnPostScriptCmd(ZnWInfo        *wi,
    * then process all the arguments to fill the data structure in.
    *----------------------------------------------------------------
    */
+#ifndef PTK
   result = Tcl_EvalEx(wi->interp, psenccmd, -1, TCL_EVAL_GLOBAL);
+#endif
   if (result != TCL_OK) {
     return result;
   }
-- 
cgit v1.1