packer2.tk

来自「Linux程序设计(原书第2版)源码」· TK 代码 · 共 8 行

#!/usr/bin/wish -f

foreach i  {1 2 3 4 } {
    button .b$i -text "Btn $i"
    pack .b$i -side left -ipadx 2m -ipady 1m
}