Select Code to Download

sub Populate
{
...
  $self->SUPER::Populate($args);
  $self->ConfigSpecs('DEFAULT' => [ 'SELF' ]); 
}

$VAR1 = {
          '-background' => 'blue',
          '-foreground' => 'red'
        };