insert('end', $image) - #43829 (Graphische Oberflächen)

Crian

2005-04-29 18:27

User since
2003-08-04
5870 Artikel
ModeratorIn

Code: (dl )

        elsif ($part->{type} eq 'emoticon') {
            my $p = $textwidget[-1]->Animation('-format' => 'gif', -file => $part->{text});
            $textwidget[-1]->imageCreate('end', -image => $p);
        }

vielleicht sollte ich Dir mal mein Programm zukommen lassen?\n\n

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