Thread gif.bilder in tk einbinden
(13 answers)
Opened by simon78 at 2007-10-06 22:18 Code (perl): (dl
)
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 #!/usr/bin/perl use strict; use warnings; use Tk; use Tk::Photo; my $mw = tkinit; my @Landliste = ( ['England', 'shop_cart.gif'], ['Oesterreich', 'shop_cart.gif'], ); my $Land = 0; for my $i (0..$#Landliste) { my $photo = $mw->Photo( -file => $Landliste[$i]->[1] ); $mw->Radiobutton(-text => $Landliste[$i]->[0], -variable => \$Land, -value => $i, -image => $photo, -compound => 'left', )->pack(-anchor => 'w'); } MainLoop; OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/) -- Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html Perl-Entwicklung: http://perl-services.de/ |