summaryrefslogtreecommitdiffstats
path: root/generic/tkBind.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-04-06 23:23:45 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-04-06 23:23:45 (GMT)
commitc748766c59dabb2bec19ab6e3a9f3b3b66975a9b (patch)
tree69b5e42d91ef30cee0adbccadc5ed1aafb822d58 /generic/tkBind.c
parent5044ec3cd868224c5c8b39afcadeac68fe8c2ed4 (diff)
parent675dc433081e21fce5e85d36ad8a28383cc6883a (diff)
downloadtk-c748766c59dabb2bec19ab6e3a9f3b3b66975a9b.zip
tk-c748766c59dabb2bec19ab6e3a9f3b3b66975a9b.tar.gz
tk-c748766c59dabb2bec19ab6e3a9f3b3b66975a9b.tar.bz2
[Bug 3176239] control-MouseWheel causes segv
Diffstat (limited to 'generic/tkBind.c')
-rw-r--r--generic/tkBind.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkBind.c b/generic/tkBind.c
index 53a2046..6841f1e 100644
--- a/generic/tkBind.c
+++ b/generic/tkBind.c
@@ -2147,7 +2147,7 @@ ExpandPercents(
}
goto doNumber;
case 'A':
- if (flags & KEY) {
+ if ((flags & KEY) && (eventPtr->type != MouseWheelEvent)) {
Tcl_DStringFree(&buf);
string = TkpGetString(winPtr, eventPtr, &buf);
}