<?xml version="1.0"?>
<!-- syntaxdefinition for TCL 2004 by MJC -->

<SyntaxDefinition name ="TCL/TK" extensions = ".tcl;.tk">

	<Environment>
		<Default      color = "SystemColors.WindowText"    bgcolor = "SystemColors.Window"/>
		<Selection    color = "SystemColors.HighlightText" bgcolor = "SystemColors.Highlight"/>
<!--		<Selection    bgcolor = "LightBlue"/> -->
		<VRuler       color = "SystemColors.ControlLight"/>
		<InvalidLines color = "Red"/>
		<CaretMarker  color = "Yellow"/>

		<LineNumbers  color = "SystemColors.ControlDark" bgcolor = "SystemColors.Window"/>

		<FoldLine     color = "#808080" bgcolor="Black"/>
		<FoldMarker   color = "#808080" bgcolor="White"/>

		<EOLMarkers   color = "#E0E0E5"/>
		<SpaceMarkers color = "#E0E0E5"/>
		<TabMarkers   color = "#E0E0E5"/>
	</Environment>

	<Properties>
		<Property name="LineComment" value="#"/>
	</Properties>

	<Digits name ="Digits" bold ="false" italic ="false" color ="DarkBlue"/>

  	<RuleSets>
		<RuleSet ignorecase = "false">

	    	    <Delimiters>~!@%^&amp;*()-+=|\/{}[]:;"'&lt;&gt;,.?</Delimiters>

			<Span name ="LINECOMMENT" bold ="false" italic ="false" color ="Green" stopateol ="true">
				<Begin>#</Begin>
			</Span>

			<Span name ="BLOCKCOMMENT" bold ="false" italic ="true" color ="Green" stopateol ="false">
				<Begin>/*</Begin>
				<End>*/</End>
			</Span>

			<Span name ="STRING" bold ="false" italic ="false" color ="Magenta" stopateol ="true">
				<Begin>"</Begin>
				<End>"</End>
			</Span>

			<Span name = "CHAR" bold = "false" italic = "false" color = "Sienna" stopateol = "true">
				<Begin>'</Begin>
				<End>'</End>
			</Span>

			<KeyWords name ="Punctuation" bold ="false" italic ="false" color ="Magenta">
				<Key word =  "?" />
				<Key word =  "," />
				<Key word =  "." />
				<Key word =  "(" />
				<Key word =  ")" />
				<Key word =  "[" />
				<Key word =  "]" />
				<Key word =  "{" />
				<Key word =  "}" />
				<Key word =  "+" />
				<Key word =  "-" />
				<Key word =  "/" />
				<Key word =  "%" />
				<Key word =  "*" />
				<Key word =  "&lt;" />
				<Key word =  "&gt;" />
				<Key word =  "^" />
				<Key word =  "!" />
				<Key word =  "|" />
			</KeyWords>

			<KeyWords name = "TclKeywords" bold="false" italic="false" color="Blue">
				<Key word = "after" />
		                	<Key word = "append" />
				<Key word = "array" />
				<Key word = "binary" />
				<Key word = "break" />
				<Key word = "catch" />
				<Key word = "cd" />
				<Key word = "clock" />
				<Key word = "close" />
				<Key word = "concat" />
				<Key word = "console" />
				<Key word = "continue" />
				<Key word = "error" />
				<Key word = "eof" />
				<Key word = "eval" />
				<Key word = "exec" />
				<Key word = "exit" />
				<Key word = "expr" />
				<Key word = "fblocked" />
				<Key word = "fconfigure" />
				<Key word = "fcopy" />
				<Key word = "file" />
				<Key word = "fileevent" />
				<Key word = "flush" />
				<Key word = "for" />
				<Key word = "foreach" />
				<Key word = "format" />
				<Key word = "gets" />
				<Key word = "glob" />
				<Key word = "global" />
				<Key word = "history" />
				<Key word = "if" />
				<Key word = "incr" />
				<Key word = "info" />
				<Key word = "interp" />
				<Key word = "join" />
				<Key word = "lappend" />
				<Key word = "lindex" />
				<Key word = "linsert" />
				<Key word = "list" />
				<Key word = "llength" />
				<Key word = "load" />
				<Key word = "lrange" />
				<Key word = "lreplace" />
				<Key word = "lsearch" />
				<Key word = "lsort" />
				<Key word = "open" />
				<Key word = "pid" />
				<Key word = "proc" />
				<Key word = "puts" />
				<Key word = "pwd" />
				<Key word = "read" />
				<Key word = "regexp" />
				<Key word = "regsub" />
				<Key word = "rename" />
				<Key word = "return" />
				<Key word = "scan" />
				<Key word = "seek" />
				<Key word = "set" />
				<Key word = "socket" />
				<Key word = "source" />
				<Key word = "split" />
				<Key word = "string" />
				<Key word = "subst" />
				<Key word = "switch" />
				<Key word = "tell" />
				<Key word = "time" />
				<Key word = "trace" />
				<Key word = "unknown" />
				<Key word = "unset" />
				<Key word = "uplevel" />
				<Key word = "upvar" />
				<Key word = "vwait" />
				<Key word = "while" />
				<Key word = "else" />
				<Key word = "elseif" />
				<Key word = "then" />
			</KeyWords>


			<KeyWords name = "TkWish" bold="false" italic="false" color="Magenta">
			    <Key word = "button" />
			    <Key word = "checkbutton" />
			    <Key word = "radiobutton" />
			    <Key word = "menubutton" />
			    <Key word = "menu" />
			    <Key word = "canvas" />
			    <Key word = "label" />
			    <Key word = "entry" />
			    <Key word = "message" />
			    <Key word = "listbox" />
			    <Key word = "text" />
			    <Key word = "scrollbar" />
			    <Key word = "scale" />
			    <Key word = "frame" />
			    <Key word = "toplevel" />
			    <Key word = "bell" />
			    <Key word = "bind" />
			    <Key word = "bindtags" />
			    <Key word = "clipboard" />
			    <Key word = "destroy" />
			    <Key word = "event" />
			    <Key word = "focus" />
			    <Key word = "font" />
			    <Key word = "grab" />
			    <Key word = "grid" />
			    <Key word = "image" />
			    <Key word = "lower" />
			    <Key word = "option" />
			    <Key word = "pack" />
			    <Key word = "place" />
			    <Key word = "raise" />
			    <Key word = "selection" />
			    <Key word = "send" />
			    <Key word = "tk" />
			    <Key word = "tkerror" />
			    <Key word = "tkwait" />
			    <Key word = "update" />
			    <Key word = "winfo" />
			    <Key word = "wm" />
			    <Key word = "tk_bisque" />
			    <Key word = "tk_chooseColor" />
			    <Key word = "tk_dialog" />
			    <Key word = "tk_focusFollowsMouse" />
			    <Key word = "tk_focusNext" />
			    <Key word = "tk_focusPrev" />
			    <Key word = "tk_getOpenFile" />
			    <Key word = "tk_getSaveFile" />
			    <Key word = "tk_messageBox" />
			    <Key word = "tk_optionMenu" />
			    <Key word = "tk_popup" />
			    <Key word = "tk_setPalette" />
			    <Key word = "default" />
			    <Key word = "debug" />
			    <Key word = "variable" />
			    <Key word = "exists" />
			    <Key word = "foreach" />
			    <Key word = "get" />
			    <Key word = "case" />
			    <Key word = "loadboolean" />
			    <Key word = "loadoption" />
			    <Key word = "namespace" />
			    <Key word = "package" />
			    <Key word = "parray" />
			    <Key word = "scroll" />
			    <Key word = "configure" />
			    <Key word = "dialog" />
			    <Key word = "geometry" />
			    <Key word = "lbSingSel" />
			    <Key word = "menubar" />
			    <Key word = "options" />
			    <Key word = "pack-old" />
			    <Key word = "stderr" />
			    <Key word = "stdin" />
			    <Key word = "stdout" />
			    <Key word = "title" />
			    <Key word = "tkvars" />
			    <Key word = "wm" />
			    <Key word = "wish" />
			</KeyWords>


			<KeyWords name = "Options" bold="false" italic="false" color="SaddleBrown">
			    <Key word = "-anchor" />
			    <Key word = "-background" />
			    <Key word = "-bg" />
			    <Key word = "-bitmap" />
			    <Key word = "-class" />
			    <Key word = "-command" />
			    <Key word = "-exact" />
			    <Key word = "-expand" />
			    <Key word = "-fg" />
			    <Key word = "-fill" />
			    <Key word = "-font" />
			    <Key word = "-foreground" />
			    <Key word = "-format" />
			    <Key word = "-height" />
			    <Key word = "-ipadx" />
			    <Key word = "-justify" />
			    <Key word = "-length" />
			    <Key word = "-nonewline" />
			    <Key word = "-option" />
			    <Key word = "-setgrid" />
			    <Key word = "-side" />
			    <Key word = "-state" />
			    <Key word = "-text" />
			    <Key word = "-width" />
			    <Key word = "-wrap" />
			    <Key word = "-yscrollcommand" />
			</KeyWords>

		</RuleSet>
	</RuleSets>
</SyntaxDefinition>
