;  This file is to be included at the top level of an
;  event handler to retrieve the stateptr from the
;  top-level base.

  ErrorNo = 0
  Catch, ErrorNo
  if ErrorNo ne 0 then begin
    Catch, /cancel
    help, /last_message, output=traceback
    ErrArray = ['Error Caught', traceback]
    a = dialog_message(ErrArray, /error)
    return
  endif