#!/usr/bin/env perl

use strict;
use warnings;

use Tk;
use Tk::DynaTabFrame;

my $mw = MainWindow::->new();

my $dtf = $mw->DynaTabFrame()->pack(qw{-fill both -expand 1});

my $dtf_static = $dtf->add(Static => qw{-label Static});
my $dtf_transient = $dtf->add(Transient => qw{-label Transient});

$mw->Button(-text => 'Show', -command => sub {
    $dtf->pageconfigure(Transient => qw{-hidden 0})
})->pack;

$mw->Button(-text => 'Hide', -command => sub {
    $dtf->pageconfigure(Transient => qw{-hidden 1})
})->pack;

MainLoop;