my $note = $main->NoteBook()->pack();
$note->{-dynamicgeometry}=1;