Opened by styx-cc at 2006-11-30 20:43
User since
2006-11-29
340 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-29
340 Artikel
BenutzerIn
Ich hab es gerade mal mit diesem Minimal Beispiel ausprobiert:
Und es hat funktioniert.
Vielleicht funktioniert es bei dir nicht, weil du make_toplevel verwendest?
Oder doch ein anderes Format?
MfG PerlProfi
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
my $splash = tkinit;
$splash->overrideredirect(1);
$splash->geometry("100x100+200+200");
$splash->Label(-image => $splash->Photo(-file => "test.gif"))->pack;
MainLoop;
Und es hat funktioniert.
Vielleicht funktioniert es bei dir nicht, weil du make_toplevel verwendest?
Oder doch ein anderes Format?
MfG PerlProfi