my $rnd_window = sub {
    my $yn = int(rand(10));
    if ($yn == 3) {
        ('Button', 'Entry')[rand(2)];
    } else {
        undef;
    }
    };