/****************************************************************************** * * * Getfiles.c -- File Interface Routines * * * * Copyright (c) 1993 Universities Research Association, Inc. * * All Rights Reserved. * * * * This material resulted from work developed under a Government Contract and * * is subject to the following license: The Government retains a paid-up, * * nonexclusive, irrevocable worldwide license to reproduce, prepare derivative* * works, perform publicly and display publicly by or for the Government, * * including the right to distribute to other Government contractors. Neither * * the United States nor the United States Department of Energy, nor any of * * their employees, makes any warranty, express or implied, or assumes any * * legal liability or responsibility for the accuracy, completeness, or * * usefulness of any information, apparatus, product, or process disclosed, or * * represents that its use would not infringe privately owned rights. * * * * Fermilab Nirvana GUI Library * * May 23, 1991 * * * * Written by Donna Reid * * * * modified 11/5/91 by JMK: integrated changes made by M. Edel; updated for * * destroy widget problem (took out ManageModalDialog * * call; added comments. * * 10/1/92 by MWE: Added help dialog and fixed a few bugs * * 4/7/93 by DR: Port to VMS * * 6/1/93 by JMK: Integrate Port and changes by MWE to make * * directories "sticky" and a fix to prevent opening * * a directory when no filename was specified * * 6/24/92 by MWE: Made filename list and directory list typeable, * * set initial focus to filename list * * 6/25/93 by JMK: Fix memory leaks found by Purify. * * * * Included are two routines written using Motif for accessing files: * * * * GetExistingFilename presents a FileSelectionBox dialog where users can * * choose an existing file to open. * * * * GetNewFilename presents a FileSelectionBox dialog to help the user * * find a place for a new file. * * * ******************************************************************************/ static char SCCSID[] = "@(#)getfiles.c 1.33 2/5/96"; #include #include #include #include #ifdef VMS #include #include #include "VMSparam.h" #else #include #include #include #include #endif /*VMS*/ #include #include #include #include #include #include #include #include #include #include #include #include "fileUtils.h" #include "misc.h" #include "getfiles.h" #define MAX_ARGS 20 /* Maximum number of X arguments */ #define PERMS 0666 /* UNIX file permission, RW for owner, group, world */ #define MAX_LIST_KEYSTROKES 100 /* Max # of keys user can type to a file list */ #define MAX_LIST_KESTROKE_WAIT 2000 /* Allowable delay in milliseconds between characters typed to a list before starting over (throwing out the accumulated characters */ #define SET_ONE_RSRC(widget, name, newValue) \ { \ static Arg args[1] = {{name, (XtArgVal)0}}; \ args[0].value = (XtArgVal)newValue; \ XtSetValues(widget, args, 1); \ } enum yesNoValues {ynNone, ynYes, ynNo}; /* Saved default directory and pattern from last successful call */ static XmString DefaultDirectory = NULL; static XmString DefaultPattern = NULL; /* User settable option for leaving the file name text field in GetExistingFilename dialogs. Off by default so new users will get used to typing in the list rather than in the text field */ static int RemoveRedundantTextField = True; /* Text for help button help display */ /* ... needs variant for VMS */ #ifndef MOTIF10 static char *HelpExist = "The file open dialog shows a list of directories on the left, and a list \ of files on the right. Double clicking on a file name in the list on the \ right, or selecting it and pressing the OK button, will open that file. \ Double clicking on a directory name, or selecting \ it and pressing \"Filter\", will move into that directory. To move upwards in \ the directory tree, double click on the directory entry ending in \"..\". \ You can also begin typing a file name to select from the file list, or \ directly type in directory and file specifications in the \ field labeled \"Filter\".\n\ \n\ If you use the filter field, remember to include \ either a file name, \"*\" is acceptable, or a trailing \"/\". If \ you don't, the name after the last \"/\" is interpreted as the file name to \ match. When you leave off the file name or trailing \"/\", you won't see \ any files to open in the list \ because the filter specification matched the directory file itself, rather \ than the files in the directory."; static char *HelpNew = "This dialog allows you to create a new file, or to save the current file \ under a new name. To specify a file \ name in the current directory, complete the name displayed in the \"Save File \ As:\" field near the bottom of the dialog. If you delete or change \ the path shown in the field, the file will be saved using whatever path \ you type, provided that it is a valid Unix file specification.\n\ \n\ To replace an existing file, select it from the Files list \ and press \"OK\", or simply double click on the name.\n\ \n\ To save a file in another directory, use the Directories list \ to move around in the file system hierarchy. Double clicking on \ directory names in the list, or selecting them and pressing the \ \"Filter\" button will select that directory. To move upwards \ in the directory tree, double \ click on the directory entry ending in \"..\". You can also move directly \ to a directory by typing the file specification of the path in the \"Filter\" \ field and pressing the \"Filter\" button."; #else /* MOTIF 1.0 file dialogs are different */ static char *HelpExist = "The file open dialog initially shows a list of files in the current \ directory. Double clicking on a file name in the list, or selecting it \ and pressing the OK button, will open that file. \n\ \n\ To open a file outside of the current directory, click on the field labeled \ \"Filter\", type in a directory specification, and press return, or \ press the Filter button in the dialog. The files in that directory will \ then show up in the file list and you can select one as above."; static char *HelpNew = "The Save As... dialog allows you to save the file you are editing under a \ new name, or to specify the name for an Untitled file. To specify a file \ name in the current directory, complete the name displayed in the \"Save File \ As:\" field near the bottom of the dialog. If you delete or change \ the path shown in the field, the file will be saved using whatever path \ you type provided that it is a valid Unix file specification.\n\ \n\ To replace an existing file, select it from the Files list \ and press \"OK\", or simply double click on the name.\n\ \n\ If you would like to save a file in another directory, either type the \ full name in the \"Save File As:\" field, or type the directory name \ in the \"File Filter\" field and press the \ \"Filter\" button to see that directory in the file list."; #endif /* Local Callback Routines and variables */ static void newFileOKCB(Widget w, Boolean *client_data, XmFileSelectionBoxCallbackStruct *call_data); static void newFileCancelCB(Widget w, Boolean *client_data, caddr_t call_data); static void newHelpCB(Widget w, Widget helpPanel, caddr_t call_data); static void createYesNoDialog(Widget parent); static void createErrorDialog(Widget parent); static int doYesNoDialog(char *msg); static void doErrorDialog(char *errorString, char *filename); static void existOkCB(Widget w, Boolean * client_data, XmFileSelectionBoxCallbackStruct *call_data); static void existCancelCB(Widget w, Boolean * client_data, caddr_t call_data); static void existHelpCB(Widget w, Widget helpPanel, caddr_t call_data); static void errorOKCB(Widget w, caddr_t client_data, caddr_t call_data); static void yesNoOKCB(Widget w, caddr_t client_data, caddr_t call_data); static void yesNoCancelCB(Widget w, caddr_t client_data, caddr_t call_data); static Widget createPanelHelp(Widget parent, char *text, char *title); static void helpDismissCB(Widget w, Widget helpPanel, caddr_t call_data); static void makeListTypeable(Widget listW); static void listCharCB(Widget w, XEvent *event, String *params, Cardinal n); static void replacementDirSearchProc(Widget w, XtPointer searchData); static void replacementFileSearchProc(Widget w, XtPointer searchData); static void sortWidgetList(Widget listWidget); static int compareXmStrings(const void *string1, const void *string2); static int SelectResult = GFN_CANCEL; /* Initialize results as cancel */ static Widget YesNoDialog; /* "Overwrite?" dialog widget */ static int YesNoResult; /* Result of overwrite dialog */ static Widget ErrorDialog; /* Dialog widget for error msgs */ static int ErrorDone; /* Flag to mark dialog completed */ #ifdef AIX static void (*OrigDirSearchProc)(); static void (*OrigFileSearchProc)(); #else static XmSearchProc OrigDirSearchProc; /* Built in Motif directory search */ static XmSearchProc OrigFileSearchProc; /* Built in Motif file search proc */ #endif /* GetExistingFilename */ /* */ /* This routine will popup a file selection box so that the user can */ /* select an existing file from the scrollable list. The user is */ /* prevented from entering a new filename because the edittable text */ /* area of the file selection box widget is unmanaged. After the user */ /* selects a file, GetExistingFilename returns the selected filename and */ /* GFN_OK, indicating that the OK button was pressed. If the user */ /* pressed the cancel button, the return value is GFN_CANCEL, and the */ /* filename character string supplied in the call is not altered. */ /* */ /* Arguments: */ /* */ /* Widget parent - parent widget id */ /* char * promptString - prompt string */ /* char * filename - a string to receive the selected filename */ /* (this string will not be altered if the */ /* user pressed the cancel button) */ /* */ /* Returns: GFN_OK - file was selected and OK button pressed */ /* GFN_CANCEL - Cancel button pressed and no returned file */ /* */ int GetExistingFilename (Widget parent, char *promptString, char *filename) { int n; /* number of arguments */ Arg args[MAX_ARGS]; /* arg list */ Widget existFileSB; /* widget file select box */ XmString labelString; /* compound string for prompt label */ XmString titleString; /* compound string for dialog title */ n = 0; labelString = XmStringCreateSimple(promptString); titleString = XmStringCreateSimple(" "); XtSetArg(args[n], XmNlistLabelString, labelString); n++; XtSetArg(args[n], XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL); n++; XtSetArg(args[n], XmNdialogTitle, titleString); n++; XtSetArg(args[n], XmNresizePolicy, XmRESIZE_GROW); n++; existFileSB = XmCreateFileSelectionDialog(parent,"FileSelect",args,n); XmStringFree(labelString); XmStringFree(titleString); if (RemoveRedundantTextField) XtUnmanageChild(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_TEXT)); XtUnmanageChild(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_SELECTION_LABEL)); XtVaSetValues(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_FILTER_LABEL), XmNmnemonic, 'l', XmNuserData, XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_FILTER_TEXT), 0); XtVaSetValues(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_DIR_LIST_LABEL), XmNmnemonic, 'D', XmNuserData, XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_DIR_LIST), 0); XtVaSetValues(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_LIST_LABEL), XmNmnemonic, promptString[strspn(promptString, "lD")], XmNuserData, XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_LIST), 0); AddDialogMnemonicHandler(existFileSB); RemapDeleteKey(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_FILTER_TEXT)); RemapDeleteKey(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_TEXT)); return HandleCustomExistFileSB(existFileSB, filename); } /* ** HandleCustomExistFileSB ** ** Manage a customized file selection box for opening existing files. ** Use this if you want to change the standard file selection dialog ** from the defaults provided in GetExistingFilename, but still ** want take advantage of the button processing, help messages, and ** file checking of GetExistingFilename. ** ** Arguments: ** ** Widget existFileSB - your custom file selection box widget id ** char * filename - a string to receive the selected filename ** (this string will not be altered if the ** user pressed the cancel button) ** ** Returns: GFN_OK - file was selected and OK button pressed ** GFN_CANCEL - Cancel button pressed and no returned file ** */ int HandleCustomExistFileSB(Widget existFileSB, char *filename) { Boolean done_with_dialog=False; /* ok to destroy dialog flag */ char *fileString; /* C string for file selected */ XmString cFileString; /* compound string for file selected */ XmString cDir; /* compound directory selected */ XmString cPattern; /* compound filter pattern */ Widget help; /* help window form dialog */ int i; XtAddCallback(existFileSB, XmNokCallback, (XtCallbackProc)existOkCB, &done_with_dialog); XtAddCallback(existFileSB, XmNcancelCallback, (XtCallbackProc)existCancelCB, &done_with_dialog); help = createPanelHelp(existFileSB, HelpExist, "Selecting Files to Open"); createErrorDialog(existFileSB); XtAddCallback(existFileSB, XmNhelpCallback, (XtCallbackProc)existHelpCB, (char *)help); makeListTypeable(XmFileSelectionBoxGetChild(existFileSB,XmDIALOG_LIST)); makeListTypeable(XmFileSelectionBoxGetChild(existFileSB,XmDIALOG_DIR_LIST)); if (DefaultDirectory != NULL || DefaultPattern != NULL) XtVaSetValues(existFileSB, XmNdirectory, DefaultDirectory, XmNpattern, DefaultPattern, 0); #if XmVersion >= 1002 XtVaSetValues(existFileSB, XmNinitialFocus, XtParent( XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_LIST)), 0); #endif ManageDialogCenteredOnPointer(existFileSB); /* Typing in the directory list is dependent on the list being in the same form of alphabetical order expected by the character processing routines. As of about 1.2.3, some Motif libraries seem to have a different idea of ordering than is usual for Unix directories. To sort them properly, we have to patch the directory and file searching routines to re-sort the lists when they change */ XtVaGetValues(existFileSB, XmNdirSearchProc, &OrigDirSearchProc, XmNfileSearchProc, &OrigFileSearchProc, 0); XtVaSetValues(existFileSB, XmNdirSearchProc, replacementDirSearchProc, XmNfileSearchProc, replacementFileSearchProc, 0); sortWidgetList(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_DIR_LIST)); sortWidgetList(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_LIST)); #if XmVersion < 1002 /* To give file list initial focus, revoke default button status for the "OK" button. Dynamic defaulting will restore it as the default button after the keyboard focus is established. Note the voodoo below: calling XmProcess traversal extra times (a recommendation from OSF technical support) somehow succeedes in giving the file list focus */ XtVaSetValues(existFileSB, XmNdefaultButton, NULL, 0); for (i=1; i<30; i++) XmProcessTraversal(XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_LIST), XmTRAVERSE_CURRENT); #endif while (!done_with_dialog) XtAppProcessEvent(XtWidgetToApplicationContext(existFileSB), XtIMAll); if (SelectResult == GFN_OK) { XtVaGetValues(existFileSB, XmNdirSpec, &cFileString, XmNdirectory, &cDir, XmNpattern, &cPattern, 0); if (DefaultDirectory != NULL) XmStringFree(DefaultDirectory); if (DefaultPattern != NULL) XmStringFree(DefaultPattern); DefaultDirectory = XmStringCopy(cDir); DefaultPattern = XmStringCopy(cPattern); XmStringGetLtoR(cFileString, XmSTRING_DEFAULT_CHARSET, &fileString); strcpy(filename, fileString); } XtDestroyWidget(existFileSB); return SelectResult; } /* GetNewFilename */ /* */ /* This routine will popup a file selection box so that the user can */ /* select a file that will be, at a later time in the application, */ /* created and written to. After the user selects a file, GetNewFilename */ /* checks whether the file already exists, and if it does, asks the user */ /* if he/she wants to overwrite the file. Answering no, allows the user */ /* to select a new filename. GetNewFilename also checks that the file */ /* name specified by the user can be created, and allows re-entry if not. */ /* When the user presses the OK button to a filename satisying the above */ /* criteria, GetNewFilename returns the selected filename and GFN_OK. */ /* If the user presses the cancel button, the return value is GFN_CANCEL, */ /* and the filename character string supplied in the call is not altered. */ /* */ /* Arguments: */ /* */ /* Widget parent - parent widget id */ /* char * promptString - prompt string */ /* char * filename - a string to receive the selected filename */ /* (this string will not be altered if the */ /* user pressed the cancel button) */ /* */ /* Returns: GFN_OK - file was selected and OK button pressed */ /* GFN_CANCEL - Cancel button pressed and no returned file */ int GetNewFilename (Widget parent, char *promptString, char *filename) { int n; /* number of arguments */ Boolean done_with_dialog=False; /* ok to destroy dialog flag */ Arg args[MAX_ARGS]; /* arg list */ Widget newFileSB = NULL; /* widget file select box for */ Widget help; /* help window form dialog */ XmString labelString; /* compound string for prompt label */ XmString cFileString; /* compound string for file selected */ XmString cDir; /* compound directory selected */ XmString cPattern; /* compound filter pattern */ XmString titleString; /* compound string for dialog title */ char *fileString; /* C string for file selected */ int i; n = 0; labelString = XmStringCreateLtoR (promptString, XmSTRING_DEFAULT_CHARSET); titleString = XmStringCreateLtoR (" ", XmSTRING_DEFAULT_CHARSET); XtSetArg(args[n], XmNselectionLabelString, labelString); n++; #ifdef MOTIF10 XtSetArg(args[n], XmNdialogStyle, XmDIALOG_APPLICATION_MODAL); n++; #else XtSetArg(args[n], XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL); n++; #endif XtSetArg(args[n], XmNdialogTitle, titleString); n++; XtSetArg(args[n], XmNresizePolicy, XmRESIZE_GROW); n++; newFileSB=XmCreateFileSelectionDialog(parent,"FileSelect",args,n); XtAddCallback(newFileSB, XmNokCallback, (XtCallbackProc)newFileOKCB, &done_with_dialog); XtAddCallback(newFileSB, XmNcancelCallback, (XtCallbackProc)newFileCancelCB, &done_with_dialog); XtVaSetValues(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_FILTER_LABEL), XmNmnemonic, 'l', XmNuserData, XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_FILTER_TEXT), 0); XtVaSetValues(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_DIR_LIST_LABEL), XmNmnemonic, 'D', XmNuserData, XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_DIR_LIST), 0); XtVaSetValues(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_LIST_LABEL), XmNmnemonic, 'F', XmNuserData, XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_LIST), 0); XtVaSetValues(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_SELECTION_LABEL), XmNmnemonic, promptString[strspn(promptString, "lFD")], XmNuserData, XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_TEXT), 0); AddDialogMnemonicHandler(newFileSB); RemapDeleteKey(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_FILTER_TEXT)); RemapDeleteKey(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_TEXT)); makeListTypeable(XmFileSelectionBoxGetChild(newFileSB,XmDIALOG_LIST)); makeListTypeable(XmFileSelectionBoxGetChild(newFileSB,XmDIALOG_DIR_LIST)); if (DefaultDirectory != NULL || DefaultPattern != NULL) XtVaSetValues(newFileSB, XmNdirectory, DefaultDirectory, XmNpattern, DefaultPattern, 0); help = createPanelHelp(newFileSB, HelpNew, "Saving a File"); createYesNoDialog(newFileSB); createErrorDialog(newFileSB); XtAddCallback(newFileSB, XmNhelpCallback, (XtCallbackProc)newHelpCB, (char *)help); XmStringFree(labelString); XmStringFree(titleString); #if XmVersion >= 1002 XtVaSetValues(newFileSB, XmNinitialFocus, XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_TEXT), 0); #endif ManageDialogCenteredOnPointer(newFileSB); #if XmVersion < 1002 /* To give filename text initial focus, revoke default button status for the "OK" button. Dynamic defaulting will restore it as the default button after the keyboard focus is established. Note the voodoo below: calling XmProcess traversal FOUR times (a recommendation from OSF technical support) somehow succeedes in changing the focus */ XtVaSetValues(newFileSB, XmNdefaultButton, NULL, 0); for (i=1; i<30; i++) XmProcessTraversal(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_TEXT), XmTRAVERSE_CURRENT); #endif /* Typing in the directory list is dependent on the list being in the same form of alphabetical order expected by the character processing routines. As of about 1.2.3, some Motif libraries seem to have a different idea of ordering than is usual for Unix directories. To sort them properly, we have to patch the directory and file searching routines to re-sort the lists when they change */ XtVaGetValues(newFileSB, XmNdirSearchProc, &OrigDirSearchProc, XmNfileSearchProc, &OrigFileSearchProc, 0); XtVaSetValues(newFileSB, XmNdirSearchProc, replacementDirSearchProc, XmNfileSearchProc, replacementFileSearchProc, 0); sortWidgetList(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_DIR_LIST)); sortWidgetList(XmFileSelectionBoxGetChild(newFileSB, XmDIALOG_LIST)); while (!done_with_dialog) XtAppProcessEvent (XtWidgetToApplicationContext(newFileSB), XtIMAll); if (SelectResult == GFN_OK) { XtVaGetValues(newFileSB, XmNdirSpec, &cFileString, XmNdirectory, &cDir, XmNpattern, &cPattern, 0); if (DefaultDirectory != NULL) XmStringFree(DefaultDirectory); if (DefaultPattern != NULL) XmStringFree(DefaultPattern); DefaultDirectory = XmStringCopy(cDir); DefaultPattern = XmStringCopy(cPattern); XmStringGetLtoR(cFileString, XmSTRING_DEFAULT_CHARSET, &fileString); strcpy(filename, fileString); } XtDestroyWidget(newFileSB); return SelectResult; } /* ** Return current default directory used by GetExistingFilename and ** GetNewFilename. Can return NULL if no default directory has been set ** (meaning use the application's current working directory) String must ** be freed by the caller using XtFree. */ char *GetFileDialogDefaultDirectory(void) { char *string; if (DefaultDirectory == NULL) return NULL; XmStringGetLtoR(DefaultDirectory, XmSTRING_DEFAULT_CHARSET, &string); return string; } /* ** Return current default match pattern used by GetExistingFilename and ** GetNewFilename. Can return NULL if no default pattern has been set ** (meaning use a pattern matching all files in the directory) String must ** be freed by the caller using XtFree. */ char *GetFileDialogDefaultPattern(void) { char *string; if (DefaultPattern == NULL) return NULL; XmStringGetLtoR(DefaultPattern, XmSTRING_DEFAULT_CHARSET, &string); return string; } /* ** Set the current default directory to be used by GetExistingFilename and ** GetNewFilename. "dir" can be passed as NULL to clear the current default ** directory and use the application's working directory instead. */ void SetFileDialogDefaultDirectory(char *dir) { if (DefaultDirectory != NULL) XmStringFree(DefaultDirectory); DefaultDirectory = dir==NULL ? NULL : XmStringCreateSimple(dir); } /* ** Set the current default match pattern to be used by GetExistingFilename and ** GetNewFilename. "pattern" can be passed as NULL as the equivalent a pattern ** matching all files in the directory. */ void SetFileDialogDefaultPattern(char *pattern) { if (DefaultPattern != NULL) XmStringFree(DefaultPattern); DefaultPattern = pattern==NULL ? NULL : XmStringCreateSimple(pattern); } void SetGetExistingFilenameTextFieldRemoval(int state) { RemoveRedundantTextField = state; } /* ** createYesNoDialog, createErrorDialog, doYesNoDialog, doErrorDialog ** ** Error Messages and question dialogs to be used with the file selection ** box. Due to a crash bug in Motif 1.1.1 thru (at least) 1.1.5 ** getfiles can not use DialogF. According to OSF, there is an error ** in the creation of pushButtonGadgets involving the creation and ** destruction of some sort of temporary object. These routines create ** the dialogs along with the file selection dialog and manage them ** to display messages. This somehow avoids the problem */ static void createYesNoDialog(Widget parent) { XmString buttonString; /* compound string for dialog buttons */ int n; /* number of arguments */ Arg args[MAX_ARGS]; /* arg list */ n = 0; #ifdef MOTIF10 XtSetArg(args[n], XmNdialogStyle, XmDIALOG_APPLICATION_MODAL); n++; #else XtSetArg(args[n], XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL); n++; #endif XtSetArg(args[n], XmNtitle, " "); n++; YesNoDialog = XmCreateQuestionDialog(parent, "yesNo", args, n); XtAddCallback (YesNoDialog, XmNokCallback, (XtCallbackProc)yesNoOKCB, NULL); XtAddCallback (YesNoDialog, XmNcancelCallback, (XtCallbackProc)yesNoCancelCB, NULL); XtUnmanageChild(XmMessageBoxGetChild (YesNoDialog, XmDIALOG_HELP_BUTTON)); buttonString = XmStringCreateSimple("Yes"); SET_ONE_RSRC(YesNoDialog, XmNokLabelString, buttonString); XmStringFree(buttonString); buttonString = XmStringCreateSimple("No"); SET_ONE_RSRC(YesNoDialog, XmNcancelLabelString, buttonString); XmStringFree(buttonString); } static void createErrorDialog(Widget parent) { XmString buttonString; /* compound string for dialog button */ int n; /* number of arguments */ Arg args[MAX_ARGS]; /* arg list */ n = 0; #ifdef MOTIF10 XtSetArg(args[n], XmNdialogStyle, XmDIALOG_APPLICATION_MODAL); n++; #else XtSetArg(args[n], XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL); n++; #endif XtSetArg(args[n], XmNtitle, " "); n++; ErrorDialog = XmCreateErrorDialog(parent, "error", args, n); XtAddCallback(ErrorDialog, XmNcancelCallback, (XtCallbackProc)errorOKCB, NULL); XtUnmanageChild(XmMessageBoxGetChild(ErrorDialog, XmDIALOG_OK_BUTTON)); XtUnmanageChild(XmMessageBoxGetChild(ErrorDialog, XmDIALOG_HELP_BUTTON)); buttonString = XmStringCreateLtoR ("Dismiss", XmSTRING_DEFAULT_CHARSET); XtVaSetValues(ErrorDialog, XmNcancelLabelString, buttonString, 0); XmStringFree(buttonString); } static int doYesNoDialog(char *filename) { char string[255]; XmString mString; YesNoResult = ynNone; sprintf(string, "File %s already exists,\nOk to overwrite?", filename); mString = XmStringCreateLtoR(string, XmSTRING_DEFAULT_CHARSET); SET_ONE_RSRC(YesNoDialog, XmNmessageString, mString); XmStringFree(mString); ManageDialogCenteredOnPointer(YesNoDialog); while (YesNoResult == ynNone) XtAppProcessEvent(XtWidgetToApplicationContext(YesNoDialog), XtIMAll); XtUnmanageChild(YesNoDialog); /* Nasty motif bug here, patched around by waiting for a ReparentNotify event (with timeout) before allowing file selection dialog to pop down. If this routine returns too quickly, and the file selection dialog (and thereby, this dialog as well) are destroyed while X is still sorting through the events generated by the pop-down, something bad happens and we get a crash */ if (YesNoResult == ynYes) PopDownBugPatch(YesNoDialog); return YesNoResult == ynYes; } static void doErrorDialog(char *errorString, char *filename) { char string[255]; XmString mString; ErrorDone = False; sprintf(string, errorString, filename); mString = XmStringCreateLtoR(string, XmSTRING_DEFAULT_CHARSET); SET_ONE_RSRC(ErrorDialog, XmNmessageString, mString); XmStringFree(mString); ManageDialogCenteredOnPointer(ErrorDialog); while (!ErrorDone) XtAppProcessEvent (XtWidgetToApplicationContext(ErrorDialog), XtIMAll); XtUnmanageChild(ErrorDialog); } static void newFileOKCB(Widget w, Boolean *client_data, XmFileSelectionBoxCallbackStruct *call_data) { char *filename; /* name of chosen file */ int fd; /* file descriptor */ int length; /* length of file name */ int response; /* response to dialog */ struct stat buf; /* status from fstat */ XmStringGetLtoR(call_data->value, XmSTRING_DEFAULT_CHARSET, &filename); SelectResult = GFN_OK; length = strlen(filename); if (length == 0 || filename[length-1] == '/') { doErrorDialog("Please supply a name for the file", NULL); return; } #ifdef VMS if (strchr(filename,';') && (fd = open(filename, O_RDONLY, 0)) != -1) { #else /* not VMS*/ if ((fd = open(filename, O_RDONLY, 0)) != -1) { /* exists */ #endif /*VMS*/ fstat(fd, &buf); close(fd); if (buf.st_mode & S_IFDIR) { doErrorDialog("Error: %s is a directory", filename); return; } response = doYesNoDialog(filename); #ifdef VMS if (response) { if (access(filename, 2) != 0) { /* have write/delete access? */ doErrorDialog("Error: can't overwrite %s ", filename); XtFree(filename); return; } } else { #else if (!response) { #endif /*VMS*/ return; } } else { if ((fd = creat(filename, PERMS)) == -1) { doErrorDialog("Error: can't create %s ", filename); return; } else { close(fd); remove(filename); } } *client_data = True; /* done with dialog */ } static void newFileCancelCB(Widget w, Boolean *client_data, caddr_t call_data) { SelectResult = GFN_CANCEL; *client_data = True; } static void newHelpCB(Widget w, Widget helpPanel, caddr_t call_data) { ManageDialogCenteredOnPointer(helpPanel); } static void existOkCB(Widget w, Boolean * client_data, XmFileSelectionBoxCallbackStruct *call_data) { char *filename; /* name of chosen file */ int fd; /* file descriptor */ int length; /* length of file name */ XmStringGetLtoR(call_data->value, XmSTRING_DEFAULT_CHARSET, &filename); SelectResult = GFN_OK; length = strlen(filename); if (length == 0 || filename[length-1] == '/') { doErrorDialog("Please select a file to open", NULL); XtFree(filename); return; } else if ((fd = open(filename, O_RDONLY,0)) == -1) { doErrorDialog("Error: can't open %s ", filename); XtFree(filename); return; } else close(fd); XtFree(filename); *client_data = True; /* done with dialog */ } static void existCancelCB(Widget w, Boolean * client_data, caddr_t call_data) { SelectResult = GFN_CANCEL; *client_data = True; /* done with dialog */ } static void yesNoOKCB(Widget w, caddr_t client_data, caddr_t call_data) { YesNoResult = ynYes; } static void existHelpCB(Widget w, Widget helpPanel, caddr_t call_data) { ManageDialogCenteredOnPointer(helpPanel); } static void errorOKCB(Widget w, caddr_t client_data, caddr_t call_data) { ErrorDone = True; } static void yesNoCancelCB(Widget w, caddr_t client_data, caddr_t call_data) { YesNoResult = ynNo; } static Widget createPanelHelp(Widget parent, char *helpText, char *title) { Arg al[50]; int ac; Widget form, text, button; XmString st1; ac = 0; form = XmCreateFormDialog(parent, "helpForm", al, ac); #ifndef MOTIF10 ac = 0; XtSetArg (al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++; XtSetArg (al[ac], XmNtopAttachment, XmATTACH_NONE); ac++; XtSetArg(al[ac], XmNlabelString, st1=XmStringCreateLtoR ("Dismiss", XmSTRING_DEFAULT_CHARSET)); ac++; button = XmCreatePushButtonGadget(form, "dismiss", al, ac); XtAddCallback(button, XmNactivateCallback, (XtCallbackProc)helpDismissCB, (char *)form); XmStringFree(st1); XtManageChild(button); SET_ONE_RSRC(form, XmNdefaultButton, button); #endif ac = 0; XtSetArg(al[ac], XmNrows, 15); ac++; XtSetArg(al[ac], XmNcolumns, 60); ac++; XtSetArg(al[ac], XmNresizeHeight, False); ac++; XtSetArg(al[ac], XmNtraversalOn, False); ac++; XtSetArg(al[ac], XmNwordWrap, True); ac++; XtSetArg(al[ac], XmNscrollHorizontal, False); ac++; XtSetArg(al[ac], XmNeditMode, XmMULTI_LINE_EDIT); ac++; XtSetArg(al[ac], XmNeditable, False); ac++; XtSetArg(al[ac], XmNvalue, helpText); ac++; #ifndef MOTIF10 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++; XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++; XtSetArg(al[ac], XmNbottomAttachment, XmATTACH_WIDGET); ac++; XtSetArg(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++; XtSetArg(al[ac], XmNbottomWidget, button); ac++; #endif text = XmCreateScrolledText(form, "helpText", al, ac); XtManageChild(text); SET_ONE_RSRC(XtParent(form), XmNtitle, title); return form; } static void helpDismissCB(Widget w, Widget helpPanel, caddr_t call_data) { XtUnmanageChild(helpPanel); } /* ** Add ability for user to type filenames to a list widget */ static void makeListTypeable(Widget listW) { static XtActionsRec actionTable[] = {"file-list-typein", (XtActionProc)listCharCB}; static XtTranslations translationTable = NULL; static char *translations = " ~Ctrl ~Meta ~Alt : file-list-typein()\n"; /* The first time through, compile translations and register actions */ if (translationTable == NULL) { XtAppAddActions(XtWidgetToApplicationContext(listW), actionTable, 1); translationTable = XtParseTranslationTable(translations); } /* Add new translations to widget, leaving existing translations intact */ XtAugmentTranslations(listW, translationTable); } /* ** Action procedure for processing characters typed in a list, finds the ** first item matching the characters typed so far. */ static void listCharCB(Widget w, XEvent *event, String *params, Cardinal n) { char charString[5], c, *itemString; int nChars, nItems, i, cmp, selectPos, topPos, nVisible; XmString *items; KeySym kSym; char name[MAXPATHLEN], path[MAXPATHLEN]; static char keystrokes[MAX_LIST_KEYSTROKES]; static int nKeystrokes = 0; static Time lastKeyTime = 0; /* Get the ascii character code represented by the event */ nChars = XLookupString((XKeyEvent *)event, charString, sizeof(charString), &kSym, NULL); c = charString[0]; /* Process selected control keys, but otherwise ignore the keystroke if it isn't a single printable ascii character */ if (kSym==XK_BackSpace || kSym==XK_Delete) { nKeystrokes = nKeystrokes > 0 ? nKeystrokes-1 : 0; return; } else if (kSym==XK_Clear || kSym==XK_Escape || kSym==XK_Cancel || kSym==XK_Break) { nKeystrokes = 0; return; } else if (nChars!=1 || c<0x021 || c>0x07e) return; /* Throw out keystrokes and start keystroke accumulation over from scratch if user waits more than MAX_LIST_KESTROKE_WAIT milliseconds */ if (((XKeyEvent *)event)->time - lastKeyTime > MAX_LIST_KESTROKE_WAIT) nKeystrokes = 0; lastKeyTime = ((XKeyEvent *)event)->time; /* Accumulate the current keystroke, just beep if there are too many */ if (nKeystrokes >= MAX_LIST_KEYSTROKES) XBell(XtDisplay(w), 100); else #ifdef VMS keystrokes[nKeystrokes++] = toupper(c); #else keystrokes[nKeystrokes++] = c; #endif /* Get the items (filenames) in the list widget */ XtVaGetValues(w, XmNitems, &items, XmNitemCount, &nItems, 0); /* compare them with the accumulated user keystrokes & decide the appropriate line in the list widget to select */ selectPos = 0; for (i=0; i 0) { selectPos = i; break; } } /* Make the selection, and make sure it will be visible */ XmListSelectPos(w, selectPos, True); if (selectPos == 0) /* XmListSelectPos curiously returns 0 for last item */ selectPos = nItems + 1; XtVaGetValues(w, XmNtopItemPosition, &topPos, XmNvisibleItemCount, &nVisible, 0); if (selectPos < topPos) XmListSetPos(w, selectPos-2 > 1 ? selectPos-2 : 1); else if (selectPos > topPos+nVisible-1) XmListSetBottomPos(w, selectPos+2 <= nItems ? selectPos+2 : 0); } /* ** Replacement directory and file search procedures for the file selection ** box to re-sort the items in a standard order. This is a patch, and not ** a very good one, for the problem that in some Motif versions, the directory ** list is sorted differently, such that typing of filenames fails because ** it expects strcmp alphabetical order, as opposed to strcasecmp. Most ** users prefer the old ordering, which is what this enforces, but if ** ifdefs can be found that will correctly predict the ordering and adjust ** listCharCB above, instead of resorting to re-sorting, it should be done. ** This obviously wastes valuable time as the selection box is popping up ** and should be removed. These routines also leak memory like a seive, ** because Motif's inconsistent treatment of memory in list widgets does ** not allow us to free lists that we pass in, and most Motif versions ** don't clean it up properly. */ static void replacementDirSearchProc(Widget w, XtPointer searchData) { Boolean updated; /* Call the original search procedure to do the actual search */ (*OrigDirSearchProc)(w, searchData); XtVaGetValues(w, XmNlistUpdated, &updated, 0); if (!updated) return; /* Sort the items in the list */ sortWidgetList(XmFileSelectionBoxGetChild(w, XmDIALOG_DIR_LIST)); } static void replacementFileSearchProc(Widget w, XtPointer searchData) { Boolean updated; /* Call the original search procedure to do the actual search */ (*OrigFileSearchProc)(w, searchData); XtVaGetValues(w, XmNlistUpdated, &updated, 0); if (!updated) return; /* Sort the items in the list */ sortWidgetList(XmFileSelectionBoxGetChild(w, XmDIALOG_LIST)); } /* ** Sort the items in a list widget "listWidget" */ static void sortWidgetList(Widget listWidget) { XmString *items, *sortedItems; int nItems, i; XtVaGetValues(listWidget, XmNitems, &items, XmNitemCount, &nItems, 0); sortedItems = (XmString *)XtMalloc(sizeof(XmString) * nItems); for (i=0; i