diff options
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tkMacOSXDialog.c | 3 | ||||
| -rw-r--r-- | macosx/tkMacOSXHLEvents.c | 10 | ||||
| -rw-r--r-- | macosx/tkMacOSXKeyEvent.c | 3 | ||||
| -rw-r--r-- | macosx/tkMacOSXPrivate.h | 4 |
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) |