Habe das jetzt so gelöst:

$top->bind('<ButtonRelease>', sub { $dragging = 0; } );

und in der Watcher-Sub wird dann der Watcher gecancelt im Falle von $dragging == 0.

Funktioniert, gefällt mir aber nicht. Gibts da keine andere Möglichkeit? Am liebsten wäre mir, wenn ich den Drag-Status direkt vom Tk::DragDrop-Objekt auslesen könnte.


[EDIT] Funktioniert doch nicht. Nur nach dem zweiten Klick. Wird am von dir erwähnten Global Grab liegen[/edit]

[edit2] Hab den bind jetzt ans DragDrop-Object gebunden - geht doch [/edit2]\n\n

<!--EDIT|GoodFella|1168864463-->