if ($frame->ismapped) {
	$frame->packForget();
}
else {
	$frame->pack(@{$frame->{PackInfo}});
}