CONSTify TkCopyAndGlobalEval, TkpSetMainMenubar,

TkpMenuNotifyToplevelCreate, and TkSetWindowMenuBar
Bring Tk_CreateBinding doc and signature (param name) in line.

1 files changed, 13 insertions, 13 deletions

diff --git a/generic/tkBind.c b/generic/tkBind.c
index e0fcf19..27e9a3b 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.62 2010/02/13 13:47:49 nijtmans Exp $
+ * RCS: @(#) $Id: tkBind.c,v 1.63 2010/05/10 20:58:18 nijtmans Exp $
  */
 
 #include "tkInt.h"
@@ -107,7 +107,7 @@ typedef struct BindingTable {
  *
  * A virtual event is usually never part of the event stream, but instead is
  * synthesized inline by matching low-level events. However, a virtual event
- * may be generated by platform-specific code or by Tcl scripts. In that case,
+ * may be generated by platform-specific code or by Tcl commands. In that case,
  * no lookup of the virtual event will need to be done using this table,
  * because the virtual event is actually in the event stream.
  */
@@ -284,7 +284,7 @@ typedef struct PhysicalsOwned {
 /*
  * One of the following structures exists for each interpreter. This structure
  * keeps track of the current display and screen in the interpreter, so that a
- * script can be invoked whenever the display/screen changes (the script does
+ * command can be invoked whenever the display/screen changes (the command does
  * things like point tk::Priv at a display-specific structure).
  */
 
@@ -944,7 +944,7 @@ Tk_CreateBinding(
 				 * associated. */
     const char *eventString,	/* String describing event sequence that
 				 * triggers binding. */
-    const char *command,	/* Contains Tcl command to execute when
+    const char *script,	/* Contains Tcl script to execute when
 				 * binding triggers. */
     int append)			/* 0 means replace any existing binding for
 				 * eventString; 1 means append to that
@@ -995,17 +995,17 @@ Tk_CreateBinding(
 
     oldStr = psPtr->clientData;
     if ((append != 0) && (oldStr != NULL)) {
-	size_t length1 = strlen(oldStr), length2 = strlen(command);
+	size_t length1 = strlen(oldStr), length2 = strlen(script);
 
 	newStr = ckalloc((unsigned) length1 + length2 + 2);
 	memcpy(newStr, oldStr, length1);
 	newStr[length1] = '\n';
-	memcpy(newStr+length1+1, command, length2+1);
+	memcpy(newStr+length1+1, script, length2+1);
     } else {
-	size_t length = strlen(command);
+	size_t length = strlen(script);
 
 	newStr = ckalloc((unsigned) length+1);
-	memcpy(newStr, command, length+1);
+	memcpy(newStr, script, length+1);
     }
     if (oldStr != NULL) {
 	ckfree(oldStr);
@@ -1195,10 +1195,10 @@ Tk_DeleteBinding(
  *
  * Tk_GetBinding --
  *
- *	Return the command associated with a given event string.
+ *	Return the script associated with a given event string.
  *
  * Results:
- *	The return value is a pointer to the command string associated with
+ *	The return value is a pointer to the script associated with
  *	eventString for object in the domain given by bindingTable. If there
  *	is no binding for eventString, or if eventString is improperly formed,
  *	then NULL is returned and an error message is left in the interp's
@@ -1374,9 +1374,9 @@ Tk_DeleteAllBindings(
  *	None.
  *
  * Side effects:
- *	Depends on the command associated with the matching binding.
+ *	Depends on the script associated with the matching binding.
  *
- *	All Tcl bindings scripts for each object are accumulated before the
+ *	All Tcl binding scripts for each object are accumulated before the
  *	first binding is evaluated. If the action of a Tcl binding is to
  *	change or delete a binding, or delete the window associated with the
  *	binding, all the original Tcl binding scripts will still fire.
@@ -4637,7 +4637,7 @@ TkKeysymToString(
 int
 TkCopyAndGlobalEval(
     Tcl_Interp *interp,		/* Interpreter in which to evaluate script. */
-    char *script)		/* Script to evaluate. */
+    const char *script)		/* Script to evaluate. */
 {
     Tcl_DString buffer;
     int code;