sub set() { my $this = shift; my $id = shift; $this->{-values}->[$this->{-selected}] = $id; }