Tcl Library Source Code

There is a memory leak in tkchat; it does not clean up 
unused URL-* tags anywhere.  This doesn't matter too 
much in the main window, where URLs are fairly 
uncommon, but the users-online window at the side is 
filled with URLs and it gets refreshed (with completely 
new URL-* tags) each time.  And yet none of the old 
tags are ever deleted, resulting in the accumulation of 
several thousand dead tags an hour!  This is not good.  
Not good at all!

A possible fix for this is to add the following code to the 
procedure updateNames immediately after the line that 
deletes the old content of the .names widget:
  foreach tagname [.names tag names] {
     if {[string match URL-* $tagname]} {
        .names tag delete $tagname
     }
  }

Please fix this ASAP, as it is a serious leak for anyone 
using Tkchat for longer than an hour or two (as seems 
to be fairly common.)

Logged In: YES 
user_id=124643

Fix committed to CVS.