2.使用 source 命令調(diào)用一個(gè) tcl 文件（一般 windows 下會(huì)隱藏?cái)U(kuò)張名，要更改一下設(shè) 置，使其可以直接修改)。
新建文本，輸入命令，并把擴(kuò)展名改為.tcl
在控制臺(tái)用 source 命令調(diào)用新建的 tcl 文件。
2017/3/14
1.在 tcl 文件中定義兩個(gè)凼數(shù)，并用 source 命令調(diào)用它們
注意空格的使用！
2.tcl 語(yǔ)言中換行的使用：
在 tcl 文件中定義一個(gè)包含 if 語(yǔ)句的凼數(shù)，并學(xué)會(huì)使用 stringcompare 命令進(jìn)行字符串
比較。
其中 stringcompare 語(yǔ)句比較完之后結(jié)果取邏輯非，因?yàn)槟J(rèn)比較字符串一致會(huì)返回 0.
2017/3/15
在一個(gè) tcl 文件里編輯 button 組件，并用 source 命令調(diào)用它。
控制臺(tái)調(diào)用：
效果展示：
2017/3/16
Testvaiable 示例：
要注意的是 watch.label watch.value 之間是沒有空格的。
代碼解釋：
toplevel .watch #創(chuàng)建新的頂級(jí)窗口“watch”
label .watch.label –text “Value of\”$name\” : ” # 生成 watch 的標(biāo)簽 顯示變量名（控 制臺(tái)中變量 為 county）
label .watch.value –textvariable $name #變量名后顯示變量值，如果變量值發(fā)生改 變，則其顯示的值也會(huì)隨之改變（控制臺(tái)賦值country）
grid watch.label .watch.value –pady 12 # 顯示 watch 窗口標(biāo)簽 變量及變量值，窗口 大小設(shè)置為 12
控制臺(tái)調(diào)用：
效果展示：
如果取消雙斜杠，則報(bào)錯(cuò)：
更改窗口大小為 80 效果：
2017/3/17
在昨天代碼中加入-font 命令，更改字體。
更改變量值的字體大�。�
嘗試前面字符串加黑，更改變量值字體為 Roman，并加上下劃線：
效果如下：
2017/3/21
做一個(gè)可以橫向 豎向 拉伸 收縮的窗口 指令：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 的值是可以設(shè)的 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
