Ich denke mittels
$canvas->dchars(TextTagOrId, 0, 'end'); sollte man den Inhalt löschen können. Anschließend kann man wohl mittels
$canvas->insert(TextTagOrId, 'end', $text); den neuen Text einfügen.
edit: dchars() ausprobiert. Funktioniert. :)
MfG
Last edited: 2011-01-06 15:32:21 +0100 (CET)
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'