diff options
Diffstat (limited to 'mac/tkMacDialog.c')
| -rw-r--r-- | mac/tkMacDialog.c | 939 |
1 files changed, 939 insertions, 0 deletions
diff --git a/mac/tkMacDialog.c b/mac/tkMacDialog.c new file mode 100644 index 0000000..43d11a5 --- /dev/null +++ b/mac/tkMacDialog.c @@ -0,0 +1,939 @@ +/* + * tkMacDialog.c -- + * + * Contains the Mac implementation of the common dialog boxes. + * + * Copyright (c) 1996 Sun Microsystems, Inc. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * SCCS: @(#) tkMacDialog.c 1.12 96/12/03 11:15:12 + * + */ + +#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 "tkPort.h" +#include "tkInt.h" +#include "tclMacInt.h" +#include "tkFileFilter.h" + +/* + * 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 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 { + Tcl_Interp * interp; + char * initialFile; /* default file to appear in the + * save dialog */ + char * defExt; /* default extension (not used on the + * Mac) */ + FileFilterList fl; /* List of file filters. */ + SInt16 curType; /* The filetype currently being + * listed */ + int isOpen; /* True if this is an Open dialog, + * false if it is a Save dialog. */ + MenuHandle menu; /* Handle of the menu in the popup*/ + short dialogId; /* resource ID of the dialog */ + int popupId; /* resource ID of the popup */ + 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 argc, char **argv, int isOpen )); +static Boolean MatchOneType _ANSI_ARGS_((CInfoPBPtr pb, + OpenFileData * myDataPtr, FileFilter * filterPtr)); +static pascal short OpenHookProc _ANSI_ARGS_((short item, + DialogPtr theDialog, OpenFileData * myDataPtr)); +static int ParseFileDlgArgs _ANSI_ARGS_ ((Tcl_Interp * interp, + OpenFileData * myDataPtr, int argc, char ** argv, + int isOpen)); + +/* + * Filter and hook functions used by the tk_getOpenFile and tk_getSaveFile + * commands. + */ + +static FileFilterYDUPP openFilter = NULL; +static DlgHookYDUPP openHook = NULL; +static DlgHookYDUPP saveHook = NULL; + + +/* + *---------------------------------------------------------------------- + * + * EvalArgv -- + * + * Invokes the Tcl procedure with the arguments. argv[0] is set by + * the caller of this function. It may be different than cmdName. + * The TCL command will see argv[0], not cmdName, as its name if it + * invokes [lindex [info level 0] 0] + * + * Results: + * TCL_ERROR if the command does not exist and cannot be autoloaded. + * Otherwise, return the result of the evaluation of the command. + * + * Side effects: + * The command may be autoloaded. + * + *---------------------------------------------------------------------- + */ + +static int +EvalArgv( + Tcl_Interp *interp, /* Current interpreter. */ + char * cmdName, /* Name of the TCL command to call */ + int argc, /* Number of arguments. */ + char **argv) /* Argument strings. */ +{ + Tcl_CmdInfo cmdInfo; + + if (!Tcl_GetCommandInfo(interp, cmdName, &cmdInfo)) { + char * cmdArgv[2]; + + /* + * This comand is not in the interpreter yet -- looks like we + * have to auto-load it + */ + if (!Tcl_GetCommandInfo(interp, "auto_load", &cmdInfo)) { + Tcl_ResetResult(interp); + Tcl_AppendResult(interp, "cannot execute command \"auto_load\"", + NULL); + return TCL_ERROR; + } + + cmdArgv[0] = "auto_load"; + cmdArgv[1] = cmdName; + + if ((*cmdInfo.proc)(cmdInfo.clientData, interp, 2, cmdArgv)!= TCL_OK){ + return TCL_ERROR; + } + + if (!Tcl_GetCommandInfo(interp, cmdName, &cmdInfo)) { + Tcl_ResetResult(interp); + Tcl_AppendResult(interp, "cannot auto-load command \"", + cmdName, "\"",NULL); + return TCL_ERROR; + } + } + + return (*cmdInfo.proc)(cmdInfo.clientData, interp, argc, argv); +} + +/* + *---------------------------------------------------------------------- + * + * Tk_ChooseColorCmd -- + * + * 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_ChooseColorCmd( + ClientData clientData, /* Main window associated with interpreter. */ + Tcl_Interp *interp, /* Current interpreter. */ + int argc, /* Number of arguments. */ + char **argv) /* Argument strings. */ +{ + Tk_Window parent = Tk_MainWindow(interp); + char * colorStr = NULL; + XColor * colorPtr = NULL; + char * title = "Choose a color:"; + int i, version; + long response = 0; + OSErr err = noErr; + char buff[40]; + static RGBColor in; + static inited = 0; + + /* + * 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)) { + version = 2; + } else { + version = 1; + } + + for (i=1; i<argc; i+=2) { + int v = i+1; + int len = strlen(argv[i]); + + if (strncmp(argv[i], "-initialcolor", len)==0) { + if (v==argc) {goto arg_missing;} + + colorStr = argv[v]; + } else if (strncmp(argv[i], "-parent", len)==0) { + if (v==argc) {goto arg_missing;} + + parent=Tk_NameToWindow(interp, argv[v], Tk_MainWindow(interp)); + if (parent == NULL) { + return TCL_ERROR; + } + } else if (strncmp(argv[i], "-title", len)==0) { + if (v==argc) {goto arg_missing;} + + title = argv[v]; + } else { + Tcl_AppendResult(interp, "unknown option \"", + argv[i], "\", must be -initialcolor, -parent or -title", + NULL); + return TCL_ERROR; + } + } + + if (colorStr) { + colorPtr = Tk_GetColor(interp, parent, colorStr); + if (colorPtr == NULL) { + return TCL_ERROR; + } + } + + if (!inited) { + inited = 1; + in.red = 0xffff; + in.green = 0xffff; + in.blue = 0xffff; + } + if (colorPtr) { + in.red = colorPtr->red; + in.green = colorPtr->green; + in.blue = colorPtr->blue; + } + + if (version == 1) { + /* + * Use version 1.0 of the color picker + */ + + RGBColor out; + Str255 prompt; + Point point = {-1, -1}; + + prompt[0] = strlen(title); + strncpy((char*) prompt+1, title, 255); + + if (GetColor(point, prompt, &in, &out)) { + /* + * user selected a color + */ + sprintf(buff, "#%02x%02x%02x", out.red >> 8, out.green >> 8, + out.blue >> 8); + Tcl_SetResult(interp, buff, TCL_VOLATILE); + + /* + * Save it for the next time + */ + in.red = out.red; + in.green = out.green; + in.blue = out.blue; + } else { + Tcl_ResetResult(interp); + } + } else { + /* + * Version 2.0 of the color picker is available. Let's use it + */ + ColorPickerInfo cpinfo; + + 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 = CanModifyPalette | CanAnimatePalette; + cpinfo.placeWhere = kDeepestColorScreen; + cpinfo.pickerType = 0L; + cpinfo.eventProc = NULL; + cpinfo.colorProc = NULL; + cpinfo.colorProcData = NULL; + + cpinfo.prompt[0] = strlen(title); + strncpy((char*)cpinfo.prompt+1, title, 255); + + if ((PickColor(&cpinfo) == noErr) && cpinfo.newColorChosen) { + sprintf(buff, "#%02x%02x%02x", + cpinfo.theColor.color.rgb.red >> 8, + cpinfo.theColor.color.rgb.green >> 8, + cpinfo.theColor.color.rgb.blue >> 8); + Tcl_SetResult(interp, buff, TCL_VOLATILE); + + in.blue = cpinfo.theColor.color.rgb.red; + in.green = cpinfo.theColor.color.rgb.green; + in.blue = cpinfo.theColor.color.rgb.blue; + } else { + Tcl_ResetResult(interp); + } + } + + if (colorPtr) { + Tk_FreeColor(colorPtr); + } + + return TCL_OK; + + arg_missing: + Tcl_AppendResult(interp, "value for \"", argv[argc-1], "\" missing", + NULL); + return TCL_ERROR; +} + +/* + *---------------------------------------------------------------------- + * + * Tk_GetOpenFileCmd -- + * + * 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_GetOpenFileCmd( + ClientData clientData, /* Main window associated with interpreter. */ + Tcl_Interp *interp, /* Current interpreter. */ + int argc, /* Number of arguments. */ + char **argv) /* Argument strings. */ +{ + return GetFileName(clientData, interp, argc, argv, OPEN_FILE); +} + +/* + *---------------------------------------------------------------------- + * + * Tk_GetSaveFileCmd -- + * + * Same as Tk_GetOpenFileCmd but opens a "save file" dialog box + * instead + * + * Results: + * A standard Tcl result. + * + * Side effects: + * See user documentation. + *---------------------------------------------------------------------- + */ + +int +Tk_GetSaveFileCmd( + ClientData clientData, /* Main window associated with interpreter. */ + Tcl_Interp *interp, /* Current interpreter. */ + int argc, /* Number of arguments. */ + char **argv) /* Argument strings. */ +{ + return GetFileName(clientData, interp, argc, argv, SAVE_FILE); +} + +/* + *---------------------------------------------------------------------- + * + * 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 interp->result. Otherwise an empty string + * is returned in interp->result. + * + *---------------------------------------------------------------------- + */ + +static int +GetFileName( + ClientData clientData, /* Main window associated with interpreter. */ + Tcl_Interp *interp, /* Current interpreter. */ + int argc, /* Number of arguments. */ + char **argv, /* Argument strings. */ + int isOpen) /* true if we should call GetOpenFileName(), + * false if we should call GetSaveFileName() */ +{ + int code = TCL_OK; + int i; + OpenFileData myData, *myDataPtr; + StandardFileReply reply; + Point mypoint; + Str255 str; + + myDataPtr = &myData; + + if (openFilter == NULL) { + openFilter = NewFileFilterYDProc(FileFilterProc); + openHook = NewDlgHookYDProc(OpenHookProc); + saveHook = NewDlgHookYDProc(OpenHookProc); + } + + /* + * 1. Parse the arguments. + */ + if (ParseFileDlgArgs(interp, myDataPtr, argc, argv, isOpen) + != TCL_OK) { + return TCL_ERROR; + } + + /* + * 2. 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 (myDataPtr->usePopup) { + FileFilter * filterPtr; + + for (i=CountMItems(myDataPtr->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(myDataPtr->menu, i); + } + + if (myDataPtr->fl.filters) { + for (filterPtr=myDataPtr->fl.filters; filterPtr; + filterPtr=filterPtr->next) { + strncpy((char*)str+1, filterPtr->name, 254); + str[0] = strlen(filterPtr->name); + AppendMenu(myDataPtr->menu, (ConstStr255Param) str); + } + } else { + myDataPtr->usePopup = 0; + } + } + + /* + * 3. Call the toolbox file dialog function. + */ + SetPt(&mypoint, -1, -1); + TkpSetCursor(NULL); + + if (myDataPtr->isOpen) { + if (myDataPtr->usePopup) { + CustomGetFile(openFilter, (short) -1, NULL, &reply, + myDataPtr->dialogId, + mypoint, openHook, NULL, NULL, NULL, (void*)myDataPtr); + } else { + StandardGetFile(NULL, -1, NULL, &reply); + } + } else { + Str255 prompt, def; + + strcpy((char*)prompt+1, "Save as"); + prompt[0] = strlen("Save as"); + if (myDataPtr->initialFile) { + strncpy((char*)def+1, myDataPtr->initialFile, 254); + def[0] = strlen(myDataPtr->initialFile); + } else { + def[0] = 0; + } + if (myDataPtr->usePopup) { + /* + * Currently this never gets called because we don't use + * popup for the save dialog. + */ + CustomPutFile(prompt, def, &reply, myDataPtr->dialogId, mypoint, + saveHook, NULL, NULL, NULL, myDataPtr); + } else { + StandardPutFile(prompt, def, &reply); + } + } + + Tcl_ResetResult(interp); + if (reply.sfGood) { + int length; + Handle pathHandle = NULL; + char * pathName = NULL; + + FSpPathFromLocation(&reply.sfFile, &length, &pathHandle); + + if (pathHandle != NULL) { + HLock(pathHandle); + pathName = (char *) ckalloc((unsigned) (length + 1)); + strcpy(pathName, *pathHandle); + HUnlock(pathHandle); + DisposeHandle(pathHandle); + + /* + * Return the full pathname of the selected file + */ + + Tcl_SetResult(interp, pathName, TCL_DYNAMIC); + } + } + + done: + TkFreeFileFilters(&myDataPtr->fl); + return code; +} + +/* + *---------------------------------------------------------------------- + * + * ParseFileDlgArgs -- + * + * Parses the arguments passed to tk_getOpenFile and tk_getSaveFile. + * + * Results: + * A standard TCL return value. + * + * Side effects: + * The OpenFileData structure is initialized and modified according + * to the arguments. + * + *---------------------------------------------------------------------- + */ + +static int +ParseFileDlgArgs( + Tcl_Interp * interp, /* Current interpreter. */ + OpenFileData * myDataPtr, /* Information about the file dialog */ + int argc, /* Number of arguments */ + char ** argv, /* Argument strings */ + int isOpen) /* TRUE if this is an "open" dialog */ +{ + int i; + + myDataPtr->interp = interp; + myDataPtr->initialFile = NULL; + myDataPtr->curType = 0; + + TkInitFileFilters(&myDataPtr->fl); + + if (isOpen) { + myDataPtr->isOpen = 1; + myDataPtr->usePopup = 1; + myDataPtr->menu = GetMenu(OPEN_MENU); + myDataPtr->dialogId = OPEN_BOX; + myDataPtr->popupId = OPEN_POPUP; + myDataPtr->popupItem = OPEN_POPUP_ITEM; + if (myDataPtr->menu == NULL) { + Debugger(); + } + } else { + myDataPtr->isOpen = 0; + myDataPtr->usePopup = 0; + } + + for (i=1; i<argc; i+=2) { + int v = i+1; + int len = strlen(argv[i]); + + if (strncmp(argv[i], "-defaultextension", len)==0) { + if (v==argc) {goto arg_missing;} + + myDataPtr->defExt = argv[v]; + } + else if (strncmp(argv[i], "-filetypes", len)==0) { + if (v==argc) {goto arg_missing;} + + if (TkGetFileFilters(interp, &myDataPtr->fl,argv[v],0) != TCL_OK) { + return TCL_ERROR; + } + } + else if (strncmp(argv[i], "-initialdir", len)==0) { + FSSpec dirSpec; + char * dirName; + Tcl_DString dstring; + long dirID; + OSErr err; + Boolean isDirectory; + + if (v==argc) {goto arg_missing;} + + if (Tcl_TranslateFileName(interp, argv[v], &dstring) == NULL) { + return TCL_ERROR; + } + dirName = dstring.string; + if (FSpLocationFromPath(strlen(dirName), dirName, &dirSpec) != + noErr) { + Tcl_AppendResult(interp, "bad directory \"", argv[v], + "\"", NULL); + return TCL_ERROR; + } + err = FSpGetDirectoryID(&dirSpec, &dirID, &isDirectory); + if ((err != noErr) || !isDirectory) { + Tcl_AppendResult(interp, "bad directory \"", argv[v], + "\"", NULL); + return TCL_ERROR; + } + /* + * Make sure you negate -dirSpec.vRefNum because the standard file + * package wants it that way ! + */ + LMSetSFSaveDisk(-dirSpec.vRefNum); + LMSetCurDirStore(dirID); + Tcl_DStringFree(&dstring); + } + else if (strncmp(argv[i], "-initialfile", len)==0) { + if (v==argc) {goto arg_missing;} + + myDataPtr->initialFile = argv[v]; + } + else if (strncmp(argv[i], "-parent", len)==0) { + /* + * Ignored on the Mac, but make sure that it's a valid window + * pathname + */ + Tk_Window parent; + + if (v==argc) {goto arg_missing;} + + parent=Tk_NameToWindow(interp, argv[v], Tk_MainWindow(interp)); + if (parent == NULL) { + return TCL_ERROR; + } + } + else if (strncmp(argv[i], "-title", len)==0) { + if (v==argc) {goto arg_missing;} + + /* + * This option is ignored on the Mac because the Mac file + * dialog do not support titles. + */ + } + else { + Tcl_AppendResult(interp, "unknown option \"", + argv[i], "\", must be -defaultextension, ", + "-filetypes, -initialdir, -initialfile, -parent or -title", + NULL); + return TCL_ERROR; + } + } + + return TCL_OK; + + arg_missing: + Tcl_AppendResult(interp, "value for \"", argv[argc-1], "\" missing", + NULL); + return TCL_ERROR; +} + +/* + *---------------------------------------------------------------------- + * + * 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 * myDataPtr) /* Information about the file dialog. */ +{ + short ignore; + Rect rect; + Handle handle; + int newType; + + switch (item) { + case sfHookFirstCall: + if (myDataPtr->usePopup) { + /* + * Set the popup list to display the selected type. + */ + GetDialogItem(theDialog, myDataPtr->popupItem, + &ignore, &handle, &rect); + SetControlValue((ControlRef) handle, myDataPtr->curType + 1); + } + return sfHookNullEvent; + + case OPEN_POPUP_ITEM: + if (myDataPtr->usePopup) { + GetDialogItem(theDialog, myDataPtr->popupItem, + &ignore, &handle, &rect); + newType = GetCtlValue((ControlRef) handle) - 1; + if (myDataPtr->curType != newType) { + if (newType<0 || newType>myDataPtr->fl.numFilters) { + /* + * Sanity check. Looks like the user selected an + * non-existent menu item?? Don't do anything. + */ + } else { + myDataPtr->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 * myDataPtr = (OpenFileData*)myData; + FileFilter * filterPtr; + + if (myDataPtr->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 (myDataPtr->usePopup) { + i = myDataPtr->curType; + for (filterPtr=myDataPtr->fl.filters; filterPtr && i>0; i--) { + filterPtr = filterPtr->next; + } + if (filterPtr) { + return MatchOneType(pb, myDataPtr, 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=myDataPtr->fl.filters; filterPtr; + filterPtr=filterPtr->next) { + if (MatchOneType(pb, myDataPtr, 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( + CInfoPBPtr pb, /* Information about the file */ + OpenFileData * myDataPtr, /* 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 (pb->hFileInfo.ioNamePtr == NULL) { + continue; + } + p = (char*)(pb->hFileInfo.ioNamePtr); + 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 (pb->hFileInfo.ioFlFndrInfo.fdType == mfPtr->type) { + macMatched = 1; + break; + } + } + + if (globMatched && macMatched) { + return MATCHED; + } + } + + return UNMATCHED; +} + +/* + *---------------------------------------------------------------------- + * + * Tk_MessageBoxCmd -- + * + * This procedure implements the MessageBox window 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_MessageBoxCmd( + ClientData clientData, /* Main window associated with interpreter. */ + Tcl_Interp *interp, /* Current interpreter. */ + int argc, /* Number of arguments. */ + char **argv) /* Argument strings. */ +{ + return EvalArgv(interp, "tkMessageBox", argc, argv); +} |