Add some error checking to the X11 UI: if an event handler throws an error, we open a debugger window, as on other platforms, instead of stopping the UI

db4
slava 2008-11-20 03:47:39 -06:00
parent d6264a32ce
commit 248cb0df5e
1 changed files with 1 additions and 1 deletions

View File

@ -185,7 +185,7 @@ M: world client-event
M: x11-ui-backend do-events
wait-event dup XAnyEvent-window window dup
[ [ 2dup handle-event ] assert-depth ] when 2drop ;
[ [ [ 2dup handle-event ] ui-try ] assert-depth ] when 2drop ;
: x-clipboard@ ( gadget clipboard -- prop win )
atom>> swap