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

  1. foreach tab {"In Stock" "Out Stock" "All Teas"} \
  2. cmd {refreshTeaInStock refreshTeaOutStock refreshTeaAll} {
  3. set f .f[string tolower [string map {" " ""} $tab]]
  4. frame $f
  5. listbox $f.lb
  6. button $f.btn -text Refresh -command $cmd
  7. grid $f.lb $f.btn
  8. .nb add $f -text $tab
  9. }
  10.