?? items.tcl
字號:
# items.tcl --## Test the handling of DisplayStyle and DisplayItem.## Copyright (c) 1996, Expert Interface Technologies## See the file "license.terms" for information on usage and redistribution# of this file, and for a DISCLAIMER OF ALL WARRANTIES.#proc About {} { return "Test the handling of DisplayStyle and DisplayItem."}proc Test {} { TestBlock items-1.1 {tixTmpLine} { tixHList .c set style [tixDisplayStyle text -refwindow .c -font fixed] .c add a -itemtype text -style $style -text Hello .c add b -itemtype text -text Hello tixHList .d .d add a -itemtype text -style $style -text Hello .d add b -itemtype text -text Hello pack .c .d -expand yes -fill both update destroy .c update Assert {[string comp [info command $style] ""] == 0} } catch { destroy .c } catch { destroy .d }}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -