diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-04-06 23:17:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-04-06 23:17:17 (GMT) |
| commit | 8ec32ed5a809e943019a90b8977a061de7be9214 (patch) | |
| tree | d008927dd7a04cca116dd1b3a0e145ee035f5f9a | |
| parent | dc02c450669a2070e87c2bc5069492c18467d1a2 (diff) | |
| download | tk-8ec32ed5a809e943019a90b8977a061de7be9214.zip tk-8ec32ed5a809e943019a90b8977a061de7be9214.tar.gz tk-8ec32ed5a809e943019a90b8977a061de7be9214.tar.bz2 | |
[Bug 3176239] control-MouseWheel causes segv
FossilOrigin-Name: 316704e1cead55885b6955034ece81949f1ee9d2
| -rwxr-xr-x | ChangeLog | 4 | ||||
| -rwxr-xr-x[-rw-r--r--] | generic/tkBind.c | 2 |
2 files changed, 5 insertions, 1 deletions
@@ -1,3 +1,7 @@ +2012-04-07 Jan Nijtmans <nijtmans@users.sf.net> + + * generic/tkBind.c: [Bug 3176239] control-MouseWheel causes segv + 2012-03-29 Jan Nijtmans <nijtmans@users.sf.net> * unix/tcl.m4: [Bug 3511806] Compiler checks too early diff --git a/generic/tkBind.c b/generic/tkBind.c index c3ee5a1..3f05ccc 100644..100755 --- a/generic/tkBind.c +++ b/generic/tkBind.c @@ -2547,7 +2547,7 @@ ExpandPercents(winPtr, before, eventPtr, keySym, dsPtr) } goto doNumber; case 'A': - if (flags & KEY) { + if ((flags & KEY) && (eventPtr->type != MouseWheelEvent)) { Tcl_DStringFree(&buf); string = TkpGetString(winPtr, eventPtr, &buf); } |