color-table-demo ( -- )

Vocabulary

color-table

Inputs

None

Outputs

None

Definition

USING: accessors kernel ui ui.gadgets.worlds ;

IN: color-table

: color-table-demo ( -- )
    [
        f
        T{ world-attributes
            { title "Colors" }
            { pref-dim { 500 300 } }
        }
        clone
        <color-table>
        >>gadgets
        open-window
    ] with-ui ;