summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authornijtmans@users.sourceforge.net <jan.nijtmans>2012-04-06 23:17:17 (GMT)
committernijtmans@users.sourceforge.net <jan.nijtmans>2012-04-06 23:17:17 (GMT)
commit4d4df7d0557aaf60b7dfb222e4a5d3e2f2f39580 (patch)
treed008927dd7a04cca116dd1b3a0e145ee035f5f9a /generic
parent00e5f8f528b154629994e035e2be09e018cc3cae (diff)
downloadtk-4d4df7d0557aaf60b7dfb222e4a5d3e2f2f39580.zip
tk-4d4df7d0557aaf60b7dfb222e4a5d3e2f2f39580.tar.gz
tk-4d4df7d0557aaf60b7dfb222e4a5d3e2f2f39580.tar.bz2
[Bug 3176239] control-MouseWheel causes segv
Diffstat (limited to 'generic')
-rwxr-xr-x[-rw-r--r--]generic/tkBind.c2
1 files changed, 1 insertions, 1 deletions
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);
}