diff options
Diffstat (limited to 'generic/tkZinc.c')
| -rw-r--r-- | generic/tkZinc.c | 5 |
1 files changed, 3 insertions, 2 deletions
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; /* |