sub Populate
  {
    my($cw, $args) = @_;

    $cw->SUPER::Populate($args);

    my($lclass, $oclass) = @{delete $args->{'-classes'}};

    my($l) = $cw->Label(-class => $lclass)->pack(-side => 'left', -fill => 'both', -expand => 1);
    my($o) = $cw->Optionmenu(-class => $oclass)->pack(-side => 'right', -fill => 'both', -expand => 1);

    $cw->Advertise('label'      => $l);
    $cw->Advertise('optionmenu' => $o);

    $cw->ConfigSpecs(
		     '-text'         => [$l, undef, undef, undef],
		     '-textvariable' => [$l, undef, undef, undef],
		     '-options'      => [$o, undef, undef, undef],
		     DEFAULT         => [SELF, undef, undef, undef]
		    );
  }