Help for this page

Select Code to Download


  1. or download this
    my $mw=MainWindow->new();
$mw->minsize(qw(545 470));
  2. or download this
    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);