<tables-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors arrays kernel math models prettyprint sequences
ui.gadgets ui.gadgets.buttons ui.gadgets.scrollers
ui.gadgets.tables ;

IN: ui-demo

:: <tables-section> ( -- gadget )
    people clone <model> :> rows 0 <model> :> added rows
    person-renderer <table> t >>selection-required? 12 >>gap
    :> table <section>
    "A table renders rows through a renderer, which says what the ..."
    <prose> add-gadget table <scroller> <framed> add-gadget
    <shelf-of> "Add row" [
        drop added [ 1 + ] change-model
        "Guest " added value>> unparse append
        "Visitor" "Active" 3array rows
        [ swap suffix ] change-model
    ] <border-button> add-gadget "Remove selected" [
        drop table selection-index>> value>>
        [| index | rows [ index swap remove-nth ] change-model ]
        when*
    ] <border-button> add-gadget "Reset rows"
    [ drop people clone rows set-model ] <border-button>
    add-gadget add-gadget
    "Selected:" table selection>> <readout> <labeled-row>
    add-gadget
    "Row index:" table selection-index>> <readout> <labeled-row>
    add-gadget
    "Adding rows preserves selection. Removing the selected row se..."
    <prose> add-gadget
    "Rows whose status is Away are dimmed by the renderer's row-co..."
    <note> add-gadget <page> ;