my $mw=MainWindow->new();
$mw->minsize(qw(545 470));

##</code><code>##

my $notebook=$mw->NoteBook(-font=>"Helvetica 12")->pack(-expand => 1, -fill => 'both');
my $page1=$notebook->add('page1', -label=>'Case Information');

my $generall=$page1->Label(-text=>'GENERAL INFORMATION', -font=>"Times 12")->place(-x=>160, -y=>2);