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 }