$arg is a hashref to the aruments, as shown with Data::Dumper

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

which prints:

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

Also, changing the order of background and foreground has no effect. It seems that something is swallowing -foreground before it gets to the Label in the derived widget, since a Label given the same arguments has the expected effect. Perhaps configuring the Label individually inside Foon might work.

--Bob Niederman, http://bob-n.com