2.使用 source 命令调用一个 tcl 文件（一般 windows 下会隐藏扩张名，要更改一下设 置，使其可以直接修改)。
新建文本，输入命令，并把扩展名改为.tcl
在控制台用 source 命令调用新建的 tcl 文件。
2017/3/14
1.在 tcl 文件中定义两个凼数，并用 source 命令调用它们
注意空格的使用！
2.tcl 语言中换行的使用：
在 tcl 文件中定义一个包含 if 语句的凼数，并学会使用 stringcompare 命令进行字符串
比较。
其中 stringcompare 语句比较完之后结果取逻辑非，因为默认比较字符串一致会返回 0.
2017/3/15
在一个 tcl 文件里编辑 button 组件，并用 source 命令调用它。
控制台调用：
效果展示：
2017/3/16
Testvaiable 示例：
要注意的是 watch.label watch.value 之间是没有空格的。
代码解释：
toplevel .watch #创建新的顶级窗口“watch”
label .watch.label –text “Value of\”$name\” : ” # 生成 watch 的标签 显示变量名（控 制台中变量 为 county）
label .watch.value –textvariable $name #变量名后显示变量值，如果变量值发生改 变，则其显示的值也会随之改变（控制台赋值country）
grid watch.label .watch.value –pady 12 # 显示 watch 窗口标签 变量及变量值，窗口 大小设置为 12
控制台调用：
效果展示：
如果取消双斜杠，则报错：
更改窗口大小为 80 效果：
2017/3/17
在昨天代码中加入-font 命令，更改字体。
更改变量值的字体大小：
尝试前面字符串加黑，更改变量值字体为 Roman，并加上下划线：
效果如下：
2017/3/21
做一个可以横向 竖向 拉伸 收缩的窗口 指令：WM
双击该 tcl 文件，窗口效果：
主要代码：
set f .
wm title $f "WM_TEST SMART BOY" wm geometry $f 1000x1000
wm maxsize $f 1000 1000 wm minsize $f 200 200
注意的是 wm maxsize 的值是可以设的 wm geometry 的值大的，例如：
set f .
wm title $f "WM_TEST SMART BOY" wm geometry $f 1000x1000
wm maxsize $f 2000 2000 wm minsize $f 200 200
