2015年1月26日
一段tcl代码
摘要： #!/usr/bin/wishproc icanspeak {} { set name [.ent get] if {[string length $name] != 0} { exec s $name }}label .lab -text "Enter word:"... 阅读全文
posted @ 2015-01-26 23:16 summernight 阅读(245) 评论(0) 推荐(0) 编辑