Another way to do it is to use the -textvariable attribute of the Button widget. What that does is bind the button text to a variable and whenever the variable changes, the button text will automatically change.

A modification of the code above: 

#!/usr/bin/perl

use strict;
use Tk;

my $FILTER_IS_ON = 0;
my $tv = $FILTER_IS_ON ? 'turn off' : 'turn on';

my $top = new MainWindow();

my $b = $top->Button(-textvariable=> \$tv,
                     -command => \&turn)->pack();

MainLoop();

sub turn {
    $FILTER_IS_ON = $FILTER_IS_ON ? 0 : 1;
    $tv = $FILTER_IS_ON ? 'turn off' : 'turn on';
}

[download]
The benefit of doing it this way is that you don't have to worry about explicitly updating the widget yourself. It happens automatically whenever the value of the bounded variable changes.

hope this helps,
davidj

In reply to Re: TK: button update by davidj
in thread TK: button update by water

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.