Select Code to Download

@color = qw|red green blue|;

...
        $X+1, $Y+1,
        -fill => $color[1];
    );

$widget->setPalette('red');

($r, $g, $b) = $widget->rgb("red");
$hex_color = "$r$g$b$";
$mw->Button( -background => $hexcolor);