<debugger> ( error continuation restarts restart-hook -- debugger )

Vocabulary

ui.tools.debugger

Inputs

error	an error
continuation	a continuation
restarts	a sequence of restart instances
restart-hook	a quotation with stack effect ( debugger -- )

Outputs

debugger

a new debugger

Word description

Creates a gadget displaying a description of the error, along with buttons to print the contents of the stacks in the listener, and a list of restarts.

See also

debugger-window

Definition

USING: accessors kernel ui.gadgets ui.gadgets.toolbar
ui.gadgets.tracks ui.tools.common ui.tools.debugger.private ;

IN: ui.tools.debugger

: <debugger>
    ( error continuation restarts restart-hook -- debugger )
    vertical debugger new-track with-lines swap >>restart-hook
    swap >>restarts swap >>continuation swap >>error
    dup <restart-list> >>restart-list
    dup <error-display> margins white-interior 1 track-add
    add-toolbar ;