sub hide_tab() {

my ($hidden_value, $dynatab_name);

$dynatab_name = 'SNG';

print "\n[hide_tab] entered\n";

$hidden_value = $tabbed_frame{$dynatab_name}->cget(-hidden);

print "\n[hide_tab] for $dynatab_name - $hidden_value <$hidden_value>\n";

if(length($hidden_value) == 0) {

	print "\n[hide_tab] hiding $dynatab_name - $hidden_value <$hidden_value>\n";

	$tabbed_frame{$dynatab_name}->configure(-hidden => 1);
}
}