Listings package with Tcl/Tk support?

[Roberto Hernandez]

I checked through the listings package, but there's no support for 
Tcl/Tk. Does anyone know of a similar package that does?

TIA,

Roberto