*** empty log message ***

diff --git a/Changes b/Changes
index 649b9301be41f1f465c6287f1c66eacc94e16789..6d6fa0f878fab5cbbbddfb9d1b71f0461d2f0d14 100644 (file)
--- a/Changes
+++ b/Changes
@@ -13,7 +13,6 @@ WISH: http://www120.pair.com/mccarthy/nextstep/intro.htmld/Workspace.html is the
 DUMB: support tex fonts
 
 TODO: option popup hook, make some exts switchable
-TODO: constant offste with automove
 TODO: rework colors and blabla section
 
        - changed interpretation of [alpha] colour prefix.

diff --git a/src/perl/automove-background b/src/perl/automove-background
index b20ce9e1ee30579bbea127ae17005894a850a455..7f7bb26ce7a32c0474f851fb55eea3bc61939071 100644 (file)
--- a/src/perl/automove-background
+++ b/src/perl/automove-background
@@ -3,16 +3,10 @@
 sub on_configure_notify {
    my ($self, $event) = @_;
    
-   my ($x, $y);
-
-   if ($event->{send_event}) {
-      ($x, $y) = ($event->{x}, $event->{y});
-   } else {
-      ($x, $y) = $self->XTranslateCoordinates (
-         $self->vt, $self->DefaultRootWindow,
-         0, 0
-      );
-   }
+   my ($x, $y) = $self->XTranslateCoordinates (
+      $self->vt, $self->DefaultRootWindow,
+      0, 0
+   );
 
    $self->cmd_parse ("\033]20;;=+$x+$y\007");
 }