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


##</code><code>##

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


##</code><code>##

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

##</code><code>##

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