Removed support for Mac OS Classic platform [Patch 918139]

1 files changed, 0 insertions, 1420 deletions

diff --git a/mac/tkMacDialog.c b/mac/tkMacDialog.c
deleted file mode 100644
index 8719782..0000000
--- a/mac/tkMacDialog.c
+++ /dev/null
@@ -1,1420 +0,0 @@
-/*
- * tkMacDialog.c --
- *
- *	Contains the Mac implementation of the common dialog boxes.
- *
- * Copyright (c) 1996-1997 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tkMacDialog.c,v 1.9 2002/04/08 09:04:38 das Exp $
- */
-
-#include <Gestalt.h>
-#include <Aliases.h>
-#include <Errors.h>
-#include <Strings.h>
-#include <MoreFiles.h>
-#include <MoreFilesExtras.h>
-#include <StandardFile.h>
-#include <ColorPicker.h>
-#include <Lowmem.h>
-#include <Navigation.h>
-#include "tkPort.h"
-#include "tkInt.h"
-#include "tclMacInt.h"
-#include "tkMacInt.h"
-#include "tkFileFilter.h"
-
-#ifndef StrLength
-#define StrLength(s) 		(*((unsigned char *) (s)))
-#endif
-#ifndef StrBody
-#define StrBody(s)		((char *) (s) + 1)
-#endif
-
-/*
- * The following are ID's for resources that are defined in tkMacResource.r
- */
-#define OPEN_BOX        130
-#define OPEN_POPUP      131
-#define OPEN_MENU       132
-#define OPEN_POPUP_ITEM 10
-
-#define SAVE_FILE	0
-#define OPEN_FILE	1
-#define CHOOSE_FOLDER   2
-
-#define MATCHED		0
-#define UNMATCHED	1
-
-/*
- * The following structure is used in the GetFileName() function. It stored
- * 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. */
-    short popupItem;			/* Item number of the popup in the
-					 * dialog. */
-    int usePopup;			/* True if we show the popup menu (this
-    					 * is an open operation and the
-					 * -filetypes option is set). */
-} OpenFileData;
-
-
-static pascal Boolean	FileFilterProc _ANSI_ARGS_((CInfoPBPtr pb,
-			    void *myData));
-static int 		GetFileName _ANSI_ARGS_ ((ClientData clientData, 
-			    Tcl_Interp *interp, int objc, 
-			    Tcl_Obj *CONST objv[], int isOpen));
-static int 		NavGetFileName _ANSI_ARGS_ ((ClientData clientData, 
-			    Tcl_Interp *interp, int objc, 
-			    Tcl_Obj *CONST objv[], int isOpen));
-static Boolean		MatchOneType _ANSI_ARGS_((StringPtr fileNamePtr, OSType fileType,
-			    OpenFileData *myofdPtr, FileFilter *filterPtr));
-static pascal short 	OpenHookProc _ANSI_ARGS_((short item,
-			    DialogPtr theDialog, OpenFileData * myofdPtr));
-static int 		ParseFileDlgArgs _ANSI_ARGS_ ((Tcl_Interp * interp,
-			    OpenFileData * myofdPtr, int argc, char ** argv,
-			    int isOpen));
-static pascal Boolean   OpenFileFilterProc(AEDesc* theItem, void* info, 
-                            NavCallBackUserData callBackUD,
-                            NavFilterModes filterMode );
-pascal void             OpenEventProc(NavEventCallbackMessage callBackSelector,
-                            NavCBRecPtr callBackParms,
-                            NavCallBackUserData callBackUD );
-static void             InitFileDialogs();
-static int              StdGetFile(Tcl_Interp *interp, OpenFileData *ofd,
-                            unsigned char *initialFile, int isOpen);
-static int              NavServicesGetFile(Tcl_Interp *interp, OpenFileData *ofd,
-                            AEDesc *initialDesc, unsigned char *initialFile,
-                            StringPtr title, StringPtr message, int multiple, int isOpen);
-static int              HandleInitialDirectory (Tcl_Interp *interp, char *initialDir, FSSpec *dirSpec, 
-                            AEDesc *dirDescPtr);                            
-/*
- * Filter and hook functions used by the tk_getOpenFile and tk_getSaveFile
- * commands.
- */
-
-int fileDlgInited = 0;
-int useNavServices = 0;
-NavObjectFilterUPP openFileFilterUPP;
-NavEventUPP openFileEventUPP;
-
-static FileFilterYDUPP openFilter = NULL;
-static DlgHookYDUPP openHook = NULL;
-static DlgHookYDUPP saveHook = NULL;
-  
-
-/*
- *----------------------------------------------------------------------
- *
- * Tk_ChooseColorObjCmd --
- *
- *	This procedure implements the color dialog box for the Mac
- *	platform. See the user documentation for details on what it
- *	does.
- *
- * Results:
- *      A standard Tcl result.
- *
- * Side effects:
- *      See the user documentation.
- *
- *----------------------------------------------------------------------
- */
-
-int
-Tk_ChooseColorObjCmd(
-    ClientData clientData,	/* Main window associated with interpreter. */
-    Tcl_Interp *interp,		/* Current interpreter. */
-    int objc,			/* Number of arguments. */
-    Tcl_Obj *CONST objv[])	/* Argument objects. */
-{
-    Tk_Window parent;
-    char *title;
-    int i, picked, srcRead, dstWrote;
-    long response;
-    OSErr err;
-    static inited = 0;
-    static RGBColor in;
-    static CONST char *optionStrings[] = {
-	"-initialcolor",    "-parent",	    "-title",	    NULL
-    };
-    enum options {
-	COLOR_INITIAL,	    COLOR_PARENT,   COLOR_TITLE
-    };
-
-    if (inited == 0) {
-    	/*
-    	 * 'in' stores the last color picked.  The next time the color dialog
-    	 * pops up, the last color will remain in the dialog.
-    	 */
-    	 
-        in.red = 0xffff;
-        in.green = 0xffff;
-        in.blue = 0xffff;
-        inited = 1;
-    }
-    
-    parent = (Tk_Window) clientData;
-    title = "Choose a color:";
-    picked = 0;
-        
-    for (i = 1; i < objc; i += 2) {
-    	int index;
-    	char *option, *value;
-    	
-        if (Tcl_GetIndexFromObj(interp, objv[i], optionStrings, "option",
-		TCL_EXACT, &index) != TCL_OK) {
-	    return TCL_ERROR;
-	}
-	if (i + 1 == objc) {
-	    option = Tcl_GetStringFromObj(objv[i], NULL);
-	    Tcl_AppendResult(interp, "value for \"", option, "\" missing", 
-		    (char *) NULL);
-	    return TCL_ERROR;
-	}
-	value = Tcl_GetStringFromObj(objv[i + 1], NULL);
-	
-	switch ((enum options) index) {
-	    case COLOR_INITIAL: {
-		XColor *colorPtr;
-
-		colorPtr = Tk_GetColor(interp, parent, value);
-		if (colorPtr == NULL) {
-		    return TCL_ERROR;
-		}
-		in.red   = colorPtr->red;
-		in.green = colorPtr->green;
-                in.blue  = colorPtr->blue;
-                Tk_FreeColor(colorPtr);
-		break;
-	    }
-	    case COLOR_PARENT: {
-		parent = Tk_NameToWindow(interp, value, parent);
-		if (parent == NULL) {
-		    return TCL_ERROR;
-		}
-		break;
-	    }
-	    case COLOR_TITLE: {
-	        title = value;
-		break;
-	    }
-	}
-    }
-        
-    /*
-     * Use the gestalt manager to determine how to bring
-     * up the color picker.  If versin 2.0 isn't available
-     * we can assume version 1.0 is available as it comes with
-     * Color Quickdraw which Tk requires to run at all.
-     */
-     
-    err = Gestalt(gestaltColorPicker, &response); 
-    if ((err == noErr) && (response == 0x0200L)) {
-	ColorPickerInfo cpinfo;
-
-        /*
-         * Version 2.0 of the color picker is available. Let's use it
-         */
-
-    	cpinfo.theColor.profile = 0L;
-    	cpinfo.theColor.color.rgb.red   = in.red;
-    	cpinfo.theColor.color.rgb.green = in.green;
-    	cpinfo.theColor.color.rgb.blue  = in.blue;
-    	cpinfo.dstProfile = 0L;
-    	cpinfo.flags = kColorPickerCanModifyPalette | kColorPickerCanAnimatePalette;
-    	cpinfo.placeWhere = kDeepestColorScreen;
-    	cpinfo.pickerType = 0L;
-    	cpinfo.eventProc = NULL;
-    	cpinfo.colorProc = NULL;
-    	cpinfo.colorProcData = NULL;
-    	
-    	Tcl_UtfToExternal(NULL, NULL, title, -1, 0, NULL, 
-		StrBody(cpinfo.prompt), 255, &srcRead, &dstWrote, NULL);
-    	StrLength(cpinfo.prompt) = (unsigned char) dstWrote;
-
-        if ((PickColor(&cpinfo) == noErr) && (cpinfo.newColorChosen != 0)) {
-            in.red 	= cpinfo.theColor.color.rgb.red;
-            in.green 	= cpinfo.theColor.color.rgb.green;
-            in.blue 	= cpinfo.theColor.color.rgb.blue;
-            picked = 1;
-        }
-    } else {
-    	RGBColor out;
-    	Str255 prompt;
-    	Point point = {-1, -1};
-    	
-        /*
-         * Use version 1.0 of the color picker
-         */
-    	
-    	Tcl_UtfToExternal(NULL, NULL, title, -1, 0, NULL, StrBody(prompt), 
-		255, &srcRead, &dstWrote, NULL);
-    	StrLength(prompt) = (unsigned char) dstWrote;
-
-        if (GetColor(point, prompt, &in, &out)) {
-            in = out;
-            picked = 1;
-        }
-    } 
-    
-    if (picked != 0) {
-        char result[32];
-
-        sprintf(result, "#%02x%02x%02x", in.red >> 8, in.green >> 8, 
-        	in.blue >> 8);
-	Tcl_AppendResult(interp, result, NULL);
-    }
-    return TCL_OK;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tk_GetOpenFileObjCmd --
- *
- *	This procedure implements the "open file" dialog box for the
- *	Mac platform. See the user documentation for details on what
- *	it does.
- *
- * Results:
- *      A standard Tcl result.
- *
- * Side effects:
- *	See user documentation.
- *----------------------------------------------------------------------
- */
-
-int
-Tk_GetOpenFileObjCmd(
-    ClientData clientData,	/* Main window associated with interpreter. */
-    Tcl_Interp *interp,		/* Current interpreter. */
-    int objc,			/* Number of arguments. */
-    Tcl_Obj *CONST objv[])	/* Argument objects. */
-{
-    int i, result, multiple;
-    OpenFileData ofd;
-    Tk_Window parent;
-    Str255 message, title;
-    AEDesc initialDesc = {typeNull, NULL};
-    FSSpec dirSpec;
-    static CONST char *openOptionStrings[] = {
-	    "-defaultextension", "-filetypes", 
-	    "-initialdir", "-initialfile", 
-	    "-message", "-multiple",
-	    "-parent",	"-title", 	NULL
-    };
-    enum openOptions {
-	    OPEN_DEFAULT, OPEN_TYPES,	
-	    OPEN_INITDIR, OPEN_INITFILE,
-	    OPEN_MESSAGE, OPEN_MULTIPLE, 
-	    OPEN_PARENT, OPEN_TITLE
-    };
-    
-    if (!fileDlgInited) {
-	InitFileDialogs();
-    }
-    
-    result = TCL_ERROR;    
-    parent = (Tk_Window) clientData; 
-    multiple = false;
-    title[0] = 0;
-    message[0] = 0;   
-
-    TkInitFileFilters(&ofd.fl);
-    
-    ofd.curType		= 0;
-    ofd.popupItem	= OPEN_POPUP_ITEM;
-    ofd.usePopup 	= 1;
-
-    for (i = 1; i < objc; i += 2) {
-        char *choice;
-	int index, choiceLen;
-	char *string;
-	int srcRead, dstWrote;
-
-	if (Tcl_GetIndexFromObj(interp, objv[i], openOptionStrings, "option",
-		TCL_EXACT, &index) != TCL_OK) {
-	    result = TCL_ERROR;
-	    goto end;
-	}
-	if (i + 1 == objc) {
-	    string = Tcl_GetStringFromObj(objv[i], NULL);
-	    Tcl_AppendResult(interp, "value for \"", string, "\" missing", 
-		    (char *) NULL);
-	    result = TCL_ERROR;
-	    goto end;
-	}
-	
-	switch (index) {
-	    case OPEN_DEFAULT:
-	        break;
-	    case OPEN_TYPES:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
-                if (TkGetFileFilters(interp, &ofd.fl, choice, 0) 
-                        != TCL_OK) {
-                    result = TCL_ERROR;
-                    goto end;
-                }
-	        break;
-	    case OPEN_INITDIR:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
-                if (HandleInitialDirectory(interp, choice, &dirSpec, 
-                        &initialDesc) != TCL_OK) {
-                    result = TCL_ERROR;
-                    goto end;
-                }
-	        break;
-	    case OPEN_INITFILE:
-	        break;
-	    case OPEN_MESSAGE:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-	        Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
-		        0, NULL, StrBody(message), 255, 
-		        &srcRead, &dstWrote, NULL);
-                message[0] = dstWrote;
-	        break;
-	    case OPEN_MULTIPLE:
-	        if (Tcl_GetBooleanFromObj(interp, objv[i + 1], &multiple) != TCL_OK) {
-	            result = TCL_ERROR;
-	            goto end;
-	        }
-	        break;
-	    case OPEN_PARENT:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-                parent = Tk_NameToWindow(interp, choice, parent);
-	        if (parent == NULL) {
-	            result = TCL_ERROR;
-	            goto end;
-	        }
-	        break;
-	    case OPEN_TITLE:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-	        Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
-		        0, NULL, StrBody(title), 255, 
-		        &srcRead, &dstWrote, NULL);
-                title[0] = dstWrote;
-	        break;
-	}
-    }
-             
-    if (useNavServices) {
-        AEDesc *initialPtr = NULL;
-        
-        if (initialDesc.descriptorType == typeFSS) {
-            initialPtr = &initialDesc;
-        }
-        result = NavServicesGetFile(interp, &ofd, initialPtr, NULL, 
-                title, message, multiple, OPEN_FILE);
-    } else {
-        result = StdGetFile(interp, &ofd, NULL, OPEN_FILE);
-    }
-
-    end:
-    TkFreeFileFilters(&ofd.fl);
-    AEDisposeDesc(&initialDesc);
-    
-    return result;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tk_GetSaveFileObjCmd --
- *
- *	Same as Tk_GetOpenFileCmd but opens a "save file" dialog box
- *	instead
- *
- * Results:
- *      A standard Tcl result.
- *
- * Side effects:
- *	See user documentation.
- *----------------------------------------------------------------------
- */
-
-int
-Tk_GetSaveFileObjCmd(
-    ClientData clientData,	/* Main window associated with interpreter. */
-    Tcl_Interp *interp,		/* Current interpreter. */
-    int objc,			/* Number of arguments. */
-    Tcl_Obj *CONST objv[])	/* Argument objects. */
-{
-    int i, result;
-    Str255 initialFile;
-    Tk_Window parent;
-    AEDesc initialDesc = {typeNull, NULL};
-    FSSpec dirSpec;
-    Str255 title, message;
-    OpenFileData ofd;
-    static CONST char *saveOptionStrings[] = {
-	    "-defaultextension", "-filetypes", "-initialdir", "-initialfile", 
-	    "-message", "-parent",	"-title", 	NULL
-    };
-    enum saveOptions {
-	    SAVE_DEFAULT,	SAVE_TYPES,	SAVE_INITDIR,	SAVE_INITFILE,
-	    SAVE_MESSAGE,	SAVE_PARENT,	SAVE_TITLE
-    };
-
-    if (!fileDlgInited) {
-	InitFileDialogs();
-    }
-    
-    result = TCL_ERROR;    
-    parent = (Tk_Window) clientData;    
-    StrLength(initialFile) = 0;
-    title[0] = 0;
-    message[0] = 0;   
-    
-
-    for (i = 1; i < objc; i += 2) {
-        char *choice;
-	int index, choiceLen;
-	char *string;
-        Tcl_DString ds;
-        int srcRead, dstWrote;
-
-	if (Tcl_GetIndexFromObj(interp, objv[i], saveOptionStrings, "option",
-		TCL_EXACT, &index) != TCL_OK) {
-	    return TCL_ERROR;
-	}
-	if (i + 1 == objc) {
-	    string = Tcl_GetStringFromObj(objv[i], NULL);
-	    Tcl_AppendResult(interp, "value for \"", string, "\" missing", 
-		    (char *) NULL);
-	    return TCL_ERROR;
-	}
-	switch (index) {
-	    case SAVE_DEFAULT:
-	        break;
-	    case SAVE_TYPES:
-	        break;
-	    case SAVE_INITDIR:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
-                if (HandleInitialDirectory(interp, choice, &dirSpec, 
-                        &initialDesc) != TCL_OK) {
-                    result = TCL_ERROR;
-                    goto end;
-                }
-	        break;
-	    case SAVE_INITFILE:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-                if (Tcl_TranslateFileName(interp, choice, &ds) == NULL) {
-                    result = TCL_ERROR;
-                    goto end;
-                }
-                Tcl_UtfToExternal(NULL, NULL, Tcl_DStringValue(&ds), 
-        	        Tcl_DStringLength(&ds), 0, NULL, 
-		        StrBody(initialFile), 255, &srcRead, &dstWrote, NULL);
-                StrLength(initialFile) = (unsigned char) dstWrote;
-                Tcl_DStringFree(&ds);            
-	        break;
-	    case SAVE_MESSAGE:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-	        Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
-		        0, NULL, StrBody(message), 255, 
-		        &srcRead, &dstWrote, NULL);
-                StrLength(message) = (unsigned char) dstWrote;
-	        break;
-	    case SAVE_PARENT:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-                parent = Tk_NameToWindow(interp, choice, parent);
-	        if (parent == NULL) {
-	            result = TCL_ERROR;
-	            goto end;
-	        }
-	        break;
-	    case SAVE_TITLE:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-	        Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
-		        0, NULL, StrBody(title), 255, 
-		        &srcRead, &dstWrote, NULL);
-                StrLength(title) = (unsigned char) dstWrote;
-	        break;
-	}
-    }
-         
-    TkInitFileFilters(&ofd.fl);
-    ofd.usePopup = 0;
-
-    if (useNavServices) {
-        AEDesc *initialPtr = NULL;
-        
-        if (initialDesc.descriptorType == typeFSS) {
-            initialPtr = &initialDesc;
-        }
-        result = NavServicesGetFile(interp, &ofd, initialPtr, initialFile, 
-                title, message, false, SAVE_FILE);
-    } else {
-        result = StdGetFile(interp, NULL, initialFile, SAVE_FILE);
-    }
-
-    end:
-    
-    AEDisposeDesc(&initialDesc);
-    
-    return result;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tk_ChooseDirectoryObjCmd --
- *
- *	This procedure implements the "tk_chooseDirectory" dialog box 
- *	for the Windows platform. See the user documentation for details 
- *	on what it does.
- *
- * Results:
- *	See user documentation.
- *
- * Side effects:
- *	A modal dialog window is created.  Tcl_SetServiceMode() is
- *	called to allow background events to be processed
- *
- *----------------------------------------------------------------------
- */
-
-int
-Tk_ChooseDirectoryObjCmd(clientData, interp, objc, objv)
-    ClientData clientData;	/* Main window associated with interpreter. */
-    Tcl_Interp *interp;		/* Current interpreter. */
-    int objc;			/* Number of arguments. */
-    Tcl_Obj *CONST objv[];	/* Argument objects. */
-{
-    int i, result;
-    Tk_Window parent;
-    AEDesc initialDesc = {typeNull, NULL};
-    FSSpec dirSpec;
-    Str255 message, title;
-    int srcRead, dstWrote;
-    OpenFileData ofd;
-    static CONST char *chooseOptionStrings[] = {
-	    "-initialdir", "-message", "-mustexist", "-parent", "-title", NULL
-    };
-    enum chooseOptions {
-	    CHOOSE_INITDIR,	CHOOSE_MESSAGE, CHOOSE_MUSTEXIST, 
-	    CHOOSE_PARENT, CHOOSE_TITLE
-    };
-  
-    
-    if (!NavServicesAvailable()) {
-        return TCL_ERROR;
-    }
-
-    if (!fileDlgInited) {
-	InitFileDialogs();
-    }
-    result = TCL_ERROR;    
-    parent = (Tk_Window) clientData;    
-    title[0] = 0;
-    message[0] = 0;   
-
-    for (i = 1; i < objc; i += 2) {
-        char *choice;
-	int index, choiceLen;
-	char *string;
-
-	if (Tcl_GetIndexFromObj(interp, objv[i], chooseOptionStrings, "option",
-		TCL_EXACT, &index) != TCL_OK) {
-	    return TCL_ERROR;
-	}
-	if (i + 1 == objc) {
-	    string = Tcl_GetStringFromObj(objv[i], NULL);
-	    Tcl_AppendResult(interp, "value for \"", string, "\" missing", 
-		    (char *) NULL);
-	    return TCL_ERROR;
-	}
-	switch (index) {
-	    case CHOOSE_INITDIR:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
-                if (HandleInitialDirectory(interp, choice, &dirSpec, 
-                        &initialDesc) != TCL_OK) {
-                    result = TCL_ERROR;
-                    goto end;
-                }
-	        break;
-	    case CHOOSE_MESSAGE:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-	        Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
-		        0, NULL, StrBody(message), 255, 
-		        &srcRead, &dstWrote, NULL);
-                StrLength(message) = (unsigned char) dstWrote;
-	        break;
-	    case CHOOSE_PARENT:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-                parent = Tk_NameToWindow(interp, choice, parent);
-	        if (parent == NULL) {
-	            result = TCL_ERROR;
-	            goto end;
-	        }
-	        break;
-	    case CHOOSE_TITLE:
-	        choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
-	        Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
-		        0, NULL, StrBody(title), 255, 
-		        &srcRead, &dstWrote, NULL);
-                StrLength(title) = (unsigned char) dstWrote;
-	        break;
-	}
-    }
-             
-    TkInitFileFilters(&ofd.fl);
-    ofd.usePopup = 0;
-
-    if (useNavServices) {
-        AEDesc *initialPtr = NULL;
-        
-        if (initialDesc.descriptorType == typeFSS) {
-            initialPtr = &initialDesc;
-        }
-        result = NavServicesGetFile(interp, &ofd, initialPtr, NULL, 
-                title, message, false, CHOOSE_FOLDER);
-    } else {
-        result = TCL_ERROR;
-    }
-
-    end:
-    AEDisposeDesc(&initialDesc);
-    
-    return result;
-}
-
-int
-HandleInitialDirectory (
-    Tcl_Interp *interp,
-    char *initialDir, 
-    FSSpec *dirSpec, 
-    AEDesc *dirDescPtr)
-{
-	Tcl_DString ds;
-	long dirID;
-	OSErr err;
-	Boolean isDirectory;
-	Str255 dir;
-	int srcRead, dstWrote;
-	
-	if (Tcl_TranslateFileName(interp, initialDir, &ds) == NULL) {
-	    return TCL_ERROR;
-	}
-	Tcl_UtfToExternal(NULL, NULL, Tcl_DStringValue(&ds), 
-		Tcl_DStringLength(&ds), 0, NULL, StrBody(dir), 255, 
-		&srcRead, &dstWrote, NULL);
-        StrLength(dir) = (unsigned char) dstWrote;
-	Tcl_DStringFree(&ds);
-          
-	err = FSpLocationFromPath(StrLength(dir), StrBody(dir), dirSpec);
-	if (err != noErr) {
-	    Tcl_AppendResult(interp, "bad directory \"", initialDir, "\"", NULL);
-	    return TCL_ERROR;
-	}
-	err = FSpGetDirectoryIDTcl(dirSpec, &dirID, &isDirectory);
-	if ((err != noErr) || !isDirectory) {
-	    Tcl_AppendResult(interp, "bad directory \"", initialDir, "\"", NULL);
-	    return TCL_ERROR;
-	}
-
-        if (useNavServices) {
-            AECreateDesc( typeFSS, dirSpec, sizeof(*dirSpec), dirDescPtr);        
-        } else {
-	    /*
-	     * Make sure you negate -dirSpec.vRefNum because the 
-	     * standard file package wants it that way !
-	     */
-	
-	    LMSetSFSaveDisk(-dirSpec->vRefNum);
-	    LMSetCurDirStore(dirID);
-	}
-        return TCL_OK;
-}
-
-static void
-InitFileDialogs()
-{
-    fileDlgInited = 1;
-    
-    if (NavServicesAvailable()) {
-        openFileFilterUPP = NewNavObjectFilterProc(OpenFileFilterProc);
-        openFileEventUPP = NewNavEventProc(OpenEventProc);
-        useNavServices = 1;
-    } else {
-	openFilter = NewFileFilterYDProc(FileFilterProc);
-	openHook = NewDlgHookYDProc(OpenHookProc);
-	saveHook = NewDlgHookYDProc(OpenHookProc);
-	useNavServices = 0;
-    }
-    
-        
-}
-
-
-/*
- *----------------------------------------------------------------------
- *
- * GetFileName --
- *
- *	Calls the Mac file dialog functions for the user to choose a
- *	file to or save.
- *
- * Results:
- *	A standard Tcl result.
- *
- * Side effects:
- *	If the user selects a file, the native pathname of the file
- *	is returned in the interp's result. Otherwise an empty string
- *	is returned in the interp's result.
- *
- *----------------------------------------------------------------------
- */
-
-static int
-GetFileName(
-    ClientData clientData,	/* Main window associated with interpreter. */
-    Tcl_Interp *interp,		/* Current interpreter. */
-    int objc,			/* Number of arguments. */
-    Tcl_Obj *CONST objv[],	/* Argument objects. */
-    int isOpen)			/* true if we should call GetOpenFileName(),
-				 * false if we should call GetSaveFileName() */
-{
-    return TCL_OK;
-}
-
-static int
-NavServicesGetFile(
-    Tcl_Interp *interp,
-    OpenFileData *ofdPtr,
-    AEDesc *initialDesc,
-    unsigned char *initialFile,
-    StringPtr title,
-    StringPtr message,
-    int multiple,
-    int isOpen)
-{
-    NavReplyRecord theReply;
-    NavDialogOptions diagOptions;
-    OSErr err;
-    Tcl_Obj *theResult;
-    int result;
-
-    
-    diagOptions.location.h = -1;
-    diagOptions.location.v = -1;
-    diagOptions.dialogOptionFlags = kNavDontAutoTranslate 
-            + kNavDontAddTranslateItems;
-            
-    if (multiple) {
-        diagOptions.dialogOptionFlags += kNavAllowMultipleFiles;
-    }
-    
-    if (ofdPtr != NULL && ofdPtr->usePopup) {
-        FileFilter *filterPtr;
-        
-	filterPtr = ofdPtr->fl.filters;
-	if (filterPtr == NULL) {
-	    ofdPtr->usePopup = 0;
-	}
-    }
-    
-    if (ofdPtr != NULL && ofdPtr->usePopup) {    
-        NavMenuItemSpecHandle popupExtensionHandle = NULL;
-        NavMenuItemSpec *popupItems;
-        FileFilter *filterPtr;
-        short index = 0;
-	
-	ofdPtr->curType = 0;
-	
-        popupExtensionHandle = (NavMenuItemSpecHandle) NewHandle(ofdPtr->fl.numFilters 
-                * sizeof(NavMenuItemSpec));
-        HLock((Handle) popupExtensionHandle);
-        popupItems = *popupExtensionHandle;
-        
-        for (filterPtr = ofdPtr->fl.filters; filterPtr != NULL; 
-                filterPtr = filterPtr->next, popupItems++, index++) {
-            int len;
-            
-            len = strlen(filterPtr->name);
-            BlockMove(filterPtr->name, popupItems->menuItemName + 1, len);
-            popupItems->menuItemName[0] = len;
-            popupItems->menuCreator = 'WIsH';
-            popupItems->menuType = index;
-        }
-        HUnlock((Handle) popupExtensionHandle);
-        diagOptions.popupExtension = popupExtensionHandle;
-    } else {        
-        diagOptions.dialogOptionFlags += kNavNoTypePopup; 
-        diagOptions.popupExtension = NULL;
-    }
-        
-    if ((initialFile != NULL) && (initialFile[0] != 0)) {
-        char *lastColon;
-        int len;
-        
-        len = initialFile[0];
-        
-        p2cstr(initialFile);        
-        lastColon = strrchr((char *)initialFile, ':');
-        if (lastColon != NULL) {
-            len -= lastColon - ((char *) (initialFile + 1));
-            BlockMove(lastColon + 1, diagOptions.savedFileName + 1, len);
-            diagOptions.savedFileName[0] = len;
-        } else {  
-            BlockMove(initialFile, diagOptions.savedFileName + 1, len);
-            diagOptions.savedFileName[0] = len;
-        }
-    } else {
-        diagOptions.savedFileName[0] = 0;
-    }
-    
-    strcpy((char *) (diagOptions.clientName + 1),"Wish");
-    diagOptions.clientName[0] = strlen("Wish");
-    
-    if (title == NULL) {
-        diagOptions.windowTitle[0] = 0;
-    } else {
-        BlockMove(title, diagOptions.windowTitle, title[0] + 1);
-        diagOptions.windowTitle[0] = title[0];
-    }
-    
-    if (message == NULL) {
-        diagOptions.message[0] = 0;
-    } else {
-        BlockMove(message, diagOptions.message, message[0] + 1);
-        diagOptions.message[0] = message[0];
-    }
-    
-    diagOptions.actionButtonLabel[0] = 0;
-    diagOptions.cancelButtonLabel[0] = 0;
-    diagOptions.preferenceKey = 0;
-    
-    /* Now process the selection list.  We have to use the popupExtension
-     * to fill the menu.
-     */
-    
-    
-    if (isOpen == OPEN_FILE) {
-        err = NavGetFile(initialDesc, &theReply, &diagOptions, openFileEventUPP,  
-                NULL, openFileFilterUPP, NULL, ofdPtr);    
-    } else if (isOpen == SAVE_FILE) {
-        err = NavPutFile (initialDesc, &theReply, &diagOptions, openFileEventUPP, 
-                'TEXT', 'WIsH', NULL);
-    } else if (isOpen == CHOOSE_FOLDER) {
-        err = NavChooseFolder (initialDesc, &theReply, &diagOptions,
-                openFileEventUPP, NULL, NULL);
-    }
-    
-                        
-    /*
-     * Most commands assume that the file dialogs return a single
-     * item, not a list.  So only build a list if multiple is true...
-     */
-                         
-    if (multiple) {
-        theResult = Tcl_NewListObj(0, NULL);
-    } else {
-        theResult = Tcl_NewObj();
-    }
-           
-    if ( theReply.validRecord && err == noErr ) {
-        AEDesc resultDesc;
-        long count;
-        Tcl_DString fileName;
-        Handle pathHandle;
-        int length;
-        
-        if ( err == noErr ) {
-            err = AECountItems(&(theReply.selection), &count);
-            if (err == noErr) {
-                long i;
-                for (i = 1; i <= count; i++ ) {
-                    err = AEGetNthDesc(&(theReply.selection),
-                            i, typeFSS, NULL, &resultDesc);
-                    if (err == noErr) {
-                        HLock(resultDesc.dataHandle);
-                        pathHandle = NULL;
-                        FSpPathFromLocation((FSSpec *) *resultDesc.dataHandle, 
-                                &length, &pathHandle);
-                        HLock(pathHandle);
-                        Tcl_ExternalToUtfDString(NULL, (char *) *pathHandle, -1, &fileName);
-                        if (multiple) {
-                            Tcl_ListObjAppendElement(interp, theResult, 
-                                    Tcl_NewStringObj(Tcl_DStringValue(&fileName), 
-                                    Tcl_DStringLength(&fileName)));
-                        } else {
-                            Tcl_SetStringObj(theResult, Tcl_DStringValue(&fileName), 
-                                    Tcl_DStringLength(&fileName));
-                        }
-                        
-                        Tcl_DStringFree(&fileName);
-                        HUnlock(pathHandle);
-                        DisposeHandle(pathHandle);
-                        HUnlock(resultDesc.dataHandle);
-                        AEDisposeDesc( &resultDesc );
-                    }
-                }
-            }
-         }
-         err = NavDisposeReply( &theReply );
-         Tcl_SetObjResult(interp, theResult);
-         result = TCL_OK;
-    } else if (err == userCanceledErr) {
-        result = TCL_OK;
-    } else {
-        result = TCL_ERROR;
-    }
-    
-    if (diagOptions.popupExtension != NULL) {
-        DisposeHandle((Handle) diagOptions.popupExtension);
-    }
-    
-    return result;
-}
-
-static pascal Boolean 
-OpenFileFilterProc( 
-    AEDesc* theItem, void* info,
-    NavCallBackUserData callBackUD,
-    NavFilterModes filterMode )
-{
-    OpenFileData *ofdPtr = (OpenFileData *) callBackUD;
-    if (!ofdPtr->usePopup) {
-        return true;
-    } else {
-        if (ofdPtr->fl.numFilters == 0) {
-            return true;
-        } else {
-            
-            if ( theItem->descriptorType == typeFSS ) {
-                NavFileOrFolderInfo* theInfo = (NavFileOrFolderInfo*)info;
-                int result;
-                
-                if ( !theInfo->isFolder ) {
-                    OSType fileType;
-                    StringPtr fileNamePtr;
-                    int i;
-                    FileFilter *filterPtr;
-               
-                    fileType = theInfo->fileAndFolder.fileInfo.finderInfo.fdType;
-                    HLock(theItem->dataHandle);
-                    fileNamePtr = (((FSSpec *) *theItem->dataHandle)->name);
-                    
-                    if (ofdPtr->usePopup) {
-                        i = ofdPtr->curType;
-	                for (filterPtr=ofdPtr->fl.filters; filterPtr && i>0; i--) {
-	                    filterPtr = filterPtr->next;
-	                }
-	                if (filterPtr) {
-	                    result = MatchOneType(fileNamePtr, fileType,
-	                            ofdPtr, filterPtr);
-	                } else {
-	                    result = false;
-                        }
-                    } else {
-	                /*
-	                 * We are not using the popup menu. In this case, the file is
-	                 * considered matched if it matches any of the file filters.
-	                 */
-			result = UNMATCHED;
-	                for (filterPtr=ofdPtr->fl.filters; filterPtr;
-		                filterPtr=filterPtr->next) {
-	                    if (MatchOneType(fileNamePtr, fileType,
-	                            ofdPtr, filterPtr) == MATCHED) {
-	                        result = MATCHED;
-	                        break;
-	                    }
-	                }
-                    }
-                    
-                    HUnlock(theItem->dataHandle);
-                    return (result == MATCHED);
-                } else {
-                    return true;
-                }
-            }
-        }
-        
-        return true;
-    }
-}
-
-pascal void 
-OpenEventProc(
-    NavEventCallbackMessage callBackSelector,
-    NavCBRecPtr callBackParams,
-    NavCallBackUserData callBackUD )
-{
-    NavMenuItemSpec *chosenItem;
-    OpenFileData *ofd = (OpenFileData *) callBackUD;
-        
-    if (callBackSelector ==  kNavCBPopupMenuSelect) {
-        chosenItem = (NavMenuItemSpec *) callBackParams->eventData.eventDataParms.param;
-        ofd->curType = chosenItem->menuType;
-    } else if (callBackSelector == kNavCBEvent) {
-    	if (callBackParams->eventData.eventDataParms.event->what == updateEvt) {
-    		if (TkMacConvertEvent( callBackParams->eventData.eventDataParms.event)) {
-        		while (Tcl_DoOneEvent(TCL_IDLE_EVENTS|TCL_DONT_WAIT|TCL_WINDOW_EVENTS)) {
-           			/* Empty Body */
-        		}
-        	}
-        }
-    }
-}
-
-static int
-StdGetFile(
-    Tcl_Interp *interp,
-    OpenFileData *ofd,
-    unsigned char *initialFile,
-    int isOpen)
-{
-    int i;
-    StandardFileReply reply;
-    Point mypoint;
-    MenuHandle menu = NULL;
-
-
-    /*
-     * Set the items in the file types popup.
-     */
-
-    /*
-     * Delete all the entries inside the popup menu, in case there's any
-     * left overs from previous invocation of this command
-     */
-
-    if (ofd != NULL && ofd->usePopup) {
-	FileFilter *filterPtr;
-	
-	menu = GetMenu(OPEN_MENU);
-        for (i = CountMItems(menu); i > 0; i--) {
-            /*
-             * The item indices are one based. Also, if we delete from
-             * the beginning, the items may be re-numbered. So we
-             * delete from the end
-    	     */
-    	     
-    	     DeleteMenuItem(menu, i);
-        }
-
-	filterPtr = ofd->fl.filters;
-	if (filterPtr == NULL) {
-	    ofd->usePopup = 0;
-	} else {
-	    for ( ; filterPtr != NULL; filterPtr = filterPtr->next) {
-	        Str255 str;
-	        
-	    	StrLength(str) = (unsigned char) strlen(filterPtr->name);
-	    	strcpy(StrBody(str), filterPtr->name);
-		AppendMenu(menu, str);
-	    }
-	}
-    }
-
-    /*
-     * Call the toolbox file dialog function.
-     */
-     
-    SetPt(&mypoint, -1, -1);
-    TkpSetCursor(NULL);
-    if (isOpen == OPEN_FILE) {
-        if (ofd != NULL && ofd->usePopup) {
-	    CustomGetFile(openFilter, (short) -1, NULL, &reply, OPEN_BOX,
-	    	    mypoint, openHook, NULL, NULL, NULL, (void*) ofd);
-	} else {
-	    StandardGetFile(NULL, -1, NULL, &reply);
-	}
-    } else if (isOpen == SAVE_FILE) {
-	static Str255 prompt = "\pSave as";
-	
-   	if (ofd != NULL && ofd->usePopup) {
-   	    /*
-   	     * Currently this never gets called because we don't use
-   	     * popup for the save dialog.
-   	     */
-	    CustomPutFile(prompt, initialFile, &reply, OPEN_BOX, 
-		    mypoint, saveHook, NULL, NULL, NULL, (void *) ofd);
-	} else {
-	    StandardPutFile(prompt, initialFile, &reply);
-	}
-    }
-
-    /*
-     * Now parse the reply, and populate the Tcl result.
-     */
-     
-    if (reply.sfGood) {
-        int length;
-    	Handle pathHandle;
-    	
-    	pathHandle = NULL;
-    	FSpPathFromLocation(&reply.sfFile, &length, &pathHandle);
-	if (pathHandle != NULL) {
-	    Tcl_DString ds;
-	    
-	    HLock(pathHandle);
-	    Tcl_ExternalToUtfDString(NULL, (char *) *pathHandle, -1, &ds);
-	    Tcl_AppendResult(interp, Tcl_DStringValue(&ds), NULL);
-	    Tcl_DStringFree(&ds);
-	    HUnlock(pathHandle);
-	    DisposeHandle(pathHandle);
-	}
-    }
-    
-    if (menu != NULL) {
-    	DisposeMenu(menu);
-    }
-
-    return TCL_OK;
-}
-/*
- *----------------------------------------------------------------------
- *
- * OpenHookProc --
- *
- *	Gets called for various events that occur in the file dialog box.
- *	Initializes the popup menu or rebuild the file list depending on
- *	the type of the event.
- *
- * Results:
- *	A standard result understood by the Mac file dialog event dispatcher.
- *
- * Side effects:
- *	The contents in the file dialog may be changed depending on
- *	the type of the event.
- *----------------------------------------------------------------------
- */
-
-static pascal short
-OpenHookProc(
-    short item,			/* Event description. */
-    DialogPtr theDialog,	/* The dialog where the event occurs. */
-    OpenFileData *ofdPtr)	/* Information about the file dialog. */
-{
-    short ignore;
-    Rect rect;
-    Handle handle;
-    int newType;
-
-    switch (item) {
-	case sfHookFirstCall:
-	    if (ofdPtr->usePopup) {
-		/*
-		 * Set the popup list to display the selected type.
-		 */
-		GetDialogItem(theDialog, ofdPtr->popupItem, &ignore, &handle, 
-			&rect);
-		SetControlValue((ControlRef) handle, ofdPtr->curType + 1);
-	    }
-	    return sfHookNullEvent;
-      
-	case OPEN_POPUP_ITEM:
-	    if (ofdPtr->usePopup) {
-		GetDialogItem(theDialog, ofdPtr->popupItem,
-			&ignore, &handle, &rect);
-		newType = GetControlValue((ControlRef) handle) - 1;
-		if (ofdPtr->curType != newType) {
-		    if (newType<0 || newType>ofdPtr->fl.numFilters) {
-			/*
-			 * Sanity check. Looks like the user selected an
-			 * non-existent menu item?? Don't do anything.
-			 */
-		    } else {
-			ofdPtr->curType = newType;
-		    }
-		    return sfHookRebuildList;
-		}
-	    }  
-	    break;
-    }
-
-    return item;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * FileFilterProc --
- *
- *	Filters files according to file types. Get called whenever the
- *	file list needs to be updated inside the dialog box.
- *
- * Results:
- *	Returns MATCHED if the file should be shown in the listbox, returns
- *	UNMATCHED otherwise.
- *
- * Side effects:
- *	If MATCHED is returned, the file is shown in the listbox.
- *
- *----------------------------------------------------------------------
- */
-
-static pascal Boolean
-FileFilterProc(
-    CInfoPBPtr pb,		/* Information about the file */
-    void *myData)		/* Client data for this file dialog */
-{
-    int i;
-    OpenFileData * ofdPtr = (OpenFileData*)myData;
-    FileFilter * filterPtr;
-
-    if (ofdPtr->fl.numFilters == 0) {
-	/*
-	 * No types have been specified. List all files by default
-	 */
-	return MATCHED;
-    }
-
-    if (pb->dirInfo.ioFlAttrib & 0x10) {
-    	/*
-    	 * This is a directory: always show it
-    	 */
-    	return MATCHED;
-    }
-
-    if (ofdPtr->usePopup) {
-        i = ofdPtr->curType;
-	for (filterPtr=ofdPtr->fl.filters; filterPtr && i>0; i--) {
-	    filterPtr = filterPtr->next;
-	}
-	if (filterPtr) {
-	    return MatchOneType(pb->hFileInfo.ioNamePtr, pb->hFileInfo.ioFlFndrInfo.fdType,
-	            ofdPtr, filterPtr);
-	} else {
-	    return UNMATCHED;
-        }
-    } else {
-	/*
-	 * We are not using the popup menu. In this case, the file is
-	 * considered matched if it matches any of the file filters.
-	 */
-
-	for (filterPtr=ofdPtr->fl.filters; filterPtr;
-		filterPtr=filterPtr->next) {
-	    if (MatchOneType(pb->hFileInfo.ioNamePtr, pb->hFileInfo.ioFlFndrInfo.fdType,
-	            ofdPtr, filterPtr) == MATCHED) {
-	        return MATCHED;
-	    }
-	}
-	return UNMATCHED;
-    }
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * MatchOneType --
- *
- *	Match a file with one file type in the list of file types.
- *
- * Results:
- *	Returns MATCHED if the file matches with the file type; returns
- *	UNMATCHED otherwise.
- *
- * Side effects:
- *	None
- *
- *----------------------------------------------------------------------
- */
-
-static Boolean
-MatchOneType(
-    StringPtr fileNamePtr,	/* Name of the file */
-    OSType    fileType,         /* Type of the file */ 
-    OpenFileData * ofdPtr,	/* Information about this file dialog */
-    FileFilter * filterPtr)	/* Match the file described by pb against
-				 * this filter */
-{
-    FileFilterClause * clausePtr;
-
-    /*
-     * A file matches with a file type if it matches with at least one
-     * clause of the type.
-     *
-     * If the clause has both glob patterns and ostypes, the file must
-     * match with at least one pattern AND at least one ostype.
-     *
-     * If the clause has glob patterns only, the file must match with at least
-     * one pattern.
-     *
-     * If the clause has mac types only, the file must match with at least
-     * one mac type.
-     *
-     * If the clause has neither glob patterns nor mac types, it's
-     * considered an error.
-     */
-
-    for (clausePtr=filterPtr->clauses; clausePtr; clausePtr=clausePtr->next) {
-	int macMatched  = 0;
-	int globMatched = 0;
-	GlobPattern * globPtr;
-	MacFileType * mfPtr;
-
-	if (clausePtr->patterns == NULL) {
-	    globMatched = 1;
-	}
-	if (clausePtr->macTypes == NULL) {
-	    macMatched = 1;
-	}
-
-	for (globPtr=clausePtr->patterns; globPtr; globPtr=globPtr->next) {
-	    char filename[256];
-	    int len;
-	    char * p, *q, *ext;
-        
-	    if (fileNamePtr == NULL) {
-		continue;
-	    }
-	    p = (char*)(fileNamePtr);
-	    len = p[0];
-	    strncpy(filename, p+1, len);
-	    filename[len] = '\0';
-	    ext = globPtr->pattern;
-
-	    if (ext[0] == '\0') {
-		/*
-		 * We don't want any extensions: OK if the filename doesn't
-		 * have "." in it
-		 */
-		for (q=filename; *q; q++) {
-		    if (*q == '.') {
-			goto glob_unmatched;
-		    }
-		}
-		goto glob_matched;
-	    }
-        
-	    if (Tcl_StringMatch(filename, ext)) {
-		goto glob_matched;
-	    } else {
-		goto glob_unmatched;
-	    }
-
-	  glob_unmatched:
-	    continue;
-
-	  glob_matched:
-	    globMatched = 1;
-	    break;
-	}
-
-	for (mfPtr=clausePtr->macTypes; mfPtr; mfPtr=mfPtr->next) {
-	    if (fileType == mfPtr->type) {
-		macMatched = 1;
-		break;
-	    }
-        }
-
-	if (globMatched && macMatched) {
-	    return MATCHED;
-	}
-    }
-
-    return UNMATCHED;
-}
-
-