![]() |
![]() |
3 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
sub list_gui {
my $top = make_toplevel('Übersicht', '350x350+200+200');
my $top_frame = $top->Frame(-background => 'red')
->pack(-side => 'top', -expand => 1, -fill => 'x', -anchor => 'n');
my $bottom_frame = $top->Frame(-background => 'lightblue')
->pack(-side => 'top', -expand => 1, -fill => 'both');
#top frame
$top_frame->Button(-text => 'Druckversion', -command => sub {})
->grid(-row => 0, -column => 0, -sticky => 'w');
$top_frame->Label(-text => 'Sortierung: ')
->grid(-row => 0, -column => 1);
my $sorting = $top_frame->BrowseEntry(-background => 'white')
->grid(-row => 0, -column => 2);
$sorting->insert('end', 'Nach Räumen');
$sorting->insert('end', 'Nach Alphabet');
}
1
2
3
4
5
my $top_frame = $top->Frame(-background => 'red')
->pack(-side => 'top', -expand => 1, -fill => 'x', -anchor => 'n');
my $bottom_frame = $top->Frame(-background => 'lightblue')
->pack(-side => 'top', -expand => 1, -fill => 'both');
![]() |
![]() |
3 Einträge, 1 Seite |