Re: Change button color with Tk

I think it's because you need to change:

my $button1 = $mw->Button(-text => "18-Letters",
                          -command => sub {print OUTFILE "18L\n", back
+ground => "yellow"})->pack(-side =>"top");
[download]

to this:

my $button1 = $mw->Button(-text => "18-Letters",
                          -command => sub {print OUTFILE "18L\n" },
                          -background => "yellow"})->pack(-side =>"top
+");
[download]

I don't use Tk or Tkx, but it seems to me that:

sub { print OUTFILE "18L\n", background => "yellow" }
[download]

Can't possibly do what you're expecting. The print statement doesn't know anything about colors. In fact, the code is essentially equal to:

sub { print OUTFILE "18L\n", "background", "yellow" }
[download]

So if you look at the file you're printing to, I'd expect you'll see some unexpected "backgroundyellow" strings in there.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

Comment on Re: Change button color with Tk Select or Download Code

Replies are listed 'Best First'.
Re^2: Change button color with Tk by PerlCowboy (Novice) on Nov 01, 2017 at 17:26 UTC
This got me a little farther, but now I need to call the subroutine when the button is clicked. `my $button1 = $mw->Button(-text => "18-Letters", -command => sub {print OUTFILE "18L\n",\&onclick,} ,) ->pack(-side => "top"); sub onclick{ $button1->configure(-background=>"yellow") }` [download]	[reply] [d/l]