Help for this page

Select Code to Download

Select or download this
```
perl -MTk -e "print $Tk::VERSION"
```

Select or download this

sub butone {
    my $color = $diswindow->chooseColor(
...
        change_colors( $_, $color, $fg ) for @children;
    }
}