开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
tkMacDialog.c
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：40k
源码类别：

通讯编程

开发平台：

Visual C++

tkMacDialog.c：源码内容
  1. /*
  2.  * tkMacDialog.c --
  3.  *
  4.  * Contains the Mac implementation of the common dialog boxes.
  5.  *
  6.  * Copyright (c) 1996-1997 Sun Microsystems, Inc.
  7.  *
  8.  * See the file "license.terms" for information on usage and redistribution
  9.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10.  *
  11.  * RCS: @(#) $Id: tkMacDialog.c,v 1.9 2002/04/08 09:04:38 das Exp $
  12.  */
  14. #include <Gestalt.h>
  15. #include <Aliases.h>
  16. #include <Errors.h>
  17. #include <Strings.h>
  18. #include <MoreFiles.h>
  19. #include <MoreFilesExtras.h>
  20. #include <StandardFile.h>
  21. #include <ColorPicker.h>
  22. #include <Lowmem.h>
  23. #include <Navigation.h>
  24. #include "tkPort.h"
  25. #include "tkInt.h"
  26. #include "tclMacInt.h"
  27. #include "tkMacInt.h"
  28. #include "tkFileFilter.h"
  30. #ifndef StrLength
  31. #define StrLength(s)  (*((unsigned char *) (s)))
  32. #endif
  33. #ifndef StrBody
  34. #define StrBody(s) ((char *) (s) + 1)
  35. #endif
  37. /*
  38.  * The following are ID's for resources that are defined in tkMacResource.r
  39.  */
  40. #define OPEN_BOX        130
  41. #define OPEN_POPUP      131
  42. #define OPEN_MENU       132
  43. #define OPEN_POPUP_ITEM 10
  45. #define SAVE_FILE 0
  46. #define OPEN_FILE 1
  47. #define CHOOSE_FOLDER   2
  49. #define MATCHED 0
  50. #define UNMATCHED 1
  52. /*
  53.  * The following structure is used in the GetFileName() function. It stored
  54.  * information about the file dialog and the file filters.
  55.  */
  56. typedef struct _OpenFileData {
  57.     FileFilterList fl; /* List of file filters. */
  58.     SInt16 curType; /* The filetype currently being
  59.  * listed. */
  60.     short popupItem; /* Item number of the popup in the
  61.  * dialog. */
  62.     int usePopup; /* True if we show the popup menu (this
  63.       * is an open operation and the
  64.  * -filetypes option is set). */
  65. } OpenFileData;
  68. static pascal Boolean FileFilterProc _ANSI_ARGS_((CInfoPBPtr pb,
  69.     void *myData));
  70. static int  GetFileName _ANSI_ARGS_ ((ClientData clientData, 
  71.     Tcl_Interp *interp, int objc, 
  72.     Tcl_Obj *CONST objv[], int isOpen));
  73. static int  NavGetFileName _ANSI_ARGS_ ((ClientData clientData, 
  74.     Tcl_Interp *interp, int objc, 
  75.     Tcl_Obj *CONST objv[], int isOpen));
  76. static Boolean MatchOneType _ANSI_ARGS_((StringPtr fileNamePtr, OSType fileType,
  77.     OpenFileData *myofdPtr, FileFilter *filterPtr));
  78. static pascal short  OpenHookProc _ANSI_ARGS_((short item,
  79.     DialogPtr theDialog, OpenFileData * myofdPtr));
  80. static int  ParseFileDlgArgs _ANSI_ARGS_ ((Tcl_Interp * interp,
  81.     OpenFileData * myofdPtr, int argc, char ** argv,
  82.     int isOpen));
  83. static pascal Boolean   OpenFileFilterProc(AEDesc* theItem, void* info, 
  84.                             NavCallBackUserData callBackUD,
  85.                             NavFilterModes filterMode );
  86. pascal void             OpenEventProc(NavEventCallbackMessage callBackSelector,
  87.                             NavCBRecPtr callBackParms,
  88.                             NavCallBackUserData callBackUD );
  89. static void             InitFileDialogs();
  90. static int              StdGetFile(Tcl_Interp *interp, OpenFileData *ofd,
  91.                             unsigned char *initialFile, int isOpen);
  92. static int              NavServicesGetFile(Tcl_Interp *interp, OpenFileData *ofd,
  93.                             AEDesc *initialDesc, unsigned char *initialFile,
  94.                             StringPtr title, StringPtr message, int multiple, int isOpen);
  95. static int              HandleInitialDirectory (Tcl_Interp *interp, char *initialDir, FSSpec *dirSpec, 
  96.                             AEDesc *dirDescPtr);                            
  97. /*
  98.  * Filter and hook functions used by the tk_getOpenFile and tk_getSaveFile
  99.  * commands.
  100.  */
  102. int fileDlgInited = 0;
  103. int useNavServices = 0;
  104. NavObjectFilterUPP openFileFilterUPP;
  105. NavEventUPP openFileEventUPP;
  107. static FileFilterYDUPP openFilter = NULL;
  108. static DlgHookYDUPP openHook = NULL;
  109. static DlgHookYDUPP saveHook = NULL;
  110.   
  112. /*
  113.  *----------------------------------------------------------------------
  114.  *
  115.  * Tk_ChooseColorObjCmd --
  116.  *
  117.  * This procedure implements the color dialog box for the Mac
  118.  * platform. See the user documentation for details on what it
  119.  * does.
  120.  *
  121.  * Results:
  122.  *      A standard Tcl result.
  123.  *
  124.  * Side effects:
  125.  *      See the user documentation.
  126.  *
  127.  *----------------------------------------------------------------------
  128.  */
  130. int
  131. Tk_ChooseColorObjCmd(
  132.     ClientData clientData, /* Main window associated with interpreter. */
  133.     Tcl_Interp *interp, /* Current interpreter. */
  134.     int objc, /* Number of arguments. */
  135.     Tcl_Obj *CONST objv[]) /* Argument objects. */
  136. {
  137.     Tk_Window parent;
  138.     char *title;
  139.     int i, picked, srcRead, dstWrote;
  140.     long response;
  141.     OSErr err;
  142.     static inited = 0;
  143.     static RGBColor in;
  144.     static CONST char *optionStrings[] = {
  145. "-initialcolor",    "-parent",     "-title",     NULL
  146.     };
  147.     enum options {
  148. COLOR_INITIAL,     COLOR_PARENT,   COLOR_TITLE
  149.     };
  151.     if (inited == 0) {
  152.      /*
  153.       * 'in' stores the last color picked.  The next time the color dialog
  154.       * pops up, the last color will remain in the dialog.
  155.       */
  156.       
  157.         in.red = 0xffff;
  158.         in.green = 0xffff;
  159.         in.blue = 0xffff;
  160.         inited = 1;
  161.     }
  162.     
  163.     parent = (Tk_Window) clientData;
  164.     title = "Choose a color:";
  165.     picked = 0;
  166.         
  167.     for (i = 1; i < objc; i += 2) {
  168.      int index;
  169.      char *option, *value;
  170.     
  171.         if (Tcl_GetIndexFromObj(interp, objv[i], optionStrings, "option",
  172. TCL_EXACT, &index) != TCL_OK) {
  173.     return TCL_ERROR;
  174. }
  175. if (i + 1 == objc) {
  176.     option = Tcl_GetStringFromObj(objv[i], NULL);
  177.     Tcl_AppendResult(interp, "value for "", option, "" missing", 
  178.     (char *) NULL);
  179.     return TCL_ERROR;
  180. }
  181. value = Tcl_GetStringFromObj(objv[i + 1], NULL);
  183. switch ((enum options) index) {
  184.     case COLOR_INITIAL: {
  185. XColor *colorPtr;
  187. colorPtr = Tk_GetColor(interp, parent, value);
  188. if (colorPtr == NULL) {
  189.     return TCL_ERROR;
  190. }
  191. in.red   = colorPtr->red;
  192. in.green = colorPtr->green;
  193.                 in.blue  = colorPtr->blue;
  194.                 Tk_FreeColor(colorPtr);
  195. break;
  196.     }
  197.     case COLOR_PARENT: {
  198. parent = Tk_NameToWindow(interp, value, parent);
  199. if (parent == NULL) {
  200.     return TCL_ERROR;
  201. }
  202. break;
  203.     }
  204.     case COLOR_TITLE: {
  205.         title = value;
  206. break;
  207.     }
  208. }
  209.     }
  210.         
  211.     /*
  212.      * Use the gestalt manager to determine how to bring
  213.      * up the color picker.  If versin 2.0 isn't available
  214.      * we can assume version 1.0 is available as it comes with
  215.      * Color Quickdraw which Tk requires to run at all.
  216.      */
  217.      
  218.     err = Gestalt(gestaltColorPicker, &response); 
  219.     if ((err == noErr) && (response == 0x0200L)) {
  220. ColorPickerInfo cpinfo;
  222.         /*
  223.          * Version 2.0 of the color picker is available. Let's use it
  224.          */
  226.      cpinfo.theColor.profile = 0L;
  227.      cpinfo.theColor.color.rgb.red   = in.red;
  228.      cpinfo.theColor.color.rgb.green = in.green;
  229.      cpinfo.theColor.color.rgb.blue  = in.blue;
  230.      cpinfo.dstProfile = 0L;
  231.      cpinfo.flags = kColorPickerCanModifyPalette | kColorPickerCanAnimatePalette;
  232.      cpinfo.placeWhere = kDeepestColorScreen;
  233.      cpinfo.pickerType = 0L;
  234.      cpinfo.eventProc = NULL;
  235.      cpinfo.colorProc = NULL;
  236.      cpinfo.colorProcData = NULL;
  237.     
  238.      Tcl_UtfToExternal(NULL, NULL, title, -1, 0, NULL, 
  239. StrBody(cpinfo.prompt), 255, &srcRead, &dstWrote, NULL);
  240.      StrLength(cpinfo.prompt) = (unsigned char) dstWrote;
  242.         if ((PickColor(&cpinfo) == noErr) && (cpinfo.newColorChosen != 0)) {
  243.             in.red  = cpinfo.theColor.color.rgb.red;
  244.             in.green  = cpinfo.theColor.color.rgb.green;
  245.             in.blue  = cpinfo.theColor.color.rgb.blue;
  246.             picked = 1;
  247.         }
  248.     } else {
  249.      RGBColor out;
  250.      Str255 prompt;
  251.      Point point = {-1, -1};
  252.     
  253.         /*
  254.          * Use version 1.0 of the color picker
  255.          */
  256.     
  257.      Tcl_UtfToExternal(NULL, NULL, title, -1, 0, NULL, StrBody(prompt), 
  258. 255, &srcRead, &dstWrote, NULL);
  259.      StrLength(prompt) = (unsigned char) dstWrote;
  261.         if (GetColor(point, prompt, &in, &out)) {
  262.             in = out;
  263.             picked = 1;
  264.         }
  265.     } 
  266.     
  267.     if (picked != 0) {
  268.         char result[32];
  270.         sprintf(result, "#%02x%02x%02x", in.red >> 8, in.green >> 8, 
  271.          in.blue >> 8);
  272. Tcl_AppendResult(interp, result, NULL);
  273.     }
  274.     return TCL_OK;
  275. }
  277. /*
  278.  *----------------------------------------------------------------------
  279.  *
  280.  * Tk_GetOpenFileObjCmd --
  281.  *
  282.  * This procedure implements the "open file" dialog box for the
  283.  * Mac platform. See the user documentation for details on what
  284.  * it does.
  285.  *
  286.  * Results:
  287.  *      A standard Tcl result.
  288.  *
  289.  * Side effects:
  290.  * See user documentation.
  291.  *----------------------------------------------------------------------
  292.  */
  294. int
  295. Tk_GetOpenFileObjCmd(
  296.     ClientData clientData, /* Main window associated with interpreter. */
  297.     Tcl_Interp *interp, /* Current interpreter. */
  298.     int objc, /* Number of arguments. */
  299.     Tcl_Obj *CONST objv[]) /* Argument objects. */
  300. {
  301.     int i, result, multiple;
  302.     OpenFileData ofd;
  303.     Tk_Window parent;
  304.     Str255 message, title;
  305.     AEDesc initialDesc = {typeNull, NULL};
  306.     FSSpec dirSpec;
  307.     static CONST char *openOptionStrings[] = {
  308.     "-defaultextension", "-filetypes", 
  309.     "-initialdir", "-initialfile", 
  310.     "-message", "-multiple",
  311.     "-parent", "-title",  NULL
  312.     };
  313.     enum openOptions {
  314.     OPEN_DEFAULT, OPEN_TYPES,
  315.     OPEN_INITDIR, OPEN_INITFILE,
  316.     OPEN_MESSAGE, OPEN_MULTIPLE, 
  317.     OPEN_PARENT, OPEN_TITLE
  318.     };
  319.     
  320.     if (!fileDlgInited) {
  321. InitFileDialogs();
  322.     }
  323.     
  324.     result = TCL_ERROR;    
  325.     parent = (Tk_Window) clientData; 
  326.     multiple = false;
  327.     title[0] = 0;
  328.     message[0] = 0;   
  330.     TkInitFileFilters(&ofd.fl);
  331.     
  332.     ofd.curType = 0;
  333.     ofd.popupItem = OPEN_POPUP_ITEM;
  334.     ofd.usePopup  = 1;
  336.     for (i = 1; i < objc; i += 2) {
  337.         char *choice;
  338. int index, choiceLen;
  339. char *string;
  340. int srcRead, dstWrote;
  342. if (Tcl_GetIndexFromObj(interp, objv[i], openOptionStrings, "option",
  343. TCL_EXACT, &index) != TCL_OK) {
  344.     result = TCL_ERROR;
  345.     goto end;
  346. }
  347. if (i + 1 == objc) {
  348.     string = Tcl_GetStringFromObj(objv[i], NULL);
  349.     Tcl_AppendResult(interp, "value for "", string, "" missing", 
  350.     (char *) NULL);
  351.     result = TCL_ERROR;
  352.     goto end;
  353. }
  355. switch (index) {
  356.     case OPEN_DEFAULT:
  357.         break;
  358.     case OPEN_TYPES:
  359.         choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
  360.                 if (TkGetFileFilters(interp, &ofd.fl, choice, 0) 
  361.                         != TCL_OK) {
  362.                     result = TCL_ERROR;
  363.                     goto end;
  364.                 }
  365.         break;
  366.     case OPEN_INITDIR:
  367.         choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
  368.                 if (HandleInitialDirectory(interp, choice, &dirSpec, 
  369.                         &initialDesc) != TCL_OK) {
  370.                     result = TCL_ERROR;
  371.                     goto end;
  372.                 }
  373.         break;
  374.     case OPEN_INITFILE:
  375.         break;
  376.     case OPEN_MESSAGE:
  377.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  378.         Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
  379.         0, NULL, StrBody(message), 255, 
  380.         &srcRead, &dstWrote, NULL);
  381.                 message[0] = dstWrote;
  382.         break;
  383.     case OPEN_MULTIPLE:
  384.         if (Tcl_GetBooleanFromObj(interp, objv[i + 1], &multiple) != TCL_OK) {
  385.             result = TCL_ERROR;
  386.             goto end;
  387.         }
  388.         break;
  389.     case OPEN_PARENT:
  390.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  391.                 parent = Tk_NameToWindow(interp, choice, parent);
  392.         if (parent == NULL) {
  393.             result = TCL_ERROR;
  394.             goto end;
  395.         }
  396.         break;
  397.     case OPEN_TITLE:
  398.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  399.         Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
  400.         0, NULL, StrBody(title), 255, 
  401.         &srcRead, &dstWrote, NULL);
  402.                 title[0] = dstWrote;
  403.         break;
  404. }
  405.     }
  406.              
  407.     if (useNavServices) {
  408.         AEDesc *initialPtr = NULL;
  409.         
  410.         if (initialDesc.descriptorType == typeFSS) {
  411.             initialPtr = &initialDesc;
  412.         }
  413.         result = NavServicesGetFile(interp, &ofd, initialPtr, NULL, 
  414.                 title, message, multiple, OPEN_FILE);
  415.     } else {
  416.         result = StdGetFile(interp, &ofd, NULL, OPEN_FILE);
  417.     }
  419.     end:
  420.     TkFreeFileFilters(&ofd.fl);
  421.     AEDisposeDesc(&initialDesc);
  422.     
  423.     return result;
  424. }
  426. /*
  427.  *----------------------------------------------------------------------
  428.  *
  429.  * Tk_GetSaveFileObjCmd --
  430.  *
  431.  * Same as Tk_GetOpenFileCmd but opens a "save file" dialog box
  432.  * instead
  433.  *
  434.  * Results:
  435.  *      A standard Tcl result.
  436.  *
  437.  * Side effects:
  438.  * See user documentation.
  439.  *----------------------------------------------------------------------
  440.  */
  442. int
  443. Tk_GetSaveFileObjCmd(
  444.     ClientData clientData, /* Main window associated with interpreter. */
  445.     Tcl_Interp *interp, /* Current interpreter. */
  446.     int objc, /* Number of arguments. */
  447.     Tcl_Obj *CONST objv[]) /* Argument objects. */
  448. {
  449.     int i, result;
  450.     Str255 initialFile;
  451.     Tk_Window parent;
  452.     AEDesc initialDesc = {typeNull, NULL};
  453.     FSSpec dirSpec;
  454.     Str255 title, message;
  455.     OpenFileData ofd;
  456.     static CONST char *saveOptionStrings[] = {
  457.     "-defaultextension", "-filetypes", "-initialdir", "-initialfile", 
  458.     "-message", "-parent", "-title",  NULL
  459.     };
  460.     enum saveOptions {
  461.     SAVE_DEFAULT, SAVE_TYPES, SAVE_INITDIR, SAVE_INITFILE,
  462.     SAVE_MESSAGE, SAVE_PARENT, SAVE_TITLE
  463.     };
  465.     if (!fileDlgInited) {
  466. InitFileDialogs();
  467.     }
  468.     
  469.     result = TCL_ERROR;    
  470.     parent = (Tk_Window) clientData;    
  471.     StrLength(initialFile) = 0;
  472.     title[0] = 0;
  473.     message[0] = 0;   
  474.     
  476.     for (i = 1; i < objc; i += 2) {
  477.         char *choice;
  478. int index, choiceLen;
  479. char *string;
  480.         Tcl_DString ds;
  481.         int srcRead, dstWrote;
  483. if (Tcl_GetIndexFromObj(interp, objv[i], saveOptionStrings, "option",
  484. TCL_EXACT, &index) != TCL_OK) {
  485.     return TCL_ERROR;
  486. }
  487. if (i + 1 == objc) {
  488.     string = Tcl_GetStringFromObj(objv[i], NULL);
  489.     Tcl_AppendResult(interp, "value for "", string, "" missing", 
  490.     (char *) NULL);
  491.     return TCL_ERROR;
  492. }
  493. switch (index) {
  494.     case SAVE_DEFAULT:
  495.         break;
  496.     case SAVE_TYPES:
  497.         break;
  498.     case SAVE_INITDIR:
  499.         choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
  500.                 if (HandleInitialDirectory(interp, choice, &dirSpec, 
  501.                         &initialDesc) != TCL_OK) {
  502.                     result = TCL_ERROR;
  503.                     goto end;
  504.                 }
  505.         break;
  506.     case SAVE_INITFILE:
  507.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  508.                 if (Tcl_TranslateFileName(interp, choice, &ds) == NULL) {
  509.                     result = TCL_ERROR;
  510.                     goto end;
  511.                 }
  512.                 Tcl_UtfToExternal(NULL, NULL, Tcl_DStringValue(&ds), 
  513.                  Tcl_DStringLength(&ds), 0, NULL, 
  514.         StrBody(initialFile), 255, &srcRead, &dstWrote, NULL);
  515.                 StrLength(initialFile) = (unsigned char) dstWrote;
  516.                 Tcl_DStringFree(&ds);            
  517.         break;
  518.     case SAVE_MESSAGE:
  519.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  520.         Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
  521.         0, NULL, StrBody(message), 255, 
  522.         &srcRead, &dstWrote, NULL);
  523.                 StrLength(message) = (unsigned char) dstWrote;
  524.         break;
  525.     case SAVE_PARENT:
  526.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  527.                 parent = Tk_NameToWindow(interp, choice, parent);
  528.         if (parent == NULL) {
  529.             result = TCL_ERROR;
  530.             goto end;
  531.         }
  532.         break;
  533.     case SAVE_TITLE:
  534.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  535.         Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
  536.         0, NULL, StrBody(title), 255, 
  537.         &srcRead, &dstWrote, NULL);
  538.                 StrLength(title) = (unsigned char) dstWrote;
  539.         break;
  540. }
  541.     }
  542.          
  543.     TkInitFileFilters(&ofd.fl);
  544.     ofd.usePopup = 0;
  546.     if (useNavServices) {
  547.         AEDesc *initialPtr = NULL;
  548.         
  549.         if (initialDesc.descriptorType == typeFSS) {
  550.             initialPtr = &initialDesc;
  551.         }
  552.         result = NavServicesGetFile(interp, &ofd, initialPtr, initialFile, 
  553.                 title, message, false, SAVE_FILE);
  554.     } else {
  555.         result = StdGetFile(interp, NULL, initialFile, SAVE_FILE);
  556.     }
  558.     end:
  559.     
  560.     AEDisposeDesc(&initialDesc);
  561.     
  562.     return result;
  563. }
  565. /*
  566.  *----------------------------------------------------------------------
  567.  *
  568.  * Tk_ChooseDirectoryObjCmd --
  569.  *
  570.  * This procedure implements the "tk_chooseDirectory" dialog box 
  571.  * for the Windows platform. See the user documentation for details 
  572.  * on what it does.
  573.  *
  574.  * Results:
  575.  * See user documentation.
  576.  *
  577.  * Side effects:
  578.  * A modal dialog window is created.  Tcl_SetServiceMode() is
  579.  * called to allow background events to be processed
  580.  *
  581.  *----------------------------------------------------------------------
  582.  */
  584. int
  585. Tk_ChooseDirectoryObjCmd(clientData, interp, objc, objv)
  586.     ClientData clientData; /* Main window associated with interpreter. */
  587.     Tcl_Interp *interp; /* Current interpreter. */
  588.     int objc; /* Number of arguments. */
  589.     Tcl_Obj *CONST objv[]; /* Argument objects. */
  590. {
  591.     int i, result;
  592.     Tk_Window parent;
  593.     AEDesc initialDesc = {typeNull, NULL};
  594.     FSSpec dirSpec;
  595.     Str255 message, title;
  596.     int srcRead, dstWrote;
  597.     OpenFileData ofd;
  598.     static CONST char *chooseOptionStrings[] = {
  599.     "-initialdir", "-message", "-mustexist", "-parent", "-title", NULL
  600.     };
  601.     enum chooseOptions {
  602.     CHOOSE_INITDIR, CHOOSE_MESSAGE, CHOOSE_MUSTEXIST, 
  603.     CHOOSE_PARENT, CHOOSE_TITLE
  604.     };
  605.   
  606.     
  607.     if (!NavServicesAvailable()) {
  608.         return TCL_ERROR;
  609.     }
  611.     if (!fileDlgInited) {
  612. InitFileDialogs();
  613.     }
  614.     result = TCL_ERROR;    
  615.     parent = (Tk_Window) clientData;    
  616.     title[0] = 0;
  617.     message[0] = 0;   
  619.     for (i = 1; i < objc; i += 2) {
  620.         char *choice;
  621. int index, choiceLen;
  622. char *string;
  624. if (Tcl_GetIndexFromObj(interp, objv[i], chooseOptionStrings, "option",
  625. TCL_EXACT, &index) != TCL_OK) {
  626.     return TCL_ERROR;
  627. }
  628. if (i + 1 == objc) {
  629.     string = Tcl_GetStringFromObj(objv[i], NULL);
  630.     Tcl_AppendResult(interp, "value for "", string, "" missing", 
  631.     (char *) NULL);
  632.     return TCL_ERROR;
  633. }
  634. switch (index) {
  635.     case CHOOSE_INITDIR:
  636.         choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
  637.                 if (HandleInitialDirectory(interp, choice, &dirSpec, 
  638.                         &initialDesc) != TCL_OK) {
  639.                     result = TCL_ERROR;
  640.                     goto end;
  641.                 }
  642.         break;
  643.     case CHOOSE_MESSAGE:
  644.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  645.         Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
  646.         0, NULL, StrBody(message), 255, 
  647.         &srcRead, &dstWrote, NULL);
  648.                 StrLength(message) = (unsigned char) dstWrote;
  649.         break;
  650.     case CHOOSE_PARENT:
  651.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  652.                 parent = Tk_NameToWindow(interp, choice, parent);
  653.         if (parent == NULL) {
  654.             result = TCL_ERROR;
  655.             goto end;
  656.         }
  657.         break;
  658.     case CHOOSE_TITLE:
  659.         choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  660.         Tcl_UtfToExternal(NULL, NULL, choice, choiceLen, 
  661.         0, NULL, StrBody(title), 255, 
  662.         &srcRead, &dstWrote, NULL);
  663.                 StrLength(title) = (unsigned char) dstWrote;
  664.         break;
  665. }
  666.     }
  667.              
  668.     TkInitFileFilters(&ofd.fl);
  669.     ofd.usePopup = 0;
  671.     if (useNavServices) {
  672.         AEDesc *initialPtr = NULL;
  673.         
  674.         if (initialDesc.descriptorType == typeFSS) {
  675.             initialPtr = &initialDesc;
  676.         }
  677.         result = NavServicesGetFile(interp, &ofd, initialPtr, NULL, 
  678.                 title, message, false, CHOOSE_FOLDER);
  679.     } else {
  680.         result = TCL_ERROR;
  681.     }
  683.     end:
  684.     AEDisposeDesc(&initialDesc);
  685.     
  686.     return result;
  687. }
  689. int
  690. HandleInitialDirectory (
  691.     Tcl_Interp *interp,
  692.     char *initialDir, 
  693.     FSSpec *dirSpec, 
  694.     AEDesc *dirDescPtr)
  695. {
  696. Tcl_DString ds;
  697. long dirID;
  698. OSErr err;
  699. Boolean isDirectory;
  700. Str255 dir;
  701. int srcRead, dstWrote;
  703. if (Tcl_TranslateFileName(interp, initialDir, &ds) == NULL) {
  704.     return TCL_ERROR;
  705. }
  706. Tcl_UtfToExternal(NULL, NULL, Tcl_DStringValue(&ds), 
  707. Tcl_DStringLength(&ds), 0, NULL, StrBody(dir), 255, 
  708. &srcRead, &dstWrote, NULL);
  709.         StrLength(dir) = (unsigned char) dstWrote;
  710. Tcl_DStringFree(&ds);
  711.           
  712. err = FSpLocationFromPath(StrLength(dir), StrBody(dir), dirSpec);
  713. if (err != noErr) {
  714.     Tcl_AppendResult(interp, "bad directory "", initialDir, """, NULL);
  715.     return TCL_ERROR;
  716. }
  717. err = FSpGetDirectoryIDTcl(dirSpec, &dirID, &isDirectory);
  718. if ((err != noErr) || !isDirectory) {
  719.     Tcl_AppendResult(interp, "bad directory "", initialDir, """, NULL);
  720.     return TCL_ERROR;
  721. }
  723.         if (useNavServices) {
  724.             AECreateDesc( typeFSS, dirSpec, sizeof(*dirSpec), dirDescPtr);        
  725.         } else {
  726.     /*
  727.      * Make sure you negate -dirSpec.vRefNum because the 
  728.      * standard file package wants it that way !
  729.      */
  731.     LMSetSFSaveDisk(-dirSpec->vRefNum);
  732.     LMSetCurDirStore(dirID);
  733. }
  734.         return TCL_OK;
  735. }
  737. static void
  738. InitFileDialogs()
  739. {
  740.     fileDlgInited = 1;
  741.     
  742.     if (NavServicesAvailable()) {
  743.         openFileFilterUPP = NewNavObjectFilterProc(OpenFileFilterProc);
  744.         openFileEventUPP = NewNavEventProc(OpenEventProc);
  745.         useNavServices = 1;
  746.     } else {
  747. openFilter = NewFileFilterYDProc(FileFilterProc);
  748. openHook = NewDlgHookYDProc(OpenHookProc);
  749. saveHook = NewDlgHookYDProc(OpenHookProc);
  750. useNavServices = 0;
  751.     }
  752.     
  753.         
  754. }
  757. /*
  758.  *----------------------------------------------------------------------
  759.  *
  760.  * GetFileName --
  761.  *
  762.  * Calls the Mac file dialog functions for the user to choose a
  763.  * file to or save.
  764.  *
  765.  * Results:
  766.  * A standard Tcl result.
  767.  *
  768.  * Side effects:
  769.  * If the user selects a file, the native pathname of the file
  770.  * is returned in the interp's result. Otherwise an empty string
  771.  * is returned in the interp's result.
  772.  *
  773.  *----------------------------------------------------------------------
  774.  */
  776. static int
  777. GetFileName(
  778.     ClientData clientData, /* Main window associated with interpreter. */
  779.     Tcl_Interp *interp, /* Current interpreter. */
  780.     int objc, /* Number of arguments. */
  781.     Tcl_Obj *CONST objv[], /* Argument objects. */
  782.     int isOpen) /* true if we should call GetOpenFileName(),
  783.  * false if we should call GetSaveFileName() */
  784. {
  785.     return TCL_OK;
  786. }
  788. static int
  789. NavServicesGetFile(
  790.     Tcl_Interp *interp,
  791.     OpenFileData *ofdPtr,
  792.     AEDesc *initialDesc,
  793.     unsigned char *initialFile,
  794.     StringPtr title,
  795.     StringPtr message,
  796.     int multiple,
  797.     int isOpen)
  798. {
  799.     NavReplyRecord theReply;
  800.     NavDialogOptions diagOptions;
  801.     OSErr err;
  802.     Tcl_Obj *theResult;
  803.     int result;
  805.     
  806.     diagOptions.location.h = -1;
  807.     diagOptions.location.v = -1;
  808.     diagOptions.dialogOptionFlags = kNavDontAutoTranslate 
  809.             + kNavDontAddTranslateItems;
  810.             
  811.     if (multiple) {
  812.         diagOptions.dialogOptionFlags += kNavAllowMultipleFiles;
  813.     }
  814.     
  815.     if (ofdPtr != NULL && ofdPtr->usePopup) {
  816.         FileFilter *filterPtr;
  817.         
  818. filterPtr = ofdPtr->fl.filters;
  819. if (filterPtr == NULL) {
  820.     ofdPtr->usePopup = 0;
  821. }
  822.     }
  823.     
  824.     if (ofdPtr != NULL && ofdPtr->usePopup) {    
  825.         NavMenuItemSpecHandle popupExtensionHandle = NULL;
  826.         NavMenuItemSpec *popupItems;
  827.         FileFilter *filterPtr;
  828.         short index = 0;
  830. ofdPtr->curType = 0;
  832.         popupExtensionHandle = (NavMenuItemSpecHandle) NewHandle(ofdPtr->fl.numFilters 
  833.                 * sizeof(NavMenuItemSpec));
  834.         HLock((Handle) popupExtensionHandle);
  835.         popupItems = *popupExtensionHandle;
  836.         
  837.         for (filterPtr = ofdPtr->fl.filters; filterPtr != NULL; 
  838.                 filterPtr = filterPtr->next, popupItems++, index++) {
  839.             int len;
  840.             
  841.             len = strlen(filterPtr->name);
  842.             BlockMove(filterPtr->name, popupItems->menuItemName + 1, len);
  843.             popupItems->menuItemName[0] = len;
  844.             popupItems->menuCreator = 'WIsH';
  845.             popupItems->menuType = index;
  846.         }
  847.         HUnlock((Handle) popupExtensionHandle);
  848.         diagOptions.popupExtension = popupExtensionHandle;
  849.     } else {        
  850.         diagOptions.dialogOptionFlags += kNavNoTypePopup; 
  851.         diagOptions.popupExtension = NULL;
  852.     }
  853.         
  854.     if ((initialFile != NULL) && (initialFile[0] != 0)) {
  855.         char *lastColon;
  856.         int len;
  857.         
  858.         len = initialFile[0];
  859.         
  860.         p2cstr(initialFile);        
  861.         lastColon = strrchr((char *)initialFile, ':');
  862.         if (lastColon != NULL) {
  863.             len -= lastColon - ((char *) (initialFile + 1));
  864.             BlockMove(lastColon + 1, diagOptions.savedFileName + 1, len);
  865.             diagOptions.savedFileName[0] = len;
  866.         } else {  
  867.             BlockMove(initialFile, diagOptions.savedFileName + 1, len);
  868.             diagOptions.savedFileName[0] = len;
  869.         }
  870.     } else {
  871.         diagOptions.savedFileName[0] = 0;
  872.     }
  873.     
  874.     strcpy((char *) (diagOptions.clientName + 1),"Wish");
  875.     diagOptions.clientName[0] = strlen("Wish");
  876.     
  877.     if (title == NULL) {
  878.         diagOptions.windowTitle[0] = 0;
  879.     } else {
  880.         BlockMove(title, diagOptions.windowTitle, title[0] + 1);
  881.         diagOptions.windowTitle[0] = title[0];
  882.     }
  883.     
  884.     if (message == NULL) {
  885.         diagOptions.message[0] = 0;
  886.     } else {
  887.         BlockMove(message, diagOptions.message, message[0] + 1);
  888.         diagOptions.message[0] = message[0];
  889.     }
  890.     
  891.     diagOptions.actionButtonLabel[0] = 0;
  892.     diagOptions.cancelButtonLabel[0] = 0;
  893.     diagOptions.preferenceKey = 0;
  894.     
  895.     /* Now process the selection list.  We have to use the popupExtension
  896.      * to fill the menu.
  897.      */
  898.     
  899.     
  900.     if (isOpen == OPEN_FILE) {
  901.         err = NavGetFile(initialDesc, &theReply, &diagOptions, openFileEventUPP,  
  902.                 NULL, openFileFilterUPP, NULL, ofdPtr);    
  903.     } else if (isOpen == SAVE_FILE) {
  904.         err = NavPutFile (initialDesc, &theReply, &diagOptions, openFileEventUPP, 
  905.                 'TEXT', 'WIsH', NULL);
  906.     } else if (isOpen == CHOOSE_FOLDER) {
  907.         err = NavChooseFolder (initialDesc, &theReply, &diagOptions,
  908.                 openFileEventUPP, NULL, NULL);
  909.     }
  910.     
  911.                         
  912.     /*
  913.      * Most commands assume that the file dialogs return a single
  914.      * item, not a list.  So only build a list if multiple is true...
  915.      */
  916.                          
  917.     if (multiple) {
  918.         theResult = Tcl_NewListObj(0, NULL);
  919.     } else {
  920.         theResult = Tcl_NewObj();
  921.     }
  922.            
  923.     if ( theReply.validRecord && err == noErr ) {
  924.         AEDesc resultDesc;
  925.         long count;
  926.         Tcl_DString fileName;
  927.         Handle pathHandle;
  928.         int length;
  929.         
  930.         if ( err == noErr ) {
  931.             err = AECountItems(&(theReply.selection), &count);
  932.             if (err == noErr) {
  933.                 long i;
  934.                 for (i = 1; i <= count; i++ ) {
  935.                     err = AEGetNthDesc(&(theReply.selection),
  936.                             i, typeFSS, NULL, &resultDesc);
  937.                     if (err == noErr) {
  938.                         HLock(resultDesc.dataHandle);
  939.                         pathHandle = NULL;
  940.                         FSpPathFromLocation((FSSpec *) *resultDesc.dataHandle, 
  941.                                 &length, &pathHandle);
  942.                         HLock(pathHandle);
  943.                         Tcl_ExternalToUtfDString(NULL, (char *) *pathHandle, -1, &fileName);
  944.                         if (multiple) {
  945.                             Tcl_ListObjAppendElement(interp, theResult, 
  946.                                     Tcl_NewStringObj(Tcl_DStringValue(&fileName), 
  947.                                     Tcl_DStringLength(&fileName)));
  948.                         } else {
  949.                             Tcl_SetStringObj(theResult, Tcl_DStringValue(&fileName), 
  950.                                     Tcl_DStringLength(&fileName));
  951.                         }
  952.                         
  953.                         Tcl_DStringFree(&fileName);
  954.                         HUnlock(pathHandle);
  955.                         DisposeHandle(pathHandle);
  956.                         HUnlock(resultDesc.dataHandle);
  957.                         AEDisposeDesc( &resultDesc );
  958.                     }
  959.                 }
  960.             }
  961.          }
  962.          err = NavDisposeReply( &theReply );
  963.          Tcl_SetObjResult(interp, theResult);
  964.          result = TCL_OK;
  965.     } else if (err == userCanceledErr) {
  966.         result = TCL_OK;
  967.     } else {
  968.         result = TCL_ERROR;
  969.     }
  970.     
  971.     if (diagOptions.popupExtension != NULL) {
  972.         DisposeHandle((Handle) diagOptions.popupExtension);
  973.     }
  974.     
  975.     return result;
  976. }
  978. static pascal Boolean 
  979. OpenFileFilterProc( 
  980.     AEDesc* theItem, void* info,
  981.     NavCallBackUserData callBackUD,
  982.     NavFilterModes filterMode )
  983. {
  984.     OpenFileData *ofdPtr = (OpenFileData *) callBackUD;
  985.     if (!ofdPtr->usePopup) {
  986.         return true;
  987.     } else {
  988.         if (ofdPtr->fl.numFilters == 0) {
  989.             return true;
  990.         } else {
  991.             
  992.             if ( theItem->descriptorType == typeFSS ) {
  993.                 NavFileOrFolderInfo* theInfo = (NavFileOrFolderInfo*)info;
  994.                 int result;
  995.                 
  996.                 if ( !theInfo->isFolder ) {
  997.                     OSType fileType;
  998.                     StringPtr fileNamePtr;
  999.                     int i;
  1000.                     FileFilter *filterPtr;
  1001.                
  1002.                     fileType = theInfo->fileAndFolder.fileInfo.finderInfo.fdType;
  1003.                     HLock(theItem->dataHandle);
  1004.                     fileNamePtr = (((FSSpec *) *theItem->dataHandle)->name);
  1005.                     
  1006.                     if (ofdPtr->usePopup) {
  1007.                         i = ofdPtr->curType;
  1008.                 for (filterPtr=ofdPtr->fl.filters; filterPtr && i>0; i--) {
  1009.                     filterPtr = filterPtr->next;
  1010.                 }
  1011.                 if (filterPtr) {
  1012.                     result = MatchOneType(fileNamePtr, fileType,
  1013.                             ofdPtr, filterPtr);
  1014.                 } else {
  1015.                     result = false;
  1016.                         }
  1017.                     } else {
  1018.                 /*
  1019.                  * We are not using the popup menu. In this case, the file is
  1020.                  * considered matched if it matches any of the file filters.
  1021.                  */
  1022. result = UNMATCHED;
  1023.                 for (filterPtr=ofdPtr->fl.filters; filterPtr;
  1024.                 filterPtr=filterPtr->next) {
  1025.                     if (MatchOneType(fileNamePtr, fileType,
  1026.                             ofdPtr, filterPtr) == MATCHED) {
  1027.                         result = MATCHED;
  1028.                         break;
  1029.                     }
  1030.                 }
  1031.                     }
  1032.                     
  1033.                     HUnlock(theItem->dataHandle);
  1034.                     return (result == MATCHED);
  1035.                 } else {
  1036.                     return true;
  1037.                 }
  1038.             }
  1039.         }
  1040.         
  1041.         return true;
  1042.     }
  1043. }
  1045. pascal void 
  1046. OpenEventProc(
  1047.     NavEventCallbackMessage callBackSelector,
  1048.     NavCBRecPtr callBackParams,
  1049.     NavCallBackUserData callBackUD )
  1050. {
  1051.     NavMenuItemSpec *chosenItem;
  1052.     OpenFileData *ofd = (OpenFileData *) callBackUD;
  1053.         
  1054.     if (callBackSelector ==  kNavCBPopupMenuSelect) {
  1055.         chosenItem = (NavMenuItemSpec *) callBackParams->eventData.eventDataParms.param;
  1056.         ofd->curType = chosenItem->menuType;
  1057.     } else if (callBackSelector == kNavCBEvent) {
  1058.      if (callBackParams->eventData.eventDataParms.event->what == updateEvt) {
  1059.      if (TkMacConvertEvent( callBackParams->eventData.eventDataParms.event)) {
  1060.          while (Tcl_DoOneEvent(TCL_IDLE_EVENTS|TCL_DONT_WAIT|TCL_WINDOW_EVENTS)) {
  1061.             /* Empty Body */
  1062.          }
  1063.          }
  1064.         }
  1065.     }
  1066. }
  1068. static int
  1069. StdGetFile(
  1070.     Tcl_Interp *interp,
  1071.     OpenFileData *ofd,
  1072.     unsigned char *initialFile,
  1073.     int isOpen)
  1074. {
  1075.     int i;
  1076.     StandardFileReply reply;
  1077.     Point mypoint;
  1078.     MenuHandle menu = NULL;
  1081.     /*
  1082.      * Set the items in the file types popup.
  1083.      */
  1085.     /*
  1086.      * Delete all the entries inside the popup menu, in case there's any
  1087.      * left overs from previous invocation of this command
  1088.      */
  1090.     if (ofd != NULL && ofd->usePopup) {
  1091. FileFilter *filterPtr;
  1093. menu = GetMenu(OPEN_MENU);
  1094.         for (i = CountMItems(menu); i > 0; i--) {
  1095.             /*
  1096.              * The item indices are one based. Also, if we delete from
  1097.              * the beginning, the items may be re-numbered. So we
  1098.              * delete from the end
  1099.           */
  1100.           
  1101.           DeleteMenuItem(menu, i);
  1102.         }
  1104. filterPtr = ofd->fl.filters;
  1105. if (filterPtr == NULL) {
  1106.     ofd->usePopup = 0;
  1107. } else {
  1108.     for ( ; filterPtr != NULL; filterPtr = filterPtr->next) {
  1109.         Str255 str;
  1110.         
  1111.      StrLength(str) = (unsigned char) strlen(filterPtr->name);
  1112.      strcpy(StrBody(str), filterPtr->name);
  1113. AppendMenu(menu, str);
  1114.     }
  1115. }
  1116.     }
  1118.     /*
  1119.      * Call the toolbox file dialog function.
  1120.      */
  1121.      
  1122.     SetPt(&mypoint, -1, -1);
  1123.     TkpSetCursor(NULL);
  1124.     if (isOpen == OPEN_FILE) {
  1125.         if (ofd != NULL && ofd->usePopup) {
  1126.     CustomGetFile(openFilter, (short) -1, NULL, &reply, OPEN_BOX,
  1127.          mypoint, openHook, NULL, NULL, NULL, (void*) ofd);
  1128. } else {
  1129.     StandardGetFile(NULL, -1, NULL, &reply);
  1130. }
  1131.     } else if (isOpen == SAVE_FILE) {
  1132. static Str255 prompt = "pSave as";
  1134.     if (ofd != NULL && ofd->usePopup) {
  1135.         /*
  1136.          * Currently this never gets called because we don't use
  1137.          * popup for the save dialog.
  1138.          */
  1139.     CustomPutFile(prompt, initialFile, &reply, OPEN_BOX, 
  1140.     mypoint, saveHook, NULL, NULL, NULL, (void *) ofd);
  1141. } else {
  1142.     StandardPutFile(prompt, initialFile, &reply);
  1143. }
  1144.     }
  1146.     /*
  1147.      * Now parse the reply, and populate the Tcl result.
  1148.      */
  1149.      
  1150.     if (reply.sfGood) {
  1151.         int length;
  1152.      Handle pathHandle;
  1153.     
  1154.      pathHandle = NULL;
  1155.      FSpPathFromLocation(&reply.sfFile, &length, &pathHandle);
  1156. if (pathHandle != NULL) {
  1157.     Tcl_DString ds;
  1158.     
  1159.     HLock(pathHandle);
  1160.     Tcl_ExternalToUtfDString(NULL, (char *) *pathHandle, -1, &ds);
  1161.     Tcl_AppendResult(interp, Tcl_DStringValue(&ds), NULL);
  1162.     Tcl_DStringFree(&ds);
  1163.     HUnlock(pathHandle);
  1164.     DisposeHandle(pathHandle);
  1165. }
  1166.     }
  1167.     
  1168.     if (menu != NULL) {
  1169.      DisposeMenu(menu);
  1170.     }
  1172.     return TCL_OK;
  1173. }
  1174. /*
  1175.  *----------------------------------------------------------------------
  1176.  *
  1177.  * OpenHookProc --
  1178.  *
  1179.  * Gets called for various events that occur in the file dialog box.
  1180.  * Initializes the popup menu or rebuild the file list depending on
  1181.  * the type of the event.
  1182.  *
  1183.  * Results:
  1184.  * A standard result understood by the Mac file dialog event dispatcher.
  1185.  *
  1186.  * Side effects:
  1187.  * The contents in the file dialog may be changed depending on
  1188.  * the type of the event.
  1189.  *----------------------------------------------------------------------
  1190.  */
  1192. static pascal short
  1193. OpenHookProc(
  1194.     short item, /* Event description. */
  1195.     DialogPtr theDialog, /* The dialog where the event occurs. */
  1196.     OpenFileData *ofdPtr) /* Information about the file dialog. */
  1197. {
  1198.     short ignore;
  1199.     Rect rect;
  1200.     Handle handle;
  1201.     int newType;
  1203.     switch (item) {
  1204. case sfHookFirstCall:
  1205.     if (ofdPtr->usePopup) {
  1206. /*
  1207.  * Set the popup list to display the selected type.
  1208.  */
  1209. GetDialogItem(theDialog, ofdPtr->popupItem, &ignore, &handle, 
  1210. &rect);
  1211. SetControlValue((ControlRef) handle, ofdPtr->curType + 1);
  1212.     }
  1213.     return sfHookNullEvent;
  1214.       
  1215. case OPEN_POPUP_ITEM:
  1216.     if (ofdPtr->usePopup) {
  1217. GetDialogItem(theDialog, ofdPtr->popupItem,
  1218. &ignore, &handle, &rect);
  1219. newType = GetControlValue((ControlRef) handle) - 1;
  1220. if (ofdPtr->curType != newType) {
  1221.     if (newType<0 || newType>ofdPtr->fl.numFilters) {
  1222. /*
  1223.  * Sanity check. Looks like the user selected an
  1224.  * non-existent menu item?? Don't do anything.
  1225.  */
  1226.     } else {
  1227. ofdPtr->curType = newType;
  1228.     }
  1229.     return sfHookRebuildList;
  1230. }
  1231.     }  
  1232.     break;
  1233.     }
  1235.     return item;
  1236. }
  1238. /*
  1239.  *----------------------------------------------------------------------
  1240.  *
  1241.  * FileFilterProc --
  1242.  *
  1243.  * Filters files according to file types. Get called whenever the
  1244.  * file list needs to be updated inside the dialog box.
  1245.  *
  1246.  * Results:
  1247.  * Returns MATCHED if the file should be shown in the listbox, returns
  1248.  * UNMATCHED otherwise.
  1249.  *
  1250.  * Side effects:
  1251.  * If MATCHED is returned, the file is shown in the listbox.
  1252.  *
  1253.  *----------------------------------------------------------------------
  1254.  */
  1256. static pascal Boolean
  1257. FileFilterProc(
  1258.     CInfoPBPtr pb, /* Information about the file */
  1259.     void *myData) /* Client data for this file dialog */
  1260. {
  1261.     int i;
  1262.     OpenFileData * ofdPtr = (OpenFileData*)myData;
  1263.     FileFilter * filterPtr;
  1265.     if (ofdPtr->fl.numFilters == 0) {
  1266. /*
  1267.  * No types have been specified. List all files by default
  1268.  */
  1269. return MATCHED;
  1270.     }
  1272.     if (pb->dirInfo.ioFlAttrib & 0x10) {
  1273.      /*
  1274.       * This is a directory: always show it
  1275.       */
  1276.      return MATCHED;
  1277.     }
  1279.     if (ofdPtr->usePopup) {
  1280.         i = ofdPtr->curType;
  1281. for (filterPtr=ofdPtr->fl.filters; filterPtr && i>0; i--) {
  1282.     filterPtr = filterPtr->next;
  1283. }
  1284. if (filterPtr) {
  1285.     return MatchOneType(pb->hFileInfo.ioNamePtr, pb->hFileInfo.ioFlFndrInfo.fdType,
  1286.             ofdPtr, filterPtr);
  1287. } else {
  1288.     return UNMATCHED;
  1289.         }
  1290.     } else {
  1291. /*
  1292.  * We are not using the popup menu. In this case, the file is
  1293.  * considered matched if it matches any of the file filters.
  1294.  */
  1296. for (filterPtr=ofdPtr->fl.filters; filterPtr;
  1297. filterPtr=filterPtr->next) {
  1298.     if (MatchOneType(pb->hFileInfo.ioNamePtr, pb->hFileInfo.ioFlFndrInfo.fdType,
  1299.             ofdPtr, filterPtr) == MATCHED) {
  1300.         return MATCHED;
  1301.     }
  1302. }
  1303. return UNMATCHED;
  1304.     }
  1305. }
  1307. /*
  1308.  *----------------------------------------------------------------------
  1309.  *
  1310.  * MatchOneType --
  1311.  *
  1312.  * Match a file with one file type in the list of file types.
  1313.  *
  1314.  * Results:
  1315.  * Returns MATCHED if the file matches with the file type; returns
  1316.  * UNMATCHED otherwise.
  1317.  *
  1318.  * Side effects:
  1319.  * None
  1320.  *
  1321.  *----------------------------------------------------------------------
  1322.  */
  1324. static Boolean
  1325. MatchOneType(
  1326.     StringPtr fileNamePtr, /* Name of the file */
  1327.     OSType    fileType,         /* Type of the file */ 
  1328.     OpenFileData * ofdPtr, /* Information about this file dialog */
  1329.     FileFilter * filterPtr) /* Match the file described by pb against
  1330.  * this filter */
  1331. {
  1332.     FileFilterClause * clausePtr;
  1334.     /*
  1335.      * A file matches with a file type if it matches with at least one
  1336.      * clause of the type.
  1337.      *
  1338.      * If the clause has both glob patterns and ostypes, the file must
  1339.      * match with at least one pattern AND at least one ostype.
  1340.      *
  1341.      * If the clause has glob patterns only, the file must match with at least
  1342.      * one pattern.
  1343.      *
  1344.      * If the clause has mac types only, the file must match with at least
  1345.      * one mac type.
  1346.      *
  1347.      * If the clause has neither glob patterns nor mac types, it's
  1348.      * considered an error.
  1349.      */
  1351.     for (clausePtr=filterPtr->clauses; clausePtr; clausePtr=clausePtr->next) {
  1352. int macMatched  = 0;
  1353. int globMatched = 0;
  1354. GlobPattern * globPtr;
  1355. MacFileType * mfPtr;
  1357. if (clausePtr->patterns == NULL) {
  1358.     globMatched = 1;
  1359. }
  1360. if (clausePtr->macTypes == NULL) {
  1361.     macMatched = 1;
  1362. }
  1364. for (globPtr=clausePtr->patterns; globPtr; globPtr=globPtr->next) {
  1365.     char filename[256];
  1366.     int len;
  1367.     char * p, *q, *ext;
  1368.         
  1369.     if (fileNamePtr == NULL) {
  1370. continue;
  1371.     }
  1372.     p = (char*)(fileNamePtr);
  1373.     len = p[0];
  1374.     strncpy(filename, p+1, len);
  1375.     filename[len] = '';
  1376.     ext = globPtr->pattern;
  1378.     if (ext[0] == '') {
  1379. /*
  1380.  * We don't want any extensions: OK if the filename doesn't
  1381.  * have "." in it
  1382.  */
  1383. for (q=filename; *q; q++) {
  1384.     if (*q == '.') {
  1385. goto glob_unmatched;
  1386.     }
  1387. }
  1388. goto glob_matched;
  1389.     }
  1390.         
  1391.     if (Tcl_StringMatch(filename, ext)) {
  1392. goto glob_matched;
  1393.     } else {
  1394. goto glob_unmatched;
  1395.     }
  1397.   glob_unmatched:
  1398.     continue;
  1400.   glob_matched:
  1401.     globMatched = 1;
  1402.     break;
  1403. }
  1405. for (mfPtr=clausePtr->macTypes; mfPtr; mfPtr=mfPtr->next) {
  1406.     if (fileType == mfPtr->type) {
  1407. macMatched = 1;
  1408. break;
  1409.     }
  1410.         }
  1412. if (globMatched && macMatched) {
  1413.     return MATCHED;
  1414. }
  1415.     }
  1417.     return UNMATCHED;
  1418. }