sub set_widget {
    my ($self, $arg) = @_;
    die "Can't set_widget to "$arg"\n" unless $arg =~ m/something/;
    $self->{WIDGET} = $arg;
}