in reply to Tk-Drag-Window

Sorry guys, there is no need of this: my $xe = $mw->XEvent; :)