PERL: gif.bilder in tk einbinden [Archiv]

myuser123

04-01-2008, 21:29

Hallo zusammen,

wie kann ich mit perl/tk .gif-Dateien einbinden?
Ich will vor dem Wort England die Datei
england.gif einbinden sowie die Datei
austria.gif vor dem Wort Oesterreich.
Danke im voraus.

# !/bin/perl -w

use Tk;

#
# Hauptfenster:
#
my $mw = MainWindow->new();

$mw->title('Ein Test');

my $fo = $mw->Frame()->pack(-side => 'top',
-expand => 1,
-fill => 'both',
);
#
# Checkbuttons:
#
my $f1 = $fo->Frame(-borderwidth => 3,
-relief => 'groove',
)
->pack(-side => 'right',
-expand => 1,
-fill => 'both',
);

#
# Radiobuttons1:
#

my $f2 = $fo->Frame(-label => 'Name auswaelen',
-borderwidth => 3,
-relief => 'groove',
)
->pack(-side => 'right',
-expand => 1,
-fill => 'both',
);

my @Name = ('test1',
'test2',
);
my $Namen = 0;
for my $i (0..$#Name) {
$f2->Radiobutton(-text => $Name[$i],
-variable => \$Namen,
-value => $i,
)
->pack(-anchor => 'w');
}

#
# Radiobuttons2:
#
my $f3 = $fo->Frame(-label => 'MY TEST',
-borderwidth => 3,
-relief => 'groove',
)
->pack(-side => 'right',
-expand => 1,
-fill => 'both',
);

my @Landliste = ('England',
'Oesterreich',
);
my $Land = 0;
for my $i (0..$#Landliste) {
$f3->Radiobutton(-text => $Landliste[$i],
-variable => \$Land,
-value => $i,
)
->pack(-anchor => 'w');
}

#
# OK-Button:
#
$mw->Button(-text => 'OK',
-command => sub { print $mw->destroy();
},
)
->pack(-side => 'bottom',
-expand => 0,
-fill => 'none',
-ipadx => 20,
-pady => 2,
);

MainLoop();