Edit file File name : tclmode.slc Content :.#*�" 86 0 Tcl_Check_Syntax+! 1�0 Tcl_Check_Syntax�" 89 # TCL�" $1��" 91 " $1� 3 create_syntax_table,*�" 95 $ name+��" 97 + tclmode.dfa $ name� : dfa_enable_highlight_cache��" 98$, ^[ \\t]*#.*$ ' comment $ name� 9 dfa_define_highlight_rule��" 99$, ;[ \\ t]*#.*$ ' comment $ name� 9 dfa_define_highlight_rule��# 100$3 "([^\\\\"]|\\\\.)*" & string $ name� 9 dfa_define_highlight_rule��# 101$* [{}\\[\\]] * Qdelimiter $ name� 9 dfa_define_highlight_rule��# 102$H [0-9]+(\\.[0-9]*)?([Ee][\\+\\-]?[0-9]*)? & number $ name� 9 dfa_define_highlight_rule��# 103 ! . & normal $ name� 9 dfa_define_highlight_rule��# 104$. [A-Za-z_\\.:]+ ' Knormal $ name� 9 dfa_define_highlight_rule��# 105$1 \\$[a-zA-Z0-9_:]+ & string $ name� 9 dfa_define_highlight_rule��# 106$' \\${.*} ' Q string $ name� 9 dfa_define_highlight_rule��# 107$/ ^[ \\t]*proc.*$ + Qpreprocess $ name� 9 dfa_define_highlight_rule��# 108 ) -[a-z]+ ( operator $ name� 9 dfa_define_highlight_rule��# 109 $ name� 9 dfa_build_highlight_table�" 95�2 setup_dfa_callback��# 111}2 setup_dfa_callback # TCL� 5 dfa_set_init_callback�# 117! 0�" $2��# 118 " $1 $ cdif! 2 " $2� 1 define_keywords_nP��# 119 " $1 / eofforpidpwdset! 3 " $2� 1 define_keywords_nP��# 120 " $1 x caseelseevalexecexitexprfilegetsglobincrinfojoinlistloadop enprocputsreadscanseektelltime! 4 " $2� 1 define_keywords_nP��# 121 " $1 u afterarraybreakcatchclockcloseerrorfcopyflushlsortsplitsubsttraceunsetupvarvwaitwhile! 5 " $2� 1 define_keywords_nP��# 122 " $1 � appendbinaryconcatformatglobalinterplindexlrange regexpregsubrenamereturnsocketsourcestringswitch! 6 " $2� 1 define_keywords_nP��# 123 " $1 _ consoleforeachhistorylappendlinsertllengthlsearchunknownuplevel! 7 " $2� 1 define_keywords_nP��# 124 " $1 8 continuefblockedlreplace! 8 " $2� 1 define_keywords _nP��# 125 " $1 ) fileevent! 9 " $2� 1 define_keywords_nP�# 128! 1�" $2��# 129 " $1 $ tkwm! 2 " $2� 1 define_keywords_nP��# 130 " $1 D bellbindfontgrabgridmenupacksendtext! 4 " $2� 1 define_keywords_nP��# 131 " $1 W entryeventfocusframeimagelabellower placeraisescalewinfo! 5 " $2� 1 define_keywords_nP��# 132 " $1 > buttoncanvasoptiontkwaitupdate! 6 " $2� 1 define_keywords_nP��# 133 " $1 < destroylistboxmessagetkerror! 7 " $2� 1 define_keywords_nP��# 134 " $1 8 bindtagstk_popuptoplevel! 8 " $2� 1 de fine_keywords_nP��# 135 " $1 M clipboardscrollbarselectiontk_bisquetk_dialog! 9 " $2� 1 define_keywords_nP��# 136 " $1 * menubutton" 10 " $2� 1 define_keywords_nP��# 137 " $1 6 checkbuttonradiobutton" 11 " $2� 1 define_keywords_nP��# 138 " $1 8 tk_focu sNexttk_focusPrev" 12 " $2� 1 define_keywords_nP��# 139 " $1 : tk_messageBoxtk_setPalette" 13 " $2� 1 define_keywords_nP��# 140 " $1 X tk_chooseColortk_getOpenFiletk_getSaveFiletk_optionsMenu" 14 " $2� 1 define_keywords_nP,�# 143y/ tcl_indent_line,�# 148 ' newline�# 149 / tcl_indent_line�# 146y6 tcl_newline_and_indent,*�# 152 ! n+�# 154 . bol_skip_white�# 155 + what_column ! nB.�# 157 ( bol_trim�# 158�! n��# 159 ! n� * whitespace/c�# 152y- tcl_indent_to,*�# 166 ! c * open_count+! 0�* open_count* + close_count+! 0�+ close_count*�# 167 ' escaped+! 0�' escaped�# 169 ) push_spot.�# 171 # bol/. $ eolpN/. * go_right_1/.�# 172 ) what_char�! c�# 173 ! c.�# 174" 92x3 ' escaped.! 2�' escaped/b/.�# 176# 123x3 ' escaped.�* open_count/b/.�# 178# 125x3 ' escaped.�# 179 * open_count.�* open_count/.�# 180�+ close_count/d/b/j�# 183 ' escaped.�' escaped/c/g�# 186 ( pop_spot�# 187 * open_count + close_countw�# 164y0 tcl_count_braces,.�# 194 $ up_1.�# 195 . bol_skip_white�# 196 $ eolp.u/c�# 197 ) what_char" 35B.! 1w/c/.�# 199! 0w/d/e�# 191y) tcl_go_up,�# 206 # eol�# 207 + bskip_white��# 208$" \\� + blooking_at.! 1/.�# 209! 0/dw�# 204y5 tcl_is_continued_line,*�# 216 & indent+! 0�& indent* * open_count+�# 217 ) push_spot�# 218 ) tcl_go_up.�# 220 + what _column�& indent�# 222 0 tcl_count_bracesP�* open_count�# 223 * open_count ( C_INDENT;�& indent�# 226 5 tcl_is_continued_line. 2 C_CONTINUED_OFFSET�& indent/c�# 227 ) tcl_go_up 5 tcl_is_continued_lineC. 2 C_CONTINUED_OFFSET�& indent/c/c�# 230 ( pop_spot�# 231 & indentw�# 214y2 tcl_prev_line_rule,*�# 237 & indent+! 0�& indent* + close_count+! 0�+ close_count�# 239 0 tcl_count_braces�+ close_countP�# 240 + close_count ( C_INDENT;�& indent�# 241 & indentw�# 235y1 tcl_cur_line_rule,*�# 247 & cursor ) oldi ndent+*�# 248 & indent+�# 251 + what_column�& cursor�# 252 . bol_skip_white�# 253 + what_column�) oldindent�# 256 2 tcl_prev_line_rule�& indent�# 257 1 tcl_cur_line_rule�& indent��# 261 & indent� - tcl_indent_to��# 262 & cursor & indent9 ) oldindent:� + g oto_column�# 245y/ tcl_indent_line,��# 268! 1� , check_region�# 269 * pop_mark_1�# 270 ) push_mark�# 271 / tcl_indent_line�# 272 ( pop_spot�# 274 ) push_spot�# 275 ' go_up_1�# 276 & narrow�# 277 # bob��# 279 3 Indenting region...� % flush.�# 280 & down_ 1/.�# 281 / tcl_indent_line/f��# 284 9 Indenting region... Done.� % flush�# 286 % widen�# 287 ( pop_spot�# 266y1 tcl_indent_region,*�# 291 # msg+��# 293 ) Warning: # msg9� % flush�# 291y2 tcl_syntax_warning,��# 298 ! }� & insert�# 299 / tcl_indent_lin e�# 300 + blink_match�# 296y. tcl_insert_ket,�# 305 0 Tcl_Check_Syntax.�# 306 ) push_spot�# 307 + bskip_white�# 308 $ bolp.��# 309 C '{' shouldn't be on a separate line� 2 tcl_syntax_warning/c�# 311 ( pop_spot/c��# 313 ! {� & insert�# 303y. tcl_insert_br a,�# 318 0 Tcl_Check_Syntax.�# 319 ) push_spot�# 320 + bskip_white�# 321 $ bolp� ! ;� + blooking_atD.��# 322 O '#' should be on a separate line or after a ';'� 2 tcl_syntax_warning/b�# 324 ( pop_spot/c��# 326 ! #� & insert�# 316y2 tcl_insert_comment�# 32 9 # TCL�" $1��# 330 " $1� ( keymap_p.��# 332 " $1� + make_keymap��# 333 . tcl_insert_bra ! { " $1� ) definekey��# 334 . tcl_insert_ket ! } " $1� ) definekey��# 335 2 tcl_insert_comment ! # " $1� ) definekey��# 336 1 tcl_indent_region " ^Q " $1� 2 defineke y_reserved��# 337 + indent_line ! " $1� ) definekey/b,*�# 367 $ mode+ # TCL�$ mode��# 368 $ mode! 4� ( set_mode��# 369 $ mode� * use_keymap��# 370 $ mode� 0 use_syntax_table��# 371 + indent_hook / tcl_indent_line� / set_buffer_hook��# 372 3 newline_in dent_hook 6 tcl_newline_and_indent� / set_buffer_hook��# 373 - tcl_mode_hook� . run_mode_hooks�# 365y( tcl_mode Save