| Subject: | PATCH for missing hyphen |
Some versions of Tk (some OS?) fail because there is a missing minus sign in front of the word command. When creating a Tk Button, all arguments must have - in front. -command=> is correct but command=> fails.
diff -c /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm.3.tagtext /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm
*** /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm.3.tagtext Tue Feb 1 15:07:25 2005
--- /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm Wed Feb 2 08:25:05 2005
***************
*** 993,999 ****
)->pack( -side => 'right', -anchor => 'w', -padx=>'10', );
if ($self->{desktop_dir}){ # Thanks, Slaven Rezic.
$frame->Button( -text => "Desktop",
! command => sub {
${$args->{-variable}} = "$ENV{USERPROFILE}/Desktop";
$dirs->configure(-directory => "$ENV{USERPROFILE}/Desktop");
$dirs->chdir("$ENV{USERPROFILE}/Desktop");
--- 993,999 ----
)->pack( -side => 'right', -anchor => 'w', -padx=>'10', );
if ($self->{desktop_dir}){ # Thanks, Slaven Rezic.
$frame->Button( -text => "Desktop",
! -command => sub {
${$args->{-variable}} = "$ENV{USERPROFILE}/Desktop";
$dirs->configure(-directory => "$ENV{USERPROFILE}/Desktop");
$dirs->chdir("$ENV{USERPROFILE}/Desktop");