Think this behavior is caused by small bug in BrowseEntry.

Try replacing:

$top_f->destroy if Tk::Exists($top_f);
with
$top_f->packForget( ) if $top_f->ismapped;
[download]