CDE/cde/programs/dtpad/fileDlg.c

/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these libraries and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
/* $TOG: fileDlg.c /main/8 1999/09/15 15:15:56 mgreess $ */
/**********************************<+>*************************************
***************************************************************************
**
**  File:        fileDlg.c
**
**  Project:     DT dtpad, a memo maker type editor based on the Dt Editor
**               widget.
**
**  Description:  Routines which manipulate the dialogs associated with
**                operations in the File menu.
**  -----------
**
*******************************************************************
**  (c) Copyright Hewlett-Packard Company, 1990, 1991, 1992.  All rights are
**  reserved.  Copying or other reproduction of this program
**  except for archival purposes is prohibited without prior
**  written consent of Hewlett-Packard Company.
********************************************************************
**
*******************************************************************
**  (c) Copyright 1993, 1994 Hewlett-Packard Company
**  (c) Copyright 1993, 1994 International Business Machines Corp.
**  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
**  (c) Copyright 1993, 1994 Novell, Inc.
********************************************************************
**
**
**************************************************************************
**********************************<+>*************************************/
#include "dtpad.h"
#include <Xm/DialogS.h>
#include <Xm/Form.h>
#include <Xm/FileSB.h>
#include <Xm/Separator.h>
#include <Xm/MwmUtil.h>
#include <Dt/HourGlass.h>

#define MAX_DIR_PATH_LEN    1024

#define SAVE_CH ((char *)GETMESSAGE(5, 1, "Save changes to %s?"))
#define SAVE_CH_NONAME ((char *)GETMESSAGE(5, 2, "The current file has no name.\nDo you want to save it?"))
#define SAVE_CH_BUF ((char *)GETMESSAGE(5, 40, "Save changes?"))
#define SAVE_CH_DOC ((char *)GETMESSAGE(5, 41, "Save changes to \"%s?\""))
#define SAVE_DROP  ((char *)GETMESSAGE(5, 3, "Do you want to save the current copy of %s\nbefore you Edit %s?"))
#define MSG1 ((char *)GETMESSAGE(5, 5, "The file %s already exists.\nDo you want to over write that file\nwith the contents within this edit session? "))


/************************************************************************
 *			Forward Declarations
 ************************************************************************/
static void CreateFileSelectionDialog(
	Editor *pPad );
static void CreateSaveWarning(
	Editor *pPad );


/************************************************************************
 *  PostAlreadyExistsDlg - Setup and post dialog to determine whether
 *	the user wishes to clobber existing file or try saving it under a
 *	new name.
 *
 *	Inputs:	pPad->fileStuff.savingName - name of file to save
 ************************************************************************/
void
PostAlreadyExistsDlg(
	Editor *pPad)
{
    Arg args[10];
    int n;
    char *tmpMess;
    XmString tmpMessStr;
    SaveAs *pSaveAs = &pPad->fileStuff.fileWidgets.saveAs;

    /* create the dialog if it is the first time */
    if (!pSaveAs->alrdy_exist)
    {
	Pixel foreground;	/* dialog foreground */
	Pixel background;	/* dialog background */
	Pixmap pixmap;		/* dialog pixmap */
	XmString tempStr, tempStr2;
	char buf[256];

	n = 0;
	strcpy(buf, DialogTitle(pPad));
	strcat(buf, (char *)GETMESSAGE(5, 6, "Warning"));
	tempStr = XmStringCreateLocalized(buf);
	XtSetArg(args[n], XmNdialogTitle, tempStr); n++;
	XtSetArg (args[n], XmNokLabelString,
                  XmStringCreateLocalized((String) _DtOkString));  n++;
	tempStr2 = XmStringCreateLocalized((char *)GETMESSAGE(2, 1, "Help"));
	XtSetArg (args[n], XmNhelpLabelString, tempStr2); n++;
	XtSetArg (args[n], XmNcancelLabelString,
                  XmStringCreateLocalized((String) _DtCancelString));  n++;
	pSaveAs->alrdy_exist = XmCreateMessageDialog (pPad->app_shell, "Warn",
						      args, n);
	XmStringFree(tempStr);
	XmStringFree(tempStr2);
	n=0;
	XtSetArg(args[n], XmNmwmInputMode,
		 MWM_INPUT_PRIMARY_APPLICATION_MODAL);n++;
	XtSetValues(XtParent(pSaveAs->alrdy_exist), args, n);


	n = 0;
	XtSetArg(args[n], XmNforeground, &foreground); n++;
	XtSetArg(args[n], XmNbackground, &background); n++;
	XtGetValues(pSaveAs->alrdy_exist, args, n);

	n = 0;
	pixmap = XmGetPixmap(XtScreen(pSaveAs->alrdy_exist), "warn_image",
					foreground, background);
	XtSetArg(args[n], XmNsymbolPixmap, pixmap); n++;
	XtSetValues(pSaveAs->alrdy_exist, args, n);

	XtAddCallback (pSaveAs->alrdy_exist, XmNokCallback,
			(XtCallbackProc) AlrdyExistsOkCB,
			(XtPointer) pPad);
	XtAddCallback (pSaveAs->alrdy_exist, XmNcancelCallback,
			(XtCallbackProc) AlrdyExistsCancelCB,
			(XtPointer) pPad);
	XtAddCallback (pSaveAs->alrdy_exist, XmNhelpCallback,
			(XtCallbackProc) HelpFileAlreadyExistsCB,
			(XtPointer) pPad);

	XtRealizeWidget (pSaveAs->alrdy_exist);
    }

    tmpMess =
	(char *)XtMalloc(strlen(MSG1) + strlen(pPad->fileStuff.savingName) + 1);
    sprintf(tmpMess, MSG1, pPad->fileStuff.savingName);
    tmpMessStr = XmStringCreateLocalized(tmpMess);
    n = 0;
    XtSetArg(args[n], XmNmessageString, tmpMessStr); n++;
    XtSetValues(pSaveAs->alrdy_exist, args, n);
    XtFree(tmpMess);
    XmStringFree(tmpMessStr);

    XtManageChild (pSaveAs->alrdy_exist);

}


/************************************************************************
 * SetSaveAsDirAndFile - Seeds the directory and file name fields of
 *	the SaveAs File Selection Box.
 *
 *    The possibilities for an initial directory are:
 *
 *	1.  The user's previously entered path.
 *	2.  We're editing a file, so use its path.
 *	3.  Use the CWD of our process.
 *
 ************************************************************************/
void
SetSaveAsDirAndFile(Editor *pPad)
{
    char dirbuf[MAX_DIR_PATH_LEN], *currentVal, *directoryVal,
	 *lastSlash, *pColon;
    int firstSelect = -1, lastSelect = -1;
    Widget textField;
    Arg args[5];
    int n;
    XmString dirString;
    dirbuf[0] = (char) '\0';

    /* -----> Get the file name field from the previous SaveAs FSB.
     *        XXX - Should use GetValues to get XmNdirSpec. */
    textField = XmFileSelectionBoxGetChild(
			pPad->fileStuff.fileWidgets.saveAs.saveAs_form,
			XmDIALOG_TEXT);
    currentVal = XmTextFieldGetString(textField);

    /* -----> If the user previously entered a file name via the SaveAs FSB,
     *        use its values. */
    if (currentVal != (char *)NULL && *currentVal != (char)'\0') {
	/* -----> If the file name begins with '/', it has a pathname and we
	 *	  can use it for the initial directory */
	if ( currentVal[0] == '/' ) {
	    strcpy(dirbuf, currentVal);
	    /* Trim off everything behind the last slash */
	    if ((lastSlash = MbStrrchr(dirbuf, '/')) != (char *)NULL) {
		*(lastSlash + 1) = (char)'\0';
	    }
	} else {
	    /* -----> The filename does not have a directory, so use the value
	     *        from the directory field. */
	    n=0;
	    XtSetArg( args[n], XmNdirectory, &dirString ); n++;
	    XtGetValues(pPad->fileStuff.fileWidgets.saveAs.saveAs_form, args, n);
	    directoryVal = (char *) XtMalloc( sizeof(char) *
					 (MAX_DIR_PATH_LEN + 1) );
	    XmStringGetLtoR( dirString, XmFONTLIST_DEFAULT_TAG, &directoryVal );
	    strcpy(dirbuf, directoryVal);
	    XmStringFree(dirString);
	    XtFree( directoryVal );
	}
	XtFree (currentVal);
    /* -----> No file name was not previously entered via a SaveAs FSB so use
     *        other defaults. */
    } else {
	if (pPad->fileStuff.pathDir[0] != (char)'\0')
	    strcpy(dirbuf, pPad->fileStuff.pathDir);
	/* -----> make sure dir ends in '/' */
	if (dirbuf[0] != (char )'\0') {
	    if (strlen(dirbuf) && dirbuf[strlen(dirbuf) - 1] != (char)'/')
		  strcat(dirbuf, "/");
	} else {
	    getcwd(dirbuf, MAX_DIR_PATH_LEN - 16);
	    strcat(dirbuf, "/");
	}
    }

    /* -----> set the SaveAs FSB directory mask */
    firstSelect = strlen(dirbuf);
    strcat(dirbuf, "[^.]*");
    dirString = XmStringCreateLocalized(dirbuf);
    n = 0;
    XtSetArg(args[n], XmNdirMask, dirString); n++;
    XtSetValues(pPad->fileStuff.fileWidgets.saveAs.saveAs_form, args, n);
    XmStringFree(dirString);
    dirbuf[firstSelect] = (char)'\0';

    /* -----> set the default file name and select it */
    strcpy(dirbuf, GETMESSAGE(5, 21, "UNTITLED"));
    lastSelect = strlen(dirbuf);
    XmTextFieldSetString(textField, dirbuf);
    XmTextFieldSetSelection(textField, 0, lastSelect, CurrentTime);
}


/************************************************************************
 * CreateNewLineToggles - used by CreateSaveAsDialog and CreateSaveWarning
 *	to create a radio box within 'parent' with two toggle buttons
 *	for adding or not adding new lines if word wrap	mode is on.
 ************************************************************************/
static void
CreateNewLineToggles(
	Editor *pPad,
	Widget parent,
	ToggleWidgets *pToggleWidgets)
{
    Arg args[20];
    int n;
    XmString label_string;

    /* -----> Create Radio Box */
    n = 0;
    XtSetArg(args[n], XmNshadowThickness, 0);			n++;
    XtSetArg(args[n], XmNtraversalOn, True);			n++;
    XtSetArg(args[n], XmNorientation, XmVERTICAL );		n++;
    pToggleWidgets->newl_radio = XmCreateRadioBox(parent, "radioBox",
						args, n);

    /* -----> Create the toggle button for adding newlines. */
    label_string = XmStringCreateLocalized(((char *)GETMESSAGE(5, 44,
		"Add newline characters to the end of wrap-to-fit lines.")));
    n = 0;
    XtSetArg(args[n], XmNshadowThickness, 0);			n++;
    XtSetArg(args[n], XmNlabelString, label_string);		n++;
    pToggleWidgets->with_newl = XmCreateToggleButtonGadget(
					pToggleWidgets->newl_radio,
					"with_nl", args, n);
    XmStringFree(label_string);
    XtAddCallback(pToggleWidgets->with_newl, XmNvalueChangedCallback,
			SaveNewLinesCB, (XtPointer) pPad);
    XtManageChild(pToggleWidgets->with_newl);

    /* -----> Create the toggle button for not adding newlines. */
    label_string = XmStringCreateLocalized(((char *)GETMESSAGE(5, 45,
"Do not add newlines.  Only line breaks created by [Return]\nwill be preserved.")));
    n = 0;
    XtSetArg(args[n], XmNshadowThickness, 0);			n++;
    XtSetArg(args[n], XmNlabelString, label_string); n++;
    pToggleWidgets->without_newl = XmCreateToggleButtonGadget(
					pToggleWidgets->newl_radio,
					"without_nl", args, n);
    XmStringFree(label_string);
    XtAddCallback(pToggleWidgets->without_newl, XmNvalueChangedCallback,
			SaveNewLinesCB, (XtPointer) pPad);
    XtManageChild(pToggleWidgets->without_newl);

    /* -----> Set the default to add newlines (if wordwrap is on) */
    pPad->fileStuff.saveWithNewlines = True;
    XmToggleButtonGadgetSetState(pToggleWidgets->with_newl, True, False);

    /* -----> Display the radio box containing the two toggle buttons only
     *        if wordwrap is on */
    if (pPad->xrdb.wordWrap == True)
	XtManageChild(pToggleWidgets->newl_radio);

}


/************************************************************************
 * CreateSaveAsDialog
 ************************************************************************/
void
CreateSaveAsDialog(Editor *pPad)
{
    Arg args[20];
    int n;
    XmString label_string;
    char buf[256];
    SaveAs *pSaveAs = &pPad->fileStuff.fileWidgets.saveAs;

    _DtTurnOnHourGlass(pPad->app_shell);

    /* -----> Create the FileSelectionDialog */
    strcpy(buf, DialogTitle(pPad));
    if (pPad->xrdb.nameChange) {
	strcat(buf, (char *)GETMESSAGE(5, 7, "Save As"));
    } else {
	strcat(buf, (char *)GETMESSAGE(5, 43, "Copy To File"));
    }
    label_string = XmStringCreateLocalized(buf);
    n = 0;
    XtSetArg(args[n], XmNdialogTitle, label_string); n++;
    XtSetArg(args[n], XmNmwmFunctions, MWM_FUNC_MOVE | MWM_FUNC_CLOSE);  n++;
    XtSetArg(args[n], XmNmwmDecorations, MWM_DECOR_BORDER | MWM_DECOR_TITLE);
    n++;
    XtSetArg (args[n], XmNallowShellResize, False);              n++;
    pSaveAs->saveAs_form = XmCreateFileSelectionDialog(pPad->app_shell,
							"save_dialog", args, n);
    XmStringFree(label_string);

    /* -----> Add the FSB cancel, ok, and help callbacks */
    XtAddCallback(pSaveAs->saveAs_form,
			XmNcancelCallback,
			(XtCallbackProc) SaveAsCancelCB,
			(XtPointer) pPad);
    XtAddCallback(pSaveAs->saveAs_form,
			XmNokCallback,
			(XtCallbackProc) SaveAsOkCB,
			(XtPointer) pPad);
    XtAddCallback(pSaveAs->saveAs_form,
			XmNhelpCallback,
			(XtCallbackProc)HelpSaveAsDialogCB,
		 	(XtPointer) pPad);

    /* ----->  Don't show the filter stuff when saving
     *XtUnmanageChild(XmFileSelectionBoxGetChild(pSaveAs->saveAs_form,
     *						XmDIALOG_FILTER_TEXT));
     *XtUnmanageChild(XmFileSelectionBoxGetChild(pSaveAs->saveAs_form,
     *						XmDIALOG_FILTER_LABEL));
     */

    /* -----> Set the useAsyncGeo on the shell */
    n = 0;
    XtSetArg(args[n], XmNuseAsyncGeometry, True); n++;
    XtSetValues (pPad->app_shell, args, n);

    /* -----> Set the ok button to the default for the bulletin board.
     *        This causes the return key from the text widget to be properly
     *        processed. */
    XtSetArg(args[0], XmNdefaultButton,
		XmFileSelectionBoxGetChild(pSaveAs->saveAs_form,
		XmDIALOG_OK_BUTTON));
    XtSetValues (pSaveAs->saveAs_form, args, 1);

    /* -----> Create a radio box with two toggle buttons for either adding
     *        or not adding new lines if word wrap mode is on. */
    CreateNewLineToggles(pPad,
			pSaveAs->saveAs_form,		/* parent widget */
			&pSaveAs->toggleWidgets);	/* new widgets */

    _DtTurnOffHourGlass(pPad->app_shell);
}


/************************************************************************
 * ExtractAndStoreDir - extracts the directory from the specified
 *	/dir/filename and stores it in pPad->fileStuff.pathDir.
 ************************************************************************/
void
ExtractAndStoreDir(
	Editor *pPad,
	char *fileName,
        short type)
{
    char *pFirstSlash, *pLastSlash;

    pFirstSlash = MbStrchr(fileName, '/');
    if(type == OPEN) {
       if (pFirstSlash != (char *)NULL) {
	   pLastSlash = MbStrrchr(fileName, '/');
	   strncpy(pPad->fileStuff.pathDir, pFirstSlash,
		   pLastSlash - pFirstSlash + 1);
	   pPad->fileStuff.pathDir[pLastSlash - pFirstSlash + 1] = '\0';
       }
    }
    else {
       if (pFirstSlash != (char *)NULL) {
	   pLastSlash = MbStrrchr(fileName, '/');
	   strncpy(pPad->fileStuff.includePathDir, pFirstSlash,
		   pLastSlash - pFirstSlash + 1);
	   pPad->fileStuff.includePathDir[pLastSlash - pFirstSlash + 1] = '\0';
           if(pPad->fileStuff.lastIncludeName != NULL)
              XtFree(pPad->fileStuff.lastIncludeName);
           pLastSlash++;
           pPad->fileStuff.lastIncludeName = XtNewString(pLastSlash);
       }
    }

}


/************************************************************************
 *  GetFileName - Ask for a file name via an Xm File Selection Box
 ************************************************************************/
void
GetFileName(
	Editor *pPad,
	XmString title,
        short type)
{
    char dirbuf[MAX_DIR_PATH_LEN];
    Arg al[5];
    int ac;
    int firstSelect = -1;
    XmString dirString, tmpStr;
    Select *pSelect = &pPad->fileStuff.fileWidgets.select;
    FileStuff *pStuff = &pPad->fileStuff;

    dirbuf[0] = (char) '\0';

    _DtTurnOnHourGlass(pPad->app_shell);

    /* -----> create the FSB if it doesn't exits */
    if (pSelect->file_dialog == NULL) {
	CreateFileSelectionDialog(pPad);
    }

    /* Just in case, it was unmanaged */
    XtManageChild(pSelect->file_dialog);

    /* -----> set the FSB "ok" and "help" button callbacks */
    XtRemoveAllCallbacks(pSelect->file_dialog, XmNokCallback);
    XtAddCallback(pSelect->file_dialog, XmNokCallback,
			(XtCallbackProc) pStuff->pendingFileFunc,
			(XtPointer)pPad);
    pStuff->pendingFileFunc = (void(*)())NULL;
    XtRemoveAllCallbacks(pSelect->file_dialog, XmNhelpCallback);
    XtAddCallback(pSelect->file_dialog, XmNhelpCallback,
			(XtCallbackProc) pStuff->pendingFileHelpFunc,
			(XtPointer)pPad);
    pStuff->pendingFileHelpFunc = (void (*)())NULL;

    /* -----> seed FSB directory from either fileName */
    if(type == OPEN) {
       if (pStuff->pathDir[0] == (char)'\0') {
	   if (pStuff->fileName != NULL) {
               /* set pStuff->pathDir*/
	       ExtractAndStoreDir(pPad, pStuff->fileName, OPEN);
	   }
           else {
               if (pStuff->pathDir[0] != (char)'\0')
                   strcpy(dirbuf, pStuff->pathDir);
               /* -----> make sure dir ends in '/' */
               if (dirbuf[0] != (char )'\0') {
                   if (dirbuf[strlen(dirbuf) - 1] != (char)'/')
                       strcat(dirbuf, "/");
               } else {
                   getcwd(dirbuf, MAX_DIR_PATH_LEN - 16);
                   strcat(dirbuf, "/");
               }

               firstSelect = strlen(dirbuf);
               strcat(dirbuf, "[^.]*");
               dirString = XmStringCreateLocalized(dirbuf);
               ac = 0;
               XtSetArg(al[ac], XmNdirMask, dirString); ac++;
               XtSetValues(pStuff->fileWidgets.select.file_dialog, al, ac);
               XmStringFree(dirString);
           }
       }

       if (pStuff->pathDir[0] != (char)'\0') {
	   tmpStr = XmStringCreateLocalized(pStuff->pathDir);
	   XtSetArg(al[0], XmNdirectory, tmpStr);
	   XtSetValues(pSelect->file_dialog, al, 1);
	   XmStringFree(tmpStr);
       }
    }
    else {
       /* -----> seed FSB directory with include dir */
       if (pStuff->includePathDir[0] == (char)'\0') {
	   if (pStuff->fileName != (char *)NULL) {
               /* set pStuff->pathDir*/
	       ExtractAndStoreDir(pPad, pStuff->fileName, INCLUDE);
	   }
       }
       if (pStuff->includePathDir[0] != (char)'\0') {
	   tmpStr = XmStringCreateLocalized(pStuff->includePathDir);
	   XtSetArg(al[0], XmNdirectory, tmpStr);
	   XtSetValues(pSelect->file_dialog, al, 1);
	   XmStringFree(tmpStr);
       }
    }

    /* -----> find the seeded directory */
    /*XmFileSelectionDoSearch(pSelect->file_dialog, NULL);*/

    /* -----> set the FSB title (as passed in) */
    XtSetArg(al[0], XmNdialogTitle, title);
    XtSetValues(pSelect->file_dialog, al, 1);

    /* -----> delete the first entry from the list of dirs
     * if(!pPad->nodo) {
     *     XmListDeletePos(pSelect->dir_list, 1);
     * }
     */
    pPad->nodo = False;

    if(type == INCLUDE) {
       if(pStuff->lastIncludeName != NULL) {
          tmpStr = XmStringCreateLocalized(pStuff->lastIncludeName);
          XmListSelectItem(XmFileSelectionBoxGetChild(pSelect->file_dialog,
					XmDIALOG_LIST), tmpStr, False);
          XtSetArg(al[0], XmNtextString, tmpStr);
          XtSetValues(pSelect->file_dialog, al, 1);
	  XmStringFree(tmpStr);
       }
    }

    /* -----> manage the FSB */
    XtManageChild (pSelect->file_dialog);
    XmProcessTraversal(XmFileSelectionBoxGetChild(pSelect->file_dialog,
					XmDIALOG_TEXT), XmTRAVERSE_CURRENT);
    XSync(pPad->display, 0);

    _DtTurnOffHourGlass(pPad->app_shell);
}


/************************************************************************
 * CreateFileSelectionDialog -
 ************************************************************************/
static void
CreateFileSelectionDialog(
        Editor *pPad )
{
    Arg al[10];             /* arg list */
    int ac;        /* arg count */
    XmString tmpStr;
    Select *pSelect = &pPad->fileStuff.fileWidgets.select;

    ac = 0;
    tmpStr = XmStringCreateLocalized((char *)GETMESSAGE(2, 1, "Help"));
    XtSetArg (al[ac], XmNhelpLabelString, tmpStr);	ac++;

    pSelect->file_dialog = XmCreateFileSelectionDialog(pPad->app_shell,
					"file_sel_dlg", al, ac);
    XmStringFree(tmpStr);

    XtAddCallback(pSelect->file_dialog, XmNcancelCallback,
			(XtCallbackProc) CancelFileSelectCB, (XtPointer)pPad );

    XtRealizeWidget (pSelect->file_dialog);
    XSync(pPad->display, 0);

/* XXX
 *  pSelect->dir_list = FS_DirList(pSelect->file_dialog);
 */

    pSelect->filter_text = XmFileSelectionBoxGetChild(pSelect->file_dialog,
					XmDIALOG_FILTER_TEXT);
    pSelect->select_text = XmFileSelectionBoxGetChild(pSelect->file_dialog,
					XmDIALOG_TEXT);
    pSelect->file_list = XmFileSelectionBoxGetChild(pSelect->file_dialog,
					XmDIALOG_LIST);
}


/************************************************************************
 * CreateSaveWarning - Builds a PromptDialog to ask if the current contents
 *	are to be saved prior to some operation.  Also used to ask if new
 *	lines characters are to be inserted when word wrap is on.
 *
 *	PromptDialog
 *	    (message)				(unmanaged)
 *	    (text input region)			(unmanaged)
 *	    Form				work area
 *		RowColumn			horz orientation
 *		    LabelGadget			exclamation symbol
 *		    LabelGadget			prompt text
 *		Separator
 *		RadioBox			contains two new line toggles
 *	    (buttons)				OK, Apply, Cancel, Help
 *
 *	The RadioBox is managed only if wordwrap is on.
 *
 ************************************************************************/
static void
CreateSaveWarning(
        Editor *pPad )
{
    Arg al[10];			/* arg list */
    int ac;		/* arg count */
    char buf[256];
    Widget w, kid[5];
    Pixel foreground, background;
    Pixmap pixmap;		/* dialog pixmap */
    XmString tmpStr1, tmpStr2, tmpStr3, tmpStr4, tmpStr5;
    Select *pSelect = &pPad->fileStuff.fileWidgets.select;

    /* -----> Create a SelectionBox PromptDialog with appropriate title and
     *        button labels */
    tmpStr1 = XmStringCreateLocalized(((char *)GETMESSAGE(5, 14, "No")));
    tmpStr2 = XmStringCreateLocalized(((char *)GETMESSAGE(5, 15, "Yes")));
    strcpy(buf, DialogTitle(pPad));
    strcat(buf, (char *)GETMESSAGE(5, 16, "Save?"));
    tmpStr3 = XmStringCreateLocalized(buf);
    tmpStr4 = XmStringCreateLocalized(((char *)GETMESSAGE(2, 1, "Help")));
    tmpStr5 = XmStringCreateLocalized((String) _DtCancelString);
    ac = 0;
    XtSetArg(al[ac], XmNapplyLabelString, tmpStr1); ac++;
    XtSetArg(al[ac], XmNokLabelString, tmpStr2); ac++;
    XtSetArg(al[ac], XmNdialogTitle, tmpStr3); ac++;
    XtSetArg(al[ac], XmNhelpLabelString, tmpStr4); ac++;
    XtSetArg(al[ac], XmNcancelLabelString, tmpStr5); ac++;
    XtSetArg(al[ac], XmNmwmFunctions, MWM_FUNC_MOVE | MWM_FUNC_CLOSE);  ac++;
    XtSetArg(al[ac], XmNmwmDecorations, MWM_DECOR_BORDER | MWM_DECOR_TITLE);
    ac++;
    XtSetArg (al[ac], XmNallowShellResize, False);              ac++;
    pSelect->save_warning = XmCreatePromptDialog(pPad->app_shell, "save_warn",
							al, ac);
    XmStringFree(tmpStr1);
    XmStringFree(tmpStr2);
    XmStringFree(tmpStr3);
    XmStringFree(tmpStr4);
    XmStringFree(tmpStr5);

    /* -----> Set the dialog input mode */
    ac=0;
    XtSetArg(al[ac], XmNmwmInputMode, MWM_INPUT_PRIMARY_APPLICATION_MODAL);ac++;
    XtSetValues(XtParent(pSelect->save_warning), al, ac);

    /* -----> Create Form to contain the prompt symbol and text (in a RowColumn)
    *         and the "insert new lines?" toggles (in a RadioBox) */
    ac = 0;
    XtSetArg(al[ac], XmNshadowThickness, 0); ac++;
    pSelect->work_area = XmCreateForm(pSelect->save_warning, "wkarea",  al, ac);
    XtManageChild(pSelect->work_area);

    /* -----> Create a horizontal RowColumn container for the warning symbol
     *        and text prompt */
    ac = 0;
    XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
    XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++;
    XtSetArg(al[ac], XmNorientation, XmHORIZONTAL); ac++;
    pSelect->row_col = XmCreateRowColumn(pSelect->work_area, "rowCol", al, ac);
    XtManageChild(pSelect->row_col);

    /* -----> Place the warning symbol in RowColumn container */
    ac = 0;
    XtSetArg(al[ac], XmNforeground, &foreground); ac++;
    XtSetArg(al[ac], XmNbackground, &background); ac++;
    XtGetValues(pSelect->save_warning, al, ac);
    ac = 0;
    XtSetArg(al[ac], XmNlabelType, XmPIXMAP); ac++;
    pixmap = XmGetPixmap(XtScreen(pSelect->save_warning), "warn_image",
				foreground, background);
    XtSetArg(al[ac], XmNlabelPixmap, pixmap); ac++;
    w = XmCreateLabelGadget(pSelect->row_col, "pixmap_label", al, ac);
    XtManageChild(w);

    /* -----> Place the prompt string in the RowColumn container
     *        (the prompt string is set in AskIfSave() based on whether
     *        or not a file name has been specified among other things) */
    ac = 0;
    pSelect->wkArea_textLabel = XmCreateLabelGadget(pSelect->row_col,
							"txt_lab", al, ac);
    XtManageChild(pSelect->wkArea_textLabel);


    /* -----> Create a separator between message and new line toggles */
    ac = 0;
    XtSetArg(al[ac], XmNtopAttachment, XmATTACH_WIDGET); ac++;
    XtSetArg(al[ac], XmNtopWidget, pSelect->row_col); ac++;
    XtSetArg(al[ac], XmNtopOffset, 5); ac++;
    XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++;
    XtSetArg(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++;
    pSelect->separator = XmCreateSeparator(pSelect->work_area, "sep", al, ac);
    if (pPad->xrdb.wordWrap == True)
	XtManageChild(pSelect->separator);

    /* -----> Create a radio box with two toggle buttons for either adding
     *        or not adding new lines if word wrap mode is on. */
    CreateNewLineToggles(pPad,
			pSelect->work_area,		/* parent widget */
			&pSelect->toggleWidgets);	/* new widgets */

    /* -----> Place toggle buttons below separator */
    ac = 0;
    XtSetArg(al[ac], XmNtopAttachment, XmATTACH_WIDGET); ac++;
    XtSetArg(al[ac], XmNtopWidget, pSelect->separator); ac++;
    XtSetArg(al[ac], XmNtopOffset, 5); ac++;
    XtSetArg(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++;
    XtSetArg(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++;
    XtSetValues(pSelect->toggleWidgets.newl_radio, al, ac);

    /* -----> manage the apply button of the SelectionBox PromptDialog */
    w = XmSelectionBoxGetChild (pSelect->save_warning, XmDIALOG_APPLY_BUTTON);
    XtManageChild(w);

    /* -----> don't need the SelectionBox PromptDialog text input field and
     *        label */
    ac = 0;
    kid[ac++] = XmSelectionBoxGetChild (pSelect->save_warning, XmDIALOG_TEXT);
    kid[ac++] = XmSelectionBoxGetChild (pSelect->save_warning,
                                        XmDIALOG_SELECTION_LABEL);
    XtUnmanageChildren (kid, ac);

    /* -----> set the SelectionBox PromptDialog [No] [Cancel] [Help] callbacks
     *        (the [Yes] XmNokCallback is set in AskIfSave() based on whether
     *        or not a file name has been specified among other things) */
    XtAddCallback(pSelect->save_warning, XmNapplyCallback,
		(XtCallbackProc) NoSaveCB, (XtPointer) pPad);
    XtAddCallback(pSelect->save_warning, XmNcancelCallback,
		(XtCallbackProc) AskIfSaveCancelCB, (XtPointer) pPad);
    XtAddCallback(pSelect->save_warning, XmNhelpCallback,
		(XtCallbackProc) HelpAskIfSaveDialogCB, (XtPointer) pPad);

    /* -----> save the widget id of the Cancel button so that it can be
     *        unmanaged (in AskIfSave) if a "forced" TTDT_QUIT is being
     *        processed */
    pSelect->cancelBtn = XmSelectionBoxGetChild(
				pSelect->save_warning, XmDIALOG_APPLY_BUTTON);

    XtRealizeWidget(pSelect->save_warning);

}


/************************************************************************
 *  Warning - posts a information/warning/error message dialog
 ************************************************************************/
void
Warning(
	Editor *pPad,
	char *mess ,
	unsigned char dialogType)
{
    Arg al[10];
    int ac;
    char *tmpMess, buf[256];
    FileWidgets *pFileWidgets = &pPad->fileStuff.fileWidgets;
    XmString tempStr;

    tmpMess = strdup(mess);

    /* create the dialog if it is the first time */
    if (!pFileWidgets->gen_warning)
    {
	ac = 0;
	XtSetArg(al[ac], XmNokLabelString,
		 XmStringCreateLocalized((String) _DtOkString));  ac++;
	pFileWidgets->gen_warning = XmCreateMessageDialog (pPad->app_shell,
							"Warn", al, ac);
	/* Unmanage unneeded children. */
	XtUnmanageChild(XmMessageBoxGetChild(pFileWidgets->gen_warning,
						XmDIALOG_CANCEL_BUTTON) );
	XtUnmanageChild(XmMessageBoxGetChild(pFileWidgets->gen_warning,
						XmDIALOG_HELP_BUTTON) );

	XtRealizeWidget(pFileWidgets->gen_warning);
	ac=0;
        XtSetArg(al[ac], XmNmwmInputMode,
			MWM_INPUT_PRIMARY_APPLICATION_MODAL);ac++;
	XtSetValues(XtParent(pFileWidgets->gen_warning), al, ac);
    }

    strcpy(buf, DialogTitle(pPad));
    switch(dialogType)
    {
	case XmDIALOG_ERROR:
	    strcat(buf, (char *)GETMESSAGE(5, 17, "Error"));
	    break;
	case XmDIALOG_INFORMATION:
	    strcat(buf, (char *)GETMESSAGE(5, 20, "Information"));
	    break;
	case XmDIALOG_WARNING:
	default:
	    strcat(buf, (char *)GETMESSAGE(5, 6, "Warning"));
	    break;
    }

    ac = 0;
    tempStr = XmStringCreateLocalized(buf);
    XtSetArg(al[ac], XmNdialogTitle, tempStr); ac++;
    XtSetArg(al[ac], XmNdialogType, dialogType); ac++;
    XtSetArg(al[ac], XmNmessageString,
		XmStringCreateLocalized(tmpMess)); ac++;
    XtSetValues(pFileWidgets->gen_warning, al, ac);
    XmStringFree(tempStr);

    XtManageChild (pFileWidgets->gen_warning);
}


/************************************************************************
 * PostSaveError - posts a dialog displaying the status returned by
 *	DtEditorSaveContentsToFile() (when called by the "File" menu
 *	callbacks).
 ************************************************************************/
void
PostSaveError(
	Editor *pPad,
	char *saveName,
	DtEditorErrorCode errorCode)
{
    char errorMsg[256], *errorReason;

    /* -----> determine the reason why save failed */
    switch(errorCode) {
	case DtEDITOR_NO_ERRORS:
	    return;
	case DtEDITOR_INVALID_FILENAME:
	    Warning(pPad, ((char *)
        	    GETMESSAGE(5, 31, "Unable to save file.\nFile name was not specified.")),
		    XmDIALOG_ERROR);
	    return;
	case DtEDITOR_UNWRITABLE_FILE:
	    errorReason = strdup( (char *)
		    GETMESSAGE(5, 46, "Either file is unwritable or path to\nfile does not exist."));
	    break;
	case DtEDITOR_DIRECTORY:
	    errorReason = strdup((char *)
		    GETMESSAGE(5, 35, "File is a directory."));
	    break;
	case DtEDITOR_CHAR_SPECIAL_FILE:
	    errorReason = strdup((char *)
		    GETMESSAGE(5, 36, "File is a character special device."));
	    break;
	case DtEDITOR_BLOCK_MODE_FILE:
	    errorReason = strdup((char *)
		    GETMESSAGE(5, 37, "File is a block mode device."));
	    break;
	case DtEDITOR_INSUFFICIENT_MEMORY:
	    errorReason = strdup((char *)
		    GETMESSAGE(5, 47, "Operation failed due to insufficient memory.\nTry increasing swap space."));
	    break;
	case DtEDITOR_INVALID_TYPE:	/* this should never occur */
	    errorReason = strdup((char *)
		    GETMESSAGE(5, 38, "Invalid file format."));
	    break;
	case DtEDITOR_SAVE_FAILED:	/* this should catch everything else */
	default:			/* - but just in case */
	    errorReason = strdup((char *)
		    GETMESSAGE(5, 39, "Unknown reason - possibly not enough disk space."));
	    break;
    }

    /* -----> format and display error messages containing the
     *        file name and reason why the save failed */
    sprintf(errorMsg,
	    (char *) GETMESSAGE(5, 30, "Unable to save %1$s.\n%2$s"),
	    saveName,
	    errorReason);
    Warning(pPad, errorMsg, XmDIALOG_ERROR);
    free(errorReason);

    if (pPad->fileStuff.pendingFileFunc == FileExitCB) {
	TTfailPendingQuit(pPad);
    }

}


/************************************************************************
 * AskIfSave - creates a dialog and corresponding "o.k." button callback
 *	to save the current text to a file.  The dialog message and
 *	o.k. callback depend on whether or not a name is associated
 *	with the text.
 ************************************************************************/
void
AskIfSave(
        Editor *pPad)
{
    Arg al[10];             /* arg list */
    int ac;        /* arg count */
    char *tmp = NULL;
    XmString tmpStr;
    Select *pSelect = &pPad->fileStuff.fileWidgets.select;

    if (pSelect->save_warning == (Widget) NULL)
	CreateSaveWarning(pPad);

    if (pPad->ttQuitReq.contract && pPad->ttQuitReq.force) {
	XtUnmanageChild(pSelect->cancelBtn);
    } else {
	XtManageChild(pSelect->cancelBtn);
    }

    XtRemoveAllCallbacks(pSelect->save_warning, XmNokCallback);

    if (pPad->ttEditReq.contract &&
      pPad->ttEditReq.docName && *pPad->ttEditReq.docName) {
	/* -----> TT docName supplied in media request, so ask:
	 *	  "Save changes to "<docName>"?" */
	tmp = (char *)XtMalloc(strlen(SAVE_CH_DOC) +
				strlen(pPad->ttEditReq.docName) + 4);
	sprintf(tmp,SAVE_CH_DOC, pPad->ttEditReq.docName);
	XtAddCallback(pSelect->save_warning, XmNokCallback,
			(XtCallbackProc) FileSaveCB, (XtPointer) pPad);
    } else if (pPad->fileStuff.fileName && *pPad->fileStuff.fileName) {
	/* -----> TT or non-TT filename given, so ask:
	 *	  "Save changes to <file>?" */
	tmp = (char *)XtMalloc(strlen(SAVE_CH) +
				strlen(pPad->fileStuff.fileName) + 4);
	sprintf(tmp,SAVE_CH, pPad->fileStuff.fileName);
	XtAddCallback(pSelect->save_warning, XmNokCallback,
			(XtCallbackProc) FileSaveCB, (XtPointer) pPad);
    } else if (pPad->ttEditReq.contract && pPad->ttEditReq.contents) {
	/* -----> TT buffer being edited w/o a docName, so simply ask:
	 *	  "Save Changes?" */
	tmp = (char *)XtMalloc(strlen(SAVE_CH_BUF) + 4);
	sprintf(tmp,"%s",SAVE_CH_BUF);
	XtAddCallback(pSelect->save_warning, XmNokCallback,
			(XtCallbackProc) FileSaveCB, (XtPointer) pPad);
    } else {
	/* -----> no file/doc name (and not a TT buffer), so ask:
	 *	  "File has no name. Do you wash to save it?" */
	tmp = (char *)XtMalloc(strlen(SAVE_CH_NONAME) + 4);
	sprintf(tmp,"%s",SAVE_CH_NONAME);
	XtAddCallback(pSelect->save_warning, XmNokCallback,
			(XtCallbackProc) FileSaveAsCB, (XtPointer) pPad);
    }

    tmpStr = XmStringCreateLocalized(tmp);
    ac = 0;
    XtSetArg(al[ac], XmNlabelString, tmpStr); ac++;
    XtSetValues(pSelect->wkArea_textLabel, al, ac);
    XmStringFree(tmpStr);
    XtFree(tmp);

    /*
     * Make sure that the AskIfSave will be visible in case the
     * main window is iconified and the user is closing the window
     * from a window manager menu.
     */
    XtPopup(pPad->app_shell, XtGrabNone);
    XtMapWidget(pPad->app_shell);

    XtManageChild (pSelect->save_warning);
    XmProcessTraversal(XmSelectionBoxGetChild(pSelect->save_warning,
			XmDIALOG_OK_BUTTON), XmTRAVERSE_CURRENT);
}

char*
DialogTitle(Editor *pPad)
{
    if (pPad->dialogTitle == NULL)
      pPad->dialogTitle = strdup((char *)GETMESSAGE(7, 2, "Text Editor - "));
    
    return pPad->dialogTitle;
}