summaryrefslogtreecommitdiffstats
path: root/generic/tkBind.c
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2010-05-17 17:19:21 (GMT)
committerjenglish <jenglish@flightlab.com>2010-05-17 17:19:21 (GMT)
commitf74e5ef77536fc80f0f0a89f6cd676e9bc6c5796 (patch)
tree7fccf0bff4631f63e2b5d35905a5192b49333efb /generic/tkBind.c
parentc8ab85ecfd0e2802bb98ab00e67b9acaa01a5577 (diff)
downloadtk-f74e5ef77536fc80f0f0a89f6cd676e9bc6c5796.zip
tk-f74e5ef77536fc80f0f0a89f6cd676e9bc6c5796.tar.gz
tk-f74e5ef77536fc80f0f0a89f6cd676e9bc6c5796.tar.bz2
Revert [Patch #2999920], as it entails an incompatible change to the C API
is and is the cause of [Bug #3002768].
Diffstat (limited to 'generic/tkBind.c')
-rw-r--r--generic/tkBind.c21
1 files changed, 14 insertions, 7 deletions
diff --git a/generic/tkBind.c b/generic/tkBind.c
index fff2196..67231cd 100644
--- a/generic/tkBind.c
+++ b/generic/tkBind.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkBind.c,v 1.64 2010/05/17 08:44:00 nijtmans Exp $
+ * RCS: @(#) $Id: tkBind.c,v 1.65 2010/05/17 17:19:22 jenglish Exp $
*/
#include "tkInt.h"
@@ -3199,7 +3199,9 @@ GetAllVirtualEvents(
hPtr = Tcl_FirstHashEntry(&vetPtr->nameTable, &search);
for ( ; hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
Tcl_DStringSetLength(&ds, 0);
+ Tcl_DStringAppend(&ds, "<<", 2);
Tcl_DStringAppend(&ds, Tcl_GetHashKey(hPtr->tablePtr, hPtr), -1);
+ Tcl_DStringAppend(&ds, ">>", 2);
Tcl_AppendElement(interp, Tcl_DStringValue(&ds));
}
@@ -3917,6 +3919,7 @@ GetVirtualEventUid(
Tcl_Interp *interp,
char *virtString)
{
+ Tk_Uid uid;
size_t length;
length = strlen(virtString);
@@ -3927,8 +3930,11 @@ GetVirtualEventUid(
"\" is badly formed", NULL);
return NULL;
}
+ virtString[length - 2] = '\0';
+ uid = Tk_GetUid(virtString + 2);
+ virtString[length - 2] = '>';
- return Tk_GetUid(virtString);
+ return uid;
}
/*
@@ -4134,7 +4140,7 @@ ParseEventDescription(
* event string. */
unsigned long *eventMaskPtr)/* Filled with event mask of matched event. */
{
- char *p, c;
+ char *p;
unsigned long eventMask;
int count, eventFlags;
#define FIELD_SIZE 48
@@ -4221,12 +4227,11 @@ ParseEventDescription(
count = 0;
goto done;
}
- c = p[2];
- p[2] = '\0';
+ *p = '\0';
patPtr->eventType = VirtualEvent;
eventMask = VirtualEventMask;
- patPtr->detail.name = Tk_GetUid(field - 2);
- p[2] = c;
+ patPtr->detail.name = Tk_GetUid(field);
+ *p = '>';
p += 2;
goto end;
@@ -4441,7 +4446,9 @@ GetPatternString(
*/
if (patPtr->eventType == VirtualEvent) {
+ Tcl_DStringAppend(dsPtr, "<<", 2);
Tcl_DStringAppend(dsPtr, patPtr->detail.name, -1);
+ Tcl_DStringAppend(dsPtr, ">>", 2);
continue;
}