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