Opened by format_c at 2004-05-14 22:15
User since
2003-08-04
1706 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
1706 Artikel
HausmeisterIn
Hi ich will eine kleines animierte Gif in ein kleines Toplevel in ein Label packen aber irgenwie sagt er es würde da nicht existieren.
Hier der Code:
Kann mir jemand sagen was ich falsch mache?
Gruß Alex
Hier der Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
my $tl_width = 100;
my $tl_height = 50;
my ($width,$height,$pos_x,$pos_y) = split /\+|x/,$main->geometry();
my $tl = $main->Toplevel(-title=>'Suche....');
$tl->minsize($tl_width,$tl_height);
$tl->geometry('+' .
int($width / 2 + $pos_x - $tl_width / 2) .
'+' .
int($height / 2 + $pos_y - $tl_height / 2)
);
$tl->Label(-image=>$FindBin::Bin . '/chklnk.gif')->pack();
$tl->Label(-text=>'Suche...')->pack();
Kann mir jemand sagen was ich falsch mache?
Gruß Alex