run-bubble-chamber ( -- )

Vocabulary

bubble-chamber

Inputs

None

Outputs

None

Definition

USING: accessors ascii kernel quotations sequences splitting ui
ui.gadgets ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.packs ui.gadgets.worlds ;

IN: bubble-chamber

: run-bubble-chamber ( -- )
    [
        f
        T{ world-attributes { title "Bubble Chamber" } }
        clone
        <filled-pile>
        { 2 2 }
        >>gap
        {
            original
            small
            medium
            large
            hadron-chamber
            quark-chamber
            muon-chamber
            ten-hadrons
            original-big-bang
            original-big-bang-variant
        }
        [
            [ name>> "-" " " replace >title ]
            [ 1quotation [ drop ] prepend ] bi <border-button>
            add-gadget
        ]
        each
        { 2 2 }
        <border>
        >>gadgets
        open-window
    ] with-ui ;