if (! Exists($h_int_frame)) {
	$h_int_frame = $hframe->Frame->pack;
} else {
	$h_int_frame -> DESTROY;
	$h_int_frame = $hframe->Frame->pack;
}
my $scroll_frame = $hframe->Scrolled ('Frame', -scrollbars => 'e')->pack;