tcl安装后测试代码

测试环境：

activate TCL==8.6.11

opensees==3.7.1

代码：

package require Tk # 创建顶层窗口 wm title . "简单Tk示例" # 创建标签并设置初始文本 label .label -text "点击按钮以清空" pack .label # 创建按钮，并指定点击时执行的命令 button .button -text "清除" -command { .label configure -text "" } pack .button # 启动事件循环，等待主窗口被销毁 tkwait window .

注意代码需要保存ANSI格式否则中文出现乱码，保存为hello.tcl然后双击显示下面结果

当我们点击清楚按钮后，上面文本就会清除不显示。