frames.tk

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

#!/usr/bin/wish -f

. config -bg steelblue

foreach frame {sunken raised flat ridge groove} {
   frame .$frame -width 0.5i -height 0.5i -relief $frame  -bd 2
   pack .$frame -side left -padx 10 -pady 10
}