I am trying to use the DynTabFrame.
I have created a DynaTab with the following
$dynatab_name = 'SNG';
dynatab_frame_child($tab_Tabbed, \$tabbed_frame{$dynatab_name}, $dynat
+ab_caption, $dynatab_title, $dynatab_image, $dynatab_colour , $dynata
+b_raised_colour);
$tab_tabbed has been created as a DynaTabFrame
This is the code for the dyantab_frame_child
sub dynatab_frame_child($$$$$$$) {
my ($tab_parent, $ref_child, $dynatab_caption, $dynatab_title, $dynata
+b_image, $dynatab_colour ,$dynatab_raised_colour) = @_;
$$ref_child = $tab_parent->add(
-caption => $dynatab_caption,
-label => $dynatab_title,
-tabtip => "Tip for tabno",
)
->pack()
;
}
The following is a sub where I am trying to hide this tab frame using the sub hid_tab called from a button
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);
}
}
This is the error I get in the hide_tab sub
[hide_tab] hiding SNG - <>
Tk::Error: Can't set -hidden to `1' for Tk::Frame=HASH(0x20f90157e48):
+ unknown option "-hidden" at C:.....
What am I doing wrong?
The pod for DynaTab has:
-hidden
When set to a true value, causes the resulting tab to be hidden from view; can later be set to a false value to force the tab to be visible again.