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/tkInt.h | |
| 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/tkInt.h')
| -rw-r--r-- | generic/tkInt.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tkInt.h b/generic/tkInt.h index ac46234..21d12f1 100644 --- a/generic/tkInt.h +++ b/generic/tkInt.h @@ -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: tkInt.h,v 1.85 2008/10/15 06:41:06 nijtmans Exp $ + * RCS: $Id: tkInt.h,v 1.86 2008/10/18 14:22:21 dkf Exp $ */ #ifndef _TKINT @@ -670,6 +670,7 @@ typedef struct TkMainInfo { * ::tk::AlwaysShowSelection variable. */ struct TkMainInfo *nextPtr; /* Next in list of all main windows managed by * this process. */ + Tcl_HashTable busyTable; /* Information used by [tk busy] command. */ } TkMainInfo; /* @@ -981,6 +982,9 @@ MODULE_SCOPE int Tk_BindObjCmd(ClientData clientData, MODULE_SCOPE int Tk_BindtagsObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); +MODULE_SCOPE int Tk_BusyObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[]); MODULE_SCOPE int Tk_ButtonObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); |