Add status bar to debugger window

db4
Slava Pestov 2009-02-13 01:00:02 -06:00
parent 9a351fce22
commit d66a31e88a
1 changed files with 2 additions and 2 deletions
basis/ui/tools/debugger

View File

@ -7,7 +7,7 @@ ui.gadgets.worlds ui.gadgets.packs ui.gadgets.buttons
ui.gadgets.labels ui.gadgets.panes ui.gadgets.presentations
ui.gadgets.viewports ui.gadgets.tables ui.gadgets.tracks
ui.gadgets.scrollers ui.gadgets.panes ui.gadgets.borders
ui.tools.traceback ui.tools.inspector ;
ui.gadgets.status-bar ui.tools.traceback ui.tools.inspector ;
IN: ui.tools.debugger
TUPLE: debugger < track error restarts restart-hook restart-list continuation ;
@ -58,7 +58,7 @@ M: debugger focusable-child*
: debugger-window ( error continuation -- )
#! No restarts for the debugger window
f f <debugger> "Error" open-window ;
f f <debugger> "Error" open-status-window ;
GENERIC: error-in-debugger? ( error -- ? )