/****************************************************************************** * * * 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.26 1/18/95"; #include #include #include #ifdef VMS #include #include #include "VMSparam.h" #else #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; /* 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 int SelectResult = GFN_CANCEL; /* Initialize results as cancel */ static Widget YesNoDialog; /* "Overwrite?" dialog widget */ int YesNoResult; /* Result of overwrite dialog */ static Widget ErrorDialog; /* Dialog widget for error msgs */ int ErrorDone; /* Flag to mark dialog completed */ /* 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++; existFileSB = XmCreateFileSelectionDialog(parent,"FileSelect",args,n); XmStringFree(labelString); XmStringFree(titleString); 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)); 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) XtVaSetValues(existFileSB, XmNdirectory, DefaultDirectory, XmNpattern, DefaultPattern, 0); #if XmVersion >= 1002 XtVaSetValues(existFileSB, XmNinitialFocus, XtParent( XmFileSelectionBoxGetChild(existFileSB, XmDIALOG_LIST)), 0); #endif ManageDialogCenteredOnPointer(existFileSB); #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++; 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) 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 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; } /* ** 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, XmNokCallback, (XtCallbackProc)errorOKCB, NULL); XtUnmanageChild(XmMessageBoxGetChild(ErrorDialog, XmDIALOG_CANCEL_BUTTON)); XtUnmanageChild(XmMessageBoxGetChild(ErrorDialog, XmDIALOG_HELP_BUTTON)); buttonString = XmStringCreateLtoR ("Acknowleged", XmSTRING_DEFAULT_CHARSET); SET_ONE_RSRC(ErrorDialog, XmNokLabelString, buttonString); 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); } 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); }