Leser: 1
|< 1 2 >| | 14 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
# !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();
|< 1 2 >| | 14 Einträge, 2 Seiten |