]>
Commit | Line | Data |
---|---|---|
e67f33c5 AM |
1 | --- src/tkButton.c.orig 2013-01-04 23:24:45.000000000 -0500 |
2 | +++ src/tkButton.c 2013-01-04 23:28:29.000000000 -0500 | |
3 | @@ -526,8 +526,6 @@ | |
4 | static Blt_TileChangedProc TileChangedProc; | |
5 | static Tcl_CmdProc ButtonCmd, LabelCmd, CheckbuttonCmd, RadiobuttonCmd; | |
6 | ||
7 | -EXTERN int TkCopyAndGlobalEval _ANSI_ARGS_((Tcl_Interp *interp, char *script)); | |
8 | - | |
9 | #if (TK_MAJOR_VERSION > 4) | |
10 | EXTERN void TkComputeAnchor _ANSI_ARGS_((Tk_Anchor anchor, Tk_Window tkwin, | |
11 | int padX, int padY, int innerWidth, int innerHeight, int *xPtr, | |
12 | @@ -1890,7 +1888,7 @@ | |
13 | } | |
14 | } | |
15 | if ((butPtr->type != TYPE_LABEL) && (butPtr->command != NULL)) { | |
16 | - return TkCopyAndGlobalEval(butPtr->interp, butPtr->command); | |
17 | + return Tcl_EvalObjEx(butPtr->interp, butPtr->command, TCL_EVAL_GLOBAL); | |
18 | } | |
19 | return TCL_OK; | |
20 | } |