Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
use Tk;
...
sub changed{
    print "$_[0] changed\n";
}