三行代码实现上上文颜色列表update
set color_list {{alice blue}...{DeepPink}...{yellowgreen}}
pack [label .c -width 18 -textvar color]
foreach color $color_list {.c configure -bg $color;after 500;update}
更多内容可关注
Tcl/Tk语言开发
