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 ++
 generic/Window.c     | 2 ++
 2 files changed, 4 insertions(+)

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;
   }
diff --git a/generic/Window.c b/generic/Window.c
index de12103..a6ac2d7 100644
--- a/generic/Window.c
+++ b/generic/Window.c
@@ -610,6 +610,7 @@ PostScript(ZnItem item,
    * exists, this will produce much better postscript than
    * when a pixmap is used.
    */
+#ifndef PTK
   Tcl_DStringInit(&buffer1);
   Tcl_DStringInit(&buffer2);
   Tcl_DStringGetResult(wi->interp, &buffer2);
@@ -632,6 +633,7 @@ PostScript(ZnItem item,
     return result;
   }
   Tcl_DStringFree(&buffer1);
+#endif
 
   /*
    * If the window is off the screen it will generate an BadMatch/XError
-- 
cgit v1.1