Subject: | Can't locate Tk/Finish.pm |
Date: | Wed, 13 Feb 2008 19:00:17 +0100 |
To: | bug-Tk-PathEntry [...] rt.cpan.org |
From: | Pierre de Buyl <pdebuyl [...] ulb.ac.be> |
Version: PathEntry.pm v 3.0
perl version : perl v5.8.6
OS : Mac OS X 10.4.11 , i386 platform, uname -a gives Darwin hostname
8.11.1 Darwin Kernel Version 8.11.1: Wed Oct 10 18:23:28 PDT 2007;
root:xnu-792.25.20~1/RELEASE_I386 i386 i386
Bug : The following message pops up when the PathEntry widget is in
focus and I click out of it :
******
Assuming 'require Tk::Finish;' at ./writeinit.pl line 99
Tk::Error: Can't locate Tk/Finish.pm in @INC (@INC contains: ... $mw-
Show quoted text
>bind($class,"<$_-Right>" => '_forward_path_component'); .) at /
Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/Widget.pm line 270.
Tk::Widget::_AutoloadTkWidget at /Library/Perl/5.8.6/darwin-thread-
multi-2level/Tk/Widget.pm line 268
Tk::Widget::AUTOLOAD at /Library/Perl/5.8.6/darwin-thread-
multi-2level/Tk/Widget.pm line 338
Tk::PathEntry::__ANON__ at PathEntry.pm line 73
<FocusOut>
(command bound to event)
******
I tracked the bug to the line 72 and 73 of PathEntry.pm :
my $choices_t = $w->Subwidget("ChoicesToplevel");
$choices_t->Finish;
which I commented out and replaced by
$w->Finish;
The ChoicesTopLevel does not seem to know the Finish method.
The following code reproduces the error when setting the pathentry
widget out of focus.
******
#!/usr/bin/perl
use Tk;
use Tk::PathEntry;
use Cwd;
my $mw = new MainWindow;
my $localpath = cwd();
$mw->PathEntry(-textvariable=>\$localpath)->pack();
$mw->Entry(-textvariable=>\$sometext)->pack();
MainLoop;
******
I don't know if what I did may cause other bugs, but I thougt I would
signal the one I found.
Pierre de Buyl
-----------------------------------------------------------
Pierre de Buyl
Physique Non-Linéaire et Mécanique Statistique
Université Libre de Bruxelles - CP 231
1050 Ixelles - Belgique
mail: pdebuylATulb.ac.be
tél: +32 (0)2 650 57 97
fax: +32 (0)2 650 57 67
-----------------------------------------------------------