Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Correct bizarre name of enumeration member. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0fe67a0357772af73218487787cea28e |
| User & Date: | dkf 2011-03-24 09:12:17 |
Context
|
2011-03-24
| ||
| 09:52 | Ensure that any reference to temporary index tables is squelched immediately rather than hanging aro... check-in: 7d471fa4b4 user: dkf tags: trunk | |
| 09:12 | Correct bizarre name of enumeration member. check-in: 0fe67a0357 user: dkf tags: trunk | |
|
2011-03-23
| ||
| 13:11 | * generic/tclObj.c: exploit HAVE_FAST_TSD for the deletion context in TclFreeObj() check-in: 005a498bda user: mig tags: trunk | |
Changes
Changes to generic/tclEvent.c.
| ︙ | ︙ | |||
1475 1476 1477 1478 1479 1480 1481 |
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
int optionIndex;
int flags = 0; /* Initialized to avoid compiler warning. */
static const char *const updateOptions[] = {"idletasks", NULL};
| | | | 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 |
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
int optionIndex;
int flags = 0; /* Initialized to avoid compiler warning. */
static const char *const updateOptions[] = {"idletasks", NULL};
enum updateOptions {OPT_IDLETASKS};
if (objc == 1) {
flags = TCL_ALL_EVENTS|TCL_DONT_WAIT;
} else if (objc == 2) {
if (Tcl_GetIndexFromObj(interp, objv[1], updateOptions,
"option", 0, &optionIndex) != TCL_OK) {
return TCL_ERROR;
}
switch ((enum updateOptions) optionIndex) {
case OPT_IDLETASKS:
flags = TCL_WINDOW_EVENTS|TCL_IDLE_EVENTS|TCL_DONT_WAIT;
break;
default:
Tcl_Panic("Tcl_UpdateObjCmd: bad option index to UpdateOptions");
}
} else {
Tcl_WrongNumArgs(interp, 1, objv, "?idletasks?");
|
| ︙ | ︙ |