让你的UltraEdit高亮显示Tcl语法

将下面的内容加到UltraEdit目录下的wordfile.txt中：

/L20"Tcl/tk" Line Comment = # File Extensions = TCL TK
/Delimiters = :;"']~!@%^&*()+=|//{}[]:;"' <> , ?
/Function String = "proc ^([a-zA-Z_0-9]++ {[ a-zA-Z_0-9{}]++^)"
/Function String 1 = "method ^([a-zA-Z_0-9]++ {[ a-zA-Z_0-9{}]++^)"
/Function String 2 = "^(constructor^) {*}*{"
/Function String 3 = "^(destructor^) {}"
/Function String 4 = "public ^(variable[ ^t]+[a-zA-Z_0-9]+^)"
/Function String 5 = "public ^(common[ ^t]+[A-Z_0-9]+^)"
/C1
after append array
auto_execok auto_load auto_mkindex auto_reset
bgerror break
case catch cd class clock close common concat constructor continue
destructor
eof error eval exec exit expr else elseif expect
fblocked fconfigure file fileevent flush for foreach format
gets glob global
history
if incr info inherit interp
join
method
lappend lindex linsert list llength load lrange lreplace lsearch lsort
open
package parray pid private proc protected public puts pwd
read regexp regsub rename return
scan seek set socket source split string subst switch spawn
tell time trace tcl_endOfWord tcl_startOfNextWord tcl_startOfPreviousWord tcl_wordBreakAfter tcl_wordBreakBefore
unknown unset update uplevel upvar
variable vwait
while
/C2
auto_execs auto_index auto_noexec auto_noload auto_path
env
ErrorCode ErrorInfo
tcl_library tcl_patchLevel tcl_pkgPath tcl_platform tcl_precision tcl_rcFileName tcl_rcRsrcName tcl_version tcl_nonwordchars tcl_wordchars
unknown_active
/C3
bell bind bindtags bitmap button
canvas checkbutton clipboard
destroy
entry event
focus frame
grab grid
image
label listbox lower
menu menubutton message
option
pack photo place
radiobutton raise
scale scrollbar selection send
text tk tk_bindForTraversal tk_bisque tk_chooseColor tk_dialog tk_focusFollowsMouse tk_focusNext tk_focusPrev tk_getOpenFile tk_getSaveFile tk_menuBar tk_messageBox tk_optionMenu tk_popup tk_setPalette tkerror tkvars tkwait toplevel
winfo wm
/C4