No, it has nothing to do with the size of the main window. In the following code, I made the window wide enough, but still those newly added tabs does not show up.

However, when you click on any existing tab, those new tabs pop up. This is about how and when the window get redraw.

use strict;

use Tk;
use Tk::NoteBook;

my $id = 0;
my $top = MainWindow->new(-title => 'client');
$top->geometry("500x100+0+0");
my $nb = $top->NoteBook()->pack();
$top->Button(-text => "Click", -command => \&add_tab)->pack();

add_tab() for 1 .. 3;

MainLoop();

sub add_tab() {
    $nb->add(++$id, -label => $id);
}
[download]

I am having trouble getting it to work (XP, activestate).

Am I / how am I using it wrong? Thanks for the help!

use strict;

use Tk;
use Tk::DynaTabFrame;

my @tab;

my $top = MainWindow->new();
my $nb  = $top->DynaTabFrame;

&add_tab() for 1 .. 6;

$nb->pack;
MainLoop();

my $i   = 0;
sub add_tab {
    $i++;
    print "adding  tab $i\n";
    $tab[$i] = $nb->add(
        -caption  => 'Tab label' . $i,
        -tabcolor => 'black',
    );
    $tab[$i]->Label( -text => 'dsdss' );

}
[download]

You have a really bad placement of your my $i = 0 line. But the reason your code dosn't work is you need to pack in the sub.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::DynaTabFrame;

my @tab;

my $top = MainWindow->new();
my $nb  = $top->DynaTabFrame->pack;

my $i = 0;

for(1..6){ &add_tab()};

MainLoop();

sub add_tab {
    $i++;
    print "adding  tab $i\n";
    $tab[$i] = $nb->add(
        -caption  => 'Tab label' . $i,
        -tabcolor => 'black',
    )->pack;

    $tab[$i]->Label( -text => 'dsdss' )->pack;
}
[download]

---

I'm not really a human, but I play one on earth. flash japh

Personally i have found tixnotebook much easier to use. i had similar/same problem with update of the notebook using tknotebook. in tixnotebook you can also color the background of each tab, have soft or sharp corners etc.