<restart-list> ( debugger -- gadget )

Vocabulary

ui.tools.debugger.private

Inputs

debugger

an object

Outputs

gadget

an object

Definition

USING: accessors continuations kernel models sequences
ui.commands ui.gadgets.tables ;

IN: ui.tools.debugger.private

: <restart-list> ( debugger -- gadget )
    dup restarts>> f prefix <model> restart-renderer <table> [
        [
            dup obj>> no-op-restart =
            [ drop ] [ \ continue-restart invoke-command ] if
        ] when*
    ] >>action swap restart-hook>> >>hook
    t >>selection-required? t >>single-click? ; inline