Ticket #37532: patch-tk8.6

File patch-tk8.6, 781 bytes (added by howarth@…, 12 years ago)

patch to solve build issues against tk 8.6

Line 
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 }