summaryrefslogtreecommitdiffstats
path: root/macosx/tkMacOSXHLEvents.c
diff options
context:
space:
mode:
Diffstat (limited to 'macosx/tkMacOSXHLEvents.c')
-rw-r--r--macosx/tkMacOSXHLEvents.c10
1 files changed, 7 insertions, 3 deletions
diff --git a/macosx/tkMacOSXHLEvents.c b/macosx/tkMacOSXHLEvents.c
index 8054d7e..3705d55 100644
--- a/macosx/tkMacOSXHLEvents.c
+++ b/macosx/tkMacOSXHLEvents.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: tkMacOSXHLEvents.c,v 1.15.2.1 2008/07/22 17:00:49 das Exp $
+ * RCS: @(#) $Id: tkMacOSXHLEvents.c,v 1.15.2.2 2008/09/02 16:14:18 das Exp $
*/
#include "tkMacOSXPrivate.h"
@@ -329,7 +329,7 @@ OdocHandler(
}
/*
- * If we get any errors wil retrieving our parameters we just return with
+ * If we get any errors while retrieving our parameters we just return with
* no error.
*/
@@ -418,7 +418,7 @@ PrintHandler(
}
/*
- * If we get any errors wil retrieving our parameters we just return with
+ * If we get any errors while retrieving our parameters we just return with
* no error.
*/
@@ -447,6 +447,10 @@ PrintHandler(
}
}
+ /*
+ * Now handle the event by evaluating a script.
+ */
+
if (Tcl_EvalEx(interp, Tcl_DStringValue(&command),
Tcl_DStringLength(&command), TCL_EVAL_GLOBAL) != TCL_OK) {
Tcl_BackgroundError(interp);