diff options
| author | stanton <stanton> | 1999-04-06 03:51:08 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-04-06 03:51:08 (GMT) |
| commit | f994e133a8532bc0300ce4895078893a583ea9ca (patch) | |
| tree | 3d2d368a720225b6c0a853cc7a86140380362b72 | |
| parent | 5ee82a6f8a40ef82fa249473452524b511b3ff39 (diff) | |
| download | tk-f994e133a8532bc0300ce4895078893a583ea9ca.zip tk-f994e133a8532bc0300ce4895078893a583ea9ca.tar.gz tk-f994e133a8532bc0300ce4895078893a583ea9ca.tar.bz2 | |
* win/tkWinWm.c (Tk_WmCmd): Fixed bad code in tracing
suboption. [Bug: 1519]
| -rw-r--r-- | win/tkWinWm.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c index 02a05e8..ab81f1f 100644 --- a/win/tkWinWm.c +++ b/win/tkWinWm.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinWm.c,v 1.1.4.12 1999/03/26 02:37:18 redman Exp $ + * RCS: @(#) $Id: tkWinWm.c,v 1.1.4.13 1999/04/06 03:51:08 stanton Exp $ */ #include "tkWinInt.h" @@ -1128,6 +1128,7 @@ Tk_WmCmd(clientData, interp, argc, argv) register WmInfo *wmPtr; int c; size_t length; + TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr; if (argc < 2) { wrongNumArgs: @@ -1145,10 +1146,10 @@ Tk_WmCmd(clientData, interp, argc, argv) return TCL_ERROR; } if (argc == 2) { - Tcl_SetResult(interp, ((winPtr->dispPtr->wmTracing) ? "on" : "off"), TCL_STATIC); + Tcl_SetResult(interp, ((dispPtr->wmTracing) ? "on" : "off"), TCL_STATIC); return TCL_OK; } - return Tcl_GetBoolean(interp, argv[2], &winPtr->dispPtr->wmTracing); + return Tcl_GetBoolean(interp, argv[2], &dispPtr->wmTracing); } if (argc < 3) { |