Select Code to Download

my $d  = $dd->Frame()->pack();  
my $n = $d->NoteBook()->pack( -expand => 0, -fill => 'x' );

my $d  = $dd->add(Tk::Frame);
$d->pack;  
my $n = $d->add(Tk::NoteBook);
$n->pack( -expand => 0, -fill => 'x' );