diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-04 13:10:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-04 13:10:04 (GMT) |
| commit | 3f5641ced949113a086adc0abd956b7d42f8f8f3 (patch) | |
| tree | 96975854e71674d85f1bf10c3ca7b0bbf69f41a5 | |
| parent | b1ce6a96d8e208270131c02c90e90ec29b11b704 (diff) | |
| download | tk-3f5641ced949113a086adc0abd956b7d42f8f8f3.zip tk-3f5641ced949113a086adc0abd956b7d42f8f8f3.tar.gz tk-3f5641ced949113a086adc0abd956b7d42f8f8f3.tar.bz2 | |
Fix [d2396a9f1b]: [send] with options returns weird strings on X11
| -rw-r--r-- | unix/tkUnixSend.c | 2 | ||||
| -rw-r--r-- | win/tkWinSend.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index 72b2b1e..3afe9e7 100644 --- a/unix/tkUnixSend.c +++ b/unix/tkUnixSend.c @@ -982,7 +982,7 @@ Tk_SendObjCmd( return TCL_ERROR; } for (i = 1; i < objc; i++) { - if (Tcl_GetIndexFromObjStruct(interp, objv[i], sendOptions, + if (Tcl_GetIndexFromObjStruct(NULL, objv[i], sendOptions, sizeof(char *), "option", 0, &index) != TCL_OK) { break; } diff --git a/win/tkWinSend.c b/win/tkWinSend.c index 0381fb2..7942cfc 100644 --- a/win/tkWinSend.c +++ b/win/tkWinSend.c @@ -344,7 +344,7 @@ Tk_SendObjCmd( */ for (i = 1; i < objc; i++) { - if (Tcl_GetIndexFromObjStruct(interp, objv[i], sendOptions, + if (Tcl_GetIndexFromObjStruct(NULL, objv[i], sendOptions, sizeof(char *), "option", 0, &optind) != TCL_OK) { break; } |