http://qs321.pair.com?node_id=1062429

glenn has asked for the wisdom of the Perl Monks concerning the following question:

So i'm trying to make my GUI look better and although i could put into every widget "-background => $color{lbl}[0], -foreground => $color{lbl}[0]" using an hash of arrays i would like to store all these in a hash so that if some have an active fg/bg colors as well it's all the same and alot cleaner, ultimately i could put all options in the hash. Has anybody tried to do this? I keep getting 'odd number of parameters' error. Thanks for the wisdom.
my %colors = ( but_quit => { '-background' => 'red', '-foreground' => 'black', }, lbl => { '-background' => 'tan', '-foreground' => 'black', }, ent => { '-background' => 'white', '-foreground' => 'black', }, ); $frame->LabEntry(-label=>"IP Address", -labelWidth=>$lblwidth, -labelP +ack=>[-side=>'left', -anchor=>'w'], -textvariable => \$ServiceSystem, + $colors{lbl} )
PS: i have also tried:
lbl => { '-background => tan, -foreground => black', },