$tab_tabbed has been created as a DynaTabFrame$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);
This is the code for the dyantab_frame_child
The following is a sub where I am trying to hide this tab frame using the sub hid_tab called from a buttonsub 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() ; }
This is the error I get in the hide_tab subsub 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); } }
What am I doing wrong?[hide_tab] hiding SNG - <> Tk::Error: Can't set -hidden to `1' for Tk::Frame=HASH(0x20f90157e48): + unknown option "-hidden" at C:.....
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.
In reply to DynaTab Hide error by merrymonk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |