=head2 clear_frame( $frame )

Entferne alle Kindelemente aus dem Frame.

Siehe L<http://www.perlmonks.org/?node_id=643687>

=cut

sub clear_frame {
	my $frame = shift or die('Missing frame.');
	
	my @children = $frame->packSlaves();
	foreach my $widget ( @children ) {
		$widget->packForget(); 
        $widget->destroy();
	}
	
	return 1;
} # /clear_frame