Forums Neueste Beiträge
 

TK Checkbuttons in scrollarea

23/07/2009 - 07:31 von Gerhard Wolf | Report spam
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...mp;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;
}
 

Lesen sie die antworten

#1 ekkehard.horner
23/07/2009 - 10:27 | Warnen spam
Gerhard Wolf schrieb:
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.



[...]

Vielleicht hilft ein Tk::Pane:

#!/usr/bin/perl -w
use strict;
use warnings;

use Tk;
use Tk::Pane;

my @ckbtn;
my $mw = MainWindow->new;
my $pn = $mw->Scrolled( "Pane", -scrollbars => "se" );

for my $b ( 0 .. 1000 ) {
$ckbtn[ $b ] = $pn->Checkbutton(
-text => "$b xxxxxxxxxxxxxxxxxx",
-anchor => 'w'
)->pack( -fill, 'x' );
}
$pn->pack( -padx => 4, -pady => 4, -expand => 1, -fill => 'both' );

MainLoop;

Ähnliche fragen