11 lines
383 B
C
11 lines
383 B
C
--- dispatch.C.orig 1994-05-20 03:21:54 UTC
|
|
+++ dispatch.C
|
|
@@ -24,7 +24,7 @@ int Dispatch(Dispatch_Entry* table, ClientData c, Tcl_
|
|
if ((entry->max_arg_count >= 0) && (argc > entry->max_arg_count)) {
|
|
TCL_Error(tcl, "too many arguments");
|
|
}
|
|
- return entry->handler(c, tcl, argc, argv);
|
|
+ return entry->handler(c, tcl, argc, (CONST84 char **)argv);
|
|
}
|
|
}
|
|
|