2 XCOMM $XConsortium: error.ds.src /main/3 1996/04/23 17:35:47 drk $
3 XCOMM #####################################################################
7 XCOMM This file is used by datatype definitions to
8 XCOMM output an error message. It uses dtksh.
10 XCOMM (c) Copyright 1993, 1994 Hewlett-Packard Company
11 XCOMM (c) Copyright 1993, 1994 International Business Machines Corp.
12 XCOMM (c) Copyright 1993, 1994 Sun Microsystems, Inc.
13 XCOMM (c) Copyright 1993, 1994 Novell, Inc.
16 XCOMM #####################################################################
18 XCOMM When the OK button is pressed, lets exit out
24 XCOMM When the Help button is pressed, map a help window.
27 CDE_INSTALLATION_TOP/bin/dthelpview -helpVolume Misctopic -locationId ConfigurePrintersSubpanelTA
30 XCOMM ################# Create the Main UI #################################
31 XtInitialize TOPLEVEL ps_error PSError "$@"
33 XmCreateErrorDialog MYDIALOG $TOPLEVEL mydialog messageString:"$(print $1)"
35 XtSetValues $MYDIALOG dialogTitle:"$(print $2)" okLabelString:"$(print $3)"
37 XtAddCallback $MYDIALOG okCallback QuitCB
39 XmMessageBoxGetChild CANCEL_BUTTON $MYDIALOG DIALOG_CANCEL_BUTTON
40 XmMessageBoxGetChild HELP_BUTTON $MYDIALOG DIALOG_HELP_BUTTON
42 XtUnmanageChild $CANCEL_BUTTON
43 if [ "$#" == "4" ];then
44 XtAddCallback $MYDIALOG helpCallback HelpCB
46 XtUnmanageChild $HELP_BUTTON
49 XtManageChild $MYDIALOG