<summary-gadget> ( model -- gadget )

Vocabulary

ui.tools.inspector

Inputs

model

an object

Outputs

gadget

an object

Definition

USING: combinators io.styles kernel ui.gadgets.panes ;

IN: ui.tools.inspector

: <summary-gadget> ( model -- gadget )
    [
        standard-table-style [
            {
                [
                    [
                        ~quotation~ with-cell
                        ~quotation~ with-cell
                    ] with-row
                ]
                [
                    [
                        ~quotation~ with-cell
                        ~quotation~ with-cell
                    ] with-row
                ]
                [
                    [
                        ~quotation~ with-cell
                        ~quotation~ with-cell
                    ] with-row
                ]
                [
                    content-gadget
                    [ ~quotation~ with-row ] when*
                ]
            } cleave
        ] tabular-output
    ] <pane-control> ;