Posted to tcl by emiliano at Thu Jun 28 12:25:54 GMT 2018view pretty

foreach tab {"In Stock" "Out Stock" "All Teas"} \
        cmd {refreshTeaInStock refreshTeaOutStock refreshTeaAll} {
    set f .f[string tolower [string map {" " ""} $tab]]
    frame $f
    listbox $f.lb
    button $f.btn -text Refresh -command $cmd
    grid $f.lb $f.btn
    .nb add $f -text $tab
}