Select Code to Download

$case_numbertf = $page1 -> Entry(-textvariable => \$case_number) ->pla
+ce(-x=> 380, -y=> 30);

$agency_infotf = $page1 -> Scrolled('Text', -scrollbars=> 'e', -width=
+> 25, -height=>1)->place(-x=> 15, -y=> 85);

if ($case_number eq ""){
$dialog = $mw-> Dialog(
...
        -text => "Please Complete ALL the Fields on the First Tab",
          -buttons => [ qw(OK) ])        
        ->Show();

$agency_info = $agency_infotf->get('1.0','end');
if ($agency_info eq ""){
...
        -text => "Please Complete ALL the Fields on the First Tab",
          -buttons => [ qw(OK) ])        
        ->Show();