<error-display> ( debugger -- gadget )


Vocabulary
ui.tools.debugger.private

Inputs
debuggeran object


Outputs
gadgetan object


Definition
USING: accessors kernel ui.gadgets ui.gadgets.labels
ui.gadgets.packs ui.gadgets.scrollers ;

IN: ui.tools.debugger.private

: <error-display> ( debugger -- gadget )
[ <filled-pile> ] dip
[ error>> <error-pane> add-gadget ] [
dup restart-hook>> [
[
"To continue, pick one of the options below:"
<label> add-gadget
] dip restart-list>> add-gadget
] [ drop ] if
] bi <scroller> ;