sub del_frames {
    my $obj = shift;
    while( @{$obj->{'_frames_'}} ) {
        pop @{$obj->{'_frames_'}};
    }
}