diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-18 14:22:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-18 14:22:20 (GMT) |
| commit | 678e5a8acf06358ad722dff065fb80fcd06e7d15 (patch) | |
| tree | 5859725f08cf8f5c220d3fd04da0f8fe6f0d3103 /generic/tkCmds.c | |
| parent | ce82534d5c94d852ec68426e7cfd45c29f72e5c9 (diff) | |
| download | tk-678e5a8acf06358ad722dff065fb80fcd06e7d15.zip tk-678e5a8acf06358ad722dff065fb80fcd06e7d15.tar.gz tk-678e5a8acf06358ad722dff065fb80fcd06e7d15.tar.bz2 | |
Implementation of the [tk busy] command on non-OSX.
Adapted from [Patch 1997907]
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; |