summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--mac/tkMacDialog.c851
1 files changed, 716 insertions, 135 deletions
diff --git a/mac/tkMacDialog.c b/mac/tkMacDialog.c
index cfd1863..51c250c 100644
--- a/mac/tkMacDialog.c
+++ b/mac/tkMacDialog.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMacDialog.c,v 1.4 1999/05/22 06:32:42 jingham Exp $
+ * RCS: @(#) $Id: tkMacDialog.c,v 1.5 2000/04/17 02:16:50 jingham Exp $
*/
#include <Gestalt.h>
@@ -20,6 +20,7 @@
#include <StandardFile.h>
#include <ColorPicker.h>
#include <Lowmem.h>
+#include <Navigation.h>
#include "tkPort.h"
#include "tkInt.h"
#include "tclMacInt.h"
@@ -43,6 +44,7 @@
#define SAVE_FILE 0
#define OPEN_FILE 1
+#define CHOOSE_FOLDER 2
#define MATCHED 0
#define UNMATCHED 1
@@ -62,24 +64,46 @@ typedef struct _OpenFileData {
* -filetypes option is set). */
} OpenFileData;
+
static pascal Boolean FileFilterProc _ANSI_ARGS_((CInfoPBPtr pb,
void *myData));
static int GetFileName _ANSI_ARGS_ ((ClientData clientData,
Tcl_Interp *interp, int objc,
Tcl_Obj *CONST objv[], int isOpen));
-static Boolean MatchOneType _ANSI_ARGS_((CInfoPBPtr pb,
+static int NavGetFileName _ANSI_ARGS_ ((ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *CONST objv[], int isOpen));
+static Boolean MatchOneType _ANSI_ARGS_((StringPtr fileNamePtr, OSType fileType,
OpenFileData *myofdPtr, FileFilter *filterPtr));
static pascal short OpenHookProc _ANSI_ARGS_((short item,
DialogPtr theDialog, OpenFileData * myofdPtr));
static int ParseFileDlgArgs _ANSI_ARGS_ ((Tcl_Interp * interp,
OpenFileData * myofdPtr, int argc, char ** argv,
int isOpen));
-
+static pascal Boolean OpenFileFilterProc(AEDesc* theItem, void* info,
+ NavCallBackUserData callBackUD,
+ NavFilterModes filterMode );
+pascal void OpenEventProc(NavEventCallbackMessage callBackSelector,
+ NavCBRecPtr callBackParms,
+ NavCallBackUserData callBackUD );
+static void InitFileDialogs();
+static int StdGetFile(Tcl_Interp *interp, OpenFileData *ofd,
+ unsigned char *initialFile, int isOpen);
+static int NavServicesGetFile(Tcl_Interp *interp, OpenFileData *ofd,
+ AEDesc *initialDesc, unsigned char *initialFile,
+ StringPtr title, StringPtr message, int multiple, int isOpen);
+static int HandleInitialDirectory (Tcl_Interp *interp, char *initialDir, FSSpec *dirSpec,
+ AEDesc *dirDescPtr);
/*
* Filter and hook functions used by the tk_getOpenFile and tk_getSaveFile
* commands.
*/
+int fileDlgInited = 0;
+int useNavServices = 0;
+NavObjectFilterUPP openFileFilterUPP;
+NavEventUPP openFileEventUPP;
+
static FileFilterYDUPP openFilter = NULL;
static DlgHookYDUPP openHook = NULL;
static DlgHookYDUPP saveHook = NULL;
@@ -274,7 +298,121 @@ Tk_GetOpenFileObjCmd(
int objc, /* Number of arguments. */
Tcl_Obj *CONST objv[]) /* Argument objects. */
{
- return GetFileName(clientData, interp, objc, objv, OPEN_FILE);
+ int i, result, multiple;
+ OpenFileData ofd;
+ Tk_Window parent;
+ Str255 message, title;
+ AEDesc initialDesc = {typeNull, NULL};
+ FSSpec dirSpec;
+ static char *openOptionStrings[] = {
+ "-filetypes", "-initialdir", "-message", "-multiple",
+ "-parent", "-title", NULL
+ };
+ enum openOptions {
+ OPEN_TYPES, OPEN_INITDIR, OPEN_MESSAGE, OPEN_MULTIPLE,
+ OPEN_PARENT, OPEN_TITLE
+ };
+
+ if (!fileDlgInited) {
+ InitFileDialogs();
+ }
+
+ result = TCL_ERROR;
+ parent = (Tk_Window) clientData;
+ multiple = false;
+ title[0] = 0;
+ message[0] = 0;
+
+ TkInitFileFilters(&ofd.fl);
+
+ ofd.curType = 0;
+ ofd.popupItem = OPEN_POPUP_ITEM;
+ ofd.usePopup = 1;
+
+ for (i = 1; i < objc; i += 2) {
+ char *choice;
+ int index, choiceLen;
+ char *string;
+ int srcRead, dstWrote;
+
+ if (Tcl_GetIndexFromObj(interp, objv[i], openOptionStrings, "option",
+ TCL_EXACT, &index) != TCL_OK) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ if (i + 1 == objc) {
+ string = Tcl_GetStringFromObj(objv[i], NULL);
+ Tcl_AppendResult(interp, "value for \"", string, "\" missing",
+ (char *) NULL);
+ result = TCL_ERROR;
+ goto end;
+ }
+
+ switch (index) {
+ case OPEN_TYPES:
+ choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
+ if (TkGetFileFilters(interp, &ofd.fl, choice, 0)
+ != TCL_OK) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ break;
+ case OPEN_INITDIR:
+ choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
+ if (HandleInitialDirectory(interp, choice, &dirSpec,
+ &initialDesc) != TCL_OK) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ break;
+ case OPEN_MESSAGE:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ Tcl_UtfToExternal(NULL, NULL, choice, choiceLen,
+ 0, NULL, StrBody(message), 255,
+ &srcRead, &dstWrote, NULL);
+ message[0] = dstWrote;
+ break;
+ case OPEN_MULTIPLE:
+ if (Tcl_GetBooleanFromObj(interp, objv[i + 1], &multiple) != TCL_OK) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ break;
+ case OPEN_PARENT:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ parent = Tk_NameToWindow(interp, choice, parent);
+ if (parent == NULL) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ break;
+ case OPEN_TITLE:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ Tcl_UtfToExternal(NULL, NULL, choice, choiceLen,
+ 0, NULL, StrBody(title), 255,
+ &srcRead, &dstWrote, NULL);
+ title[0] = dstWrote;
+ break;
+ }
+ }
+
+ if (useNavServices) {
+ AEDesc *initialPtr = NULL;
+
+ if (initialDesc.descriptorType == typeFSS) {
+ initialPtr = &initialDesc;
+ }
+ result = NavServicesGetFile(interp, &ofd, initialPtr, NULL,
+ title, message, multiple, OPEN_FILE);
+ } else {
+ result = StdGetFile(interp, &ofd, NULL, OPEN_FILE);
+ }
+
+ end:
+ TkFreeFileFilters(&ofd.fl);
+ AEDisposeDesc(&initialDesc);
+
+ return result;
}
/*
@@ -300,69 +438,180 @@ Tk_GetSaveFileObjCmd(
int objc, /* Number of arguments. */
Tcl_Obj *CONST objv[]) /* Argument objects. */
{
- return GetFileName(clientData, interp, objc, objv, SAVE_FILE);
+ int i, result;
+ Str255 initialFile;
+ Tk_Window parent;
+ AEDesc initialDesc = {typeNull, NULL};
+ FSSpec dirSpec;
+ Str255 title, message;
+ OpenFileData ofd;
+ static char *saveOptionStrings[] = {
+ "-defaultextension", "-initialdir", "-initialfile",
+ "-message", "-parent", "-title", NULL
+ };
+ enum saveOptions {
+ SAVE_DEFAULT, SAVE_INITDIR, SAVE_INITFILE,
+ SAVE_MESSAGE, SAVE_PARENT, SAVE_TITLE
+ };
+
+ if (!fileDlgInited) {
+ InitFileDialogs();
+ }
+
+ result = TCL_ERROR;
+ parent = (Tk_Window) clientData;
+ StrLength(initialFile) = 0;
+ title[0] = 0;
+ message[0] = 0;
+
+
+ for (i = 1; i < objc; i += 2) {
+ char *choice;
+ int index, choiceLen;
+ char *string;
+ Tcl_DString ds;
+ int srcRead, dstWrote;
+
+ if (Tcl_GetIndexFromObj(interp, objv[i], saveOptionStrings, "option",
+ TCL_EXACT, &index) != TCL_OK) {
+ return TCL_ERROR;
+ }
+ if (i + 1 == objc) {
+ string = Tcl_GetStringFromObj(objv[i], NULL);
+ Tcl_AppendResult(interp, "value for \"", string, "\" missing",
+ (char *) NULL);
+ return TCL_ERROR;
+ }
+ switch (index) {
+ case SAVE_DEFAULT:
+ break;
+ case SAVE_INITDIR:
+ choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
+ if (HandleInitialDirectory(interp, choice, &dirSpec,
+ &initialDesc) != TCL_OK) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ break;
+ case SAVE_INITFILE:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ if (Tcl_TranslateFileName(interp, choice, &ds) == NULL) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ Tcl_UtfToExternal(NULL, NULL, Tcl_DStringValue(&ds),
+ Tcl_DStringLength(&ds), 0, NULL,
+ StrBody(initialFile), 255, &srcRead, &dstWrote, NULL);
+ StrLength(initialFile) = (unsigned char) dstWrote;
+ Tcl_DStringFree(&ds);
+ break;
+ case SAVE_MESSAGE:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ Tcl_UtfToExternal(NULL, NULL, choice, choiceLen,
+ 0, NULL, StrBody(message), 255,
+ &srcRead, &dstWrote, NULL);
+ StrLength(message) = (unsigned char) dstWrote;
+ break;
+ case SAVE_PARENT:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ parent = Tk_NameToWindow(interp, choice, parent);
+ if (parent == NULL) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ break;
+ case SAVE_TITLE:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ Tcl_UtfToExternal(NULL, NULL, choice, choiceLen,
+ 0, NULL, StrBody(title), 255,
+ &srcRead, &dstWrote, NULL);
+ StrLength(title) = (unsigned char) dstWrote;
+ break;
+ }
+ }
+
+ TkInitFileFilters(&ofd.fl);
+ ofd.usePopup = 0;
+
+ if (useNavServices) {
+ AEDesc *initialPtr = NULL;
+
+ if (initialDesc.descriptorType == typeFSS) {
+ initialPtr = &initialDesc;
+ }
+ result = NavServicesGetFile(interp, &ofd, initialPtr, initialFile,
+ title, message, false, SAVE_FILE);
+ } else {
+ result = StdGetFile(interp, NULL, initialFile, SAVE_FILE);
+ }
+
+ end:
+
+ AEDisposeDesc(&initialDesc);
+
+ return result;
}
/*
*----------------------------------------------------------------------
*
- * GetFileName --
+ * Tk_ChooseDirectoryObjCmd --
*
- * Calls the Mac file dialog functions for the user to choose a
- * file to or save.
+ * This procedure implements the "tk_chooseDirectory" dialog box
+ * for the Windows platform. See the user documentation for details
+ * on what it does.
*
* Results:
- * A standard Tcl result.
+ * See user documentation.
*
* Side effects:
- * If the user selects a file, the native pathname of the file
- * is returned in the interp's result. Otherwise an empty string
- * is returned in the interp's result.
+ * A modal dialog window is created. Tcl_SetServiceMode() is
+ * called to allow background events to be processed
*
*----------------------------------------------------------------------
*/
-static int
-GetFileName(
- ClientData clientData, /* Main window associated with interpreter. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *CONST objv[], /* Argument objects. */
- int isOpen) /* true if we should call GetOpenFileName(),
- * false if we should call GetSaveFileName() */
+int
+Tk_ChooseDirectoryObjCmd(clientData, interp, objc, objv)
+ ClientData clientData; /* Main window associated with interpreter. */
+ Tcl_Interp *interp; /* Current interpreter. */
+ int objc; /* Number of arguments. */
+ Tcl_Obj *CONST objv[]; /* Argument objects. */
{
int i, result;
- OpenFileData ofd;
- StandardFileReply reply;
- Point mypoint;
- MenuHandle menu;
- Str255 initialFile;
- char *choice[6];
Tk_Window parent;
- static char *optionStrings[] = {
- "-defaultextension", "-filetypes", "-initialdir", "-initialfile",
- "-parent", "-title", NULL
+ AEDesc initialDesc = {typeNull, NULL};
+ FSSpec dirSpec;
+ Str255 message, title;
+ int srcRead, dstWrote;
+ OpenFileData ofd;
+ static char *chooseOptionStrings[] = {
+ "-initialdir", "-message", "-mustexist", "-parent", "-title", NULL
};
- enum options {
- FILE_DEFAULT, FILE_TYPES, FILE_INITDIR, FILE_INITFILE,
- FILE_PARENT, FILE_TITLE
+ enum chooseOptions {
+ CHOOSE_INITDIR, CHOOSE_MESSAGE, CHOOSE_MUSTEXIST,
+ CHOOSE_PARENT, CHOOSE_TITLE
};
+
+
+ if (!NavServicesAvailable()) {
+ return TCL_ERROR;
+ }
- if (openFilter == NULL) {
- openFilter = NewFileFilterYDProc(FileFilterProc);
- openHook = NewDlgHookYDProc(OpenHookProc);
- saveHook = NewDlgHookYDProc(OpenHookProc);
+ if (!fileDlgInited) {
+ InitFileDialogs();
}
-
result = TCL_ERROR;
parent = (Tk_Window) clientData;
- memset(choice, 0, sizeof(choice));
+ title[0] = 0;
+ message[0] = 0;
for (i = 1; i < objc; i += 2) {
- int index;
+ char *choice;
+ int index, choiceLen;
char *string;
- if (Tcl_GetIndexFromObj(interp, objv[i], optionStrings, "option",
+ if (Tcl_GetIndexFromObj(interp, objv[i], chooseOptionStrings, "option",
TCL_EXACT, &index) != TCL_OK) {
return TCL_ERROR;
}
@@ -372,35 +621,77 @@ GetFileName(
(char *) NULL);
return TCL_ERROR;
}
- choice[index] = Tcl_GetStringFromObj(objv[i + 1], NULL);
+ switch (index) {
+ case CHOOSE_INITDIR:
+ choice = Tcl_GetStringFromObj(objv[i + 1], NULL);
+ if (HandleInitialDirectory(interp, choice, &dirSpec,
+ &initialDesc) != TCL_OK) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ break;
+ case CHOOSE_MESSAGE:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ Tcl_UtfToExternal(NULL, NULL, choice, choiceLen,
+ 0, NULL, StrBody(message), 255,
+ &srcRead, &dstWrote, NULL);
+ StrLength(message) = (unsigned char) dstWrote;
+ break;
+ case CHOOSE_PARENT:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ parent = Tk_NameToWindow(interp, choice, parent);
+ if (parent == NULL) {
+ result = TCL_ERROR;
+ goto end;
+ }
+ break;
+ case CHOOSE_TITLE:
+ choice = Tcl_GetStringFromObj(objv[i + 1], &choiceLen);
+ Tcl_UtfToExternal(NULL, NULL, choice, choiceLen,
+ 0, NULL, StrBody(title), 255,
+ &srcRead, &dstWrote, NULL);
+ StrLength(title) = (unsigned char) dstWrote;
+ break;
+ }
}
-
- StrLength(initialFile) = 0;
- menu = NULL;
-
+
TkInitFileFilters(&ofd.fl);
- ofd.curType = 0;
- ofd.popupItem = OPEN_POPUP_ITEM;
- ofd.usePopup = isOpen;
-
- if (choice[FILE_TYPES] != NULL) {
- if (TkGetFileFilters(interp, &ofd.fl, choice[FILE_TYPES], 0) != TCL_OK) {
- goto end;
+ ofd.usePopup = 0;
+
+ if (useNavServices) {
+ AEDesc *initialPtr = NULL;
+
+ if (initialDesc.descriptorType == typeFSS) {
+ initialPtr = &initialDesc;
}
+ result = NavServicesGetFile(interp, &ofd, initialPtr, NULL,
+ title, message, false, CHOOSE_FOLDER);
+ } else {
+ result = TCL_ERROR;
}
- if (choice[FILE_INITDIR] != NULL) {
- FSSpec dirSpec;
+
+ end:
+ AEDisposeDesc(&initialDesc);
+
+ return result;
+}
+
+int
+HandleInitialDirectory (
+ Tcl_Interp *interp,
+ char *initialDir,
+ FSSpec *dirSpec,
+ AEDesc *dirDescPtr)
+{
Tcl_DString ds;
long dirID;
OSErr err;
Boolean isDirectory;
- char *string;
Str255 dir;
int srcRead, dstWrote;
- string = choice[FILE_INITDIR];
- if (Tcl_TranslateFileName(interp, string, &ds) == NULL) {
- goto end;
+ if (Tcl_TranslateFileName(interp, initialDir, &ds) == NULL) {
+ return TCL_ERROR;
}
Tcl_UtfToExternal(NULL, NULL, Tcl_DStringValue(&ds),
Tcl_DStringLength(&ds), 0, NULL, StrBody(dir), 255,
@@ -408,46 +699,360 @@ GetFileName(
StrLength(dir) = (unsigned char) dstWrote;
Tcl_DStringFree(&ds);
- err = FSpLocationFromPath(StrLength(dir), StrBody(dir), &dirSpec);
+ err = FSpLocationFromPath(StrLength(dir), StrBody(dir), dirSpec);
if (err != noErr) {
- Tcl_AppendResult(interp, "bad directory \"", string, "\"", NULL);
- goto end;
+ Tcl_AppendResult(interp, "bad directory \"", initialDir, "\"", NULL);
+ return TCL_ERROR;
}
- err = FSpGetDirectoryID(&dirSpec, &dirID, &isDirectory);
+ err = FSpGetDirectoryID(dirSpec, &dirID, &isDirectory);
if ((err != noErr) || !isDirectory) {
- Tcl_AppendResult(interp, "bad directory \"", string, "\"", NULL);
- goto end;
+ Tcl_AppendResult(interp, "bad directory \"", initialDir, "\"", NULL);
+ return TCL_ERROR;
}
- /*
- * Make sure you negate -dirSpec.vRefNum because the
- * standard file package wants it that way !
- */
+
+ if (useNavServices) {
+ AECreateDesc( typeFSS, dirSpec, sizeof(*dirSpec), dirDescPtr);
+ } else {
+ /*
+ * Make sure you negate -dirSpec.vRefNum because the
+ * standard file package wants it that way !
+ */
- LMSetSFSaveDisk(-dirSpec.vRefNum);
- LMSetCurDirStore(dirID);
+ LMSetSFSaveDisk(-dirSpec->vRefNum);
+ LMSetCurDirStore(dirID);
+ }
+ return TCL_OK;
+}
+
+static void
+InitFileDialogs()
+{
+ fileDlgInited = 1;
+
+ if (NavServicesAvailable()) {
+ openFileFilterUPP = NewNavObjectFilterProc(OpenFileFilterProc);
+ openFileEventUPP = NewNavEventProc(OpenEventProc);
+ useNavServices = 1;
+ } else {
+ openFilter = NewFileFilterYDProc(FileFilterProc);
+ openHook = NewDlgHookYDProc(OpenHookProc);
+ saveHook = NewDlgHookYDProc(OpenHookProc);
+ useNavServices = 0;
}
- if (choice[FILE_INITFILE] != NULL) {
- Tcl_DString ds;
- int srcRead, dstWrote;
+
- if (Tcl_TranslateFileName(interp, choice[FILE_INITFILE], &ds) == NULL) {
- goto end;
- }
- Tcl_UtfToExternal(NULL, NULL, Tcl_DStringValue(&ds),
- Tcl_DStringLength(&ds), 0, NULL,
- StrBody(initialFile), 255, &srcRead, &dstWrote, NULL);
- StrLength(initialFile) = (unsigned char) dstWrote;
- Tcl_DStringFree(&ds);
- }
- if (choice[FILE_PARENT] != NULL) {
- parent = Tk_NameToWindow(interp, choice[FILE_PARENT], parent);
- if (parent == NULL) {
- return TCL_ERROR;
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetFileName --
+ *
+ * Calls the Mac file dialog functions for the user to choose a
+ * file to or save.
+ *
+ * Results:
+ * A standard Tcl result.
+ *
+ * Side effects:
+ * If the user selects a file, the native pathname of the file
+ * is returned in the interp's result. Otherwise an empty string
+ * is returned in the interp's result.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+GetFileName(
+ ClientData clientData, /* Main window associated with interpreter. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int objc, /* Number of arguments. */
+ Tcl_Obj *CONST objv[], /* Argument objects. */
+ int isOpen) /* true if we should call GetOpenFileName(),
+ * false if we should call GetSaveFileName() */
+{
+ return TCL_OK;
+}
+
+static int
+NavServicesGetFile(
+ Tcl_Interp *interp,
+ OpenFileData *ofdPtr,
+ AEDesc *initialDesc,
+ unsigned char *initialFile,
+ StringPtr title,
+ StringPtr message,
+ int multiple,
+ int isOpen)
+{
+ NavReplyRecord theReply;
+ NavDialogOptions diagOptions;
+ OSErr err;
+ Tcl_Obj *theResult;
+ int result;
+
+
+ diagOptions.location.h = -1;
+ diagOptions.location.v = -1;
+ diagOptions.dialogOptionFlags = kNavDontAutoTranslate
+ + kNavDontAddTranslateItems;
+
+ if (multiple) {
+ diagOptions.dialogOptionFlags += kNavAllowMultipleFiles;
+ }
+
+ if (ofdPtr != NULL && ofdPtr->usePopup) {
+ FileFilter *filterPtr;
+
+ filterPtr = ofdPtr->fl.filters;
+ if (filterPtr == NULL) {
+ ofdPtr->usePopup = 0;
}
}
+
+ if (ofdPtr != NULL && ofdPtr->usePopup) {
+ NavMenuItemSpecHandle popupExtensionHandle = NULL;
+ NavMenuItemSpec *popupItems;
+ FileFilter *filterPtr;
+ short index = 0;
+
+ ofdPtr->curType = 0;
+
+ popupExtensionHandle = (NavMenuItemSpecHandle) NewHandle(ofdPtr->fl.numFilters
+ * sizeof(NavMenuItemSpec));
+ HLock((Handle) popupExtensionHandle);
+ popupItems = *popupExtensionHandle;
+
+ for (filterPtr = ofdPtr->fl.filters; filterPtr != NULL;
+ filterPtr = filterPtr->next, popupItems++, index++) {
+ int len;
+
+ len = strlen(filterPtr->name);
+ BlockMove(filterPtr->name, popupItems->menuItemName + 1, len);
+ popupItems->menuItemName[0] = len;
+ popupItems->menuCreator = 'WIsH';
+ popupItems->menuType = index;
+ }
+ HUnlock((Handle) popupExtensionHandle);
+ diagOptions.popupExtension = popupExtensionHandle;
+ } else {
+ diagOptions.dialogOptionFlags += kNavNoTypePopup;
+ diagOptions.popupExtension = NULL;
+ }
+
+ if ((initialFile != NULL) && (initialFile[0] != 0)) {
+ char *lastColon;
+ int len;
+
+ len = initialFile[0];
+
+ p2cstr(initialFile);
+ lastColon = strrchr((char *)initialFile, ':');
+ if (lastColon != NULL) {
+ len -= lastColon - ((char *) (initialFile + 1));
+ BlockMove(lastColon + 1, diagOptions.savedFileName + 1, len);
+ diagOptions.savedFileName[0] = len;
+ } else {
+ BlockMove(initialFile, diagOptions.savedFileName + 1, len);
+ diagOptions.savedFileName[0] = len;
+ }
+ } else {
+ diagOptions.savedFileName[0] = 0;
+ }
+
+ strcpy((char *) (diagOptions.clientName + 1),"Wish");
+ diagOptions.clientName[0] = strlen("Wish");
+
+ if (title == NULL) {
+ diagOptions.windowTitle[0] = 0;
+ } else {
+ BlockMove(title, diagOptions.windowTitle, title[0] + 1);
+ diagOptions.windowTitle[0] = title[0];
+ }
+
+ if (message == NULL) {
+ diagOptions.message[0] = 0;
+ } else {
+ BlockMove(message, diagOptions.message, message[0] + 1);
+ diagOptions.message[0] = message[0];
+ }
+
+ diagOptions.actionButtonLabel[0] = 0;
+ diagOptions.cancelButtonLabel[0] = 0;
+ diagOptions.preferenceKey = 0;
+
+ /* Now process the selection list. We have to use the popupExtension
+ * to fill the menu.
+ */
+
+
+ if (isOpen == OPEN_FILE) {
+ err = NavGetFile(initialDesc, &theReply, &diagOptions, openFileEventUPP,
+ NULL, openFileFilterUPP, NULL, ofdPtr);
+ } else if (isOpen == SAVE_FILE) {
+ err = NavPutFile (initialDesc, &theReply, &diagOptions, openFileEventUPP,
+ 'TEXT', 'WIsH', NULL);
+ } else if (isOpen == CHOOSE_FOLDER) {
+ err = NavChooseFolder (initialDesc, &theReply, &diagOptions,
+ openFileEventUPP, NULL, NULL);
+ }
+
+ theResult = Tcl_NewListObj(0, NULL);
+
+ if ( theReply.validRecord && err == noErr ) {
+ AEDesc resultDesc;
+ long count;
+ Tcl_DString fileName;
+ Handle pathHandle;
+ int length;
+
+ if ( err == noErr ) {
+ err = AECountItems(&(theReply.selection), &count);
+ if (err == noErr) {
+ long i;
+ for (i = 1; i <= count; i++ ) {
+ err = AEGetNthDesc(&(theReply.selection),
+ i, typeFSS, NULL, &resultDesc);
+ if (err == noErr) {
+ HLock(resultDesc.dataHandle);
+ pathHandle = NULL;
+ FSpPathFromLocation((FSSpec *) *resultDesc.dataHandle,
+ &length, &pathHandle);
+ HLock(pathHandle);
+ Tcl_ExternalToUtfDString(NULL, (char *) *pathHandle, -1, &fileName);
+ Tcl_ListObjAppendElement(interp, theResult,
+ Tcl_NewStringObj(Tcl_DStringValue(&fileName),
+ Tcl_DStringLength(&fileName)));
+ Tcl_DStringFree(&fileName);
+ HUnlock(pathHandle);
+ DisposeHandle(pathHandle);
+ HUnlock(resultDesc.dataHandle);
+ AEDisposeDesc( &resultDesc );
+ }
+ }
+ }
+ }
+ err = NavDisposeReply( &theReply );
+ Tcl_SetObjResult(interp, theResult);
+ result = TCL_OK;
+ } else if (err == userCanceledErr) {
+ result = TCL_OK;
+ } else {
+ result = TCL_ERROR;
+ }
+
+ if (diagOptions.popupExtension != NULL) {
+ DisposeHandle((Handle) diagOptions.popupExtension);
+ }
+
+ return result;
+}
+
+static pascal Boolean
+OpenFileFilterProc(
+ AEDesc* theItem, void* info,
+ NavCallBackUserData callBackUD,
+ NavFilterModes filterMode )
+{
+ OpenFileData *ofdPtr = (OpenFileData *) callBackUD;
+ if (!ofdPtr->usePopup) {
+ return true;
+ } else {
+ if (ofdPtr->fl.numFilters == 0) {
+ return true;
+ } else {
+
+ if ( theItem->descriptorType == typeFSS ) {
+ NavFileOrFolderInfo* theInfo = (NavFileOrFolderInfo*)info;
+ int result;
+
+ if ( !theInfo->isFolder ) {
+ OSType fileType;
+ StringPtr fileNamePtr;
+ int i;
+ FileFilter *filterPtr;
+
+ fileType = theInfo->fileAndFolder.fileInfo.finderInfo.fdType;
+ HLock(theItem->dataHandle);
+ fileNamePtr = (((FSSpec *) *theItem->dataHandle)->name);
+
+ if (ofdPtr->usePopup) {
+ i = ofdPtr->curType;
+ for (filterPtr=ofdPtr->fl.filters; filterPtr && i>0; i--) {
+ filterPtr = filterPtr->next;
+ }
+ if (filterPtr) {
+ result = MatchOneType(fileNamePtr, fileType,
+ ofdPtr, filterPtr);
+ } else {
+ result = false;
+ }
+ } else {
+ /*
+ * We are not using the popup menu. In this case, the file is
+ * considered matched if it matches any of the file filters.
+ */
+ result = UNMATCHED;
+ for (filterPtr=ofdPtr->fl.filters; filterPtr;
+ filterPtr=filterPtr->next) {
+ if (MatchOneType(fileNamePtr, fileType,
+ ofdPtr, filterPtr) == MATCHED) {
+ result = MATCHED;
+ break;
+ }
+ }
+ }
+
+ HUnlock(theItem->dataHandle);
+ return (result == MATCHED);
+ } else {
+ return true;
+ }
+ }
+ }
+
+ return true;
+ }
+}
+
+pascal void
+OpenEventProc(
+ NavEventCallbackMessage callBackSelector,
+ NavCBRecPtr callBackParams,
+ NavCallBackUserData callBackUD )
+{
+ NavMenuItemSpec *chosenItem;
+ OpenFileData *ofd = (OpenFileData *) callBackUD;
+ static SInt32 otherEvent = ~(kNavCBCustomize|kNavCBStart|kNavCBTerminate
+ |kNavCBNewLocation|kNavCBShowDesktop|kNavCBSelectEntry|kNavCBAccept
+ |kNavCBCancel|kNavCBAdjustPreview);
+
+ if (callBackSelector == kNavCBPopupMenuSelect) {
+ chosenItem = (NavMenuItemSpec *) callBackParams->eventData.eventDataParms.param;
+ ofd->curType = chosenItem->menuType;
+ } else if (callBackSelector == kNavCBAdjustRect || callBackSelector & otherEvent != 0) {
+ while (Tcl_DoOneEvent(TCL_IDLE_EVENTS|TCL_DONT_WAIT|TCL_WINDOW_EVENTS)) {
+ /* Empty Body */
+ }
+ }
+}
+
+static int
+StdGetFile(
+ Tcl_Interp *interp,
+ OpenFileData *ofd,
+ unsigned char *initialFile,
+ int isOpen)
+{
+ int i;
+ StandardFileReply reply;
+ Point mypoint;
+ MenuHandle menu = NULL;
+
/*
- * 2. Set the items in the file types popup.
+ * Set the items in the file types popup.
*/
/*
@@ -455,7 +1060,7 @@ GetFileName(
* left overs from previous invocation of this command
*/
- if (ofd.usePopup) {
+ if (ofd != NULL && ofd->usePopup) {
FileFilter *filterPtr;
menu = GetMenu(OPEN_MENU);
@@ -469,9 +1074,9 @@ GetFileName(
DeleteMenuItem(menu, i);
}
- filterPtr = ofd.fl.filters;
+ filterPtr = ofd->fl.filters;
if (filterPtr == NULL) {
- ofd.usePopup = 0;
+ ofd->usePopup = 0;
} else {
for ( ; filterPtr != NULL; filterPtr = filterPtr->next) {
Str255 str;
@@ -484,33 +1089,37 @@ GetFileName(
}
/*
- * 3. Call the toolbox file dialog function.
+ * Call the toolbox file dialog function.
*/
SetPt(&mypoint, -1, -1);
TkpSetCursor(NULL);
- if (isOpen) {
- if (ofd.usePopup) {
+ if (isOpen == OPEN_FILE) {
+ if (ofd != NULL && ofd->usePopup) {
CustomGetFile(openFilter, (short) -1, NULL, &reply, OPEN_BOX,
mypoint, openHook, NULL, NULL, NULL, (void*) &ofd);
} else {
StandardGetFile(NULL, -1, NULL, &reply);
}
- } else {
+ } else if (isOpen == SAVE_FILE) {
static Str255 prompt = "\pSave as";
- if (ofd.usePopup) {
+ if (ofd != NULL && ofd->usePopup) {
/*
* Currently this never gets called because we don't use
* popup for the save dialog.
*/
CustomPutFile(prompt, initialFile, &reply, OPEN_BOX,
- mypoint, saveHook, NULL, NULL, NULL, (void *) &ofd);
+ mypoint, saveHook, NULL, NULL, NULL, (void *) ofd);
} else {
StandardPutFile(prompt, initialFile, &reply);
}
}
+ /*
+ * Now parse the reply, and populate the Tcl result.
+ */
+
if (reply.sfGood) {
int length;
Handle pathHandle;
@@ -529,14 +1138,11 @@ GetFileName(
}
}
- result = TCL_OK;
-
- end:
- TkFreeFileFilters(&ofd.fl);
if (menu != NULL) {
DisposeMenu(menu);
}
- return result;
+
+ return TCL_OK;
}
/*
*----------------------------------------------------------------------
@@ -649,7 +1255,8 @@ FileFilterProc(
filterPtr = filterPtr->next;
}
if (filterPtr) {
- return MatchOneType(pb, ofdPtr, filterPtr);
+ return MatchOneType(pb->hFileInfo.ioNamePtr, pb->hFileInfo.ioFlFndrInfo.fdType,
+ ofdPtr, filterPtr);
} else {
return UNMATCHED;
}
@@ -661,7 +1268,8 @@ FileFilterProc(
for (filterPtr=ofdPtr->fl.filters; filterPtr;
filterPtr=filterPtr->next) {
- if (MatchOneType(pb, ofdPtr, filterPtr) == MATCHED) {
+ if (MatchOneType(pb->hFileInfo.ioNamePtr, pb->hFileInfo.ioFlFndrInfo.fdType,
+ ofdPtr, filterPtr) == MATCHED) {
return MATCHED;
}
}
@@ -688,7 +1296,8 @@ FileFilterProc(
static Boolean
MatchOneType(
- CInfoPBPtr pb, /* Information about the file */
+ StringPtr fileNamePtr, /* Name of the file */
+ OSType fileType, /* Type of the file */
OpenFileData * ofdPtr, /* Information about this file dialog */
FileFilter * filterPtr) /* Match the file described by pb against
* this filter */
@@ -730,10 +1339,10 @@ MatchOneType(
int len;
char * p, *q, *ext;
- if (pb->hFileInfo.ioNamePtr == NULL) {
+ if (fileNamePtr == NULL) {
continue;
}
- p = (char*)(pb->hFileInfo.ioNamePtr);
+ p = (char*)(fileNamePtr);
len = p[0];
strncpy(filename, p+1, len);
filename[len] = '\0';
@@ -767,7 +1376,7 @@ MatchOneType(
}
for (mfPtr=clausePtr->macTypes; mfPtr; mfPtr=mfPtr->next) {
- if (pb->hFileInfo.ioFlFndrInfo.fdType == mfPtr->type) {
+ if (fileType == mfPtr->type) {
macMatched = 1;
break;
}
@@ -780,33 +1389,5 @@ MatchOneType(
return UNMATCHED;
}
-/*
- *----------------------------------------------------------------------
- *
- * Tk_ChooseDirectoryObjCmd --
- *
- * This procedure implements the "tk_chooseDirectory" dialog box
- * for the Windows platform. See the user documentation for details
- * on what it does.
- *
- * Results:
- * See user documentation.
- *
- * Side effects:
- * A modal dialog window is created. Tcl_SetServiceMode() is
- * called to allow background events to be processed
- *
- *----------------------------------------------------------------------
- */
-
-int
-Tk_ChooseDirectoryObjCmd(clientData, interp, objc, objv)
- ClientData clientData; /* Main window associated with interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int objc; /* Number of arguments. */
- Tcl_Obj *CONST objv[]; /* Argument objects. */
-{
- return TCL_ERROR;
-}