Initial import of the CDE 2.1.30 sources from the Open Group.
[oweals/cde.git] / cde / programs / dtcreate / ErrorDialog.c
1 /* $XConsortium: ErrorDialog.c /main/5 1996/10/15 14:46:17 rswiston $ */
2
3 /*******************************************************************************
4         ErrorDialog.c
5
6        Associated Header file: ErrorDialog.h
7 *******************************************************************************/
8
9 #include <stdio.h>
10
11 #include <Xm/Xm.h>
12 #include "UxXt.h"
13 #include "dtcreate.h"
14
15 #define CONTEXT_MACRO_ACCESS 1
16 #include "ErrorDialog.h"
17 #undef CONTEXT_MACRO_ACCESS
18
19 /******************************************************************************/
20 /* activateCB_ErrorDialog_OkButton                                            */
21 /******************************************************************************/
22 void    activateCB_ErrorDialog_OkButton( Widget  UxWidget,
23                                         XtPointer UxClientData,
24                                         XtPointer UxCallbackArg)
25
26 {
27   XtDestroyWidget(XtParent(UxWidget));
28 }
29
30 /******************************************************************************/
31 /* display_error_message - display desired message in error dialog            */
32 /* INPUT:  char *message - message to display in dialog box                   */
33 /* OUTPIT: none                                                               */
34 /******************************************************************************/
35 void display_error_message (Widget parent, char *message)
36 {
37
38   ErrorDialog = XmCreateErrorDialog(parent, "errorDialog", NULL, 0);
39   XtUnmanageChild (XmMessageBoxGetChild (ErrorDialog, XmDIALOG_CANCEL_BUTTON));
40   XtUnmanageChild (XmMessageBoxGetChild (ErrorDialog, XmDIALOG_HELP_BUTTON));
41
42   XtAddCallback( ErrorDialog, XmNokCallback,
43           (XtCallbackProc) activateCB_ErrorDialog_OkButton,
44           (XtPointer) NULL );
45
46   XtVaSetValues (ErrorDialog,
47                  RES_CONVERT(XmNdialogTitle, GETMESSAGE(6, 31, "Create Action - Error")),
48                  RES_CONVERT(XmNmessageString, message),
49                  NULL);
50
51   XtManageChild (ErrorDialog);
52   return;
53 }
54 /*******************************************************************************
55        END OF FILE
56 *******************************************************************************/
57