User since
2003-08-15
2653
Artikel
BenutzerIn
ich hab ne Animation:
my $image = $mw->Animation(-format => 'gif', -file => 'smilie.gif');
$frame->imageCreate('end', -image => $image);
das Bild lässt sich auch einbinden, aber es bewegt sich nicht !
User since
2003-11-28
3645
Artikel
ModeratorIn
Bewegt es sich, wenn es in ein Label gepackt wird?
User since
2003-08-15
2653
Artikel
BenutzerIn
ne beim Label funzt's auch nicht!
User since
2003-08-04
5873
Artikel
ModeratorIn
Die Diskussion haben wir hier schon irgendwo, ich hab das Problem auch und bisher keine Lösung.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
User since
2003-11-28
3645
Artikel
ModeratorIn
Es gab mal einen Issue mit zwei Animationsmodi (destruktiv und additiv). Leider sind die einzigen Moeglichkeiten: die GIF-Animation in den anderen Modus zu konvertieren, oder einen Konstante in Tk/Animation.pm zu aendern.
User since
2003-08-15
2653
Artikel
BenutzerIn
ich steh jetzt aber aufn schlauch... In was fürn Modus muss ich das GIF konventieren?
User since
2003-11-28
3645
Artikel
ModeratorIn
Wenn du GIMP zum Abspeichern der Animation verwendes, kannst du beim Abspeichern "Frame Disposal" angeben, und zwar entweder Combine oder Replace. Nur mit einem von beiden kann Tk::Animation richtig umgehen.
User since
2003-08-15
2653
Artikel
BenutzerIn
ich hab die gifs hier ausm forum kopiert ! Hab kein GIMP unter XP
User since
2005-04-13
625
Artikel
BenutzerIn
Dann kannst du es dir ja ziehen, GIMP ist durchaus auch für Windows ein sehr leistungsfähiges Grafikprogramm...
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'
http://perl-tutor.de