summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-09-02 16:10:54 (GMT)
committerdas <das>2008-09-02 16:10:54 (GMT)
commit95e0e3514d5e3e55f91b743363ef64f1a2bfe738 (patch)
tree3c40081be33ace95b998d50bd312a870763188d9
parentefda61bdd67b9f540aa57722efec0e2430e6056f (diff)
downloadtk-95e0e3514d5e3e55f91b743363ef64f1a2bfe738.zip
tk-95e0e3514d5e3e55f91b743363ef64f1a2bfe738.tar.gz
tk-95e0e3514d5e3e55f91b743363ef64f1a2bfe738.tar.bz2
comments, whitespace
-rw-r--r--macosx/tkMacOSXDialog.c3
-rw-r--r--macosx/tkMacOSXHLEvents.c10
-rw-r--r--macosx/tkMacOSXKeyEvent.c3
-rw-r--r--macosx/tkMacOSXPrivate.h4
4 files changed, 13 insertions, 7 deletions
diff --git a/macosx/tkMacOSXDialog.c b/macosx/tkMacOSXDialog.c
index abe3c2b..da7dbf8 100644
--- a/macosx/tkMacOSXDialog.c
+++ b/macosx/tkMacOSXDialog.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMacOSXDialog.c,v 1.37 2008/04/27 22:39:12 dkf Exp $
+ * RCS: @(#) $Id: tkMacOSXDialog.c,v 1.38 2008/09/02 16:10:54 das Exp $
*/
#include "tkMacOSXPrivate.h"
@@ -38,6 +38,7 @@
* The following structures are used in the GetFileName() function. They store
* information about the file dialog and the file filters.
*/
+
typedef struct _OpenFileData {
FileFilterList fl; /* List of file filters. */
SInt16 curType; /* The filetype currently being listed. */
diff --git a/macosx/tkMacOSXHLEvents.c b/macosx/tkMacOSXHLEvents.c
index bc85386..2f5a0b7 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.17 2008/07/22 17:00:20 das Exp $
+ * RCS: @(#) $Id: tkMacOSXHLEvents.c,v 1.18 2008/09/02 16:10:55 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);
diff --git a/macosx/tkMacOSXKeyEvent.c b/macosx/tkMacOSXKeyEvent.c
index f508d67..fd52e7a 100644
--- a/macosx/tkMacOSXKeyEvent.c
+++ b/macosx/tkMacOSXKeyEvent.c
@@ -54,7 +54,7 @@
* software in accordance with the terms specified in this
* license.
*
- * RCS: @(#) $Id: tkMacOSXKeyEvent.c,v 1.24 2007/12/13 15:27:10 dgp Exp $
+ * RCS: @(#) $Id: tkMacOSXKeyEvent.c,v 1.25 2008/09/02 16:10:55 das Exp $
*/
#include "tkMacOSXPrivate.h"
@@ -1076,6 +1076,7 @@ XUngrabKeyboard(
* Side effects:
* None.
*
+ *----------------------------------------------------------------------
*/
Tk_Window
diff --git a/macosx/tkMacOSXPrivate.h b/macosx/tkMacOSXPrivate.h
index e7414fd..7f00cf2 100644
--- a/macosx/tkMacOSXPrivate.h
+++ b/macosx/tkMacOSXPrivate.h
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMacOSXPrivate.h,v 1.7 2008/06/19 00:13:03 das Exp $
+ * RCS: @(#) $Id: tkMacOSXPrivate.h,v 1.8 2008/09/02 16:10:55 das Exp $
*/
#ifndef _TKMACPRIV
@@ -64,7 +64,7 @@
#else
#define kCGBitmapByteOrder32Host (2 << 12)
#endif
- #endif
+#endif
/* Define constants only available on Mac OS X 10.5 or later */
#if MAC_OS_X_VERSION_MAX_ALLOWED < 1050
#define kWindowUnifiedTitleAndToolbarAttribute (1L << 7)