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
