*** empty log message ***

diff --git a/src/perl/automove-background b/src/perl/automove-background
index d6d5570be7e890c487d921a5a23a0ef7f659d438..b20ce9e1ee30579bbea127ae17005894a850a455 100644 (file)
--- a/src/perl/automove-background
+++ b/src/perl/automove-background
@@ -9,7 +9,7 @@ sub on_configure_notify {
       ($x, $y) = ($event->{x}, $event->{y});
    } else {
       ($x, $y) = $self->XTranslateCoordinates (
-         $self->parent, $self->DefaultRootWindow,
+         $self->vt, $self->DefaultRootWindow,
          0, 0
       );
    }