Rectangle mit der Maus verschieben - #109430 (Graphische Oberflächen)

Kean

2008-05-08 11:04

User since
2004-08-18
463 Artikel
BenutzerIn

user image

Ich würde gerne einen Rahmen in einem Canvas frei mit der Maus verschieben können. Denke dies ist evtl. über bind möglich.

So soll es dann aussehen:

Code (perl): (dl )

$canvas->delete("all");
$image_in = $canvas->Photo( -file       => $file_use, -format => $image_format );
$picture = $canvas->createImage(0, 0, -image => $image_in, -anchor => "nw");
$rahmen = $canvas->createRectangle(100, 100, 266, 300, -width => 2);
$canvas->bind($rahmen, ?????);

Welches Binding benötige ich für den Mausklick und wie kann ich die bewegung der Maus an die Position des Rahmen knüpfen???