use Tk;
use Tk::LabFrame;
use Tk::Dialog;

$mw = MainWindow->new;
$mw->geometry("1300x800");
$mw->title("Main window");

$nb = $mw->NoteBook( )->pack(-expand => 1, -fill => 'both');
####### Create page 1 ##########
$p1 = $nb->add('page1', -label => 'Input / Output');
$p1->Button(-text => 'Next', -width => '15', -height => '2', -command => \&go_page2,)->place( -x => 1100, -y =>620);


$btBrowse = $p1->Button(
	-text => "Browse",
	-command => \&browse_file,
	)->place( -x => 450, -y => 105);


$btSave = $p1->Button(
	-text => "Browse",
	-command => \&save_file,
	)->place( -x => 1180, -y => 105);

$entrybrowse = $p1->Entry(-width => 60)->place( -x => 20, -y => 110);
$entrysave = $p1->Entry(-width => 60)->place( -x => 750, -y => 110);

$entry_cell = $p1->Entry(-width => 20)->place( -x => 850, -y => 200);


####### Create page 2 ##########
$p2 = $nb->add('page2', -label => 'page2', -state=>'disabled');

MainLoop;


sub go_page2 {

	$name_topcell = $entry_cell->get();
print $name_topcell, "\n";




if ($name_topcell == ""){
	print "yes  \n";
	$mssg_empty = $p1->Dialog(-title => 'Fill in Values', 
  	-text => 'Please fill in all the values', 
   	-default_button => 'oke', -buttons => [ 'oke'], 
   	-bitmap => 'info' )->Show();
}
else {
	$nb->pageconfigure('page2', -state => 'normal');
        $nb->raise('page2');

}

}