Ich habe ne Funktion dafür geschrieben, aber Du musst Dich bis heute abend gedulden, wenn ich sie posten soll...

Die Funktion ist zwar für Tk::Zinc geschrieben, sollte aber auch mit Tk::Canvas funktionieren, da diese sehr ähnlich sind...