...skipping...
Init::CODE(0x10dd0d8)(Init.pm:771):                              Tk::exit(0);
Tk::Widget::_Destroyed(../perl/lib/sun4-solaris/Tk/Widget.pm:354):
-----------------------
some more lines like this one above
-----------------------
Tk::Widget::_Destroyed(../perl/lib/sun4-solaris/Tk/Widget.pm:367):
367:           delete $w->{$ent};
Tk::Widget::_Destroyed(../perl/lib/sun4-solaris/Tk/Widget.pm:360):
360:         my $ent = pop(@$a);
Tk::Widget::_Destroyed(../perl/lib/sun4-solaris/Tk/Widget.pm:361):
361:         if (ref $ent)
362:          {
Tk::Widget::_Destroyed(../perl/lib/sun4-solaris/Tk/Widget.pm:367):
367:           delete $w->{$ent};
Tk::MainWindow::_Destroyed(../perl/lib/sun4-solaris/Tk/MainWindow.pm:77):
77:      delete $Windows{$top};
------------------------
end of log
------------------------