| Subject: | warning on -image with no filename |
| Date: | Sat, 20 Oct 2012 10:03:46 +1100 |
| To: | bug-Tk-WidgetDump [...] rt.cpan.org |
| From: | Kevin Ryde <user42 [...] zip.com.au> |
With Tk::WidgetDump 1.37, recent debian i386 perl 5.14.2 and perl-tk
804.030, if a label has a -image without a filename then warning is
printed. Eg foo.pl below
perl foo.pl
=>
Use of uninitialized value in string ne at /usr/share/perl5/Tk/WidgetDump.pm line 849.
I struck this trying WidgetDump in a program which draws into a
program-created Tk::Photo rather than loading from a disk file.
#!/usr/bin/perl -w
use Tk;
use strict;
use Tk::WidgetDump;
my $mw = MainWindow->new;
$mw->Label(-image => $mw->Photo(-width=>40,-height=>20));
$mw->WidgetDump;
MainLoop;
exit 0;