sub build_class {
    my ($class) = @_;

    my $destructor = sub {
        my ($this) = @_;
        delete $is_selected{ get_obj_id($this) };
    };
    $class->register_destructor($destructor);
}