http://purl.org/tcl/home/man/tcl8.4/TclCmd/case.htm
This Tcl command is obsolete and is supported only for backward compatibility. At some point in the future it may be removed entirely. You should use the switch command instead.