in reply to Perl TK BrowseEntry error

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;