Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtfile/dtfile_error.cpp

@@ -0,0 +1,63 @@
+XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
+XCOMM $XConsortium: dtfile_error.cpp /main/3 1996/04/21 19:29:14 drk $
+XCOMM ##################################################################
+XCOMM  Display an error dialog using the argument(s) as the message
+XCOMM
+XCOMM  This script can be used by applications to display an error
+XCOMM  dialog when it would be difficult or impossible to do in the
+XCOMM  context of the executing program. For example, it can be used
+XCOMM  when exec fails in a child process or if an error is detected
+XCOMM  before an applications main window can be realized.
+XCOMM
+XCOMM (c) Copyright 1996 Digital Equipment Corporation.
+XCOMM (c) Copyright 1993,1994,1996 Hewlett-Packard Company.
+XCOMM (c) Copyright 1993,1994,1996 International Business Machines Corp.
+XCOMM (c) Copyright 1993,1994,1996 Sun Microsystems, Inc.
+XCOMM (c) Copyright 1996 Novell, Inc. 
+XCOMM (c) Copyright 1996 FUJITSU LIMITED.
+XCOMM (c) Copyright 1996 Hitachi.
+XCOMM (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+XCOMM     Novell, Inc.
+XCOMM ###################################################################
+
+XCOMM --------------------
+XCOMM  OK button callback
+XCOMM --------------------
+
+okCallback()
+{
+   exit
+}
+
+
+XCOMM ------
+XCOMM  main
+XCOMM ------
+
+MESSAGE="$@"
+#ifdef _AIX
+MSGCAT=/usr/dt/lib/nls/msg/$LANG/dtfile.cat
+TITLE=`dspmsg $MSGCAT -s 32 1 "dt Error"`
+#else
+TITLE="dt Error"
+#endif /* _AIX */
+
+XtInitialize TOP dtError DtError "$@"
+
+XmCreateErrorDialog DIALOG \
+                    $TOP \
+                    "Test" \
+                    dialogTitle:"$TITLE" \
+                    messageString:"$MESSAGE"
+
+XCOMM remove cancel and help buttons
+XmMessageBoxGetChild CANCEL $DIALOG DIALOG_CANCEL_BUTTON
+XmMessageBoxGetChild HELP   $DIALOG DIALOG_HELP_BUTTON
+XtUnmanageChild $CANCEL
+XtUnmanageChild $HELP
+
+XtAddCallback $DIALOG okCallback "okCallback"
+
+XtManageChild $DIALOG
+
+XtMainLoop