Add a non-regression test, which turns out to require considerable extra machinery.

Author: culler

macosx/tkMacOSXDialog.c

@@ -87,6 +87,41 @@ static filepanelFilterInfo filterInfo;
 static NSOpenPanel *openpanel;
 static NSSavePanel *savepanel;
 
+/*
+ * A thread which closes the currently running modal dialog after a timeout.
+ */
+
+@interface TKPanelMonitor: NSThread {
+@private
+    NSTimeInterval _timeout;
+}
+
+- (id) initWithTimeout: (NSTimeInterval) timeout;
+
+@end
+
+@implementation TKPanelMonitor: NSThread
+
+- (id) initWithTimeout: (NSTimeInterval) timeout {
+    self = [super init];
+    if (self) {
+	_timeout = timeout;
+	return self;
+    }
+    return self;
+}
+
+- (void) main
+{
+    [NSThread sleepForTimeInterval:_timeout];
+    if ([self isCancelled]) {
+	[NSThread exit];
+    }
+    [NSApp stopModalWithCode:modalCancel];
+}
+@end
+
+
 static const char *const colorOptionStrings[] = {
     "-initialcolor", "-parent", "-title", NULL
 };
@@ -870,7 +905,20 @@ Tk_GetOpenFileObjCmd(
 	parent = nil;
 	parentIsKey = False;
     }
-    modalReturnCode = showOpenSavePanel(openpanel, parent, interp, cmdObj, multiple);
+    TKPanelMonitor *monitor;
+    if (testsAreRunning) {
+	/*
+	 * We need the panel to close by itself when running tests.
+	 */
+
+	monitor = [[TKPanelMonitor alloc] initWithTimeout: 1.0];
+	[monitor start];
+    }
+    modalReturnCode = showOpenSavePanel(openpanel, parent, interp, cmdObj,
+					multiple);
+    if (testsAreRunning) {
+	[monitor cancel];
+    }
     if (cmdObj) {
 	Tcl_DecrRefCount(cmdObj);
     }

macosx/tkMacOSXInit.c

@@ -21,6 +21,12 @@
 #include <sys/stat.h>
 #include <sys/utsname.h>
 
+/*
+ * This flag is set if tests are being run.
+ */
+
+int testsAreRunning = 0;
+
 static char tkLibPath[PATH_MAX + 1] = "";
 
 /*
@@ -45,6 +51,7 @@ static Tcl_ObjCmdProc TkMacOSVersionObjCmd;
 @synthesize tkLiveResizeEnded = _tkLiveResizeEnded;
 @synthesize tkWillExit = _tkWillExit;
 @synthesize tkPointerWindow = _tkPointerWindow;
+;
 - (void) setTkPointerWindow: (TkWindow *)winPtr
 {
     if (winPtr) {

macosx/tkMacOSXPrivate.h

@@ -134,6 +134,12 @@
 		STRINGIFY(symbol)); \
     }
 
+/*
+ *  This is set to 1 if tests are being run. Defined in tkMacOSXInit.c.
+ */
+
+extern int testsAreRunning;
+
 /*
  *  The structure of a 32-bit XEvent keycode on macOS. It may be viewed as
  *  an unsigned int or as having either two or three bitfields.

macosx/tkMacOSXTest.c

@@ -16,7 +16,6 @@
 #include "tkMacOSXConstants.h"
 #include "tkMacOSXWm.h"
 
-
 /*
  * Forward declarations of procedures defined later in this file:
  */
@@ -48,6 +47,12 @@ int
 TkplatformtestInit(
     Tcl_Interp *interp)		/* Interpreter to add commands to. */
 {
+    /*
+     * Set a flag indicating that testing is in progress.
+     */
+
+    testsAreRunning = 1;
+      
     /*
      * Add commands for platform specific tests on MacOS here.
      */

tests/filebox.test

@@ -23,6 +23,14 @@ test fileDialog-0.2 {GetFileName: file types: MakeFilter() fails} {
     regsub -all "\0" $msg {\\0} msg
     list $x $msg
 } {1 {bad Macintosh file type "\0\0"}}
+test fileDialog-0.3 {GetFileName: file types: bad filetype} {
+    # Check for the crash reported in ticket 080a28104.
+
+    set filename [tk_getOpenFile -filetypes {
+    	{"Invalid extension" {x.y}}
+	{"All files" {*}}
+    }]
+} {}
 
 set tk_strictMotif_old $tk_strictMotif