From 79f65d040d72f778f66f8eefdaffb6acd9799a38 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Tue, 10 May 2005 07:59:48 +0000
Subject: Merge of the newly developped postscript code (still not fully
 functional).

---
 generic/tkZinc.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'generic/tkZinc.c')

diff --git a/generic/tkZinc.c b/generic/tkZinc.c
index c7af899..6e6c87b 100644
--- a/generic/tkZinc.c
+++ b/generic/tkZinc.c
@@ -289,6 +289,7 @@ static  Tk_ObjCustomOption gradientOption = {
 #define CONFIG_MAP_SYMBOL               1<<15
 #define CONFIG_TRACK_SYMBOL             1<<16
 #define CONFIG_TILE                     1<<17
+#define CONFIG_DEBUG            1<<18
 #endif
 
 /*
@@ -400,6 +401,8 @@ static Tk_OptionSpec option_specs[] = {
      "1", -1, Tk_Offset(ZnWInfo, confine), 0, NULL, CONFIG_SET_ORIGIN},
   {TK_OPTION_CURSOR, "-cursor", "cursor", "Cursor",
      "", -1, Tk_Offset(ZnWInfo, cursor), TK_CONFIG_NULL_OK, NULL, 0},
+  {TK_OPTION_INT, "-debug", "debug", "Debug",
+     "0", -1, Tk_Offset(ZnWInfo, debug), 0, NULL, 0},
   {TK_OPTION_FONT, "-font", "font", "Font",
      "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*",
      -1, Tk_Offset(ZnWInfo, font), 0, NULL, CONFIG_FONT},
@@ -5414,11 +5417,9 @@ WidgetObjCmd(ClientData         client_data,    /* Information about the widget.
      */
   case ZN_W_POSTSCRIPT:
     {
-#if 0
       if (ZnPostScriptCmd(wi, argc, args) != TCL_OK) {
         goto error;
       }
-#endif
     }
     break;
     /*
-- 
cgit v1.1