Hi all,
I've got an issue with Tk (I presume).
Arhitecture: solaris & hpux.
Perl:
Issue: After calling destroy on a Tk window it hangs.
Code:
$mainwindow = MainWindow->new(); --------- do some Tk GUI stuff --------- $mainwindow->destroy() if (defined $mainwindow); CORE::exit(0);
Output in perl -d (with debbuging output to some log)
Does anybody had this issue? Or some idea about what can I try to solve it?...skipping... Init::CODE(0x10dd0d8)(Init.pm:771): Tk::e +xit(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:7 +7): 77: delete $Windows{$top}; ------------------------ end of log ------------------------
In reply to Tk::exit hangs by guliver
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |