cde/programs/types/error.ds.src

   1 XCOMM! DTKORNSHELL
   2 XCOMM  $XConsortium: error.ds.src /main/3 1996/04/23 17:35:47 drk $
   3 XCOMM #####################################################################
   4 XCOMM
   5 XCOMM      dterror.ds
   6 XCOMM
   7 XCOMM      This file is used by datatype definitions to
   8 XCOMM      output an error message. It uses dtksh.
   9 XCOMM
  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.
  14 XCOMM
  15 XCOMM
  16 XCOMM #####################################################################
  17
  18 XCOMM  When the OK button is pressed, lets exit out
  19 QuitCB()
  20 {
  21    exit 0
  22 }
  23
  24 XCOMM  When the Help button is pressed, map a help window.
  25 HelpCB()
  26 {
  27     CDE_INSTALLATION_TOP/bin/dthelpview -helpVolume Misctopic -locationId ConfigurePrintersSubpanelTA
  28 }
  29
  30 XCOMM ################# Create the Main UI #################################
  31 XtInitialize TOPLEVEL ps_error PSError "$@"
  32
  33 XmCreateErrorDialog MYDIALOG $TOPLEVEL mydialog messageString:"$(print $1)"
  34
  35 XtSetValues $MYDIALOG dialogTitle:"$(print $2)" okLabelString:"$(print $3)"
  36
  37 XtAddCallback $MYDIALOG okCallback QuitCB
  38
  39 XmMessageBoxGetChild CANCEL_BUTTON $MYDIALOG DIALOG_CANCEL_BUTTON
  40 XmMessageBoxGetChild HELP_BUTTON $MYDIALOG DIALOG_HELP_BUTTON
  41
  42 XtUnmanageChild $CANCEL_BUTTON
  43 if [ "$#" == "4" ];then
  44   XtAddCallback $MYDIALOG helpCallback HelpCB
  45 else
  46   XtUnmanageChild $HELP_BUTTON
  47 fi
  48
  49 XtManageChild $MYDIALOG
  50
  51 XtMainLoop