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

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

通讯编程

开发平台：

Visual C++

tkMacOSXDialog.c：源码内容
  1. /*
  2.  * tkMacOSXDialog.c --
  3.  *
  4.  * Contains the Mac implementation of the common dialog boxes.
  5.  *
  6.  * Copyright (c) 1996-1997 Sun Microsystems, Inc.
  7.  * Copyright 2001, Apple Computer, Inc.
  8.  * Copyright (c) 2006-2007 Daniel A. Steffen <das@users.sourceforge.net>
  9.  *
  10.  * See the file "license.terms" for information on usage and redistribution
  11.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12.  *
  13.  * RCS: @(#) $Id: tkMacOSXDialog.c,v 1.4.2.21 2007/11/09 06:26:55 das Exp $
  14.  */
  16. #include "tkMacOSXPrivate.h"
  17. #include "tkFileFilter.h"
  19. #ifndef StrLength
  20. #define StrLength(s) (*((unsigned char *) (s)))
  21. #endif
  22. #ifndef StrBody
  23. #define StrBody(s) ((char *) (s) + 1)
  24. #endif
  26. #define OPEN_POPUP_ITEM 10
  28. #define SAVE_FILE 0
  29. #define OPEN_FILE 1
  30. #define CHOOSE_FOLDER 2
  32. #define MATCHED 0
  33. #define UNMATCHED 1
  35. #define TK_DEFAULT_ABOUT 128
  37. /*
  38.  * The following structures are used in the GetFileName() function. They store
  39.  * information about the file dialog and the file filters.
  40.  */
  41. typedef struct _OpenFileData {
  42.     FileFilterList fl;          /* List of file filters.                   */
  43.     SInt16 curType;             /* The filetype currently being listed.    */
  44.     short initialType;          /* Type to use initially                   */
  45.     short popupItem;            /* Item number of the popup in the dialog. */
  46.     short usePopup;             /* True if we show the popup menu (this    */
  47.                                 /* is an open operation and the            */
  48.                                 /* -filetypes option is set).              */
  49. } OpenFileData;
  51. typedef struct NavHandlerUserData {
  52.     OpenFileData *ofdPtr;
  53.     NavReplyRecord reply;
  54.     OSStatus err;
  55.     CFStringRef saveNameRef;
  56.     int sheet;
  57.     WindowRef dialogWindow, origUnavailWindow;
  58.     WindowModality origModality;
  59. } NavHandlerUserData;
  61. /*
  62.  * The following structure is used in the tk_messageBox implementation.
  63.  */
  65. typedef struct {
  66.     int buttonIndex;
  67.     WindowRef dialogWindow, origUnavailWindow;
  68.     WindowModality origModality;
  69.     EventHandlerRef handlerRef;
  70. } AlertHandlerUserData;
  73. static OSStatus AlertHandler(EventHandlerCallRef callRef,
  74.     EventRef eventRef, void *userData);
  75. static Boolean MatchOneType(StringPtr fileNamePtr, OSType fileType,
  76.     OpenFileData *myofdPtr, FileFilter *filterPtr);
  77. static pascal Boolean OpenFileFilterProc(AEDesc* theItem, void* info,
  78.     NavCallBackUserData callBackUD,
  79.     NavFilterModes filterMode);
  80. static pascal void OpenEventProc(NavEventCallbackMessage callBackSelector,
  81.     NavCBRecPtr callBackParms,
  82.     NavCallBackUserData callBackUD);
  83. static void InitFileDialogs(void);
  84. static int NavServicesGetFile(Tcl_Interp *interp,
  85.     OpenFileData *ofd, AEDesc *initialDescPtr,
  86.     char *initialFile, AEDescList *selectDescPtr,
  87.     CFStringRef title, CFStringRef message,
  88.     const char *initialType, int multiple, int isOpen,
  89.     Tk_Window parent);
  90. static int HandleInitialDirectory(Tcl_Interp *interp,
  91.     char *initialFile, char *initialDir, FSRef *dirRef,
  92.     AEDescList *selectDescPtr, AEDesc *dirDescPtr);
  94. /*
  95.  * Have we initialized the file dialog subsystem
  96.  */
  98. static int fileDlgInited = 0;
  100. /*
  101.  * Filter and hook functions used by the tk_getOpenFile and tk_getSaveFile
  102.  * commands.
  103.  */
  105. static NavObjectFilterUPP openFileFilterUPP;
  106. static NavEventUPP openFileEventUPP;
  109. /*
  110.  *----------------------------------------------------------------------
  111.  *
  112.  * Tk_ChooseColorObjCmd --
  113.  *
  114.  * This procedure implements the color dialog box for the Mac
  115.  * platform. See the user documentation for details on what it
  116.  * does.
  117.  *
  118.  * Results:
  119.  * A standard Tcl result.
  120.  *
  121.  * Side effects:
  122.  * See the user documentation.
  123.  *
  124.  *----------------------------------------------------------------------
  125.  */
  127. int
  128. Tk_ChooseColorObjCmd(
  129.     ClientData clientData, /* Main window associated with interpreter. */
  130.     Tcl_Interp *interp, /* Current interpreter. */
  131.     int objc, /* Number of arguments. */
  132.     Tcl_Obj *CONST objv[]) /* Argument objects. */
  133. {
  134.     OSStatus err;
  135.     int result = TCL_ERROR;
  136.     Tk_Window parent, tkwin = (Tk_Window) clientData;
  137.     const char *title;
  138.     int i, srcRead, dstWrote;
  139.     CMError cmerr;
  140.     CMProfileRef prof;
  141.     NColorPickerInfo cpinfo;
  142.     static RGBColor color = {0xffff, 0xffff, 0xffff};
  143.     static const char *optionStrings[] = {
  144. "-initialcolor", "-parent", "-title", NULL
  145.     };
  146.     enum options {
  147. COLOR_INITIAL, COLOR_PARENT, COLOR_TITLE
  148.     };
  150.     title = "Choose a color:";
  151.     bzero(&cpinfo, sizeof(cpinfo));
  152.     cpinfo.theColor.color.rgb.red   = color.red;
  153.     cpinfo.theColor.color.rgb.green = color.green;
  154.     cpinfo.theColor.color.rgb.blue  = color.blue;
  156.     for (i = 1; i < objc; i += 2) {
  157. int index;
  158. const char *option, *value;
  160. if (Tcl_GetIndexFromObj(interp, objv[i], optionStrings, "option",
  161. TCL_EXACT, &index) != TCL_OK) {
  162.     goto end;
  163. }
  164. if (i + 1 == objc) {
  165.     option = Tcl_GetString(objv[i]);
  166.     Tcl_AppendResult(interp, "value for "", option, "" missing",
  167.     NULL);
  168.     goto end;
  169. }
  170. value = Tcl_GetString(objv[i + 1]);
  172. switch ((enum options) index) {
  173.     case COLOR_INITIAL: {
  174. XColor *colorPtr;
  176. colorPtr = Tk_GetColor(interp, tkwin, value);
  177. if (colorPtr == NULL) {
  178.     goto end;
  179. }
  180. cpinfo.theColor.color.rgb.red   = colorPtr->red;
  181. cpinfo.theColor.color.rgb.green = colorPtr->green;
  182. cpinfo.theColor.color.rgb.blue  = colorPtr->blue;
  183. Tk_FreeColor(colorPtr);
  184. break;
  185.     }
  186.     case COLOR_PARENT: {
  187. parent = Tk_NameToWindow(interp, value, tkwin);
  188. if (parent == NULL) {
  189.     goto end;
  190. }
  191. break;
  192.     }
  193.     case COLOR_TITLE: {
  194. title = value;
  195. break;
  196.     }
  197. }
  198.     }
  200.     cmerr = CMGetDefaultProfileBySpace(cmRGBData, &prof);
  201.     cpinfo.theColor.profile = prof;
  202.     cpinfo.dstProfile = prof;
  203.     cpinfo.flags = kColorPickerDialogIsMoveable | kColorPickerDialogIsModal;
  204.     cpinfo.placeWhere = kCenterOnMainScreen;
  205.     /* Currently, this does not actually change the colorpicker title */
  206.     Tcl_UtfToExternal(NULL, TkMacOSXCarbonEncoding, title, -1, 0, NULL,
  207. StrBody(cpinfo.prompt), 255, &srcRead, &dstWrote, NULL);
  208.     StrLength(cpinfo.prompt) = (unsigned char) dstWrote;
  210.     TkMacOSXTrackingLoop(1);
  211.     err = ChkErr(NPickColor, &cpinfo);
  212.     TkMacOSXTrackingLoop(0);
  213.     cmerr = CMCloseProfile(prof);
  214.     if ((err == noErr) && (cpinfo.newColorChosen != 0)) {
  215. char colorstr[8];
  217. color.red   = cpinfo.theColor.color.rgb.red;
  218. color.green = cpinfo.theColor.color.rgb.green;
  219. color.blue  = cpinfo.theColor.color.rgb.blue;
  220. snprintf(colorstr, 8, "#%02x%02x%02x", color.red >> 8,
  221. color.green >> 8, color.blue >> 8);
  222. Tcl_SetObjResult(interp, Tcl_NewStringObj(colorstr, 7));
  223.     } else {
  224. Tcl_ResetResult(interp);
  225.     }
  226.     result = TCL_OK;
  228. end:
  229.     return result;
  230. }
  232. /*
  233.  *----------------------------------------------------------------------
  234.  *
  235.  * Tk_GetOpenFileObjCmd --
  236.  *
  237.  * This procedure implements the "open file" dialog box for the
  238.  * Mac platform. See the user documentation for details on what
  239.  * it does.
  240.  *
  241.  * Results:
  242.  * A standard Tcl result.
  243.  *
  244.  * Side effects:
  245.  * See user documentation.
  246.  *----------------------------------------------------------------------
  247.  */
  249. int
  250. Tk_GetOpenFileObjCmd(
  251.     ClientData clientData, /* Main window associated with interpreter. */
  252.     Tcl_Interp *interp, /* Current interpreter. */
  253.     int objc, /* Number of arguments. */
  254.     Tcl_Obj *CONST objv[]) /* Argument objects. */
  255. {
  256.     int i, result = TCL_ERROR, multiple = 0;
  257.     OpenFileData ofd;
  258.     Tk_Window parent = NULL;
  259.     CFStringRef message = NULL, title = NULL;
  260.     AEDesc initialDesc = {typeNull, NULL};
  261.     FSRef dirRef;
  262.     AEDesc *initialPtr = NULL;
  263.     AEDescList selectDesc = {typeNull, NULL};
  264.     char *initialFile = NULL, *initialDir = NULL;
  265. #if 0
  266.     Tcl_Obj *typeVariablePtr = NULL;
  267. #endif
  268.     const char *initialtype = NULL;
  269.     static const char *openOptionStrings[] = {
  270. "-defaultextension", "-filetypes", "-initialdir", "-initialfile",
  271. "-message", "-multiple", "-parent", "-title",/* "-typevariable",*/ NULL
  272.     };
  273.     enum openOptions {
  274. OPEN_DEFAULT, OPEN_FILETYPES, OPEN_INITDIR, OPEN_INITFILE,
  275. OPEN_MESSAGE, OPEN_MULTIPLE, OPEN_PARENT, OPEN_TITLE,
  276. /*OPEN_TYPEVARIABLE,*/
  277.     };
  279.     if (!fileDlgInited) {
  280. InitFileDialogs();
  281.     }
  282.     TkInitFileFilters(&ofd.fl);
  283.     ofd.curType = 0;
  284.     ofd.initialType = -1;
  285.     ofd.popupItem = OPEN_POPUP_ITEM;
  286.     ofd.usePopup = 1;
  288.     for (i = 1; i < objc; i += 2) {
  289. char *choice;
  290. int index, choiceLen;
  291. char *string;
  292. char *types;
  294. if (Tcl_GetIndexFromObj(interp, objv[i], openOptionStrings, "option",
  295. TCL_EXACT, &index) != TCL_OK) {
  296.     goto end;
  297. }
  298. if (i + 1 == objc) {
  299.     string = Tcl_GetString(objv[i]);
  300.     Tcl_AppendResult(interp, "value for "", string, "" missing",
  301.     NULL);
  302.     goto end;
  303. }
  305. switch (index) {
  306.     case OPEN_DEFAULT:
  307. break;
  308.     case OPEN_FILETYPES:
  309. types = Tcl_GetString(objv[i + 1]);
  310. if (TkGetFileFilters(interp, &ofd.fl, types, 0) != TCL_OK) {
  311.     goto end;
  312. }
  313. break;
  314.     case OPEN_INITDIR:
  315. initialDir = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  316. /* empty strings should be like no selection given */
  317. if (choiceLen == 0) { initialDir = NULL; }
  318. break;
  319.     case OPEN_INITFILE:
  320. initialFile = Tcl_GetString(objv[i + 1]);
  321. /* empty strings should be like no selection given */
  322. if (choiceLen == 0) { initialFile = NULL; }
  323. break;
  324.     case OPEN_MESSAGE:
  325. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  326. message = CFStringCreateWithBytes(NULL, (unsigned char*)
  327. choice, choiceLen, kCFStringEncodingUTF8, false);
  328. break;
  329.     case OPEN_MULTIPLE:
  330. if (Tcl_GetBooleanFromObj(interp, objv[i + 1], &multiple)
  331. != TCL_OK) {
  332.     goto end;
  333. }
  334. break;
  335.     case OPEN_PARENT:
  336. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  337. parent = Tk_NameToWindow(interp, choice,
  338. (Tk_Window) clientData);
  339. if (parent == NULL) {
  340.     goto end;
  341. }
  342. break;
  343.     case OPEN_TITLE:
  344. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  345. title = CFStringCreateWithBytes(NULL, (unsigned char*)
  346. choice, choiceLen, kCFStringEncodingUTF8, false);
  347. break;
  348. #if 0
  349.     case OPEN_TYPEVARIABLE:
  350.         typeVariablePtr = objv[i + 1];
  351.         break;
  352. #endif
  353. }
  354.     }
  356.     if (HandleInitialDirectory(interp, initialFile, initialDir, &dirRef,
  357.     &selectDesc, &initialDesc) != TCL_OK) {
  358. goto end;
  359.     }
  360.     if (initialDesc.descriptorType == typeFSRef) {
  361. initialPtr = &initialDesc;
  362.     }
  363. #if 0
  364.     if (typeVariablePtr) {
  365. initialtype = Tcl_GetVar(interp, Tcl_GetString(typeVariablePtr), 0);
  366.     }
  367. #endif
  368.     result = NavServicesGetFile(interp, &ofd, initialPtr, NULL, &selectDesc,
  369.     title, message, initialtype, multiple, OPEN_FILE, parent);
  371. #if 0
  372.     if (typeVariablePtr) {
  373. FileFilter *filterPtr = ofd.fl.filters;
  374. int i = ofd.curType;
  376. while (filterPtr && i-- > 0) {
  377.     filterPtr = filterPtr->next;
  378. }
  379. Tcl_SetVar(interp, Tcl_GetString(typeVariablePtr), filterPtr->name, 0);
  380.     }
  381. #endif
  383. end:
  384.     TkFreeFileFilters(&ofd.fl);
  385.     if (initialDesc.dataHandle) {
  386. ChkErr(AEDisposeDesc, &initialDesc);
  387.     }
  388.     if (selectDesc.dataHandle) {
  389. ChkErr(AEDisposeDesc, &selectDesc);
  390.     }
  391.     if (title) {
  392. CFRelease(title);
  393.     }
  394.     if (message) {
  395. CFRelease(message);
  396.     }
  397.     return result;
  398. }
  400. /*
  401.  *----------------------------------------------------------------------
  402.  *
  403.  * Tk_GetSaveFileObjCmd --
  404.  *
  405.  * Same as Tk_GetOpenFileCmd but opens a "save file" dialog box
  406.  * instead
  407.  *
  408.  * Results:
  409.  * A standard Tcl result.
  410.  *
  411.  * Side effects:
  412.  * See user documentation.
  413.  *----------------------------------------------------------------------
  414.  */
  416. int
  417. Tk_GetSaveFileObjCmd(
  418.     ClientData clientData, /* Main window associated with interpreter. */
  419.     Tcl_Interp *interp, /* Current interpreter. */
  420.     int objc, /* Number of arguments. */
  421.     Tcl_Obj *CONST objv[]) /* Argument objects. */
  422. {
  423.     int i, result = TCL_ERROR;
  424.     char *initialFile = NULL;
  425.     Tk_Window parent = NULL;
  426.     AEDesc initialDesc = {typeNull, NULL};
  427.     AEDesc *initialPtr = NULL;
  428.     FSRef dirRef;
  429.     CFStringRef title = NULL, message = NULL;
  430.     OpenFileData ofd;
  431.     static const char *saveOptionStrings[] = {
  432. "-defaultextension", "-filetypes", "-initialdir", "-initialfile",
  433. "-message", "-parent", "-title",/* "-typevariable",*/ NULL
  434.     };
  435.     enum saveOptions {
  436. SAVE_DEFAULT, SAVE_FILETYPES, SAVE_INITDIR, SAVE_INITFILE,
  437. SAVE_MESSAGE, SAVE_PARENT, SAVE_TITLE,/* SAVE_TYPEVARIABLE,*/
  438.     };
  440.     if (!fileDlgInited) {
  441. InitFileDialogs();
  442.     }
  444.     TkInitFileFilters(&ofd.fl);
  445.     ofd.curType = 0;
  446.     ofd.usePopup = 0;
  448.     for (i = 1; i < objc; i += 2) {
  449. char *choice, *string;
  450. int index, choiceLen;
  451. char *types;
  453. if (Tcl_GetIndexFromObj(interp, objv[i], saveOptionStrings, "option",
  454. TCL_EXACT, &index) != TCL_OK) {
  455.     goto end;
  456. }
  457. if (i + 1 == objc) {
  458.     string = Tcl_GetString(objv[i]);
  459.     Tcl_AppendResult(interp, "value for "", string, "" missing",
  460.     NULL);
  461.     goto end;
  462. }
  463. switch (index) {
  464.     case SAVE_DEFAULT:
  465. break;
  466.     case SAVE_FILETYPES:
  467. types = Tcl_GetString(objv[i + 1]);
  468. if (TkGetFileFilters(interp, &ofd.fl, types, 0) != TCL_OK) {
  469.     goto end;
  470. }
  471. break;
  472.     case SAVE_INITDIR:
  473. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  474. /* empty strings should be like no selection given */
  475. if (choiceLen && HandleInitialDirectory(interp, NULL, choice,
  476. &dirRef, NULL, &initialDesc) != TCL_OK) {
  477.     goto end;
  478. }
  479. break;
  480.     case SAVE_INITFILE:
  481. initialFile = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  482. /* empty strings should be like no selection given */
  483. if (choiceLen == 0) {
  484.     initialFile = NULL;
  485. }
  486. break;
  487.     case SAVE_MESSAGE:
  488. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  489. message = CFStringCreateWithBytes(NULL, (unsigned char*)
  490. choice, choiceLen, kCFStringEncodingUTF8, false);
  491. break;
  492.     case SAVE_PARENT:
  493. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  494. parent = Tk_NameToWindow(interp, choice,
  495. (Tk_Window) clientData);
  496. if (parent == NULL) {
  497.     goto end;
  498. }
  499. break;
  500.     case SAVE_TITLE:
  501. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  502. title = CFStringCreateWithBytes(NULL, (unsigned char*)
  503. choice, choiceLen, kCFStringEncodingUTF8, false);
  504. break;
  505. }
  506.     }
  508.     if (initialDesc.descriptorType == typeFSRef) {
  509. initialPtr = &initialDesc;
  510.     }
  511.     result = NavServicesGetFile(interp, &ofd, initialPtr, initialFile, NULL,
  512.     title, message, NULL, false, SAVE_FILE, parent);
  513.     TkFreeFileFilters(&ofd.fl);
  514. end:
  515.     if (initialDesc.dataHandle) {
  516. ChkErr(AEDisposeDesc, &initialDesc);
  517.     }
  518.     if (title) {
  519. CFRelease(title);
  520.     }
  521.     if (message) {
  522. CFRelease(message);
  523.     }
  524.     return result;
  525. }
  527. /*
  528.  *----------------------------------------------------------------------
  529.  *
  530.  * Tk_ChooseDirectoryObjCmd --
  531.  *
  532.  * This procedure implements the "tk_chooseDirectory" dialog box
  533.  * for the Windows platform. See the user documentation for details
  534.  * on what it does.
  535.  *
  536.  * Results:
  537.  * See user documentation.
  538.  *
  539.  * Side effects:
  540.  * A modal dialog window is created.
  541.  *
  542.  *----------------------------------------------------------------------
  543.  */
  545. int
  546. Tk_ChooseDirectoryObjCmd(clientData, interp, objc, objv)
  547.     ClientData clientData; /* Main window associated with interpreter. */
  548.     Tcl_Interp *interp; /* Current interpreter. */
  549.     int objc; /* Number of arguments. */
  550.     Tcl_Obj *CONST objv[]; /* Argument objects. */
  551. {
  552.     int i, result = TCL_ERROR;
  553.     Tk_Window parent = NULL;
  554.     AEDesc initialDesc = {typeNull, NULL}, *initialPtr = NULL;
  555.     FSRef dirRef;
  556.     CFStringRef message = NULL, title = NULL;
  557.     OpenFileData ofd;
  558.     static const char *chooseOptionStrings[] = {
  559. "-initialdir", "-message", "-mustexist", "-parent", "-title", NULL
  560.     };
  561.     enum chooseOptions {
  562. CHOOSE_INITDIR, CHOOSE_MESSAGE, CHOOSE_MUSTEXIST, CHOOSE_PARENT,
  563. CHOOSE_TITLE
  564.     };
  566.     if (!fileDlgInited) {
  567. InitFileDialogs();
  568.     }
  570.     for (i = 1; i < objc; i += 2) {
  571. char *choice;
  572. int index, choiceLen;
  573. char *string;
  575. if (Tcl_GetIndexFromObj(interp, objv[i], chooseOptionStrings, "option",
  576. TCL_EXACT, &index) != TCL_OK) {
  577.     goto end;
  578. }
  579. if (i + 1 == objc) {
  580.     string = Tcl_GetString(objv[i]);
  581.     Tcl_AppendResult(interp, "value for "", string, "" missing",
  582.     NULL);
  583.     goto end;
  584. }
  585. switch (index) {
  586.     case CHOOSE_INITDIR:
  587. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  588. if (choiceLen && HandleInitialDirectory(interp, NULL, choice,
  589. &dirRef, NULL, &initialDesc) != TCL_OK) {
  590.     goto end;
  591. }
  592. break;
  593.     case CHOOSE_MESSAGE:
  594. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  595. message = CFStringCreateWithBytes(NULL, (unsigned char*)
  596. choice, choiceLen, kCFStringEncodingUTF8, false);
  597. break;
  598.     case CHOOSE_PARENT:
  599. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  600. parent = Tk_NameToWindow(interp, choice,
  601. (Tk_Window) clientData);
  602. if (parent == NULL) {
  603.     goto end;
  604. }
  605. break;
  606.     case CHOOSE_TITLE:
  607. choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
  608. title = CFStringCreateWithBytes(NULL, (unsigned char*) choice,
  609. choiceLen, kCFStringEncodingUTF8, false);
  610. break;
  611. }
  612.     }
  614.     TkInitFileFilters(&ofd.fl);
  615.     ofd.usePopup = 0;
  616.     if (initialDesc.descriptorType == typeFSRef) {
  617. initialPtr = &initialDesc;
  618.     }
  619.     result = NavServicesGetFile(interp, &ofd, initialPtr, NULL, NULL, title,
  620.     message, NULL, false, CHOOSE_FOLDER, parent);
  621.     TkFreeFileFilters(&ofd.fl);
  622. end:
  623.     if (initialDesc.dataHandle) {
  624. ChkErr(AEDisposeDesc, &initialDesc);
  625.     }
  626.     if (title) {
  627. CFRelease(title);
  628.     }
  629.     if (message) {
  630. CFRelease(message);
  631.     }
  632.     return result;
  633. }
  635. /*
  636.  *----------------------------------------------------------------------
  637.  *
  638.  * HandleInitialDirectory --
  639.  *
  640.  * Helper for -initialdir setup.
  641.  *
  642.  * Results:
  643.  * Tcl result.
  644.  *
  645.  * Side effects:
  646.  * None.
  647.  *
  648.  *----------------------------------------------------------------------
  649.  */
  651. int
  652. HandleInitialDirectory(
  653.     Tcl_Interp *interp,
  654.     char *initialFile,
  655.     char *initialDir,
  656.     FSRef *dirRef,
  657.     AEDescList *selectDescPtr,
  658.     AEDesc *dirDescPtr)
  659. {
  660.     Tcl_DString ds;
  661.     OSStatus err;
  662.     Boolean isDirectory;
  663.     char *dirName = NULL;
  664.     int result = TCL_ERROR;
  666.     if (initialDir) {
  667. dirName = Tcl_TranslateFileName(interp, initialDir, &ds);
  668. if (dirName == NULL) {
  669.     goto end;
  670. }
  671. err = ChkErr(FSPathMakeRef, (unsigned char*) dirName,
  672. dirRef, &isDirectory);
  673. if (err != noErr) {
  674.     Tcl_AppendResult(interp, "bad directory "", initialDir, """,
  675.     NULL);
  676.     goto end;
  677. }
  678. if (!isDirectory) {
  679.     Tcl_AppendResult(interp, "-intialdir "",
  680.     initialDir, " is a file, not a directory."", NULL);
  681.     goto end;
  682. }
  683. ChkErr(AECreateDesc, typeFSRef, dirRef, sizeof(*dirRef), dirDescPtr);
  684.     }
  686.     if (initialFile && selectDescPtr) {
  687. FSRef fileRef;
  688. AEDesc fileDesc;
  689. char *namePtr;
  691. if (initialDir) {
  692.     Tcl_DStringAppend(&ds, "/", 1);
  693.     Tcl_DStringAppend(&ds, initialFile, -1);
  694.     namePtr = Tcl_DStringValue(&ds);
  695. } else {
  696.     namePtr = initialFile;
  697. }
  699. ChkErr(AECreateList, NULL, 0, false, selectDescPtr);
  701. err = ChkErr(FSPathMakeRef, (unsigned char*) namePtr, &fileRef,
  702. &isDirectory);
  703. if (err != noErr) {
  704.     Tcl_AppendResult(interp, "bad initialfile "", initialFile,
  705.     "" file does not exist.", NULL);
  706.     goto end;
  707. }
  708. ChkErr(AECreateDesc, typeFSRef, &fileRef, sizeof(fileRef), &fileDesc);
  709. ChkErr(AEPutDesc, selectDescPtr, 1, &fileDesc);
  710. ChkErr(AEDisposeDesc, &fileDesc);
  711.     }
  712.     result = TCL_OK;
  713. end:
  714.     if (dirName) {
  715. Tcl_DStringFree(&ds);
  716.     }
  717.     return result;
  718. }
  720. /*
  721.  *----------------------------------------------------------------------
  722.  *
  723.  * InitFileDialogs --
  724.  *
  725.  * Initialize file dialog subsystem.
  726.  *
  727.  * Results:
  728.  * None.
  729.  *
  730.  * Side effects:
  731.  * None.
  732.  *
  733.  *----------------------------------------------------------------------
  734.  */
  736. void
  737. InitFileDialogs(void)
  738. {
  739.     fileDlgInited = 1;
  740.     openFileFilterUPP = NewNavObjectFilterUPP(OpenFileFilterProc);
  741.     openFileEventUPP = NewNavEventUPP(OpenEventProc);
  742. }
  744. /*
  745.  *----------------------------------------------------------------------
  746.  *
  747.  * NavServicesGetFile --
  748.  *
  749.  * Common wrapper for NavServices API.
  750.  *
  751.  * Results:
  752.  * Tcl result.
  753.  *
  754.  * Side effects:
  755.  * None.
  756.  *
  757.  *----------------------------------------------------------------------
  758.  */
  760. int
  761. NavServicesGetFile(
  762.     Tcl_Interp *interp,
  763.     OpenFileData *ofdPtr,
  764.     AEDesc *initialDescPtr,
  765.     char *initialFile,
  766.     AEDescList *selectDescPtr,
  767.     CFStringRef title,
  768.     CFStringRef message,
  769.     const char *initialtype,
  770.     int multiple,
  771.     int isOpen,
  772.     Tk_Window parent)
  773. {
  774.     NavHandlerUserData data;
  775.     NavDialogCreationOptions options;
  776.     NavDialogRef dialogRef = NULL;
  777.     CFStringRef * menuItemNames = NULL;
  778.     OSStatus err;
  779.     Tcl_Obj *theResult = NULL;
  780.     int result = TCL_ERROR;
  782.     bzero(&data, sizeof(data));
  783.     err = NavGetDefaultDialogCreationOptions(&options);
  784.     if (err != noErr) {
  785. return result;
  786.     }
  787.     options.optionFlags = kNavDontAutoTranslate | kNavDontAddTranslateItems
  788.     | kNavSupportPackages | kNavAllFilesInPopup;
  789.     if (multiple) {
  790. options.optionFlags |= kNavAllowMultipleFiles;
  791.     }
  792.     options.modality = kWindowModalityAppModal;
  793.     if (parent && ((TkWindow*)parent)->window != None &&
  794.     TkMacOSXHostToplevelExists(parent)) {
  795. options.parentWindow = TkMacOSXDrawableWindow(Tk_WindowId(parent));
  796. TK_IF_HI_TOOLBOX (5,
  797.     /*
  798.      * Impossible to modify dialog modality with the Cocoa-based
  799.      * NavServices implementation.
  800.      */
  801. ) TK_ELSE_HI_TOOLBOX (5,
  802.     if (options.parentWindow) {
  803. options.modality = kWindowModalityWindowModal;
  804. data.sheet = 1;
  805.     }
  806. ) TK_ENDIF
  807.     }
  809.     /*
  810.      * Now process the selection list. We have to use the popupExtension
  811.      * to fill the menu.
  812.      */
  813.     if (ofdPtr && ofdPtr->usePopup) {
  814. FileFilter *filterPtr;
  816. filterPtr = ofdPtr->fl.filters;
  817. if (filterPtr == NULL) {
  818.     ofdPtr->usePopup = 0;
  819. }
  820.     }
  821.     if (ofdPtr && ofdPtr->usePopup) {
  822. FileFilter *filterPtr;
  823. int index = 0;
  824. ofdPtr->curType = 0;
  826. menuItemNames = (CFStringRef *) ckalloc(ofdPtr->fl.numFilters
  827.     * sizeof(CFStringRef));
  829. for (filterPtr = ofdPtr->fl.filters; filterPtr != NULL;
  830. filterPtr = filterPtr->next, index++) {
  831.     menuItemNames[index] = CFStringCreateWithCString(NULL,
  832.     filterPtr->name, kCFStringEncodingUTF8);
  833.     if (initialtype && strcmp(filterPtr->name, initialtype) == 0) {
  834. ofdPtr->initialType = index;
  835.     }
  836. }
  837. options.popupExtension = CFArrayCreate(NULL,
  838. (const void **) menuItemNames, ofdPtr->fl.numFilters, NULL);
  839.     } else {
  840. options.optionFlags |= kNavNoTypePopup;
  841. options.popupExtension = NULL;
  842.     }
  843.     options.clientName = CFSTR("Wish");
  844.     options.message = message;
  845.     options.windowTitle = title;
  846.     if (initialFile) {
  847. options.saveFileName = CFStringCreateWithCString(NULL,
  848. initialFile, kCFStringEncodingUTF8);
  849.     } else {
  850. options.saveFileName = NULL;
  851.     }
  852.     if (isOpen == OPEN_FILE) {
  853. data.ofdPtr = ofdPtr;
  854. err = ChkErr(NavCreateGetFileDialog, &options, NULL,
  855. openFileEventUPP, NULL, openFileFilterUPP, &data, &dialogRef);
  856.     } else if (isOpen == SAVE_FILE) {
  857. err = ChkErr(NavCreatePutFileDialog, &options, 'TEXT', 'WIsH',
  858. openFileEventUPP, &data, &dialogRef);
  859.     } else if (isOpen == CHOOSE_FOLDER) {
  860. err = ChkErr(NavCreateChooseFolderDialog, &options,
  861. openFileEventUPP, openFileFilterUPP, &data, &dialogRef);
  862.     }
  863.     if (err == noErr && dialogRef) {
  864. if (initialDescPtr) {
  865.     ChkErr(NavCustomControl, dialogRef, kNavCtlSetLocation,
  866. initialDescPtr);
  867. }
  868. if (selectDescPtr && selectDescPtr->descriptorType != typeNull) {
  869.     ChkErr(NavCustomControl, dialogRef, kNavCtlSetSelection,
  870.     selectDescPtr);
  871. }
  872. TkMacOSXTrackingLoop(1);
  873. err = ChkErr(NavDialogRun, dialogRef);
  874. if (err == noErr) {
  875.     if (data.sheet) {
  876. data.dialogWindow = NavDialogGetWindow(dialogRef);
  877. ChkErr(GetWindowModality, data.dialogWindow,
  878. &data.origModality, &data.origUnavailWindow);
  879. ChkErr(SetWindowModality, data.dialogWindow,
  880. kWindowModalityAppModal, NULL);
  881. ChkErr(RunAppModalLoopForWindow, data.dialogWindow);
  882.     }
  883.     err = data.err;
  884. }
  885. TkMacOSXTrackingLoop(0);
  886.     }
  888.     /*
  889.      * Most commands assume that the file dialogs return a single
  890.      * item, not a list. So only build a list if multiple is true...
  891.      */
  892.     if (err == noErr) {
  893. if (multiple) {
  894.     theResult = Tcl_NewListObj(0, NULL);
  895. } else {
  896.     theResult = Tcl_NewObj();
  897. }
  898. if (!theResult) {
  899.     err = memFullErr;
  900. }
  901.     }
  902.     if (err == noErr && data.reply.validRecord) {
  903. AEDesc resultDesc;
  904. long count;
  905. FSRef fsRef;
  906. char pathPtr[PATH_MAX + 1];
  908. err = ChkErr(AECountItems, &data.reply.selection, &count);
  909. if (err == noErr) {
  910.     long i;
  912.     for (i = 1; i <= count; i++) {
  913. err = ChkErr(AEGetNthDesc, &data.reply.selection, i,
  914. typeFSRef, NULL, &resultDesc);
  915. if (err == noErr) {
  916.     err = ChkErr(AEGetDescData, &resultDesc, &fsRef,
  917.     sizeof(fsRef));
  918.     if (err == noErr) {
  919. err = ChkErr(FSRefMakePath, &fsRef, (unsigned char*)
  920. pathPtr, PATH_MAX + 1);
  921. if (err == noErr) {
  922.     int pathValid = 0;
  924.     if (isOpen == SAVE_FILE) {
  925. if (data.saveNameRef) {
  926.     char saveName [PATH_MAX + 1];
  928.     if (CFStringGetCString(data.saveNameRef,
  929.     saveName, PATH_MAX + 1,
  930.     kCFStringEncodingUTF8)) {
  931. if (strlen(pathPtr) + strlen(saveName)
  932. < PATH_MAX) {
  933.     strcat(pathPtr, "/");
  934.     strcat(pathPtr, saveName);
  935.     pathValid = 1;
  936. } else {
  937.     TkMacOSXDbgMsg("Path name too "
  938.     "long");
  939. }
  940.     } else {
  941. TkMacOSXDbgMsg("CFStringGetCString "
  942. "failed");
  943.     }
  944. } else {
  945.     TkMacOSXDbgMsg("NavDialogGetSaveFileName "
  946.     "failed");
  947. }
  948.     } else {
  949. pathValid = 1;
  950.     }
  951.     if (pathValid) {
  952. if (multiple) {
  953.     Tcl_ListObjAppendElement(interp, theResult,
  954. Tcl_NewStringObj(pathPtr, -1));
  955. } else {
  956.     Tcl_SetStringObj(theResult, pathPtr, -1);
  957. }
  958.     }
  959. }
  960.     }
  961.     ChkErr(AEDisposeDesc, &resultDesc);
  962. }
  963.     }
  964. }
  965. Tcl_SetObjResult(interp, theResult);
  966. result = TCL_OK;
  967.     } else if (err == userCanceledErr) {
  968. Tcl_ResetResult(interp);
  969. result = TCL_OK;
  970.     }
  972.     /*
  973.      * Clean up any allocated memory.
  974.      */
  976.     if (data.reply.validRecord) {
  977. ChkErr(NavDisposeReply, &data.reply);
  978.     }
  979.     if (data.saveNameRef) {
  980. CFRelease(data.saveNameRef);
  981.     }
  982.     if (options.saveFileName) {
  983. CFRelease(options.saveFileName);
  984.     }
  985.     if (options.clientName) {
  986. CFRelease(options.clientName);
  987.     }
  988.     if (menuItemNames) {
  989. int i;
  990. for (i = 0; i < ofdPtr->fl.numFilters; i++) {
  991.     CFRelease(menuItemNames[i]);
  992. }
  993. ckfree((void *)menuItemNames);
  994.     }
  995.     if (options.popupExtension) {
  996. CFRelease(options.popupExtension);
  997.     }
  998.     return result;
  999. }
  1001. /*
  1002.  *----------------------------------------------------------------------
  1003.  *
  1004.  * OpenEventProc --
  1005.  *
  1006.  * NavServices event handling callback.
  1007.  *
  1008.  * Results:
  1009.  * None.
  1010.  *
  1011.  * Side effects:
  1012.  * None.
  1013.  *
  1014.  *----------------------------------------------------------------------
  1015.  */
  1017. pascal void
  1018. OpenEventProc(
  1019.     NavEventCallbackMessage callBackSelector,
  1020.     NavCBRecPtr callBackParams,
  1021.     NavCallBackUserData callBackUD)
  1022. {
  1023.     NavHandlerUserData *data = (NavHandlerUserData*) callBackUD;
  1024.     OpenFileData *ofd = data->ofdPtr;
  1026.     switch (callBackSelector) {
  1027. case kNavCBStart:
  1028.     if (ofd && ofd->initialType >= 0) {
  1029. /* Select initial filter */
  1030. FileFilter *filterPtr = ofd->fl.filters;
  1031. int i = ofd->initialType;
  1033. while (filterPtr && i-- > 0) {
  1034.     filterPtr = filterPtr->next;
  1035. }
  1036. if (filterPtr) {
  1037.     NavMenuItemSpec selectItem;
  1039.     selectItem.version = kNavMenuItemSpecVersion;
  1040.     selectItem.menuCreator = 0;
  1041.     selectItem.menuType = ofd->initialType;
  1042.     selectItem.menuItemName[0] = strlen(filterPtr->name);
  1043.     strncpy((char*) &selectItem.menuItemName[1],
  1044.     filterPtr->name, 255);
  1045.     ChkErr(NavCustomControl, callBackParams->context,
  1046.     kNavCtlSelectCustomType, &selectItem);
  1047. }
  1048.     }
  1049.     break;
  1050. case kNavCBPopupMenuSelect:
  1051.     ofd->curType = ((NavMenuItemSpec *)
  1052.     callBackParams->eventData.eventDataParms.param)->menuType;
  1053.     break;
  1054. case kNavCBAccept:
  1055. case kNavCBCancel:
  1056.     if (data->sheet) {
  1057. ChkErr(QuitAppModalLoopForWindow, data->dialogWindow);
  1058. ChkErr(SetWindowModality, data->dialogWindow,
  1059. data->origModality, data->origUnavailWindow);
  1060.     }
  1061.     break;
  1062. case kNavCBUserAction:
  1063.     if (data->reply.validRecord) {
  1064. ChkErr(NavDisposeReply, &data->reply);
  1065. data->reply.validRecord = 0;
  1066.     }
  1067.     data->err = NavDialogGetReply(callBackParams->context,
  1068.     &data->reply);
  1069.     if (callBackParams->userAction == kNavUserActionSaveAs) {
  1070. data->saveNameRef = NavDialogGetSaveFileName(
  1071. callBackParams->context);
  1072. if (data->saveNameRef) {
  1073.     CFRetain(data->saveNameRef);
  1074. }
  1075.     }
  1076.     break;
  1077. case kNavCBTerminate:
  1078.     NavDialogDispose(callBackParams->context);
  1079.     break;
  1080. case kNavCBEvent:
  1081.     TkMacOSXRunTclEventLoop();
  1082.     break;
  1083.     }
  1084. }
  1086. /*
  1087.  *----------------------------------------------------------------------
  1088.  *
  1089.  * OpenFileFilterProc --
  1090.  *
  1091.  * NavServices file filter callback.
  1092.  *
  1093.  * Results:
  1094.  * Whether to use the file in question.
  1095.  *
  1096.  * Side effects:
  1097.  * None.
  1098.  *
  1099.  *----------------------------------------------------------------------
  1100.  */
  1102. pascal Boolean
  1103. OpenFileFilterProc(
  1104.     AEDesc* theItem, void* info,
  1105.     NavCallBackUserData callBackUD,
  1106.     NavFilterModes filterMode)
  1107. {
  1108.     OpenFileData *ofdPtr = ((NavHandlerUserData*) callBackUD)->ofdPtr;
  1109.     int result = MATCHED;
  1111.     if (ofdPtr && ofdPtr->usePopup) {
  1112. if (ofdPtr->fl.numFilters > 0) {
  1113.     if ((theItem->descriptorType == typeFSS)
  1114.     || (theItem->descriptorType == typeFSRef)) {
  1115. NavFileOrFolderInfo* theInfo = (NavFileOrFolderInfo *) info;
  1116. char fileName[256];
  1118. if (!theInfo->isFolder) {
  1119.     OSType fileType;
  1120.     StringPtr fileNamePtr = NULL;
  1121.     Tcl_DString fileNameDString;
  1122.     int i;
  1123.     FileFilter *filterPtr;
  1125.     fileType =
  1126.     theInfo->fileAndFolder.fileInfo.finderInfo.fdType;
  1127.     Tcl_DStringInit (&fileNameDString);
  1129.     if (theItem->descriptorType == typeFSS) {
  1130. int len;
  1131. fileNamePtr = ((FSSpec *) *theItem->dataHandle)->name;
  1132. len = fileNamePtr[0];
  1133. strncpy(fileName, (char*) fileNamePtr + 1, len);
  1134. fileName[len] = '';
  1135. fileNamePtr = (unsigned char*) fileName;
  1136.     } else if ((theItem->descriptorType == typeFSRef)) {
  1137. OSStatus err;
  1138. FSRef *theRef = (FSRef *) *theItem->dataHandle;
  1139. HFSUniStr255 uniFileName;
  1140. err = ChkErr(FSGetCatalogInfo, theRef, kFSCatInfoNone,
  1141. NULL, &uniFileName, NULL, NULL);
  1143. if (err == noErr) {
  1144.     Tcl_UniCharToUtfDString (
  1145.     (Tcl_UniChar *) uniFileName.unicode,
  1146.     uniFileName.length, &fileNameDString);
  1147.     fileNamePtr = (unsigned char*)
  1148.     Tcl_DStringValue(&fileNameDString);
  1149. }
  1150.     }
  1151.     if (ofdPtr->usePopup) {
  1152. i = ofdPtr->curType;
  1153. for (filterPtr = ofdPtr->fl.filters;
  1154. filterPtr && i > 0; i--) {
  1155.     filterPtr = filterPtr->next;
  1156. }
  1157. if (filterPtr) {
  1158.     result = MatchOneType(fileNamePtr, fileType,
  1159.     ofdPtr, filterPtr);
  1160. } else {
  1161.     result = UNMATCHED;
  1162. }
  1163.     } else {
  1164. /*
  1165.  * We are not using the popup menu. In this case, the
  1166.  * file is considered matched if it matches any of
  1167.  * the file filters.
  1168.  */
  1170. result = UNMATCHED;
  1171. for (filterPtr = ofdPtr->fl.filters; filterPtr;
  1172. filterPtr = filterPtr->next) {
  1173.     if (MatchOneType(fileNamePtr, fileType,
  1174.     ofdPtr, filterPtr) == MATCHED) {
  1175. result = MATCHED;
  1176. break;
  1177.     }
  1178. }
  1179.     }
  1180.     Tcl_DStringFree (&fileNameDString);
  1181. }
  1182.     }
  1183. }
  1184.     }
  1185.     return (result == MATCHED);
  1186. }
  1188. /*
  1189.  *----------------------------------------------------------------------
  1190.  *
  1191.  * MatchOneType --
  1192.  *
  1193.  * Match a file with one file type in the list of file types.
  1194.  *
  1195.  * Results:
  1196.  * Returns MATCHED if the file matches with the file type; returns
  1197.  * UNMATCHED otherwise.
  1198.  *
  1199.  * Side effects:
  1200.  * None
  1201.  *
  1202.  *----------------------------------------------------------------------
  1203.  */
  1205. Boolean
  1206. MatchOneType(
  1207.     StringPtr fileNamePtr, /* Name of the file */
  1208.     OSType fileType, /* Type of the file, 0 means there was no
  1209.  * specified type. */
  1210.     OpenFileData *ofdPtr, /* Information about this file dialog */
  1211.     FileFilter *filterPtr) /* Match the file described by pb against this
  1212.  * filter */
  1213. {
  1214.     FileFilterClause *clausePtr;
  1216.     /*
  1217.      * A file matches with a file type if it matches with at least one
  1218.      * clause of the type.
  1219.      *
  1220.      * If the clause has both glob patterns and ostypes, the file must
  1221.      * match with at least one pattern AND at least one ostype.
  1222.      *
  1223.      * If the clause has glob patterns only, the file must match with at least
  1224.      * one pattern.
  1225.      *
  1226.      * If the clause has mac types only, the file must match with at least
  1227.      * one mac type.
  1228.      *
  1229.      * If the clause has neither glob patterns nor mac types, it's
  1230.      * considered an error.
  1231.      */
  1233.     for (clausePtr = filterPtr->clauses; clausePtr;
  1234.     clausePtr = clausePtr->next) {
  1235. int macMatched = 0;
  1236. int globMatched = 0;
  1237. GlobPattern *globPtr;
  1238. MacFileType *mfPtr;
  1240. if (clausePtr->patterns == NULL) {
  1241.     globMatched = 1;
  1242. }
  1243. if (clausePtr->macTypes == NULL) {
  1244.     macMatched = 1;
  1245. }
  1247. for (globPtr = clausePtr->patterns; globPtr;
  1248. globPtr = globPtr->next) {
  1249.     char *q, *ext;
  1251.     if (fileNamePtr == NULL) {
  1252. continue;
  1253.     }
  1254.     ext = globPtr->pattern;
  1256.     if (ext[0] == '') {
  1257. /*
  1258.  * We don't want any extensions: OK if the filename doesn't
  1259.  * have "." in it
  1260.  */
  1262. for (q = (char*) fileNamePtr; *q; q++) {
  1263.     if (*q == '.') {
  1264. goto glob_unmatched;
  1265.     }
  1266. }
  1267. goto glob_matched;
  1268.     }
  1270.     if (Tcl_StringMatch((char*) fileNamePtr, ext)) {
  1271. goto glob_matched;
  1272.     } else {
  1273. goto glob_unmatched;
  1274.     }
  1276. glob_unmatched:
  1277.     continue;
  1279. glob_matched:
  1280.     globMatched = 1;
  1281.     break;
  1282. }
  1284. for (mfPtr = clausePtr->macTypes; mfPtr; mfPtr = mfPtr->next) {
  1285.     if (fileType == mfPtr->type) {
  1286. macMatched = 1;
  1287. break;
  1288.     }
  1289. }
  1291. /*
  1292.  * On Mac OS X, it is not uncommon for files to have NO
  1293.  * file type. But folks with Tcl code on Classic MacOS pretty
  1294.  * much assume that a generic file will have type TEXT. So
  1295.  * if we were strict about matching types when the source file
  1296.  * had NO type set, they would have to add another rule always
  1297.  * with no fileType. To avoid that, we pass the macMatch side
  1298.  * of the test if no fileType is set.
  1299.  */
  1301. if (globMatched && (macMatched || (fileType == 0))) {
  1302.     return MATCHED;
  1303. }
  1304.     }
  1306.     return UNMATCHED;
  1307. }
  1309. /*
  1310.  *----------------------------------------------------------------------
  1311.  *
  1312.  * TkAboutDlg --
  1313.  *
  1314.  * Displays the default Tk About box. This code uses Macintosh
  1315.  * resources to define the content of the About Box.
  1316.  *
  1317.  * Results:
  1318.  * None.
  1319.  *
  1320.  * Side effects:
  1321.  * None.
  1322.  *
  1323.  *----------------------------------------------------------------------
  1324.  */
  1326. void
  1327. TkAboutDlg(void)
  1328. {
  1329.     DialogPtr aboutDlog;
  1330.     WindowRef windowRef;
  1331.     short itemHit = -9;
  1333.     aboutDlog = GetNewDialog(TK_DEFAULT_ABOUT, NULL, (void *) (-1));
  1334.     if (!aboutDlog) {
  1335. return;
  1336.     }
  1337.     windowRef = GetDialogWindow(aboutDlog);
  1338.     SelectWindow(windowRef);
  1339.     TkMacOSXTrackingLoop(1);
  1340.     while (itemHit != 1) {
  1341. ModalDialog(NULL, &itemHit);
  1342.     }
  1343.     TkMacOSXTrackingLoop(0);
  1344.     DisposeDialog(aboutDlog);
  1345.     SelectWindow(ActiveNonFloatingWindow());
  1346. }
  1348. /*
  1349.  *----------------------------------------------------------------------
  1350.  *
  1351.  * Tk_MessageBoxObjCmd --
  1352.  *
  1353.  * Implements the tk_messageBox in native Mac OS X style.
  1354.  *
  1355.  * Results:
  1356.  * A standard Tcl result.
  1357.  *
  1358.  * Side effects:
  1359.  * none
  1360.  *
  1361.  *----------------------------------------------------------------------
  1362.  */
  1364. int
  1365. Tk_MessageBoxObjCmd(
  1366.     ClientData clientData, /* Main window associated with interpreter. */
  1367.     Tcl_Interp *interp, /* Current interpreter. */
  1368.     int objc, /* Number of arguments. */
  1369.     Tcl_Obj *CONST objv[]) /* Argument objects. */
  1370. {
  1371.     Tk_Window tkwin = (Tk_Window) clientData;
  1372.     AlertStdCFStringAlertParamRec paramCFStringRec;
  1373.     AlertType alertType;
  1374.     DialogRef dialogRef;
  1375.     CFStringRef messageTextCF = NULL, finemessageTextCF = NULL;
  1376.     OSStatus err;
  1377.     SInt16 itemHit;
  1378.     Boolean haveDefaultOption = false, haveParentOption = false;
  1379.     char *str;
  1380.     int index, defaultButtonIndex;
  1381.     int defaultNativeButtonIndex; /* 1, 2, 3: right to left */
  1382.     int typeIndex, i, indexDefaultOption = 0, result = TCL_ERROR;
  1384.     static const char *movableAlertStrings[] = {
  1385. "-default",/* "-detail",*/ "-icon", "-message", "-parent", "-title",
  1386. "-type", NULL
  1387.     };
  1388.     static const char *movableTypeStrings[] = {
  1389. "abortretryignore", "ok", "okcancel", "retrycancel", "yesno",
  1390. "yesnocancel", NULL
  1391.     };
  1392.     static const char *movableButtonStrings[] = {
  1393. "abort", "retry", "ignore", "ok", "cancel", "yes", "no", NULL
  1394.     };
  1395.     static const char *movableIconStrings[] = {
  1396. "error", "info", "question", "warning", NULL
  1397.     };
  1398.     enum movableAlertOptions {
  1399. ALERT_DEFAULT,/* ALERT_DETAIL,*/ ALERT_ICON, ALERT_MESSAGE, ALERT_PARENT,
  1400. ALERT_TITLE, ALERT_TYPE
  1401.     };
  1402.     enum movableTypeOptions {
  1403. TYPE_ABORTRETRYIGNORE, TYPE_OK, TYPE_OKCANCEL, TYPE_RETRYCANCEL,
  1404. TYPE_YESNO, TYPE_YESNOCANCEL
  1405.     };
  1406.     enum movableButtonOptions {
  1407. TEXT_ABORT, TEXT_RETRY, TEXT_IGNORE, TEXT_OK, TEXT_CANCEL, TEXT_YES,
  1408. TEXT_NO
  1409.     };
  1410.     enum movableIconOptions {
  1411. ICON_ERROR, ICON_INFO, ICON_QUESTION, ICON_WARNING
  1412.     };
  1414.     /*
  1415.      * Need to map from 'movableButtonStrings' and its corresponding integer,
  1416.      * index to the native button index, which is 1, 2, 3, from right to left.
  1417.      * This is necessary to do for each separate '-type' of button sets.
  1418.      */
  1420.     short buttonIndexAndTypeToNativeButtonIndex[][7] = {
  1421.     /* abort retry ignore ok cancel yes   no */
  1422. {1,    2,    3,    0,  0,    0,    0}, /* abortretryignore */
  1423. {0,    0,    0,    1,  0,    0,    0}, /* ok */
  1424. {0,    0,    0,    1,  2,    0,    0}, /* okcancel */
  1425. {0,    1,    0,    0,  2,    0,    0}, /* retrycancel */
  1426. {0,    0,    0,    0,  0,    1,    2}, /* yesno */
  1427. {0,    0,    0,    0,  3,    1,    2}, /* yesnocancel */
  1428.     };
  1430.     /*
  1431.      * Need also the inverse mapping, from native button (1, 2, 3) to the
  1432.      * descriptive button text string index.
  1433.      */
  1435.     short nativeButtonIndexAndTypeToButtonIndex[][4] = {
  1436. {-1, 0, 1, 2}, /* abortretryignore */
  1437. {-1, 3, 0, 0}, /* ok */
  1438. {-1, 3, 4, 0}, /* okcancel */
  1439. {-1, 1, 4, 0}, /* retrycancel */
  1440. {-1, 5, 6, 0}, /* yesno */
  1441. {-1, 5, 6, 4}, /* yesnocancel */
  1442.     };
  1444.     alertType = kAlertPlainAlert;
  1445.     typeIndex = TYPE_OK;
  1447.     ChkErr(GetStandardAlertDefaultParams, &paramCFStringRec,
  1448.     kStdCFStringAlertVersionOne);
  1449.     paramCFStringRec.movable = true;
  1450.     paramCFStringRec.helpButton = false;
  1451.     paramCFStringRec.defaultButton = kAlertStdAlertOKButton;
  1452.     paramCFStringRec.cancelButton = kAlertStdAlertCancelButton;
  1454.     for (i = 1; i < objc; i += 2) {
  1455. int iconIndex;
  1456. char *string;
  1458. if (Tcl_GetIndexFromObj(interp, objv[i], movableAlertStrings, "option",
  1459. TCL_EXACT, &index) != TCL_OK) {
  1460.     goto end;
  1461. }
  1462. if (i + 1 == objc) {
  1463.     string = Tcl_GetString(objv[i]);
  1464.     Tcl_AppendResult(interp, "value for "", string, "" missing",
  1465.     NULL);
  1466.     goto end;
  1467. }
  1469. switch (index) {
  1470.     case ALERT_DEFAULT:
  1471. /*
  1472.  * Need to postpone processing of this option until we are
  1473.  * sure to know the '-type' as well.
  1474.  */
  1475. haveDefaultOption = true;
  1476. indexDefaultOption = i;
  1477. break;
  1479. #if 0
  1480.     case ALERT_DETAIL:
  1481. str = Tcl_GetString(objv[i + 1]);
  1482. finemessageTextCF = CFStringCreateWithCString(NULL, str,
  1483. kCFStringEncodingUTF8);
  1484. break;
  1485. #endif
  1487.     case ALERT_ICON:
  1488. if (Tcl_GetIndexFromObj(interp, objv[i + 1],
  1489. movableIconStrings, "value", TCL_EXACT, &iconIndex)
  1490. != TCL_OK) {
  1491.     goto end;
  1492. }
  1493. switch (iconIndex) {
  1494.     case ICON_ERROR:
  1495. alertType = kAlertStopAlert;
  1496. break;
  1497.     case ICON_INFO:
  1498. alertType = kAlertNoteAlert;
  1499. break;
  1500.     case ICON_QUESTION:
  1501. alertType = kAlertCautionAlert;
  1502. break;
  1503.     case ICON_WARNING:
  1504. alertType = kAlertCautionAlert;
  1505. break;
  1506. }
  1507. break;
  1509.     case ALERT_MESSAGE:
  1510. str = Tcl_GetString(objv[i + 1]);
  1511. messageTextCF = CFStringCreateWithCString(NULL, str,
  1512. kCFStringEncodingUTF8);
  1513. break;
  1515.     case ALERT_PARENT:
  1516. str = Tcl_GetString(objv[i + 1]);
  1517. tkwin = Tk_NameToWindow(interp, str, tkwin);
  1518. if (tkwin == NULL) {
  1519.     goto end;
  1520. }
  1521. if (((TkWindow*)tkwin)->window != None &&
  1522. TkMacOSXHostToplevelExists(tkwin)) {
  1523.     haveParentOption = true;
  1524. }
  1525. break;
  1527.     case ALERT_TITLE:
  1528. break;
  1530.     case ALERT_TYPE:
  1531. if (Tcl_GetIndexFromObj(interp, objv[i + 1],
  1532. movableTypeStrings, "value", TCL_EXACT, &typeIndex)
  1533. != TCL_OK) {
  1534.     goto end;
  1535. }
  1536. switch (typeIndex) {
  1537.     case TYPE_ABORTRETRYIGNORE:
  1538. paramCFStringRec.defaultText = CFSTR("Abort");
  1539. paramCFStringRec.cancelText = CFSTR("Retry");
  1540. paramCFStringRec.otherText = CFSTR("Ignore");
  1541. paramCFStringRec.cancelButton =
  1542. kAlertStdAlertOtherButton;
  1543. break;
  1544.     case TYPE_OK:
  1545. paramCFStringRec.defaultText = CFSTR("OK");
  1546. break;
  1547.     case TYPE_OKCANCEL:
  1548. paramCFStringRec.defaultText = CFSTR("OK");
  1549. paramCFStringRec.cancelText = CFSTR("Cancel");
  1550. break;
  1551.     case TYPE_RETRYCANCEL:
  1552. paramCFStringRec.defaultText = CFSTR("Retry");
  1553. paramCFStringRec.cancelText = CFSTR("Cancel");
  1554. break;
  1555.     case TYPE_YESNO:
  1556. paramCFStringRec.defaultText = CFSTR("Yes");
  1557. paramCFStringRec.cancelText = CFSTR("No");
  1558. break;
  1559.     case TYPE_YESNOCANCEL:
  1560. paramCFStringRec.defaultText = CFSTR("Yes");
  1561. paramCFStringRec.cancelText = CFSTR("No");
  1562. paramCFStringRec.otherText = CFSTR("Cancel");
  1563. paramCFStringRec.cancelButton =
  1564. kAlertStdAlertOtherButton;
  1565. break;
  1566. }
  1567. break;
  1568. }
  1569.     }
  1571.     if (haveDefaultOption) {
  1573. /*
  1574.  * Any '-default' option needs to know the '-type' option, which is why
  1575.  * we do this here.
  1576.  */
  1578. str = Tcl_GetString(objv[indexDefaultOption + 1]);
  1579. if (Tcl_GetIndexFromObj(interp, objv[indexDefaultOption + 1],
  1580. movableButtonStrings, "value", TCL_EXACT, &defaultButtonIndex)
  1581. != TCL_OK) {
  1582.     goto end;
  1583. }
  1585. /*
  1586.  * Need to map from "ok" etc. to 1, 2, 3, right to left.
  1587.  */
  1589. defaultNativeButtonIndex =
  1590. buttonIndexAndTypeToNativeButtonIndex[typeIndex][defaultButtonIndex];
  1591. if (defaultNativeButtonIndex == 0) {
  1592.     Tcl_SetObjResult(interp,
  1593.     Tcl_NewStringObj("Illegal default option", -1));
  1594.     goto end;
  1595. }
  1596. paramCFStringRec.defaultButton = defaultNativeButtonIndex;
  1597. if (paramCFStringRec.cancelButton == defaultNativeButtonIndex) {
  1598.     paramCFStringRec.cancelButton = 0;
  1599. }
  1600.     }
  1601.     ChkErr(SetThemeCursor, kThemeArrowCursor);
  1603.     if (haveParentOption) {
  1604. AlertHandlerUserData data;
  1605. static EventHandlerUPP handler = NULL;
  1606. WindowRef windowRef;
  1607. const EventTypeSpec kEvents[] = {
  1608.     {kEventClassCommand, kEventProcessCommand}
  1609. };
  1611. bzero(&data, sizeof(data));
  1612. if (!handler) {
  1613.     handler = NewEventHandlerUPP(AlertHandler);
  1614. }
  1615. windowRef = TkMacOSXDrawableWindow(Tk_WindowId(tkwin));
  1616. if (!windowRef) {
  1617.     goto end;
  1618. }
  1619. err = ChkErr(CreateStandardSheet, alertType, messageTextCF,
  1620. finemessageTextCF, &paramCFStringRec, NULL, &dialogRef);
  1621. if(err != noErr) {
  1622.     goto end;
  1623. }
  1624. data.dialogWindow = GetDialogWindow(dialogRef);
  1625. err = ChkErr(ShowSheetWindow, data.dialogWindow, windowRef);
  1626. if(err != noErr) {
  1627.     DisposeDialog(dialogRef);
  1628.     goto end;
  1629. }
  1630. ChkErr(GetWindowModality, data.dialogWindow, &data.origModality,
  1631. &data.origUnavailWindow);
  1632. ChkErr(SetWindowModality, data.dialogWindow, kWindowModalityAppModal,
  1633. NULL);
  1634. ChkErr(InstallEventHandler, GetWindowEventTarget(data.dialogWindow),
  1635. handler, GetEventTypeCount(kEvents), kEvents, &data,
  1636. &data.handlerRef);
  1637. TkMacOSXTrackingLoop(1);
  1638. ChkErr(RunAppModalLoopForWindow, data.dialogWindow);
  1639. TkMacOSXTrackingLoop(0);
  1640. itemHit = data.buttonIndex;
  1641.     } else {
  1642. err = ChkErr(CreateStandardAlert, alertType, messageTextCF,
  1643. finemessageTextCF, &paramCFStringRec, &dialogRef);
  1644. if(err != noErr) {
  1645.     goto end;
  1646. }
  1647. TkMacOSXTrackingLoop(1);
  1648. err = ChkErr(RunStandardAlert, dialogRef, NULL, &itemHit);
  1649. TkMacOSXTrackingLoop(0);
  1650. if (err != noErr) {
  1651.     goto end;
  1652. }
  1653.     }
  1654.     if (err == noErr) {
  1655. int ind;
  1657. /*
  1658.  * Map 'itemHit' (1, 2, 3) to descriptive text string.
  1659.  */
  1661. ind = nativeButtonIndexAndTypeToButtonIndex[typeIndex][itemHit];
  1662. Tcl_SetObjResult(interp, Tcl_NewStringObj(movableButtonStrings[ind],
  1663. -1));
  1664. result = TCL_OK;
  1665.     }
  1667. end:
  1668.     if (finemessageTextCF) {
  1669. CFRelease(finemessageTextCF);
  1670.     }
  1671.     if (messageTextCF) {
  1672. CFRelease(messageTextCF);
  1673.     }
  1674.     return result;
  1675. }
  1677. /*
  1678.  *----------------------------------------------------------------------
  1679.  *
  1680.  * AlertHandler --
  1681.  *
  1682.  * Carbon event handler for the Standard Sheet dialog.
  1683.  *
  1684.  * Results:
  1685.  * OSStatus if event handled or not.
  1686.  *
  1687.  * Side effects:
  1688.  * May set userData.
  1689.  *
  1690.  *----------------------------------------------------------------------
  1691.  */
  1693. OSStatus
  1694. AlertHandler(
  1695.     EventHandlerCallRef callRef,
  1696.     EventRef eventRef,
  1697.     void *userData)
  1698. {
  1699.     AlertHandlerUserData *data = (AlertHandlerUserData *) userData;
  1700.     HICommand cmd;
  1702.     ChkErr(GetEventParameter,eventRef, kEventParamDirectObject, typeHICommand,
  1703.     NULL, sizeof(cmd), NULL, &cmd);
  1704.     switch (cmd.commandID) {
  1705. case kHICommandOK:
  1706.     data->buttonIndex = 1;
  1707.     break;
  1708. case kHICommandCancel:
  1709.     data->buttonIndex = 2;
  1710.     break;
  1711. case kHICommandOther:
  1712.     data->buttonIndex = 3;
  1713.     break;
  1714.     }
  1715.     if (data->buttonIndex) {
  1716. ChkErr(QuitAppModalLoopForWindow, data->dialogWindow);
  1717. ChkErr(RemoveEventHandler, data->handlerRef);
  1718. ChkErr(SetWindowModality, data->dialogWindow,
  1719. data->origModality, data->origUnavailWindow);
  1720.     }
  1721.     return eventNotHandledErr;
  1722. }