basis/ui/debugger/debugger.factor

   1 ! Copyright (C) 2006, 2009 Slava Pestov.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 USING: accessors debugger io kernel namespaces prettyprint\r
   4 ui.gadgets.panes ui.gadgets.worlds ui ;\r
   5 IN: ui.debugger\r
   6 \r
   7 : <error-pane> ( error -- pane )\r
   8     <pane> [ [ print-error ] with-pane ] keep ; inline\r
   9 \r
  10 : error-window ( error -- )\r
  11     <error-pane> "Error" open-window ;\r
  12 \r
  13 [ error-window ] ui-error-hook set-global\r
  14 \r
  15 M: world-error error.\r
  16     "An error occurred while drawing the world " write\r
  17     dup world>> pprint-short "." print\r
  18     "This world has been deactivated to prevent cascading errors." print\r
  19     error>> error. ;\r