Tclwise is a Tcl book with (currently) the first nine chapters online for free. The author is Salvatore Sanfilippo.
The book can be read at http://www.invece.org/tclwise/