Transparente Gifs übereinander: wieso scheint das untere nicht durch? - #44552 (Graphische Oberflächen)

jemand

2005-09-13 22:44

User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]

Probiert? was ist das??
Hier der Code:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new(-title => 'Test',                           );                            
my $lab1 = $mw->Label(-image => $mw->Photo(-file => 'bm1.gif')
                      );
my $lab2 = $mw->Label(-image => $mw->Photo(-file => 'ba1.gif')
                      );                   
$lab2->place(  -x => 10,
               -y => 10);
$lab1->place(  -x => 10,
               -y => 10);
MainLoop();

http://ich22.ic.funpic.de/zeugs/ba1.gif
http://ich22.ic.funpic.de/zeugs/bm1.gif

Soviel dazu. Ich hab dann nach längerem googeln des öfteren gelesen es ginge prinzipiell nicht da man die Hintergrundfrabe eines Labels nicht transparent setzen könnte. Also werd ich wohl einfach ein Canvas nehmen. Wär ich wohl gleich drauf gekommen wenn nicht wieder mal vergessen hätte mir die widget.bat anzuschaun.

Naja, ich dachte halt e3s gäb ne schöne lösung mit den Label damit ich nicht das halbe programm umschreiben darf aber wenn das halt nicht geht, muss eben ein Canvas her.

Danke trotzdem.

print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;