Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Tk Failed to AUTOLOAD 'Tk::Frame::labelPack' at C:\Strawberry\perl\lib\Tk/Tk/Widget.pm line 203.

by beech (Parson)
on Jul 29, 2016 at 06:38 UTC ( #1168795=note: print w/replies, xml ) Need Help??


in reply to Tk Failed to AUTOLOAD 'Tk::Frame::labelPack' at C:\Strawberry\perl\lib\Tk/Tk/Widget.pm line 203.

Hi,

The code you posted produces no errors after adding use Tk;

Try again please

  • Comment on Re: Tk Failed to AUTOLOAD 'Tk::Frame::labelPack' at C:\Strawberry\perl\lib\Tk/Tk/Widget.pm line 203.
  • Download Code

Replies are listed 'Best First'.
Re^2: Tk Failed to AUTOLOAD 'Tk::Frame::labelPack' at C:\Strawberry\perl\lib\Tk/Tk/Widget.pm line 203.
by pks283 (Novice) on Jul 29, 2016 at 06:51 UTC

    Yes ... but i am still getting error. What perl and Tk rev you are using? I am on Win10, perl 5.24 and Tk33

      :) I'm on windows with Tk 804.033, the perl version is not important

      Yes ... but i am still getting error.

      Did you run the code you posted?

      It doesn't produce the labelPack error

      I misspoke earlier, it does complain  Undefined subroutine &main::getselect_product

        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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1168795]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2021-01-21 23:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?