sub del_frame {
    for my $frame (@_) {
        $frame -> destroy();
        undef $frame;
    }
}