# !perl
# need CS data
# need split routines
# when split print to a txt file

use strict;
use warnings;

use Tk;


use Tk::DialogBox;

use Env qw(PATH CCM_ADDR);
use DirHandle;

###
my $main;
my $mmdlistbox1;
my $rumbalistbox1;
my $rnsentlistbox1;
my $genbuttonmmd;
my $genbuttonrumba;
my $genbuttonrnsent;

my $checkmmd1;
my $checkrumba1;
my $checkrnsent1;
my $startmnth;
my $startdt;
my $startyr;
my $endmnth;
my $enddt;
my $endyr;

### gui creation ###



my $col = 0;

$main   = MainWindow->new();

$main->Label(-text => 'Anfangs Datum')
        ->grid(-row =>  0, -column =>  $col);
$startmnth = $main->Entry(-width   => 5)
            ->grid(-row => 0, -column => ++$col);
$startdt = $main->Entry(-width   => 5)
                   ->grid(-row => 0, -column => ++$col);
$startyr = $main->Entry(-width   => 5)
           ->grid(-row => 0, -column => ++$col);
$col = 0;#spalte wieder auf null
$main->Label(-text => 'End Datum')->grid(-row => 1, -column => $col);
$endmnth = $main->Entry(-width   => 5)
          ->grid(-row => 1, -column => ++$col);
$enddt = $main->Entry(-width   => 5)
           ->grid(-row => 1, -column => ++$col);
$endyr = $main->Entry(-width   => 5)
           ->grid(-row => 1, -column => ++$col);
           

$main->Label(-text => '           MMD                                             Rumba                                         RNS_ENT                                                ')->pack();  


$mmdlistbox1    = $main->Scrolled('Listbox',
                             -height     => 10
                           )
                     ->pack(-side        => 'left');

#$checkrumba1 = $main->Checkbutton(-text => "MMD       ")->pack(-side        => 'bottom');
#$checkmmd1 = $main->Checkbutton(-text =>   "Rumba    ")->pack(-side        => 'bottom');
#$checkrnsent1 = $main->Checkbutton(-text => "RNS_ENT ")->pack(-side        => 'bottom');

$genbuttonmmd = $main->Button(-text    => 'Generate MMD ',
               
         -command=> \&getcrprmmd
               
         )
                         ->pack();

###filling listboxes with the predefined component versions
#there is no query to obtain these automatically !!!
for my $mmdlist
        (
               'RADIO2/B10.2 ',
               '---',
               '---',
               '---',
               '---',
              )
{
    $mmdlistbox1->insert('end', $mmdlist);
}

MainLoop();