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