diff options
| author | lecoanet | 2005-05-25 08:28:38 +0000 |
|---|---|---|
| committer | lecoanet | 2005-05-25 08:28:38 +0000 |
| commit | 45ae28c31f43b439c368042106c09148a2bf5d4d (patch) | |
| tree | 0dd923a967b069342639523440aa699fe73f08e2 | |
| parent | 49e26b69317314379935cb005976954d5d380108 (diff) | |
| download | tkzinc-45ae28c31f43b439c368042106c09148a2bf5d4d.zip tkzinc-45ae28c31f43b439c368042106c09148a2bf5d4d.tar.gz tkzinc-45ae28c31f43b439c368042106c09148a2bf5d4d.tar.bz2 tkzinc-45ae28c31f43b439c368042106c09148a2bf5d4d.tar.xz | |
Commented some postscript code under perl/tk to make the release.
| -rw-r--r-- | generic/PostScript.c | 2 | ||||
| -rw-r--r-- | generic/Window.c | 2 |
2 files changed, 4 insertions, 0 deletions
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 |