#2207 TK leaking on windows 2000

[Alex Collins]

This code leaks about 4k per execution on Windows 2000.

proc leak {} {
destroy .t
update idletasks
toplevel .t
update idletasks
}

set a ""
set l {after cancel $a; leak; set a [after 1000 {eval $l}]}

eval $l