home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / TEDdesk / reloc.9 / $TED_DIR / bin / dtfile_error
Encoding:
Text File  |  1998-08-19  |  1.6 KB  |  64 lines
  1. #! /usr/dt/bin/dtksh
  2. #####################################################################
  3. #  Display an error dialog using the argument(s) as the message
  4. #
  5. #  This script can be used by applications to display an error
  6. #  dialog when it would be difficult or impossible to do in the
  7. #  context of the executing program. For example, it can be used
  8. #  when exec fails in a child process or if an error is detected
  9. #  before an applications main window can be realized.
  10. #
  11. #  (c) Copyright 1993, 1994 Hewlett-Packard Company
  12. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  13. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  14. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  15. #      Novell, Inc.
  16. ######################################################################
  17.  
  18. #--------------------
  19. # OK button callback
  20. #--------------------
  21.  
  22. okCallback()
  23. {
  24.    exit
  25. }
  26.  
  27.  
  28. #------
  29. # main
  30. #------
  31.  
  32. MESSAGE="$@"
  33.  
  34. TITLE="dt Error"
  35.  
  36.  
  37. XtInitialize TOP dtError DtError "$@"
  38. #ifdef 1
  39. XtDisplay DISPLAY $TOP
  40. #endif /* SPR007204 */
  41.  
  42. XmCreateErrorDialog DIALOG \
  43.                     $TOP \
  44.                     "Test" \
  45.                     dialogTitle:"$TITLE" \
  46.                     messageString:"$MESSAGE"
  47.  
  48. # remove cancel and help buttons
  49. XmMessageBoxGetChild CANCEL $DIALOG DIALOG_CANCEL_BUTTON
  50. XmMessageBoxGetChild HELP   $DIALOG DIALOG_HELP_BUTTON
  51. XtUnmanageChild $CANCEL
  52. XtUnmanageChild $HELP
  53.  
  54. XtAddCallback $DIALOG okCallback "okCallback"
  55.  
  56. XtManageChild $DIALOG
  57.  
  58. #ifdef 1
  59. XmInternAtom wm_delete_window $DISPLAY "WM_DELETE_WINDOW" False
  60. XmAddWMProtocolCallback $(XtParent "-" $DIALOG) $wm_delete_window "okCallback"
  61. #endif /* SPR007204 */
  62.  
  63. XtMainLoop
  64.