3a5
@verb #5288:"handle_uncaught_error hue" this none this rxd #5288
@program #5288:"handle_uncaught_error hue" this none this
"Copied from Eve[Root] (#6078):hue by Eve (#2633)Feb 21 17:38:26 2001"
ll = this:linelength() - 26
notify(this, "=> " + tostr(toliteral(args[1]), ", ", toliteral(args[2])))
notify(this, $su:left("Callers", 20) + "  Line" + $su:space(ll - 6) + "   " + "  #")
notify(this, $su:space(20, "-") + "|" + $su:space(ll, "-") + "-|---")
for line in (args[4])
  {what, verb} = {line[4], line[2]}
  try
    o_line = $su:trim(tostr(verb_code(what, verb)[line[$]]))
  except (ANY)
    o_line = "?"
  endtry
  o_line = $su:wrap(o_line, ll)
  notify(this, tostr($su:left(tostr(what, ":", verb), 20), "| ", $su:left(o_line[1], ll), "|", $su:right(line[$], 3)))
  for new_line in (listdelete(o_line, 1))
    notify(this, tostr($su:space(20), "| ", $su:left(new_line, ll), "|"))
  endfor
endfor
return 1
.

0