Thx for all the replies. I am still getting same error after multiple reinstall. Previous code i posted was from my work so i could not post whole code. I am posting a new full code, where i am getting same error.
use strict; use warnings; use Tk; require Tk::BrowseEntry; my @items = qw(check0 check1 check2); my $mw = MainWindow->new(); my $default_choice = "check0"; my $dropDown = $mw->BrowseEntry( -label=>'item list', -variable=>\$default_choice, -browsecmd=>\&run )->pack(); $dropDown->insert('end', "check0"); $dropDown->insert('end',"check1"); $dropDown->insert('end',"check2"); $mw->Button(-text=>'exit', -command=>sub{exit;})->pack(); MainLoop; sub run{ my $x = 0; foreach my $element (@items){ print $element eq lc($default_choice)? "$default_choice index +[$x]\n" : next; $x++; } }
Please let me know if i can get that missing labelPack.al and just copy\paste it in my directory
In reply to Re^4: Tk Failed to AUTOLOAD 'Tk::Frame::labelPack' at C:\Strawberry\perl\lib\Tk/Tk/Widget.pm line 203.
by pks283
in thread Tk Failed to AUTOLOAD 'Tk::Frame::labelPack' at C:\Strawberry\perl\lib\Tk/Tk/Widget.pm line 203.
by pks283
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |