diff options
Diffstat (limited to 'generic/tkCmds.c')
| -rw-r--r-- | generic/tkCmds.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index 64896c5..83a6ecc 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkCmds.c,v 1.45 2008/10/17 23:18:37 nijtmans Exp $ + * RCS: @(#) $Id: tkCmds.c,v 1.46 2008/10/18 14:22:21 dkf Exp $ */ #include "tkInt.h" @@ -611,18 +611,16 @@ Tk_TkObjCmd( Tcl_Obj *const objv[]) /* Argument objects. */ { int index; - Tk_Window tkwin; + Tk_Window tkwin = clientData; static const char *const optionStrings[] = { - "appname", "caret", "scaling", "useinputmethods", - "windowingsystem", "inactive", NULL + "appname", "busy", "caret", "inactive", "scaling", "useinputmethods", + "windowingsystem", NULL }; enum options { - TK_APPNAME, TK_CARET, TK_SCALING, TK_USE_IM, - TK_WINDOWINGSYSTEM, TK_INACTIVE + TK_APPNAME, TK_BUSY, TK_CARET, TK_INACTIVE, TK_SCALING, TK_USE_IM, + TK_WINDOWINGSYSTEM }; - tkwin = (Tk_Window) clientData; - if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "option ?arg?"); return TCL_ERROR; @@ -657,6 +655,8 @@ Tk_TkObjCmd( Tcl_AppendResult(interp, winPtr->nameUid, NULL); break; } + case TK_BUSY: + return Tk_BusyObjCmd(clientData, interp, objc, objv); case TK_CARET: { Tcl_Obj *objPtr; TkCaret *caretPtr; |