• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

TK Checkbuttons in scrollarea

Hallo,

das angehängte beispiel script holt erstellt eine Liste von TK-
Checkbuttons aus dem Internet (www.dlf.de....) da die Anzahl undefiniert
ist hätte ich gerne die Checkbuttons in einem Scrollbereich um die
Fenstergröße kleiner bzw. änderbar zu bekommen.

Wie geht das? hat mir jemand ein Beispiel?
-------------------------------------------------------------------------
#!/usr/bin/perl -w
use Tk;
use strict;
use warnings;
use LWP::Simple;
use HTML::TokeParser;
use Data::Dumper;
my %htmldata;
my $seite=1;
my @ckbtn;
my $i=0;
my $mw = MainWindow->new;

do {
%htmldata = dlf_page(2009,7,1,$seite);
while ( my ($key, $value) = each(%htmldata) ) {
$ckbtn[$i++] = $mw->Checkbutton(-text =>$value,
-anchor=>'w')->pack(-fill,'x');
}
$seite++;
} while (%htmldata);
MainLoop;


sub dlf_page {
my ($year,$month,$day,$page) = @_;
my $html = get(sprintf("http://www.dradio.de/aod/html/?year=%04d&month=%
02d&day=%02d&page=%02d&",$year,$month,$day,$page));
my $p = HTML::TokeParser->new( \$html );
my $count;
my %retval;

while ( my $token = $p->get_tag("a") ) {
my $url = $token->[1]{href} || "-";
if ( $url =~ /mp3$/ ) {
my $text = $p->get_trimmed_text("/a");
$retval{$url} = $text;

}
}
return %retval;
}

Antworten