sub build($)
{
  my ($self)= @_;

  $self->title("My Picker");
  $self->Component('Label', 'label1',
              -text=>"Select a name",
              -background=>"lightblue")->pack;

  my $lbox= $self->Scrolled("Listbox", -scrollbars => 'oe')->pack;

  $lbox->insert('end', @fields);
  $self->{lbox}= $lbox;
}