sub Populate
{
  my($self, $args) = @_;
  print Dumper($args);
  $self->SUPER::Populate($args);
  $self->ConfigSpecs('DEFAULT' => [ 'SELF' ]); 
}

##</code><code>##

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