From d66a31e88a35ac413dd2e9c89dbd72ef6db652a5 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 13 Feb 2009 01:00:02 -0600 Subject: [PATCH] Add status bar to debugger window --- basis/ui/tools/debugger/debugger.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/ui/tools/debugger/debugger.factor b/basis/ui/tools/debugger/debugger.factor index 0a03ab4a46..581b7dabe2 100644 --- a/basis/ui/tools/debugger/debugger.factor +++ b/basis/ui/tools/debugger/debugger.factor @@ -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 "Error" open-window ; + f f "Error" open-status-window ; GENERIC: error-in-debugger? ( error -- ? )