$dynatab_name = 'SNG';
dynatab_frame_child($tab_Tabbed, \$tabbed_frame{$dynatab_name}, $dynatab_caption, $dynatab_title, $dynatab_image, $dynatab_colour , $dynatab_raised_colour);

##</code><code>##

sub 	dynatab_frame_child($$$$$$$) {
my ($tab_parent, $ref_child, $dynatab_caption, $dynatab_title, $dynatab_image, $dynatab_colour ,$dynatab_raised_colour) = @_;
$$ref_child = $tab_parent->add(
				-caption => $dynatab_caption, 
				-label	=> $dynatab_title,
				-tabtip => "Tip for tabno",
			)
			->pack()
			;
}

##</code><code>##

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);
}
}

##</code><code>##

[hide_tab] hiding SNG -  <>
Tk::Error: Can't set -hidden to `1' for Tk::Frame=HASH(0x20f90157e48): unknown option "-hidden" at C:.....