diff options
author | culler <culler> | 2024-05-31 22:01:29 (GMT) |
---|---|---|
committer | culler <culler> | 2024-05-31 22:01:29 (GMT) |
commit | 7e11e70c9bc4f893b845c39baea7c50cac82ffad (patch) | |
tree | 425f3defd6c6ae001da3e24a7d87d9937cf09ae3 /generic | |
parent | 95c18ceae29b680b1769777fb97a05e9d0b7b603 (diff) | |
download | tk-7e11e70c9bc4f893b845c39baea7c50cac82ffad.zip tk-7e11e70c9bc4f893b845c39baea7c50cac82ffad.tar.gz tk-7e11e70c9bc4f893b845c39baea7c50cac82ffad.tar.bz2 |
Fix typo in event.test; be less lazy in processevents
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkTest.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tkTest.c b/generic/tkTest.c index b424a36..bd6dde3 100644 --- a/generic/tkTest.c +++ b/generic/tkTest.c @@ -1729,11 +1729,17 @@ static int ProcessEventsObjCmd( "leave", "enter", "motion", "expose", NULL}; static const int eventTypes[] = { LeaveNotify, EnterNotify, MotionNotify, Expose}; - int whichEvents[100]; +#define NUM_TYPES (sizeof(eventTypes)/sizeof(int)) + int whichEvents[1 + NUM_TYPES]; if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "eventtype ?eventtype ...?"); return TCL_ERROR; } + if (objc > NUM_TYPES + 1) { + Tcl_WrongNumArgs(interp, 1, objv, "too many event types"); + return TCL_ERROR; + } +#undef NUM_TYPES for (int n = 1; n < objc; n++) { if (Tcl_GetIndexFromObj(interp, objv[n], eventTypeNames, "eventtype", 0, &index) != TCL_OK) { |