Leser: 3
|< 1 2 >| | 14 Einträge, 2 Seiten |
1 2 3
my $pageframe = $page1 -> Frame (-background => 'sky blue'); $pageframe -> pack(); $pageframe->Checkbutton(-text=>"AlltheWeb", -font=>'{Bimini} 12 {bold}', -background=>'sky blue', -activebackground=>'sky blue', -variable=>\$value)->pack(-side=>'left');
$pageframe->Checkbutton(-text=>"AlltheWeb", -font=>'{Bimini} 12 {bold}', -background=>'sky blue', -activebackground=>'sky blue', -variable=>\$value)->pack(-side=>'bottom');
1 2 3 4 5 6 7
my $pageframe = $page1 -> Frame (-background => 'sky blue'); $pageframe -> pack(); # ... for(my $i = 0;$i < 4;$i++) { $pageframe->Checkbutton(-text=>$av_searches[$i], -font=>'{Bimini} 12 {bold}', -background=>'sky blue', -activebackground=>'sky blue', -variable=>\$value)->pack(-side=>'left'); }
$page1->Checkbutton(-text=>"Test", -font=>'{Bimini} 12 {bold}', -background=>'sky blue', -activebackground=>'sky blue', -variable=>\$value)->pack(-side=>'bottom');
1 2 3 4 5 6 7 8 9 10 11 12 13 14
my $pageframe = $page1 -> Frame (-background => 'sky blue'); $pageframe -> pack(-side => 'top'); my $zweiterframe = $page1 -> Frame (-background => 'sky blue'); $zweiterframe -> pack(-side => 'bottom'); $pageframe->Label(-text=> 'Hier finden Sie alle in Scrutator verfügbaren Suchmaschinen.', -font=>'{Bimini} 12 {bold}', -background=>'sky blue')->pack(); for(my $i = 0;$i < 6;$i++) { my $frameverwendung = $pageframe; $frameverwendung->Checkbutton(-text=>$av_searches[$i], -font=>'{Bimini} 12 {bold}', -background=>'sky blue', -activebackground=>'sky blue', -variable=>\$value)->pack(-side=>'left'); $checkbuttonzahl++; if($checkbuttonzahl == 3) { my $chechbuttonzahl = 0; $frameverwendung = $zweiterframe; } }
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
my $headline = $page1->Label(
-text => 'Hier finden Sie alle in Scrutator verfügbaren Suchmaschinen.',
-font => '{Bimini} 12 {bold}',
-background => 'sky blue')
->pack(-side => "top");
# in $frame ist der aktuelle Frame für die jeweilige Zeile enthalten
my $frame;
# in $anz steht die Anzahl der Suchmaschinen
my $anz = 6;
for my$i (1..int($anz/3))
{
# jetzt erstmal einen Frame erzeugen
$frame = $page1->Frame(-background => 'sky blue')
->pack(-side => "top");
# dann kann man die 3 nächsten Suchmaschinen eintragen
for my$j ($i..$i*3)
{
$frame->Checkbutton(-text => $av_searches[$j-1],
-font => '{Bimini} 12 {bold}',
-background => 'sky blue',
-activebackground => 'sky blue',
-variable => \$value)->pack(-side => "left");
}
}
for my $j ($i..$i*3)
|< 1 2 >| | 14 Einträge, 2 Seiten |