for all us tcl/tk newbies heres something i found
http://mini.net/tcl/1304.html