![]() |
![]() |
4 Einträge, 1 Seite |
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
#!/usr/bin/perl
use Tk::LabFrame;
use Tk::NoteBook;
use strict;
use Tk 8.0;
my $mw = MainWindow->new;
$mw->title("TEST TEST");
# *****************************************************************************
# ** Generiere NOTEBOOK *******************************************************
# *****************************************************************************
my $MyTab = $mw->NoteBook() -> pack(
-side => 'top',
-fill => 'x',
-anchor => 'nw',
-padx => 5,
-pady => 5);
# *****************************************************************************
# ** Generiere TAB1 ***********************************************************
# *****************************************************************************
my $MyTabOne = $MyTab->add ('tab1',
-label => 'Bla bla bla',
-state => 'normal',
-justify => 'left');
my $MyTabOne_1 = $MyTabOne->LabFrame(-label=>'[ Überschrift ]',
-labelside =>'acrosstop')
->pack(-side =>'left',
-expand=>'0',
-fill =>'y');
my $MyTabOne_Lab_11 = $MyTabOne_1->Label(-text=>"Ein Eintrag: ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_11= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_12 = $MyTabOne_1->Label(-text=>"Hallo: ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_12= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_13 = $MyTabOne_1->Label(-text=>"Alles klar: ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_13= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_14 = $MyTabOne_1->Label(-text=>"Geht so: ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_14= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
MainLoop;
![]() |
![]() |
4 Einträge, 1 Seite |