| Subject: | Tk::ErrorDialog, no Dialog on win32 |
perl 5.8.4 custom built (non AS)
or
AS perl 5.6 / 5.8
Tk 804.027
Tk::ErrorDialog 4.007 (from 804.027)
Description: The ErrorDialog doesn't appear.
a script to show the error:
#!perl -w
use strict;
use Tk;
use Tk::ErrorDialog;
my $mw = new MainWindow();
sub go {
die "screaming";
}
$mw->Button(-text => 'Go', -command => \&go)->pack;
MainLoop;
This produces:
Background Error: window ".errordialog.dialog" was deleted before its
visibility
changed at C:/progs/perl/site/lib/Tk/Widget.pm line 926.
The cause seems to be that the toplevel is withdrawn and needs a deiconify to be handled correctly under win32.
A workaround is attached, but doesn't handle the trace window correctly. It will allways be displayed (still better than never :-)
Thomas
Message body not shown because it is not plain text.