use Tk;
my $mw = MainWindow->new(-title => 'IP User config form');
my $label2 = $mw->Label(-text => 'Part 1: Mandotory fields filling');
$label2->pack();
my $f1 = $mw->Frame(-borderwidth => 2, -relief => 'groove', -width => 30)
->pack(-side => 'top', -fill => 'both', -expand => 1);
my $f2 = $mw->Frame(-borderwidth => 2, -relief => 'groove', -width => 30)
->pack(-side => 'top', -fill => 'both', -expand => 1);
$f1->Label(-text => 'Config ID')->grid($f1->Entry(-textvariable => \$dss_config_id), 
$f1->Label(-text => 'Milestone ID'), 
$f1->Entry(-textvariable => \$milestone_id), -sticky => 'w', -padx => 2, -pady => 5); 
$f1->Label(-text => 'IPX_FQN')->grid($f1->Entry(-textvariable => \$ipx_fqn), 
$f1->Label(-text => 'IPX NEWLINE'), 
$f1->Entry(-textvariable => \$ipx_new_line), 
-sticky => 'w', -padx => 2, -pady => 5); 
$f1->Label(-text => 'IPX consumer groups')->grid($f1->Entry(-textvariable => \$ipx_consumer_grp), 
$f1->Label(-text => 'IPP Tag'), 
$f1->Entry(-textvariable => \$ipp_tag), 
-sticky => 'w', -padx => 2, -pady => 5); 
$f1->Label(-text => 'Process')->grid($f1->Entry(-textvariable => \$process), 
$f1->Label(-text => 'Runset version'), 
$f1->Entry(-textvariable => \$runset_ver), 
-sticky => 'w', -padx => 2, -pady => 5);
$f1->Label(-text => 'UPF version')->grid($f1->Entry(-textvariable => \$upf_ver), 
$f1->Label(-text => 'Contact (username:contact_type)'), 
$f1->Entry(-textvariable => \$contact), 
-sticky => 'w', -padx => 2, -pady => 5);

#my $label3 = $mw->Label(-text => 'Release Notes Enabling', -relief=>'groove')->pack(-fill => 'x', -side => 'bottom');
my $label3 = $mw->Label(-text => 'Release notes');
$label3->pack();



my $values2;
my @chk_boxes2 = (
[\$values2->{notes},'Notes'],
[\$values2->{issues},'Issues'],
[\$values2->{comments},'Comments'],
[\$values2->{changes},'Changes'],
);
check_box2(\@chk_boxes2);
$f2->pack();

my $button = $mw->Button(-text => "Save and exit", -command => \&reForm)->grid('-', '-', '-', -pady => 10)->pack(-side=>'bottom');

$f2->pack();
MainLoop; 
sub check_box2 {
	my $data = shift;
	my $index = 0;
	
	for my $chk_box ( @{$data} ) {
		my $column = $index % 2;
        	my $row    = int($index/2);
        	my $chk_x = $f2->Checkbutton(
                	-text       => $chk_box->[1],
                	-variable   => $chk_box->[0]
                	)->grid( -column => $column, -row => $row, -sticky => 'w');

        	#$chk_x->select if $index == 0;
			
        	$index++;

	}    	  	 
my $chk_x=$f2->pack(-side=>'bottom');

}