已有 538 次阅读| 2011-12-25 22:00 |个人分类:tcl_tk
pack [label .my_clock -text "" -font {"Courier New" 60}];
wm resizable . 0 0
proc every {} {
set cur_time [clock format [clock sec] -format %H:%M:%S];
.my_clock config -text $cur_time;
after 1000 every;
}
every
评论
查看 »
小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网 ( 京ICP备:10050787号 京公网安备:11010502037710 )
GMT+8, 2024-5-2 08:23 , Processed in 0.013447 second(s), 7 queries , Gzip On, Redis On.