in reply to Bad option in Widget.pm

But you show yourself using the wrong option "expand" rather than "-expand": 
$tab1->Label( -textvariable=>\$starttime )->pack( expand=>1 );
$tab2->Label( -textvariable=>\$raisetime )->pack( expand=>1 );
$tab3->Button( -text=>'Quit', -command=>sub{ exit; } )->pack( expand=>
+1 );

[download]
Isn't that what the error message was referring to?

Replies are listed 'Best First'.
Re^2: Bad option in Widget.pm
by BioGeek (Hermit) on Apr 13, 2005 at 17:28 UTC
    Indeed, that was the culprit. I thougth that if the code was featured in a tutorial on an IBM-site, that it would be tested and flawless, but... apparently not.
[reply]
      I thougth that if the code was featured in a tutorial on an IBM-site, that it would be tested and flawless

      The change to require the '-' in front of options, occured when PerlTk upgraded to the latest TCL base. So the old PerlTk was versioned with 800 numbers, while the current version is series 804.

      So the code does run flawlessly on the Tk version, on which it was written ..Tk800.xxx. There are many old Tk scripts like that floating around. Just go to the snippets and code sections of perlmonks and look for old Tk snippets from a few years ago. They will all give those errors if you try and run them on Tk804.xxx. It's simple to fix the scripts.

      The same is true of Gtk2 scripts..the libraries are always being improved, and sometimes it breaks "old syntax".

      I'm not really a human, but I play one on earth. flash japh
[reply]
      warn("err is human"x 2)'
[reply]

In Section Seekers of Perl Wisdom