Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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

by Marshall (Canon)
on Jul 29, 2016 at 17:46 UTC ( #1168826=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.

I use ActiveState 5.22 now. But for grins, I ran your code and it worked with the standard distribution (no extra installations required, the standard Tk was enough albeit with some extra use statements). After adding use strict; and use warnings;, I had to add more stuff to get it to run, but run it does. I suspect that there is something that is not apparent in the code that you posted.
use warnings; use strict; use Tk; use Tk::NoteBook; use Tk::BrowseEntry; my @product_list = (qw/asdf lijlj/); my @package_list = (qw/opiu qwerty/); my $product_st; my $package_st; my $mw = MainWindow->new(); $mw -> geometry("1000x400"); my $book = $mw->NoteBook()->pack(); my $title = $mw -> title("Spec Analysis"); $mw ->BrowseEntry(-label => 'Product', -choices=> \@product_list, -var +iable => \$product_st, -browsecmd =>\&getselect_product, -font => "co +urier 11 bold" ) ->place(-x=>1,-y=>120); $mw ->BrowseEntry(-label => 'Package', -choices=> \@package_list, -var +iable => \$package_st, -browsecmd =>\&getselect_package, -font => "co +urier 11 bold" ) ->place(-x=>275,-y=>120); MainLoop;
  • Comment on Re: Tk Failed to AUTOLOAD 'Tk::Frame::labelPack' at C:\Strawberry\perl\lib\Tk/Tk/Widget.pm line 203.
  • Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (8)
As of 2021-01-19 14:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?