24 lines
714 B
Factor
24 lines
714 B
Factor
! Copyright (C) 2006, 2011 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors continuations debugger io io.streams.string
|
|
kernel namespaces prettyprint ui ui.gadgets.worlds ;
|
|
IN: ui.debugger
|
|
|
|
: error-alert ( error -- )
|
|
[ "Error" ] dip [ print-error ] with-string-writer
|
|
system-alert ;
|
|
|
|
! ( error -- )
|
|
[ error-alert ] ui-error-hook set-global
|
|
|
|
! ( error -- * )
|
|
[
|
|
ui-running? [ dup error-alert ] [ dup print-error ] if die
|
|
] callback-error-hook set-global
|
|
|
|
M: world-error error.
|
|
"An error occurred while drawing the world " write
|
|
dup world>> pprint-short "." print
|
|
"This world has been deactivated to prevent cascading errors." print
|
|
error>> error. ;
|